请 您 留 言 
姓名:
电话:
Email:

   

注意:

1、把留言本的公告写在这里。

2、请勿在此发布与本站及本院无关的话题及违法的内容。
管理员登陆>>>

 
<% const MaxPerPage=8 dim totalPut dim CurrentPage dim TotalPages dim i,j dim typename typename="数字留言本V1.0" if not isempty(request("page")) then currentPage=cint(request("page")) else currentPage=1 end if %> <% dim sql dim rs sql="select * from guestbook where answer <>'暂无回复' order by id DESC" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "

还没有留言

" else totalPut=rs.recordcount totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showContent showpage totalput,MaxPerPage,"index.asp" else if (currentPage-1)*MaxPerPage <%do while not rs.eof%>
<%If (i Mod 2) Then%> <%Else%> <%End If%> 留言人:<%=rs("name")%> [<%=rs("date")%>]  <% if rs("tel")="" then Response.Write "" else Response.Write "电话: "&rs("tel")&"" %>   <% if rs("email")="" then Response.Write "" else Response.Write "E-mail: "&rs("email")&"" %>
<%=rs("content")%>
留言回复:<%=rs("answer")%>
<% i=i+1 if i>=MaxPerPage then exit do rs.movenext loop %>
  <% end sub function showpage(totalnumber,maxperpage,filename) dim n if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if response.write "
    >>分页 " response.write " 共"&totalnumber&"篇留言 每页显示"&maxperpage&"篇 目前显示第"&CurrentPage&"/"&n&"页     " if CurrentPage<2 then response.write "首页  上一页  " else response.write "首页  " response.write "上一页  " end if if n-currentpage<1 then response.write "下一页  尾页" else response.write "下一页  尾页" end if end function %>

青岛世可机械有限公司