<%If Session("UserName")="" Then response.redirect"Server.asp" end if%> <% Id=Session("UserName") set Rst = Server.CreateObject("ADODB.recordset") sql="select * from User where UserName='"&Id&"'" rst.open sql,conn,1,1 %>
  会员服务
 
  产品列表
<% call ShowSmallClass_Tree() %>
 
 
  <%=Session("UserName")%>的留言专区
    <%=Session("UserName")%>,这里是您的专用私密留言簿,您可在此给我们留言,我们会尽力在24小时内在此答复您,请不要忘记回来察看回复哦!
如您已经在我站购物,汇款后请到这里进行汇款登记,填写您的订单号码、汇款时间、汇往我们哪个账号,以便我们核查您的款项的到帐情况并及时为您发货。
">
用户名称: <%=Session("UserName")%>" style="background-color: #FFFFFF; border-style: solid; border-color: #FFFFFF" class="smallInput">
公司名称: " style="font-size: 14px" class="smallInput">
联系人: " style="font-size: 14px" class="smallInput">
联系电话: " style="font-size: 14px" class="smallInput">
联系传真: " style="font-size: 14px" class="smallInput">
E-mail: " style="font-size: 14px" class="smallInput">
留言标题:
留言内容:
 
<% name=Session("UserName") set rs=server.createobject("adodb.recordset") sql="select * from book where name='"&name&"' or name='管理员' order by id desc" rs.open sql,conn,1,1 dim MaxPerPage MaxPerPage=10 '假如没有数据时 'If rs.eof and rs.bof then 'call showpages 'response.write "

您还没任何留言资料

" 'response.end 'End if '取得页数,并判断留言输入的是否数字类型的数据,如不是将以第一页显示 dim text,checkpage text="0123456789" Rs.PageSize=MaxPerPage 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 > MaxPerPage then call showpages end if '显示帖子的子程序 Sub list()%>
   留言列表 <% Response.write " 全部-" Response.write "共" & "" & Cstr(Rs.RecordCount) & "" & "条留言          " Response.write "" & "" & Cstr(CurrentPage) & "" & "/" & Cstr(rs.pagecount) & " " If currentpage > 1 Then response.write "首页 " Response.write "上一页 " Else Response.write "上一页 " End if If currentpage < Rs.PageCount Then Response.write "下一页 " Response.write "尾页  " Else Response.write "" Response.write "下一页  " End if 'response.write "" 'response.write "转到: " 'response.write "  " %>
<% If rs.eof and rs.bof then call showpages response.write "" response.end End if %>
<% if not rs.eof then i=0 do while not rs.eof %> <% i=i+1 if i >= MaxPerpage then exit do rs.movenext loop end if %> <%end sub%>

留言主题

时间 回复
<%if rs("name")="管理员"then%> 『网站公告』 <%end if%> &name=<%=rs("name")%>')"> <%=rs("title")%>   <%=rs("time")%>   <%If rs("rebook")<>"" Then%> &name=<%=rs("name")%>')">已回复 <%else%> 未回复 <%End If%>