英语 求速度求解求！！急急急速度 马上就要！！(&#3665 51 8;•̀ㅂ•́)و速度

来源：蜘蛛抓取(WebSpider) 时间：2015-06-09 21:03 标签： 沪南公路3665号
dim conn,sqlstr,DBPath
dim bodymax,name,url,gbook_url,password,count,today_count,today_time,setup_ip,setup_time
DBPath = Server.MapPath("data/ibook.mdb")
Connstr = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& DBPath
Set conn = Server.CreateObject("ADODB.Connection")
Conn.open Connstr
sql="select * from admin"
set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,1,1
gbook_name = Rs("gbook_name")
passwords = Rs("password")
name = Rs("name")
url = Rs("url")
bodymax = Rs("bodymax")
pagesize = Rs("pagesize")
today_count = Rs("today_count")
today_time = Rs("today_time")
setup_ip = Rs("setup_ip")
setup_time = Rs("setup_time")
set Rs = nothing
sub error(message)
=message%>');history.back();
response.end
sub htmlend()
on error resume next
Set Rs1 = Server.CreateObject("ADODB.Recordset")
sql1="select * from admin"
Rs1.open sql,conn,3,2
today_time then
Rs1("today_count") = 0
Rs1("today_time") = date
Rs1.update
set Rs1 = nothing
sql="select * from gbook order by id desc"
set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,1,1
Rs.pagesize=pagesize
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page
搜索留言关键字：&&
do while not Rs.eof
if i > Rs.pagesize then
ips=split(rs("ip"),".")
ip=""&ips(0)&"."&ips(1)&".*.*"
& 网友大名: =Rs("username")%>
& 腾讯OICQ: if Rs("qq")
"" then%> =Rs("qq")%> else%>没有OICQ end if%>
=Rs.recordcount-Rs.pagesize*(page-1)-i+1%>
=Rs("username")%> 在
=Rs("addtime")%> 发表的
=Rs("body")%>
sql = "select * from reply where replyid="& Rs("id") &" order by id desc"
set Rss = Server.CreateObject("ADODB.Recordset")
Rss.open sql,conn,1,1
do while not Rss.eof
站长回复: =Rss("reply")%>回复时间:( =Rss("replytime")%>)
Rss.movenext
set Rss = nothing
if Rs("email")
'>电子邮件
' target=_blank>个人主页
if Rs("qq")
'>腾讯OICQ
Rs.movenext
for i=1 to count
if i1 and (i-1)/6=int((i-1)/6) then
guest=guest&""
guest=guest&" 留言客"&i&"号"
if count/6int(i/6) then
for j=1 to (int(count/6)+1)*6-count
guest=guest&"　"
共有 =Rs.pagecount%>页 你正在浏览第 =page%>页 跳到第 for go=1 to Rs.pagecount%> > =go%>
if page1 then %> >上一页 end if%>
if Rs.pagecount-page
0 then %> >下一页 end if%>
set rs=nothing
conn.close
set conn=nothing
call htmlend()

我要回帖

更多关于 沪南公路3665号 的文章

 

随机推荐