<% server.Execute "/NoHACK1.asp" dim AutoID, sql, rs, PicFile, Errh, TypeID AutoID = ReqNum(Request("ID")) TypeID = ReqNum(Request("TypeID")) ' 選擇的桌布size種類 sql = "select * from DL_Wallpaper where AutoID = " & AutoID set rs = GetRecordset(sql) if not(rs.BOF and rs.EOF) then PicFile = "wallpaper/" '----更新點閱數 sql = "Update DL_Wallpaper set D_Count=(D_Count+1) where AutoID=" & AutoID Errh = DoCommand(sql) select case TypeID case "1" ' 800x600 PicFile = PicFile & rs("D_Pic2").value case "2" ' 1024x768 PicFile = PicFile & rs("D_Pic3").value case "3" ' 1280x960 PicFile = PicFile & rs("D_Pic4").value case "4" ' 1920x1080 PicFile = PicFile & rs("D_Pic5").value case else PicFile = "" end select else PicFile = "" end if rs.close : set rs = nothing if PicFile = "" then call ExitWin end if %> 桌布下載
<% Sub ExitWin() %> <% End Sub %>