📄 addclass.asp
字号:
<!--#include file=../common/conn.asp -->
<%
'set rs=server.CreateObject ("ADODB.RecordSet")
rs.Source="select * from shopClass"
rs.Open rs.source,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href=../../gq.css rel=stylesheet>
<link href="../images/font.css" rel="stylesheet" type="text/css">
<link href="../users/.css" rel="stylesheet" type="text/css">
</head>
<body background="../images/bgpic.gif">
<p> </p>
<form method="POST" action="AddClass_submit.asp">
<table border="0" width="450" align=center>
<tr>
<td width="100%" class="unnamed1"><b>增加商品推荐分类</b></td>
</tr>
<tr>
<td width="100%" class="unnamed1"> <hr size="1"> </td>
</tr>
<tr>
<td width="100%" class="unnamed1">现已有的类别:</td>
</tr>
<tr>
<td width="100%" class="unnamed1"> <select size="<%=rs.RecordCount%>" name="ClassID" style="font-size: 9pt">
<%if rs.EOF then %>
<option>暂无任何类别</option>
<%else
while not rs.EOF
%>
<option value=<%=rs("classname")%>><%=trim(rs("Classname"))%></option>
<%
rs.MoveNext
wend
end if%>
</select> </td>
</tr>
<tr>
<td width="100%" class="unnamed1"> </td>
</tr>
<tr>
<td width="100%" class="unnamed1">请在下面输入需要新增加的类别名称: </td>
</tr>
<tr>
<td width="100%" class="unnamed1">类型名称:
<input type="text" name="NewClassName" size="30" class="button">
</td>
</tr>
<tr>
<td width="100%" class="unnamed1"></td>
</tr>
<tr>
<td width="100%" class="unnamed1">所属位置:
<select name="classid" class="button" id="classid">
<option value="流行名品馆" selected>流行名品馆</option>
<option value="名媛淑女馆">名媛淑女馆</option>
<option value="都会雅士馆">都会雅士馆</option>
<option value="居家生活馆">居家生活馆</option>
<option value="时尚家具馆">时尚家具馆</option>
</select></td>
</tr>
<tr>
<td> <br>
<input type="submit" value=" 增加>> " name="B1" style="font-size: 9pt">
</td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -