showbadlink.asp

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

点击每一个连接以检查是否有错误.<br>
<%
Conn_String ="Provider=sqloledb;" & "Data Source=127.0.0.1;Initial Catalog=qiye_8;User Id=sa;Password=password;"  
SQL = "SELECT * From link2 where badlink=1 order by ID"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open CONN_STRING
set rs = Conn.Execute (SQL)
if rs.eof then
Response.Write "<center>没有新的错误连接"
else
do while not rs.eof
%>
点击检查联接是否正确--><a href="editurl.asp?ID=<%=rs("id")%>"><%=rs("name")%></a><br>
<%
rs.movenext
loop
end if
rs.close
Conn.close
set Conn=nothing
%>