<% '============================================================ '插件名称：Ajax留言本 'Website：http://www.sagc.com.cn 'Author：深圳南航担保网络科技 'Date：2008-11-6 '============================================================ book_pass=0 '是否需要审：0为审核，1为直接通过 if request.QueryString("action")="save" then Save else show_msg end if Sub Save a1=request.Form("a1") a2=request.Form("a2") a3=request.Form("a3") a4=request.Form("a4") a5=request.Form("a5") a6=request.Form("a6") a7=request.Form("a7") a8=request.Form("a8") a9=request.Form("a9") a10=request.Form("a10") a11=request.Form("a11") a12=request.Form("a12") a13=request.Form("a13") a14=request.Form("a14") lastpostdate=Load_Cookies("book") lastpostdate=Re(lastpostdate," ","　") IF lastpostdate<>"" then IF int(DateDiff("s",lastpostdate,now()))<=60 then Echo "您发表的速度太快，歇歇再发吧":Died End IF End IF Set Rs=Server.CreateObject("adodb.recordset") Sql="select username,content,ispass,ip,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14 from sd_book " Rs.Open Sql,Conn,1,3 rs.Addnew rs(0)=Left(username,10) rs(1)=content rs(2)=book_pass rs(3)=GetIp rs(4)=a1 rs(5)=a2 rs(6)=a3 rs(7)=a4 rs(8)=a5 rs(9)=a6 rs(10)=a7 rs(11)=a8 rs(12)=a9 rs(13)=a10 rs(14)=a11 rs(15)=a12 rs(16)=a13 rs(17)=a14 rs.Update rs.Close Set Rs=Nothing Response.Write "" End Sub Sub Show_msg Set Temp=New Templates page=Trim(request.QueryString()) page=Requestint(page,1) classpage=5'定义每页数量 Temp.Label "{sdcms:pages}",page set rs=server.CreateObject("adodb.recordset") sql="select id from sd_book where ispass=1 " rs.open sql,conn,1,1 rs.PageSize=classpage IF rs.eof and rs.bof then Temp.Label "{sdcms:listpage}","" show=Temp.SDCMS_Templates(Load_temp_dir&Load_temp_file("sdcms_skins_book")) Else maxpagecount=rs.pagecount rs.absolutepage=page rcount1=0 pagestart=page-2 pageend=page+2 if pagestart<1 then pagestart=1 end if if pageend>maxpagecount then pageend=maxpagecount end if rcount=rs.RecordCount Temp.Label "{sdcms:listpage}",Getpagelists(rcount,page,maxpagecount,pagestart,pageend,"?","") show=Temp.SDCMS_Templates(Load_temp_dir&Load_temp_file("sdcms_skins_book")) End IF Echo show Set Temp=Nothing End Sub %>