<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%Session.CodePage=936%> 在线留言_青岛网络公司_青岛网站建设_青岛企锐网络科技有限公司
当前位置:网站首页 >> 在线留言
青岛网站优化在线咨询
青岛网站建设服务热线

在线留言

|青岛企锐网络科技有限公司
<%'开始分页 Const MaxPerPage=4 dim totalPut dim CurrentPage dim TotalPages dim j dim sql if Not isempty(request("page")) then currentPage=Cint(request("page")) else currentPage=1 end if set rs=server.CreateObject("adodb.recordset") action=request.QueryString("action") id=request.Form("select") if request.form("name")="" then rs.open "select * from message order by id desc",conn,1,1 else rs.open "select * from message where name like '%"&trim(request.form("name"))&"%' " ,conn,1,1 end if if rs.eof And rs.bof then Response.Write "

数据库中无数据!

" else 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,"deletemail.asp" else if (currentPage-1)*MaxPerPage
<% do while not rs.eof %> <% if Rs("reply")=1 then %> <% end if %> <%i=i+1 if i>=MaxPerPage then Exit Do rs.movenext loop rs.close set rs=nothing conn.close set conn=nothing %>
<% if i<10 then response.Write "0"&i else response.Write i end if %>
  " class="top3"><%=Rs("subject")%> <%=Rs("name")%> <%=Rs("submittime")%>
<%=Rs("click")%>
管理员 <%=Rs("submittime")%>  
<% 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 filename="leave_message.asp" Response.Write "
" Response.Write "

" Response.Write " 共"&totalnumber&"条  " If CurrentPage<2 Then Response.Write "     " Else Response.Write "   " Response.Write "    " End If Response.Write "   第"&CurrentPage&"页/共"&n&"页  " If n-currentpage<1 Then Response.Write "         " Else Response.Write "  " Response.Write "   " End If Response.Write "    转到:" Response.Write "

" End Function %>
填写留言
*姓名:  
电话:  
性别:
*标题:  

*留言内容:
 
  当回复此条留言时自动Email给我