?? 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 + -