📄 index.asp
字号:
</td>
</tr>
<% if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
my_rs.PageSize=5
my_rs.AbsolutePage=pagecount
For iPage = 1 To my_rs.PageSize
If my_rs.EOF Then
Exit For
end if
%>
<tr bgcolor="#FFFFFF">
<td>
<div align="center">
<%if my_rs("新旧")="Yes" then
response.write "<img src=image/xin.jpg width=25 height='25'>"%>
<%else%>
<img src="image/jiu.jpg" width="25" height="25">
<%end if%>
</div>
</td>
<td>
<div align="center">
<%id=my_rs("信件编号")%>
<a href="#" onClick="MM_openBrWindow('file/xinjiannr.asp?id=<%=id%>','','width=300,height=210')"><%=my_rs("信件主题")%></a></div>
</td>
<td>
<div align="center"> <a href="#" onClick="MM_openBrWindow('file/email.asp?fxr=<%=my_rs("发信人")%>','','width=320,height=280')"><%=my_rs("发信人")%>
</a></div>
</td>
<td>
<div align="center"><%=my_rs("发信时间")%></div>
</td>
<td>
<div align="center"><a href="#" onClick="MM_openBrWindow('file/xinjiansc.asp?id=<%=id%>','','width=300,height=60')">删除</a></div>
</td>
</tr>
<%my_rs.movenext
next
%>
</table>
<div align="right"><br>
<%
Response.Write "<p>共"&my_rs.recordcount&"条工作 每页5条记录"
if my_rs.PageCount>1 Then
If pagecount<>1 Then
%>
<A HREF='index.asp?Username=<%=Username%>&Password=<%=Password%>&Page=1'>首页</A>
<A HREF='index.asp?Username=<%=Username%>&Password=<%=Password%>&Page=<%=pagecount-1%>'>前页</A>
<% End If
If pagecount<>my_rs.PageCount Then%>
<A HREF='index.asp?Username=<%=Username%>&Password=<%=Password%>&Page=<%=pagecount+1%>'>后页</A>
<A HREF='index.asp?Username=<%=Username%>&Password=<%=Password%>&Page=<%=my_rs.PageCount%>'>尾页</A>
<%End If
End If
end if
my_rs.close
%>
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
<div id="home" style="position:absolute; left:510px; top:100px; width:66px; height:21px;
z-index:2; visibility: hidden; background-color: #FFFFFF; layer-background-color: #FFFFFF;
border: 1px none #000000" onMouseOver="MM_showHideLayers('home','','show')"
onMouseOut="MM_showHideLayers('home','','hide')">
<table border="1" cellspacing="0" cellpadding="0" class="head" width="100%"
bordercolorlight="#A7A7A7" bordercolordark="#FFFFFF">
<tr align="center">
<td onMouseOut="this.style.backgroundColor='#FFFFFF'"
onMouseOver="this.style.backgroundColor='#E7E7E7'">
<a href="#" onClick="MM_openBrWindow('FILE/information.asp','','width=520,height=300')">公告信息</a></td>
</tr>
<tr align="center">
<td onMouseOut="this.style.backgroundColor='#FFFFFF'"
onMouseOver="this.style.backgroundColor='#E7E7E7'">
<a href="#" onClick="MM_openBrWindow('FILE/userformation.asp','','width=480,height=260')">用户信息</a></td>
</tr>
<tr align="center">
<td onMouseOut="this.style.backgroundColor='#FFFFFF'"
onMouseOver="this.style.backgroundColor='#E7E7E7'">
<a href="#" onClick="MM_openBrWindow('FILE/fileinformation.asp','','width=520,height=400')">文件信息</a></td>
</tr><%if session("权限")="管理" then %>
<tr align="center">
<td onMouseOut="this.style.backgroundColor='#FFFFFF'"
onMouseOver="this.style.backgroundColor='#E7E7E7'">
<a href="#" onClick="MM_openBrWindow('file/adminytlist.asp','','width=500,height=370')">议题信息</a></td>
</tr>
<tr align="center">
<td onMouseOut="this.style.backgroundColor='#FFFFFF'"
onMouseOver="this.style.backgroundColor='#E7E7E7'">
<a href="#" onClick="MM_openBrWindow('file/logininfor.asp','','width=520,height=500')">系统日志</a></td>
</tr>
<tr align="center">
<td onMouseOut="this.style.backgroundColor='#FFFFFF'"
onMouseOver="this.style.backgroundColor='#E7E7E7'"> <a href="#" onClick="MM_openBrWindow('file/gooduser.asp','','width=400,height=150')">优秀职员</a></td>
</tr><%end if%>
</table>
</div>
<div id="Layer1" style="position:absolute; left:54px; top:182px; width:238px; height:251px; z-index:3">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="154">
<tr>
<td> <table width="95%" cellspacing="1" cellpadding="0" bgcolor="#CCCCFF" height="172" align="center">
<tr>
<td height="23" bgcolor="#0099FF"><hr></td>
</tr>
<tr>
<td height="23"> <font size="4"> <strong>公告信息</strong></font></td>
</tr>
<%
sqlstr="select * from 公告信息"
set my_rs=server.createobject("adodb.recordset")
my_rs.open sqlstr,my_Conn,1,1 %>
<tr>
<td bgcolor="#FFFFFF" height="120"> <marquee direction=up height=130 onMouseOut=this.start()
onMouseOver=this.stop() scrollamount=1 scrolldelay=50 width="98%">
<% i=1 '记录条数
if not my_rs.eof then
do while not my_rs.eof%>
<a href="#" onClick="MM_openBrWindow('file/ggxx-show.asp?ggbh=<%=my_rs("公告编号")%>','','scrollbars=yes,width=400,height=240')" class="linkcss">
<%=i%>.<%=my_rs("公告主题")%> </a><br>
<%i=i+1
my_rs.movenext
loop
else
response.write "对不起,暂无记录"
end if
my_rs.close
%>
</marquee> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="46"> <table width="95%" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#CCCCFF" height="100">
<tr>
<td bgcolor="#0099FF" height="23"><hr></td>
</tr>
<tr>
<td bgcolor="#CCCCFF" height="23"> <div align="center"><font size="2"><strong><em>系统使用说明</em></strong></font></div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> <br>
这是使用当前最流行的数据库SQL
Server作后台进行开发的网络办公系统，所以不同的用户有不同的权限，不同权限的有不同的功能，管理权限可进行读、写、修改、删等功能，写权限可进行读、写功能，读权限只能看，不能进行其他功能。而有些系统功能，则不分权限，任何系统用户都可以用。<br>
<br> </td>
</tr>
</table></td>
</tr>
</table>
</div>
<br>
<div id="home1" style="position:absolute; left:425px; top:101px; width:64px; height:29px;
z-index:2; visibility: hidden; background-color: #FFFFFF; layer-background-color: #FFFFFF;
border: 1px none #000000" onMouseOver="MM_showHideLayers('home1','','show')"
onMouseOut="MM_showHideLayers('home1','','hide')">
<table border="1" cellspacing="0" cellpadding="0" class="head" width="100%"
bordercolorlight="#A7A7A7" bordercolordark="#FFFFFF">
<tr align="center">
<td onMouseOut="this.style.backgroundColor='#FFFFFF'"
onMouseOver="this.style.backgroundColor='#E7E7E7'"> <a href="#" onClick="MM_openBrWindow('FILE/addyt.htm','','width=320,height=250')">发表议题</a></td>
</tr>
<tr align="center">
<td onMouseOut="this.style.backgroundColor='#FFFFFF'"
onMouseOver="this.style.backgroundColor='#E7E7E7'" height="12"> <a href="#" onClick="MM_openBrWindow('file/yitilist.asp','','width=480,height=260')">查看议题</a></td>
</tr>
</table>
</div>
<br>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -