📄 honour.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Conn/Conn.asp"-->
<!--#include file="head.asp"-->
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="Select * From tb_honour"
rs.Open sql,conn,1,3
%>
<html>
<head>
<title>公司荣誉管理！</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="./Css/style.css" rel="stylesheet">
<script src="JS/function.asp"></script>
<script src="JS/menu.asp"></script>
<script src="JS/check.asp"></script>
</head>
<body onLoad="clockon()">
<table width="777" height="341" border="0" align="center" cellpadding="-2" cellspacing="-2">
<tr>
<td valign="top"><table width="100%" height="47" border="0" cellpadding="-2" cellspacing="-2" class="tableBorder">
<tr bgcolor="#9CA6C6">
<td height="8"></td>
</tr>
<tr>
<td></td>
</tr>
<tr>
<td height="2"></td>
</tr>
<tr>
<td valign="top"><!--#include file="Navigate.asp"-->
<table width="100%" height="205" border="0" cellpadding="-2" cellspacing="-2" class="tableBorder">
<tr>
<td width="13" height="32" background="Images/board_left.gif"> </td>
<td width="689" background="Images/board_left.gif" style="color:#FFFFFF"> ≡ 公司荣誉管理
≡ </td>
<td width="73" background="Images/board_right.gif"> </td>
</tr>
<tr valign="top">
<td height="171" colspan="3"><table width="100%" border="0" cellpadding="-2" cellspacing="-2">
<tr>
<td align="center"> </td>
</tr>
<tr>
<td align="center"class="word_grey">
<form action="Honour_Del_deal.asp" method="post" name="frm_Honour">
<%
If rs.eof or rs.bof Then
Response.Write("暂时无公司荣誉信息，请选择“公司荣誉管理”/“添加新荣誉”菜单项，添加荣誉信息！")
Else
%>
<table width="95%" bordercolor="#FFFFFF" bordercolordark="#9CA6C6" border="1" bordercolorlight="#FFFFFF" cellspacing="-2" cellpadding="-2" style="padding-left:5px">
<tr align="center">
<!--层ch用于放置隐藏的checkbox控件，因为当表单中只是一个checkbox控件时，应用javascript获得其length属性值为undefine-->
<td width="8%">删除<div id="ch"><input name="delid" type="checkbox" class="noborder" value="0"></div>
<script language="javascript">ch.style.display="none";</script></td>
<td width="73%">公司荣誉说明</td>
<td width="12%">荣誉图片</td>
<td width="7%">操作</td>
</tr>
<%'分页显示类别列表
rs.pagesize=2
page=CLng(Request("page"))
if page<1 then page=1
rs.absolutepage=page
for i=1 to rs.pagesize
%>
<tr>
<td align="center">
<input name="delid" type="checkbox" class="noborder" value="<%=rs("Id")%>"></td>
<td><%=rs("Title")%></td>
<td height="60" align="center">
<%If not isnull(rs("Img")) Then%>
<a href="showImg_big.asp?ID=<%=rs("ID")%>&tbName=tb_honour" target="_blank"><img alt="单击放大显示图片！" src="showImg.asp?ID=<%=rs("ID")%>&tbName=tb_honour" width="50" height="50" border="0"></a>
<%Else%>
<img src="../images/null.jpg" width="50" height="50" border="0">
<%End If%>
</td>
<td align="center"><a href="Honour_Modify.asp?ID=<%=rs("ID")%>">修改</a></td>
</tr>
<%
rs.MoveNext
If rs.Eof Then exit For
Next%>
</table>
<table width="95%" height="25" border="0" cellpadding="-2" cellspacing="-2">
<tr>
<td width="3%" height="26" align=center nowrap>
<input name="checkbox" type="checkbox" class="noborder" onClick="CheckAll(frm_Honour.delid,frm_Honour.checkbox)"></td>
<td width="7%" align=center nowrap>[全选/反选]</td>
<td width="32%" nowrap>[<a style="color:red;cursor:hand;" onclick="checkdel(frm_Honour.delid,frm_Honour)">删除</a>]
</td>
<td width="33%" valign="bottom"><% if page<>1 then %>
<a href=?page=1 class="white">第一页</a> <a href=?page=<%=(page-1)%> class="white">上一页</a>
<%end if
if page<>rs.pagecount then %>
<a href=?page=<%=(page+1)%> class="white">下一页</a> <a href=?page=<%=rs.pagecount%> class="white">最后一页</a>
<%end if%></td>
<%If not(rs.Eof and rs.Bof) Then%>
<td width="35%" align="right" class="word_grey">[<%=page%>/<%=rs.PageCount%>] 每页<%=rs.PageSize%>条 共<%=rs.RecordCount%>条记录</td>
<%End If
%>
</tr>
</table>
<%End If%>
</form></td>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="777" height="77" border="0" align="center" cellpadding="-2" cellspacing="-2">
<tr>
<td align="center" style="color:#666666 ">
本站请用IE5.0或以上版本浏览，1024*768为最佳效果<br>
CopyRight © 2005 长春市明日实业有限公司</td>
</tr>
</table>
</body>
</html>
<%
rs.close()
Set rs=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -