type.asp

来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下:管理员」· ASP 代码 · 共 67 行

ASP
67
字号
<%@ codepage ="936" %>
<%
if session("globalecmaster")="" or session("masterflag")="" then
response.write "<script language='javascript'>"
response.write"parent.location.href='../login.asp';</SCRIPT>" 
response.end
end if
 
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>展会信息类别管理</title>
<link rel="stylesheet" type="text/css" href="../css/style.css">
<% data_path="../../" 'ACC连接数据库路径,对SQL无效 %>
<!--#include file="../../conn/conn.asp" -->
</HEAD>
<table width="98%" border="0" cellspacing="0" cellpadding="0"  align=center class="tableBorder"> 
  <tr> 
     <th width="100%" height=25 class="tableHeaderText">网站新闻活动类别管理 </th> 
   </tr> 
  <tr> 
     <td class="forumRowHighlight"><p><B>注意</B>:<BR> 
         ①类别直接与发布的信息相关联,删除类别可能会影响到以前发布的信息。<BR> </td> 
   </tr> 
</table>
<%
set rstype=server.createobject("adodb.recordset")
sql="select * from Yixiang_worldec_about_class "
rstype.open sql,conn,1,1
%>
<br>
<table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
	<tr> 
	<th height="22">网站新闻活动类别列表</th>
	</tr>
	<tr>
	  <td>
	  <table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td height="25">&nbsp;<IMG src="../images_new/plus.gif" width="9" height="9">&nbsp;&nbsp;<a href="class_ok.asp?action=add_class_1"><font color=red><b>添加类别</b></font></a></td>
    <td>&nbsp;</td>
    </tr>
</table>

	  <TABLE border="0" width="100%" cellpadding="0">
        <TR>   
          <%
if rstype.eof then
response.Write"<br><br><div align='center'>暂无类别请<a href=class_ok.asp?action=add_class_1>添加</a></div><br><br>"
else		  j=1
          do while not rstype.eof
          %>
          <td width="28%" height="25" class="Forumrow"><p style="line-height: 150%"><IMG src="../images_new/plus.gif" width="9" height="9"> <%=rstype("type")%> 〖<a href=class_ok.asp?action=edit_class_1&id=<%=rstype("id")%>><font color=#ff0000>修改</font></a>│<a href='class_ok.asp?action=del_class_1&id=<%=rstype("id")%>'><font color=#ff0000>删除</font></a>〗</td>
          <%if j mod 3 = 0 then %></tr><tr ><%end if%>
          <% rstype.movenext
             j=j+1
             loop
             rstype.close
             set rstype=nothing
			 end if
          %>
      </TABLE></td>
	</tr>
</table>
<br>
<!--#include file="../copy.asp" -->

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?