aaaaa.asp

来自「wap系统程序源码 用户名密码:admin」· ASP 代码 · 共 29 行

<!--#INCLUDE VIRTUAL="/you/conn.asp"-->
<%
Server.ScriptTimeout=999
  set objgbrs=Server.CreateObject("ADODB.Recordset")
  sql="Delete FROM you WHERE  DATEDIFF('s', lasttime, now()) > 1296000*60"
  conn.Execute sql
  conn.CommandTimeOut = 999
  ssql="select * from you order by lasttime desc "
  objgbrs.open ssql,conn,1,1
 objgbrs.PageSize=8
if objgbrs.eof then
   Response.write "<br/>暂无首链<br/>"
Else
For k=1 to objgbrs.PageSize
  k=k+1
if objgbrs("bz")="f" then
Response.write "" & objgbrs("sy") &" "
else
Response.write "<a href='/you/youxicl.asp?id=" & objgbrs("id") & "'>" & objgbrs("sy") &"</a> "
End if
if k mod 4 =0 and k<>rs.RecordCount then response.write "<br/>"
    objgbrs.Movenext
  if objgbrs.EOF then Exit for
    Next
  End if
objgbrs.close
Set objgbrs= Nothing
%>