<% @language="vbscript" codepage="936" %>
网址之家www.haha111.com
收藏本站 设haha111为首页 意见反馈
你目前的位置 >> 首页 > 酷站秀
<% 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 & "" & " " rs.movenext if not rs.eof then One1 = " " & rs("SiteName") & "" bb = bb & " " rs.movenext end if if not rs.eof then One1 = " " & rs("SiteName") & "" bb = bb & " " rs.movenext end if if not rs.eof then One1 = " " & rs("SiteName") & "" bb = bb & " " rs.movenext end if if not rs.eof then One1 = " " & rs("SiteName") & "" bb = bb & " " 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 & "
" & One1 & "" & One1 & "" & One1 & "" & One1 & "" & One1 & "
" '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  

返回本站首页