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
%>