error.asp

来自「多用户管理分权限发布、管理软件信息；　自由选择系统默认为静态HTML或动态A」· ASP 代码 · 共 73 行

ASP

73 行

<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<%
Dim code, ccc
Dim Rs, SQL, SoftID
If request("code")<>"" And request("code") = request.cookies("downError") Then
%>
<%
If Not IsNumeric(Request("id")) And Request("id")<>"" Then
	Response.Write"错误的系统参数!ID必须是数字"
	Response.End
Else
	SoftID = CLng(Request("id"))
End If
Set rs = server.CreateObject("ADODB.RecordSet")
sql = "select ErrCode from NC_SoftInfo where SoftID="&SoftID
rs.Open sql, conn, 1, 3
If Not rs.EOF Then
	If rs("ErrorCode")<>"" 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("id")
End If
If request.cookies("downError")<>request("id") Then
	code = Now() * 2 / 2
	Response.cookies("downError") = code
Else
	ccc = 1
End If
%>
<html>
<head>
<title><%=Newasp.setting(0)%></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?id=<%=request("id")%>&code=<%=code%>" method="post" name="form">
      <input type="submit" value="报告错误" name="B1"></p>
    </form>
<%end if%>    </td>
  </tr>
</table>
</body>

</html>

error.asp - 源码说明

本页面展示了「多用户管理分权限发布、管理软件信息；　自由选择系统默认为静态HTML或动态ASP；　无限制添加下载服务器」中的 error.asp 源码文件，采用 ASP 编程语言编写，共 73 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与HTML相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?