<% Dim code, ccc Dim Rs, SQL, softid If Not IsNumeric(Request("softid")) And Request("softid") <> "" Then Response.Write "错误的系统参数!ID必须是数字" Response.End Else softid = CLng(Request("softid")) End If If Not IsObject(Conn) Then ConnectionDatabase If Request("code") <> "" And Request("code") = Request.Cookies("downError") Then Set Rs = NewAsp.CreateAXObject("ADODB.RecordSet") SQL = "SELECT ErrCode FROM NC_SoftList WHERE softid=" & softid Rs.Open SQL, Conn, 1, 3 If Not Rs.EOF Then If Rs("ErrCode") <> "" Then Rs("ErrCode").Value = Rs("ErrCode").Value + 1 Else Rs("ErrCode") = 1 End If Rs.Update End If Rs.Close Set Rs = Nothing Conn.Close Set Conn = Nothing Response.Cookies("downError") = Request("softid") End If If Request.Cookies("downError") <> Request("softid") Then code = Now() * 2 / 2 Response.Cookies("downError") = code Else ccc = 1 End If %> 错误报告
<%If Request("code")=Request.Cookies("downError") or ccc=1 Then%> 谢谢你的提醒!
我们会尽快修复此软件,请你过段时间再来下载!
给你带来不便,敬请原谅!
<%Else%>

<%End If%>
<% NewAsp.PageEnd() %>