<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% dim king,i,rs,sql,PerPage,text,checkpage,currentpage,iter,action:action=request("action") set king=new kingcms king.head 0,0 select case action case"" :king_def() case "save" :king_save() end select king_outhtm set king=nothing function iteration() Randomize iter = fix(rnd()*10000) iteration=iter end function 'def *** *** www.KingCMS.com *** *** sub king_def()'需要加入标题,访问级别 dim classid,selected dim space space=l1ll("space",2) classid=l1ll("classid",2) session("iteration")=iteration() kingtitle="客户留言" kingguide=king.guide(0)&kingtitle ol=ol&"
" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&" " ol=ol&"" ol=ol&"
姓 名: *
电 话: *
联系地址:
Email:
邮编:
留言内容: *
"%> <% Set rs= Server.CreateObject("ADODB.Recordset") sql="select * from zybook where Fox='1' order by id desc" rs.open sql,conn,1,1 if not rs.eof then PerPage=5 text="0123456789" rs.PageSize=PerPage for i=1 to len(request("page")) checkpage=instr(1,text,mid(request("page"),i,1)) if checkpage=0 then exit for end if next If checkpage<>0 then If NOT IsEmpty(request("page")) Then CurrentPage=Cint(request("page")) If CurrentPage < 1 Then CurrentPage = 1 If CurrentPage > rs.PageCount Then CurrentPage = rs.PageCount Else CurrentPage= 1 End If If not rs.eof Then rs.AbsolutePage = CurrentPage end if Else CurrentPage=1 End if 'call showpages call list 'If rs.recordcount > PerPage then 'call showpages 'end if end if rs.close end sub '显示帖子的子程序 Sub list() ol=ol&"
" ol=ol&" " i=0 do while not rs.eof ol=ol&" " if rs("rebook")<>"" then ol=ol&" " end if ol=ol&" " i=i+1 rs.movenext if i=PerPage then exit do end if loop ol=ol&"
留言:"&rs("content")&"("&rs("time")&")
回复:"&rs("rebook")&"
 
" if rs.PageCount>1 then ol=ol&" " ol=ol&"
" ol=ol&" -> 全部-共" ol=ol&" " & "" & Cstr(rs.RecordCount) & "" & "条留言 " ol=ol&" 第" & "" & Cstr(CurrentPage) & "" & "/" & Cstr(rs.pagecount) & "页 "& PerPage &"条/页 " If currentpage > 1 Then ol=ol&" 金博体育娱乐平台官网 " ol=ol&" 上一页 " Else ol=ol&" 上一页 " End if If currentpage < rs.PageCount Then ol=ol&" 下一页 " ol=ol&" 尾页  " Else ol=ol&" " ol=ol&" 下一页  " End if ol=ol&" 转到:" ol=ol&"
" end if End sub sub king_save() kingtitle="客户留言" kingguide=king.guide(0)&kingtitle dim isok:isok=true If request.form("content")="" Then ol=ol&"
  • 错误:您没输入留言内容,请返回检查!!
    " isok=false end if if isok and clng(session("iteration"))=clng(request("flag")) then Set rs = Server.CreateObject("ADODB.Recordset") sql="select * from zybook" rs.open sql,conn,1,3 rs.addnew rs("name")=htmlencode2(trim(request.form("name"))) rs("Phone")=htmlencode2(trim(request.form("Phone"))) rs("address")=htmlencode2(trim(request.form("address"))) rs("email")=htmlencode2(trim(request.form("email"))) rs("post")=htmlencode2(trim(request.form("post"))) rs("content")=htmlencode2(trim(request.form("content"))) rs("time")=now() rs.update rs.close ol=ol&"您的留言已提交成功!" session("iteration")="123" else ol=ol&"
  • 错误:请不要重复提交!!
    " isok=false end if end sub 'outhtm *** *** www.KingCMS.com *** *** sub king_outhtm()%> 金博体育娱乐平台官网
     
    设置金博体育娱乐平台官网  |  加入收藏  |  网站地图
    中文版  |  ENGLISH
    金博体育娱乐平台官网 公司概述 新闻中心 金博体育娱乐平台官网 企业科技 科普园地 投资加盟 金博体育娱乐平台官网 联系我们
      边城醋业
     
      + 公司简介
      + 公司文化
      + 厂房厂貌
      + 荣誉证书
    金博体育娱乐平台官网 当前位置:金博体育娱乐平台官网 >> 金博体育娱乐平台官网  
      <%=ol%>
    网站金博体育娱乐平台官网 | 关于我们 | 金博体育娱乐平台官网 | 联系我们 | 网站地图
    版权所有:湘西自治州边城醋业科技有限公司 金博体育娱乐平台官网
    电话:0734-2810818 传真:0734-2810818
    技术支持: 网站建设专家 长沙康曼德信息技术有限公司
    <%end sub%>