dismess.asp

时代购物系统 4.0功能升级说明 <1>完善了3.0的VIP

<!--#include file="conn.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
end if
%>
<title>查看信息反馈</title>
<TABLE WIDTH="98%" BORDER="0" ALIGN="center" CELLPADDING="1" CELLSPACING="1" BGCOLOR="#6699cc">
  <TR> 
    <TD ALIGN="center" height="20"><FONT COLOR="#FFFFFF">查看信息反馈</FONT></TD>
  </TR>
  <TR> 
    <TD HEIGHT="169" VALIGN="top" BGCOLOR="#FFFFFF"> 
	<TABLE WIDTH="90%" BORDER="0" ALIGN="center" CELLPADDING="2" CELLSPACING="2">
        <TR> 
          <TD ALIGN="right">选择查看类型 
              <SELECT NAME="select" ONCHANGE="var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}" ><BASE TARGET=Right> 
                <OPTION selected>选择信息类型</OPTION>
                <OPTION VALUE="dismess.asp?lx=0" >查看所有类型</OPTION>
                <OPTION VALUE="dismess.asp?lx=1" >简单的留言</OPTION>
                <OPTION VALUE="dismess.asp?lx=2" >对网站的意见</OPTION>
                <OPTION VALUE="dismess.asp?lx=3" >对公司的建议</OPTION>
                <OPTION VALUE="dismess.asp?lx=4" >具有合作意向</OPTION>
                <OPTION VALUE="dismess.asp?lx=5" >产品投诉</OPTION>
                <OPTION VALUE="dismess.asp?lx=6" >服务投诉</OPTION>
              </SELECT>
           </TD>
        </TR>
      </TABLE>
      <%
sub leixing()
select case rs("messtype")
case "1"
response.write "简单的留言"
case "2"
response.write "对网站的意见"
case "3"
response.write "对公司的建议"
case "4"
response.write "具有合作意向"
case "5"
response.write "产品投诉"
case "6"
response.write "服务投诉"
end select
end sub
%>
      <%
				Const MaxPerPage=10 
   				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 
		  dim lx
	  lx=request.QueryString("lx")
	  set rs=server.CreateObject("adodb.recordset")
	  if lx="" or lx=1 then
	  rs.open "select * from mess order by messdtm desc",conn,1,1
	  else
	  rs.open "select * from mess where messtype="&lx&" order by messdtm desc",conn,1,1
	  end if
		  
				if err.number<>0 then
				response.write "数据库中暂时无数据"
				end if
				
  				if rs.eof And rs.bof then
       				Response.Write "<p align='center' class='contents'> 对不起，暂时还没有任何信息！</p>"
   				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,"dismess.asp"
       				else
          				if (currentPage-1)*MaxPerPage<totalPut then
            				rs.move  (currentPage-1)*MaxPerPage
            				dim bookmark
            				bookmark=rs.bookmark
            				showContent
             				showpage totalput,MaxPerPage,"dismess.asp"
        				else
	        				currentPage=1
           					showContent
           					showpage totalput,MaxPerPage,"dismess.asp"
	      				end if
	   				end if
   				   				end if

   				sub showContent
       			dim i
	   			i=0

			%>
      <%do while not rs.eof%>
      <TABLE WIDTH="90%" BORDER="0" ALIGN="center" CELLPADDING="1" CELLSPACING="1" BGCOLOR="#FFFFFF">
        <TR BGCOLOR="#FFFFFF"> 
          <TD WIDTH="18%">发表类型：<font color=red><% call leixing() %></font></TD>
          <TD WIDTH="14%">用户：<a href=mailto:<% = trim(rs("messemail"))%>><font color=red><% = trim(rs("messusername")) %></font></a></TD>
          <TD WIDTH="14%">所在地：<% = trim(rs("messfrom")) %></TD>
          <TD WIDTH="14%">电话：<% = trim(rs("messtel")) %></TD>
          <TD width="19%">邮件：<a href=mailto:<% = trim(rs("messemail"))%>><% = trim(rs("messemail")) %></a></TD>
          <TD width="21%" ALIGN="center">IP地址：<% = trim(rs("messip")) %></TD>
        </TR>
        <TR ALIGN="center" BGCOLOR="#FFFFFF"> 
          <TD COLSPAN="6" > 信息标题：<B><%=trim(rs("messsubject"))%></B></TD>
        </TR>
        <TR BGCOLOR="#FFFFFF"> 
          <TD HEIGHT="40" COLSPAN="6" valign="top">内容：<%=trim(rs("messcontent"))%></TD>
        </TR>
        <TR BGCOLOR="#FFFFFF" HEIGHT="20"> 
          <TD colspan="4"><%="发表时间："&rs("messdtm")%></TD>
          <TD align="right" colspan="2"><A HREF="delmess.asp?id=<%=rs("messid")%>" ONCLICK="return confirm('您确定删除吗？')">删 除</A></TD>
        </TR>
      </TABLE>
      <HR WIDTH="90%" SIZE="1" COLOR=#cccccc> 
      <%i=i+1
			if i>=MaxPerPage then Exit Do
			rs.movenext
	  loop
	  rs.close
	  set rs=nothing%>
      <%  
				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 "<form method=Post action="&filename&"?lx="&lx&">"  
				Response.Write "<p align='center' class='contents'> "  
				If CurrentPage<2 Then  
					Response.Write "<font class='contents'>首 页 上一页</font> "  
				Else  
					Response.Write "<a href="&filename&"?page=1&lx="&lx&" class='contents'>首 页</a> "  
					Response.Write "<a href="&filename&"?page="&CurrentPage-1&"&lx="&lx&" class='contents'>上一页</a> "  
				End If
				
				If n-currentpage<1 Then  
					Response.Write "<font class='contents'>下一页 末 页</font>"  
				Else  
					Response.Write "<a href="&filename&"?page="&(CurrentPage+1)&"&lx="&lx&"&class='contents'>"  
					Response.Write "下一页</a> <a href="&filename&"?page="&n&"&lx="&lx&"&class='contents'>末 页</a>"  
				End If  
					Response.Write "<font class='contents'> 页次：</font><font class='contents'>"&CurrentPage&"</font><font class='contents'>/"&n&"页</font> "  
					Response.Write "<font class='contents'> 共有"&totalnumber&"条信息 " 
					Response.Write "<font class='contents'>转到：</font><input type='text' name='page' size=2 maxlength=10 class=smallInput value="&currentpage&">"  
					Response.Write "&nbsp;<input type='submit'  class='contents' value='跳转' name='cndok'></form>"  
				End Function  
			%>
    </TD>
  </TR>
</TABLE>
<br>
<!--#include file="footer.asp"-->