error.asp

来自「这是一个用SQL Server和ASP开发的搜索引擎网站」· ASP 代码 · 共 13 行

<!--#include file="head.asp" -->
<%
catid = Request("id")
Conn_String ="Provider=sqloledb;" & "Data Source=127.0.0.1;Initial Catalog=qiye_8;User Id=sa;Password=password;"  
set conn = Server.CreateObject("ADODB.Connection")
conn.open Conn_String
 conn.Execute("UPDATE link2  set badlink=1 where ID=" & catid)
conn.Close
set conn = nothing
Response.write "<center><br><br>感谢您报告连接错误！</center>"
%>
<!--#include file="foot.asp" -->