📄 admin_manage.asp
字号:
<!--#include file="config.asp"-->
<%
If Session("logined")<>True Then
Response.Write"<center>非法入侵，立即击毙。</center>"
Response.End
End If
%>
<!--#include file="conn.asp"-->
<html>
<head>
<script LANGUAGE="JavaScript" src="../validator.js"></script>
<meta http-equiv="Content-Type" content="text/html; charset=GBK">
<title><%=title_name%></title>
<SCRIPT language=javascript src="images/pop.js"></SCRIPT>
<style type="text/css">
<!--
td { font-family: "宋体", "serif"; font-size: 9pt; font-weight: normal}
a:link { text-decoration: none}
a:visited { text-decoration: none; font-weight: normal}
body { font-family: "宋体", "serif"; font-size: 9pt}
tr { font-family: "宋体", "serif"; font-size: 9pt}
.unnamed1 { font-size: 9pt; font-weight: bold}
.p9 { font-family: "宋体"; font-size: 9pt}
.unnamed2 { font-size: 11pt}
-->
</style>
<style fprolloverstyle>A:hover {color: #F79E26}
</style>
</head>
<body bgcolor="#B2B0B1" leftmargin="0" topmargin="0" link="#000000" vlink="#000000" alink="#000000">
<table width="753" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="13" valign="top" background="zzzcn_bjl.gif">
<img src="images/zzzcn_left.gif" width="13" height="161"></td>
<td width="721" valign="top" bgcolor="#F8F8F8">
<table width="721" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/zzzcn_title.gif" width="721" height="24"></td>
</tr>
<tr>
<td height="27" align="right" background="zzzcn_bj2h.gif">
<p style="margin-left: 10; margin-right: 10">
<img border="0" src="images/zzzcn_dot.gif" width="10" height="12"> <font color="#B2B0B1"><%=title_name%> </font>
<img border="0" src="images/zzzcn_dot.gif" width="10" height="12"></td>
</tr>
<tr>
<td valign="top">
<table width="721" border="0" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" height="302">
<tr>
<td width="28" rowspan="4" valign="top" height="302">
<img src="images/zzzcn_leftlian.gif" width="16" height="110"></td>
<form action="username.jsp" method="POST" name="registerForm" onSubmit="return CheckForm(document.registerForm)">
</form>
</tr>
<tr>
<td width="693" height="29">四川合强软件有限公司软件使用注册用户管理，现在是：<%=now%></td>
</tr>
<tr>
<td height="331" width="693">
<div align="left">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="690" id="AutoNumber1" height="409">
<tr>
<td background="zzzcn_bj4x.gif" height="409" width="134" valign="top" rowspan="2">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="103">
<tr>
<td width="100%" height="18" bgcolor="#C0C0C0">
<p align="center" title="当前版本信息：四川合强软件有限公司软件使用注册用户管理">合强软件</td>
</tr>
<tr>
<td width="100%" height="18" valign="middle" align="center">
</td>
</tr>
<tr>
<td width="100%" height="18" valign="middle" align="center">
<span lang="zh-cn"><img border="0" src="images/i_zzzcn_dh_wz.gif">
<font color="#FF0000"><a href="admin_index.asp">管理首页</a></font></span></td>
</tr>
<tr>
<td width="100%" height="18" valign="middle" align="center">
<span lang="zh-cn"><img border="0" src="images/i_zzzcn_dh_wz.gif">
<a href="admin_manage.asp"><font color="#FF0000">信息管理</font></a></span></td>
</tr>
<tr>
<td width="100%" height="18" valign="middle" align="center"><span lang="zh-cn"><img border="0" src="images/i_zzzcn_dh_wz.gif">
<a href="admin_config.asp">用户密码修改</a></span></td>
</tr>
<tr>
<td width="100%" height="19" valign="middle" align="center"><span lang="zh-cn"><img border="0" src="images/i_zzzcn_dh_wz.gif">
<a href="loginout.asp">退出管理</a></span></td>
</tr>
<tr>
<td width="100%" height="19" valign="middle" align="center"></td>
</tr>
</table>
</td>
<td height="17" width="556">
<span lang="zh-cn"><img border="0" src="images/i_zzzcn_dh_wz.gif"></span>
<span lang="zh-cn">当前位置：<a href="index.asp">四川合强软件有限公司软件使用注册用户管理</a> → 信息管理</span></td>
</tr>
<tr>
<td background="zzzcn_bj4x.gif" height="392" width="556" valign="top">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFFFFF" width="100%" id="AutoNumber3" height="5">
<tr>
<td width="100%" height="18" colspan="5"></td>
</tr>
<tr>
<td width="3%" height="19" align="center" bgcolor="#336699">
<p><font color="#FFFFFF"><span lang="en-gb">ID</span></font></td>
<td width="17%" height="19" align="center" bgcolor="#336699">
<font color="#FFFFFF">公司名称(<span lang="zh-cn">点击主题查看详细信息</span>)</font></td>
<td width="10%" height="19" align="center" bgcolor="#336699">
<font color="#FFFFFF">公司性质</font></td>
<td width="15%" height="19" align="center" bgcolor="#336699">
<font color="#FFFFFF">详细信息</font></td>
<td width="6%" height="19" align="center" bgcolor="#336699">
<font color="#FFFFFF">操作</font></td>
</tr>
<tr>
<%
Dim maxpages
Dim sql
Dim totalrecord
Dim thepage
Dim TotalPages
If Not IsNumeric(Request("page")) Then
Response.Write"<br><center><a href=# onclick='history.go(-1)'><font color=#ff0000>请输入一个数字!</font></a></center>"
Response.End
End If
If Not isempty(Request("page")) Then
thepage=cint(Request("page"))
Else
thepage=1
End If
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="SELECT * FROM fankui Order by datetime DESC"
rs.open sql,conn,1,1
If rs.eof and rs.bof Then
Response.Write"<br><p aligh=center align=center><font color=#ff0000>现在还没有任何记录!</font></p>"
Else
rs.pagesize=8
totalrecord=rs.recordcount
totalpages=rs.pagecount
maxpages=rs.pagesize
If thepage<1 Then
thepage=1
End If
If thepage>totalpages Then
thepage=totalpages
End If
If thepage=1 Then
ShowContent
Else
If (thepage-1)*maxpages<totalrecord Then
rs.move (thepage-1)*maxpages
Dim bookmark
bookmark=rs.bookmark
ShowContent
End If
End If
rs.Close
End If
Set rs=Nothing
conn.Close
Set conn=Nothing
Sub ShowContent
Dim i
Dim k
k=(totalrecord-maxpages*(thepage-1))+1
i=0
Do While Not (rs.eof or err)
k=k-1
%>
<!--循环开始-->
<td width="3%" height="19" align="center" bordercolor="#F8F8F8" bgcolor="#D2D2D2"><%=rs("id")%></td>
<td width="17%" height="19" align="center" bordercolor="#F8F8F8" bgcolor="#D2D2D2"><a href="#" onclick="javascript:window.open('viewdetail.asp?info_id=<% =rs("ID") %>','InfoDetail','toolbar=no,scrollbars=yes,resizable=yes,top=0,left=0,width=440 height=360'); "><%=rs("title")%></a></td>
<td width="10%" height="19" align="center" bordercolor="#F8F8F8" bgcolor="#D2D2D2"><font color="#ff0000"><%=rs("leixing")%></font></td>
<td width="15%" height="19" align="center" bordercolor="#F8F8F8" bgcolor="#D2D2D2"><%=Left(rs("content"),10)%></td>
<td width="6%" height="19" align="center" bordercolor="#F8F8F8" bgcolor="#D2D2D2"><a href="delete.asp?id=<%=rs("id")%>">删除</a></td>
</tr>
<!--循环结束-->
<%
i=i+1
If i>=MaxPages Then exit do
rs.movenext
loop
End Sub
%>
<% If thepage<1 Then %>
<% Else %>
<!--分页开始-->
<tr>
<td width="100%" height="31" colspan="5">
<p align="center"><% ShowPages %></td>
</form>
</tr>
<!--分页结束-->
<% End If %>
</table>
</td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td width="693" height="1">
</td>
</tr>
</table></td>
</tr>
</table>
</td>
<td width="19" valign="top" background="zzzcn_bjr.gif"><p> </p>
<p> </p><br>
<p><img src="images/zzzcn_right.gif" width="19" height="125"></p>
<p> </p>
<p> </p></td>
</tr>
<tr>
<td colspan="3"><img src="images/zzzcn_di.gif" width="753" height="30" title="当前版本信息：四川合强软件有限公司软件使用注册用户管理 <%time2=timer()
response.write"页面执行时间："&FormatNumber((time2-time1)*1000,3)&" 毫秒"%>"></td>
</tr>
</table>
</body>
</html>
<%
Sub Showpages()
Response.Write"<form action='admin_manage.asp' method=post>"
If thepage <> 1 Then
Response.Write "<a href=admin_manage.asp>【第一页】</A> "
Response.Write "<a href=admin_manage.asp?Page=" & (thepage-1) & ">【上一页】</A> "
End If
If thepage <> totalpages Then
Response.Write "<a href=admin_manage.asp?Page=" & (thepage+1) & ">【下一页】</A> "
Response.Write "<a href=admin_manage.asp?Page=" & totalPages & ">【最后一页】</A> "
End If
Response.Write"【每页 <font color=#ff0000>" & maxpages & "</font> 条记录】"
Response.Write"【共 <font color=#ff0000>" & totalrecord & "</font> 条记录】"
Response.write "【共 <font color=#ff0000>" & totalpages &"</font> 页】 "
Response.Write "<input type='text' size=3 class='input2' name='page'><input type='submit' class='input2' size=3 name='tijiao' value='GO'>"
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -