www.gusucode.com > 盐城分类信息网asp源码程序 > admin/fenlei_2edit.asp
<!--#include file=conn.asp-->
<!--#include file=cookies.asp-->
<title>修改分类</title>
<link href="inc_style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
background-color: #E7EEF5;
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
-->
</style><body>
<div align="center">
<center>
<table width="50%" border="1" align="center" cellpadding="3" cellspacing="0" bordercolorlight="#335078" bordercolordark="#FFFFFF" bgcolor="#C5D5E4" style="font-size:12px; letter-spacing:1px;">
<form action="fenlei_2editchk.asp?classid=<%=request("classid")%>" name="cnmai" method="POST">
<tr bgcolor="#B6EBC4">
<td height="25" bgcolor="#C5D5E4" width="323">
<p align="center">所属大类：
<select name="class1" size="1" style="font-size: 12px">
<%
dim rs,sql,class1,cnmai,id
class1=request("class1")
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from [class1] order by paixu desc"
rs.open sql,conn,1,1
if rs.eof then
response.write "没有类别请添加！"
response.end
else
Do while not rs.eof
id=cstr(rs("id"))
if trim(request("class1"))=id then
cnmai="selected"
else
cnmai=""
end if
response.write "<option " & cnmai & " value=" + Cstr(rs("id")) + ">" + rs("class1") + "</option>"
rs.MoveNext
Loop
end if
rs.close
set rs=nothing
closedb
%>
</select>
</td>
</tr>
<tr>
<td width="323" height="25" bgcolor="#E0E9F1">
<p align="center">分类名称：
<input type="text" name="class2" size="19" value="<%=request("class2")%>"></p>
</td>
</tr>
<tr>
<td width="323" height="25" align="center" bgcolor="#E0E9F1" >
<p>排序数字：
<input type="text" name="paixu" size="19" value="<%=request("paixu")%>"></td>
</tr>
<tr>
<td width="323" height="25" bgcolor="#E0E9F1" >
<p align="center">
<input type="submit" value="提交" name="B1" style="color: #000000; border: 0px solid #000000; background-color: #FFCC00"></td>
</tr>
</form>
</table>
</center>
</div>