|
<%
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
%>
| |
