www.gusucode.com > 艺术签名文章资讯网源代码 > 艺术签名文章资讯网源代码/624/soft/error.asp
<!--#include file="config.asp"--> <% 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 = Server.CreateObject("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 %> <html> <head> <title>错误报告</title> <style> td{font-size:9pt;line-height:140%} body{font-size:9pt;line-height:140%} a:link { color: #0033CC; text-decoration: none } a:visited { color: #0033CC; text-decoration: none } a:active { color: #FF0000; text-decoration: none } a:hover { color: #000000; text-decoration: underline} </style> </head> <body topmargin="8"> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" height="100%"> <tr> <td width="100%" align="center"> <%If Request("code")=Request.Cookies("downError") or ccc=1 Then%> <script LANGUAGE="JavaScript"> <!-- setTimeout('window.close();', 5000); // --> </script> <font color="#FF0000">谢谢你的提醒!<br>我们会尽快修复此软件,请你过段时间再来下载!<BR>给你带来不便,敬请原谅!</font> <%Else%> <form action="error.asp?softid=<%=Request("softid")%>&code=<%=code%>" method="post" name="form"> <input type="submit" value="报告错误" name="B1"></p> </form> <%End If%> </td> </tr> </table> </body> </html> <% CloseConn %>