revert.asp

一个不错的个人商务网站的源码

<!--#include file="chk.asp" -->
<%
dim dbpath
dbpath="../"
%>
<!--#include file="../db_conn.asp"-->
<!--#include file="../comm/comm.asp"-->
<!--#include file="../comm/sub.asp"-->
<!--#include file="../comm/pages.asp"-->
<!--begin TOP-->
<%
'说明 head(a,b,c)
'a为页标题
'b为页描述
'c为页关键字

call head(r(26)&"-会员控制面板-留言管理",r(27),r(28))
%><!--end TOP-->
<div align="center">
<table border="0" width="760" class="li_table" cellspacing="0">
		<tr>
		<td class="maincolor" height="26" align=center width="758" colspan="2">会 员 控 制 面 板</td>
	</tr>
	<tr>
		<td width="127" align="right" height="175" valign="top">
		<p align="left"><!--#include file="left.asp"--></td>
		<td width="629" height="175" valign="top">
<table border="0" width="100%" id="table4" cellspacing="1" class=smallfont>
						<tr>
							<td colspan="5">
							<p align="left"><font color="#FF0000">◇ 问题跟踪回复</font></td>
						</tr>
						<tr>
							<td width="8%">ID</td>
							<td width="39%">标题</td>
							<td width="27%">留言时间</td>
							<td width="24%" colspan="2">操作</td>
						</tr>
						<%
	userid=(session("chk_id"))
	set rs=server.CreateObject("adodb.recordset")
	sql="select id,title,addtime,ishf from message_yqj where userid="&userid&" order by addtime desc"
	rs.open sql,conn,1,1
	if (rs.eof and rs.bof) then
	response.write "<tr>"
    response.write "<td colspan=5><font color=#FF0000>您还没有提过任何问题</font></td>"
    response.write "</tr>"
    else
    rs.PageSize =20 '每页记录条数
			iCount=rs.RecordCount '记录总数
			iPageSize=rs.PageSize
    		maxpage=rs.PageCount 
    		page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if

end if
ii=1
while not rs.eof and ii<=rs.pagesize
set id=rs("id")
set title=rs("title")
set addtime=rs("addtime")
set ishf=rs("ishf")
						  %>
						<tr>
							<td width="8%"><%=(page-1)*19+ii%></td>
							<td width="39%"><a href=revert_more.asp?id=<%=id%>&page=<%=page%>><%=title%></a></a></td>
							<td width="27%"><%=addtime%></td>
							<td width="12%">
<%
							if ishf=0 then
response.write "处理中..."
elseif ishf=1 then
response.write "<font color=#FF0000><a href=revert_more.asp?id="&id&"&page="&page&">查看回复</a></font>"
else
response.write "错误状态"
end if
%></td>
							<td width="12%">
							<a href="SaveUserInfo.asp?action=delmessage&page=<%=page%>&id=<%=id%>">删除</a></td>
						</tr>
						<%
			rs.movenext
			ii=ii+1
		    wend%>
						<tr>
							<td colspan="5"><%call PageControl(iCount,maxpage,page,"border=0 align=left","<p align=left>")%></td>
						</tr>
					</table>
					</td>
				</tr>
				</table>
					</td>
	</tr>
</table>
</div>
<!--begin end-->
<%call boot()%><!--end end-->