<% '============================================================ '插件名称:Ajax留言本 'Website:http://www.sdcms.cn 'Author:IT平民 'Date:2008-11-6 '============================================================ book_pass=0 '是否需要审:0为审核,1为直接通过 Select Case action Case "save":check_post:Save Case Else:show_msg End select Sub Save lastpostdate=Load_Cookies("book") lastpostdate=Re(lastpostdate," "," ") IF lastpostdate<>"" then IF int(DateDiff("s",lastpostdate,now()))<=60 then Echo "1您发表的速度太快,歇歇再发吧":Died End IF End IF username=trim(request("username")) phone=trim(request("phone")) address=trim(request("address")) content=request("content") content1=NoHtml(request("content")) yzm=trim(request("yzm")) IF yzm<>Session("SDCMSCode") Then echo "1验证码错误":Died IF username="" Or phone="" Or address="" Or content="" Then Echo "1请填写好各项的表单":Died'数据为空 ElseIF len(username)<2 Then Echo "1名字太短了吧?":Died'名字太短 ElseIF len(username)>10 Then Echo "1名字也太长了吧":Died'名字太长 ElseIF len(phone)<2 Then Echo "1电话太短了吧?":Died'名字太短 ElseIF len(phone)>11 Then Echo "1电话也太长了吧":Died'名字太长 ElseIF len(address)<2 Then Echo "1地址太短了吧?":Died'名字太短 ElseIF len(address)>50 Then Echo "1地址也太长了吧":Died'名字太长 ElseIF Len(content1)=0 Then Echo "1内容必须有文字!":Died'内容太少 ElseIF len(content)<5 Then Echo "1就写这么点内容?":Died'内容太少 ElseIF len(content)>300 Then Echo "1大哥内容多了我存不下啊!":Died'内容太长 End IF username=HTMLEncode(username) content=ContentEncode(content) Set Rs=Server.CreateObject("adodb.recordset") Sql="select username,phone,address,content,ispass,ip from sd_book " Rs.Open Sql,Conn,1,3 rs.Addnew rs(0)=Left(username,10) rs(1)=phone rs(2)=address rs(3)=content rs(4)=book_pass rs(5)=GetIp rs.Update rs.Close Set Rs=Nothing IF book_pass=1 then Echo "0发布成功"'发布成功 Else Echo "0发布成功,审核后显示"'发布成功 End IF Add_Cookies "book",Now() 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 %>