?? dismess.asp
字號(hào):
<!--#include file="conn.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('請(qǐng)先登錄！');history.go(-1);</script>"
response.End
end if
%>
<title>查看信息反饋</title>
<body bgcolor="#FFFFFF"><TABLE WIDTH="98%" BORDER="0" ALIGN="center" CELLPADDING="1" CELLSPACING="1" BGCOLOR="#FF00FF">
<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" >簡(jiǎn)單的留言</OPTION>
<OPTION VALUE="dismess.asp?lx=2" >對(duì)網(wǎng)站的意見(jiàn)</OPTION>
<OPTION VALUE="dismess.asp?lx=3" >對(duì)公司的建議</OPTION>
<OPTION VALUE="dismess.asp?lx=4" >具有合作意向</OPTION>
<OPTION VALUE="dismess.asp?lx=5" >產(chǎn)品投訴</OPTION>
<OPTION VALUE="dismess.asp?lx=6" >服務(wù)投訴</OPTION>
</SELECT>
</TD>
</TR>
</TABLE>
<%
sub leixing()
select case rs("messtype")
case "1"
response.write "簡(jiǎn)單的留言"
case "2"
response.write "對(duì)網(wǎng)站的意見(jiàn)"
case "3"
response.write "對(duì)公司的建議"
case "4"
response.write "具有合作意向"
case "5"
response.write "產(chǎn)品投訴"
case "6"
response.write "服務(wù)投訴"
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 "數(shù)據(jù)庫(kù)中暫時(shí)無(wú)數(shù)據(jù)"
end if
if rs.eof And rs.bof then
Response.Write "<p align='center' class='contents'> 對(duì)不起，暫時(shí)還沒(méi)有任何信息！</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%">發(fā)表類型：<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" > 信息標(biāo)題：<B><%=trim(rs("messsubject"))%></B></TD>
</TR>
<TR BGCOLOR="#FFFFFF">
<TD HEIGHT="40" COLSPAN="6" valign="top">內(nèi)容：<%=trim(rs("messcontent"))%></TD>
</TR>
<TR BGCOLOR="#FFFFFF" HEIGHT="20">
<TD colspan="4"><%="發(fā)表時(shí)間："&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'>首 頁(yè) 上一頁(yè)</font> "
Else
Response.Write "<a href="&filename&"?page=1&lx="&lx&" class='contents'>首 頁(yè)</a> "
Response.Write "<a href="&filename&"?page="&CurrentPage-1&"&lx="&lx&" class='contents'>上一頁(yè)</a> "
End If
If n-currentpage<1 Then
Response.Write "<font class='contents'>下一頁(yè) 末 頁(yè)</font>"
Else
Response.Write "<a href="&filename&"?page="&(CurrentPage+1)&"&lx="&lx&"&class='contents'>"
Response.Write "下一頁(yè)</a> <a href="&filename&"?page="&n&"&lx="&lx&"&class='contents'>末 頁(yè)</a>"
End If
Response.Write "<font class='contents'> 頁(yè)次：</font><font class='contents'>"&CurrentPage&"</font><font class='contents'>/"&n&"頁(yè)</font> "
Response.Write "<font class='contents'> 共有"&totalnumber&"條信息 "
Response.Write "<font class='contents'>轉(zhuǎn)到：</font><input type='text' name='page' size=2 maxlength=10 class=smallInput value="¤tpage&">"
Response.Write " <input type='submit' class='contents' value='跳轉(zhuǎn)' name='cndok'></form>"
End Function
%>
</TD>
</TR>
</TABLE>
<br>
<!--#include file="footer.asp"-->?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -