url.asp

这个程序是卡页连接联盟当前在使用的最新全站程序.本站是一套全新概念的自助友情链接交换系统

<!--#include file="conn.asp" -->
<%
intSiteIDNo = CInt(Request.QueryString("ID"))
Set rsGetURL = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM MB_Linkun WHERE L_ID = " & intSiteIDNo & ";"

rsGetURL.CursorType = 2
rsGetURL.LockType = 3
rsGetURL.Open strSQL, my_conn

If NOT rsGetURL.EOF Then
	strURL = rsGetURL("L_URL") 
	If Request.Cookies("RateSite")("Site" & intSiteID) <> strURL Then
	rsGetURL.Fields("L_Hits") = CLng(rsGetURL("L_Hits") + 1)
	End If
	rsGetURL.Update
	Response.Cookies("RateSite")("Site" & intSiteID) = strURL
	Response.Cookies("RateSite").Expires = Now() + 1
	Set rsGetURL = Nothing
	Set my_conn = Nothing
	Response.Redirect strURL
 End If

Set rsGetURL = Nothing
Set my_conn = Nothing
%>