url.asp

这是一个用SQL Server和ASP开发的搜索引擎网站

<%
response.write "为了保证网站的正确性不提供url转发"
response.end
session("lastdate") = Request.Cookies("tgdate")
session("lastid") = Request.Cookies("ID")
url = Request.QueryString("id")
Response.Cookies("ID") = url
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
Set RS = conn.Execute("select * from link2 where ID =" & url)
ezeRedir = RS("URL").value
if session("lastdate") = "" then
	session("lastdate") = dateadd("d",-10,now())
End if
ezedate =  datediff("h",session("lastdate"), now())
if  session("lastid") = url  and ezedate < 6 then
else
	hit=rs("Hit")+1
Set RS2 = conn.Execute("UPDATE link2 SET Hit = " & hit & " Where ID =" & url)
		End If
RS.Close
conn.Close
set conn = nothing
Response.Redirect (ezeredir)
%>