<%
if session("user")="" then
response.redirect "login.asp"
end if 
%>
<!--#include file="cnn.asp"-->
<%
Function getBody(infopageurl)
'ܣȡַָhtml
if infopageurl<>"" then
 dim xmlHttp
 set xmlHttp=server.createobject("MSXML2.XMLHTTP")
 xmlHttp.open "GET",infopageurl,false
 xmlHttp.send
 getBody=BytesToBstr(xmlhttp.responsebody,"GB2312")
 set xmlHttp=nothing
end if 
End Function
 
Function BytesToBstr(body,Cset) 
 dim objstream  
 set objstream = Server.CreateObject("adodb.stream")  
 objstream.Type = 1  
 objstream.Mode = 3  
 objstream.Open  
 objstream.Write body  
 objstream.Position = 0  
 objstream.Type = 2  
 objstream.Charset = Cset  
 BytesToBstr = objstream.ReadText  
 objstream.Close  
 set objstream = nothing 
End Function
id=trim(request("id"))
set rs=server.createobject("adodb.recordset")
sql="select * from [user]"
rs.open sql,conn,1,1
if not rs.eof then
url=rs("url")
txt=rs("txt")
end if
rs.close
sql="select * from link where id="&id
rs.open sql,conn,1,1
if not rs.eof then
readurl=rs("back")
allpage = getBody(readurl)
end if
rs.close
if instr(allpage,url) and instr(allpage,txt) then
response.write "<center>վڱվķ.</center>"
else
response.write "<center>ûҵվеվ,ֹ.</center>"
end if
%>