UC知道Asp 读取上页地址问题
来源：百度知道 编辑：UC知道 时间：2024/05/12 07:44:58
Function Links(Link_Urls)
if Link_Urls<>"" then
Codes=GetHttpPage(Link_Urls)
Link_Url="http://"&split(Link_Urls,"/")(2)
sqlstr="select * from [Link] where Link_Url like '%%"&Link_Url&"%%'"
rs.open sqlstr,conn,1,3
application.Lock()
if not rs.eof then
if session(Link_Url)<>True then
rs("Link_CTime")=now()
rs("Link_Click")=rs("Link_Click")+1
rs.update
end if
else
ii=1
if instr(replace(Link_Urls,"http://",""),"/")>0 then
if split(Link_Urls,"/")(3)<>"" then
ii=0
end if
end if
if ii=1 then
Link_Title=split(split(LCase(Codes),"<title>")(1),"</title>")(0)
rs.addnew()
rs("Link_Title")=Lin
if Link_Urls<>"" then
Codes=GetHttpPage(Link_Urls)
Link_Url="http://"&split(Link_Urls,"/")(2)
sqlstr="select * from [Link] where Link_Url like '%%"&Link_Url&"%%'"
rs.open sqlstr,conn,1,3
application.Lock()
if not rs.eof then
if session(Link_Url)<>True then
rs("Link_CTime")=now()
rs("Link_Click")=rs("Link_Click")+1
rs.update
end if
else
ii=1
if instr(replace(Link_Urls,"http://",""),"/")>0 then
if split(Link_Urls,"/")(3)<>"" then
ii=0
end if
end if
if ii=1 then
Link_Title=split(split(LCase(Codes),"<title>")(1),"</title>")(0)
rs.addnew()
rs("Link_Title")=Lin
给你一个我自己用的获取当前页面地址的函数吧
function GetNowPageUrl() '获取当前页面地址
Dim NowUrl,NowString
NowUrl = Request.ServerVariables("PATH_INFO")
NowString = Request.ServerVariables("QUERY_STRING")
If NowString <> "" then
GetNowPageUrl = NowUrl & "?" & NowString
Else
GetNowPageUrl = NowUrl
End If
End Function
Request.ServerVariables("REMOTE_ADDR")
改为
request.ServerVariables("HTTP_REFERER")