modify_mine.asp

实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员通过登录该系统

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="../head.asp"-->
 <!--#include file="../checkrole.asp"-->
 <%
 call checkuser("zh")

%>
<TABLE width=778 border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
  <TR>
    <TD 
    style="BACKGROUND-POSITION: right 50%; BACKGROUND-IMAGE: url(i../mages/bg1.gif); BACKGROUND-REPEAT: repeat-y; BACKGROUND-COLOR: #ffffff" 
    vAlign=top align=middle><BR>
      <TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
        <TBODY>
        <TR>
              <TD width="74%"><IMG height=32 src="../images/modifymydoc.gif" width=576 
            border=0></TD>
              <TD width="26%" background="../images/info_bg.gif">&nbsp;</TD>
        </TR></TBODY></TABLE>


<TABLE width="100%" border=0 align="center" cellPadding=0 cellSpacing=0 class="content_border">
  <TBODY>
    <TR> 
      <TD height=40 align="center">
<%
gsid=session("id")
sql="select * from Yixiang_expo where gsid="&gsid&" order by dateandtime desc"
 set rs=server.createobject("adodb.recordset") 
rs.open sql,conn,1,1 
if rs.eof or rs.bof then 
%>
		<table width="100%" border="0" cellpadding="0" cellspacing="0" class="content_border">
		<tr> 
		<td align="center">
    <br>
    <table width="95%" border="0" cellspacing="0" cellpadding="0">
    <tr>
    <td width="65%" class="C"> <font color="#FF0000">您暂未发布有效的展会信息！</font></td>
    <td width="35%" align="right"><a href="../myexpo/expo_post.asp" class="c"><font color="#FF0000"><b>发布新展会信息</b></font></a></td>
    </tr>
    </table>
    <br>
    <BR>
		</td>
		</tr>
		</table>
  <%
else 
msg_per_page=10 '定义每页显示记录条数
rs.pagesize=msg_per_page '定义分页记录集每页显示记录数

if not (rs.eof and rs.bof) then
	totalrec=RS.RecordCount'总记录条数
	if rs.recordcount mod msg_per_page=0 then'计算总页数,recordcount:数据的总记录数
		n=rs.recordcount\msg_per_page'n:总页数
	else
		n=rs.recordcount\msg_per_page+1                        
	end if                                                                
	currentpage=request("page")'currentpage:当前页
	If currentpage <> "" then
		currentpage =  cint(currentpage)
		if currentpage < 1 then  
			currentpage = 1
		end if  
		if err.number <> 0 then '错误处理
			err.clear
			currentpage=1
		end if
	else
		currentpage=1
	End if                                                                
	if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec)then 
		currentPage=1
	end if
	rs.absolutepage=currentpage'absolutepage：设置指针指向某页开头
	rowcount=rs.pagesize'pagesize：设置每一页的数据记录数
end if
%>


<TABLE border=0 cellPadding=3 cellSpacing=1 align="center">
  <TBODY>
    <TR> 
      <TD height=40>
<%
gsid=session("id")
sql1="select count(id) from Yixiang_expo where gsid="&gsid&""
set totle=conn.execute(sql1)
totle4=totle(0)

sql2="select count(id) from Yixiang_expo where gsid="&gsid&" and sh=1"
set totle2=conn.execute(sql2)
totle5=totle2(0)
response.write"<b>您总共发布了"
response.write"<font color='#ff0000'> "&totle4&"</font> 条展会信息，其中: "
response.write"已审核<font color='#ff0000'> "&totle5&"</font> 条，"
response.write"尚未通过审核<font color='#ff0000'> "&(totle4-totle5)&"</font> 条。"

totle.close
set totle=nothing
totle2.close 
set totle2=nothing
%></td>
      </TR>
</TBODY>
</TABLE>
          <TABLE width="100%" border="1" cellpadding="4" cellspacing="0" bordercolor="#111111" bordercolorlight="#D7EBFF" bordercolordark="#D7EBFF" style="border-collapse: collapse">
            <TR height=25 bgcolor="#e8f4ff"> 
              <TD align="center"><font color="#CC3300"><b>状态</b></font></TD>
              <TD align="center" bgcolor="#e8f4ff"><font color="#CC3300"><b>标题</b></font></TD>
              <TD align="center"><font color="#CC3300"><b>发布时间</b></font></TD>
              <TD colspan="2" align="center"><font color="#CC3300"><b>操作</b></font></TD>
            </TR>
            <%do while not rs.eof and rowcount > 0%>
            <TR height="20" bgcolor="#ffffff"> 
              <TD width="41" align="center"> <% if rs("sh")=1 then %> <font color="#666666">已审</font> <%else%> <font color="#FF0000">待审</font> <%end if%> </td>
              <TD width="330"><a href="../myexpo/edit.asp?id=<%=rs("id")%>"><%=rs("title")%></a></td>
              <TD width="80" align="center"> <%=rs("dateandtime")%></td>
              <TD width="37" align="center"> <a href="../myexpo/edit.asp?id=<%=rs("id")%>">修改</a></td>
              <TD width="38" align="center"><a href="../myexpo/del.asp?id=<%=rs("id")%>" onClick="return sureok();">删除</a></td>
              </TR>
<%
rowcount=rowcount-1
rs.movenext
loop
%>
          </TABLE>
<TABLE width="100%" border="1" cellpadding="4" cellspacing="0" bordercolor="#111111" bordercolorlight="#D7EBFF" bordercolordark="#D7EBFF" style="border-collapse: collapse">
<TR height=25 bgcolor="#e8f4ff"> <td align=center><%call listPages()%></td></tr></table>
<%
sub listPages() 
   if not (rs.eof and rs.bof) then
	gopage=currentpage
	totalpage=n
	blockPage=Int((gopage-1)/10)*10+1
	if blockPage = 1 Then
		Response.Write "<span disabled>【←前10页</span>&nbsp;&nbsp;"
	Else
		Response.Write("<span disabled>【</span><a href=edit.asp?page="&blockPage-10&">←前10页</a>&nbsp;&nbsp;")
	End If
   i=1
   Do Until i > 10 or blockPage > n
    If blockPage=int(gopage) Then
		Response.Write("<font color=#FF0000>[<b>"&blockPage&"</b>]</font>")
	Else
		Response.Write("<a href=edit.asp?page="&blockPage&">["&blockPage&"]</a>")
    End If
    blockPage=blockPage+1
    i = i + 1
    Loop
	if blockPage > totalpage Then
		Response.Write "&nbsp;&nbsp;<span disabled>后10页→】"
	Else
		Response.Write("&nbsp;&nbsp;<a href=edit.asp?page="&blockPage&">后10页→</a><span disabled>】")
	End If
		Response.Write("&nbsp;&nbsp;共"&n&"页 每页"&msg_per_page&"条记录 共"&totalrec&"条记录")
end if
end sub
%>
<%end if%>
 </td>
    </TR>
</TBODY>
</TABLE>
 <BR><BR>
</form></TABLE>