|
|
福建省龙岩市日日发网络信息技术有限公司 版权所有
东方域名
(dfym.cn)
业务咨询：0597-2282921 2194658 技术支持：0597-2282923
传真：0597-2282923
地址:中国.福建省龙岩市西安公坪路12号 邮编：364000
《中华人民共和国增值电信业务经营许可证》闽ICP备05015760号
|
<%
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
%> | |
