战略合作伙伴：
 |
|
东方域名－网站友情链接交换平台
文字链接:
域名注册 虚拟主机 网址
http://www.rrf.com.cn
2个请选一个做好链接后请联系
 846400618 回链接.
文字链接代码：<p><a title="域名注册,服务器租用,域名申请,空间租用,注册域名" target="_blank" href="http://www.rrf.com.cn">
<font color="#000000">虚拟主机</font></a></p> |
|
|
<%
Function checkreturnurl()
fcheck = true
url=trim(Request.ServerVariables("HTTP_REFERER"))
ad_user=trim(left(Requesta("aduser"),50))
If ad_user="" Then
ad_user=trim(left(Requesta("come"),50))
End If
session("ad_user")=ad_user
if ad_user="" then session("ad_user")="west263"
if ad_user = "" then fcheck = false
ip = Request.ServerVariables("REMOTE_HOST")
If fcheck Then
conn.open constr
Set cmd.ActiveConnection = conn
cmd.CommandType = adCmdStoredProc
cmd.CommandText ="countad"
cmd.Parameters.Append cmd.CreateParameter
("url",adVarChar,adParamInput,255,url)
cmd.Parameters.Append cmd.CreateParameter
("ip",adVarChar,adParamInput,255,ip)
cmd.Parameters.Append cmd.CreateParameter
("ad_user",adVarChar,adParamInput,100,ad_user)
cmd.Parameters.Append cmd.CreateParameter
("result",adinteger,adParamOutput,4)
cmd.Execute,,adExecuteNoRecords
Set cmd.ActiveConnection = Nothing
conn.close
End If
End Function
%>
 |
 |
| |
