📄 admintype.asp
字号:
<!--#include file="checkthis.asp" -->
<!--#include file="data/conn.asp" -->
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="INDEX.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.xzy {border:1px #999 solid; border-width: 0px 1px 1px}
-->
</style>
</head>
<body text="#000000">
<table width="750" border="0" cellspacing="0" cellpadding="5" align="center" bgcolor="#FFFFFF">
<tr>
<td height="5"></td>
</tr>
<tr>
<td height="50" valign="top"><!--#include file="admintop.asp" --></td>
</tr>
<form name="form1" method="post" action="saveadmintype.asp?cz=addtype">
<tr>
<td height="50"> 添 加 分 类：
<input type="text" name="classname" class="cp" size="15" maxlength="50">
<input type="submit" name="Submit" value="添加">
</td>
</tr>
</form>
<form name="form2" method="post" action="saveadmintype.asp">
<tr>
<td height="50" class="table-xia"> 管 理 分 类：
<select name="classid" class="cp2">
<%
sql = "SELECT * FROM type"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql,Conn,1,1
Response.Write conn.state
if rs.eof and rs.bof then
Response.Write"<option>还没有任何分类</option>"
else
do while not rs.eof
Response.Write"<option value='"&rs("id")&"'>"&rs("name")&"</option>"
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
</select>
<select name="cz" class="cp">
<option value="delclass">删除</option>
<option value="editclass" selected>修改</option>
</select>
<input type="submit" name="Submit2" value="确定" class="an">
新名称：
<input type="text" name="classname" class="cp" maxlength="50" size="15">
*选择删除分类不用填写</td>
</tr>
</form>
</table></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -