<%@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()%> 顧客留言-湘西自治州邊城醋業科技有限公司

      <form id="j9dxf"></form>
      <strike id="j9dxf"></strike>
      
      

              <var id="j9dxf"><thead id="j9dxf"></thead></var>
                <sub id="j9dxf"></sub>
                  <output id="j9dxf"></output>

                  <i id="j9dxf"><menuitem id="j9dxf"><p id="j9dxf"></p></menuitem></i>

                    <progress id="j9dxf"></progress>
                      <menuitem id="j9dxf"><menuitem id="j9dxf"></menuitem></menuitem>

                               
                              設置首頁  |  加入收藏  |  網站地圖
                              中文版  |  ENGLISH
                              首頁 公司概述 新聞中心 產品中心 企業科技 科普園地 投資加盟 顧客留言 聯系我們
                                邊城醋業
                               
                                + 公司簡介
                                + 公司文化
                                + 廠房廠貌
                                + 榮譽證書
                              顧客留言 當前位置:首頁 >> 顧客留言  
                                <%=ol%>
                              網站首頁 | 關于我們 | 在線留言 | 聯系我們 | 網站地圖
                              版權所有:湘西自治州邊城醋業科技有限公司 湘ICP備07011328號-1
                              電話:0734-2810818 傳真:0734-2810818
                              技術支持: 網站建設專家 長沙康曼德信息技術有限公司
                              俄罗斯老妇女bbxx_欧美综合区自拍亚洲综合图_最好最新高清中文字幕_a毛片免费全部播放 <%end sub%>