% @language="vbscript" codepage="936" %>
|
|
<%
Set conn=server.CreateObject("adodb.connection")
connstr="provider=microsoft.jet.oledb.4.0;data source="&server.mappath("../data/#dataAspsd.asp")
conn.open connstr
%>
<%
'生成HTML页面
'mb_code = Now()
'c_filepath= "a123.txt"
'Set fso = Server.CreateObject("Scripting.FileSystemObject")
'Set fout = fso.CreateTextFile(Server.MapPath(c_filepath))
'fout.WriteLine mb_code
'fout.close
'set fout = Nothing
'set fso = Nothing
'URL = LCase(Request.ServerVariables("HTTP_REFERER")) 'Request.ServerVariables("SERVER_NAME"),
URL = LCase(Request.QueryString)
set rs=server.CreateObject("adodb.recordset")
if URL <> "" then
URL = Replace(URL,"http://","")
if InStr("/", URL) >= 0 then
m = Split(URL,"/")(0) '注意这裏,若1改为0则显示的结果就是域名哟
else
m = URL
end if
m = Replace(m,"bbs.","")
m = Replace(m,"www.","")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''先更新20分钟过期的
'set rs=conn.Execute("update news set clkCount = 1 where (clkTime is null) ")
'set rs=conn.Execute("update news set clkCount = 1 where (clkTime is null) or (clkTime <= cdate("""& Now()&"""))")
'set rs=nothing
''写入点入
'set rs=server.CreateObject("adodb.recordset")
sql="select * from news where SiteUrl like ""%" + m + "%"""
rs.open sql,conn,1,3 '
'aaaa = ""
if rs.eof then
else
' aaaa = rs("clkCount") &" ** " & rs("clkTime") & "*"
' rs.edit
b = rs("clkCount")
if (b = "") or IsNull(b) or IsEmpty(b) then
rs("clkCount")=1
end if
rs("clkCount")=rs("clkCount")+1
rs("clkTime")=Now() 'DateAdd("n",20,) 'DateAdd("s",-2,now),
rs.update
end if
rs.close
end if
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
bb = ""
bb = ""
'bb = ""
sql="select * from news where flag = 1 "
rs.open sql,conn,1,3 '
HadCount = 0
if not rs.eof then
do until rs.eof
One1 = " " & rs("SiteName") & ""
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
bb = bb & "
" & " " & One1 & " | "
rs.movenext
if not rs.eof then
One1 = " " & rs("SiteName") & ""
bb = bb & " " & One1 & " | "
rs.movenext
end if
if not rs.eof then
One1 = " " & rs("SiteName") & ""
bb = bb & " " & One1 & " | "
rs.movenext
end if
if not rs.eof then
One1 = " " & rs("SiteName") & ""
bb = bb & " " & One1 & " | "
rs.movenext
end if
if not rs.eof then
One1 = " " & rs("SiteName") & ""
bb = bb & " " & One1 & " | "
rs.movenext
end if
bb = bb & "
"
' |
' |
' |
' |
' |
' |
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' if bb = "" then
' bb = bb & One
' else
' bb = bb & " " & One
' end if
' HadCount = HadCount + 1
' if HadCount Mod 7 = 0 then
' bb = bb & "
"
' end if
'rs.movenext
loop
end if
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'bb = bb & ""
bb = bb & "
"
'end if
set rs=nothing
conn.close
set conn=nothing
'bb = bb & " " & URL
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Response.Write("var IPData111 = new Array("""&Request.ServerVariables("HTTP_REFERER")&" "&Time()&" "&bb&" -++-" & aaaa&" -++-- "&m&""","""","""","""");" )
Response.Write(bb)
%>
我们的目标是:用心做网站,打造国内一流的、最好用的、最全面的网站网,如果你喜欢本站,别忘了把本站的网址告诉给你QQ上的朋友哦,谢谢您!http://www.haha111.com
|