<% response.Expires=0 response.ContentType="text/html" dim DownID, DownType, strSQL, rs, rs1, Errh, rsTable ' 查ID是否純數字 DownID = ReqNum(Request.QueryString("ID")) ' 查Type是否有特殊字元 DownType = ReqTxt(Request.QueryString("Type")) '----選擇Table select case DownType case "File" rsTable = "DL_Download" case "Movie" rsTable = "DL_Movie" case else response.Redirect "/main.asp" end select ' 查ID是否有效 strSQL = "select D_Count from " & rsTable & " where AutoID ='" & DownID & "'" set rs = GetRecordset(strSQL) if rs.BOF and rs.EOF then ' 無效ID 導至下載列表 response.Redirect "game.asp" else ' 有效 strSQL = "update " & rsTable & " set D_Count=" & CStr(rs.fields(0).value + 1) & " where AutoID =" & DownID Errh = DoCommand( strSQL ) strSQL="select D_type,D_File from " & rsTable & " where AutoID=" & DownID set rs1 = GetRecordset(strSQL) If rs1.fields(0).value = "A" then Response.Redirect rs1.fields(1).value else Response.Redirect rs1.fields(1).value End if end if rs.close rs1.Close set rs = nothing set rs1 = nothing %>