www.gusucode.com > 盐城分类信息网asp源码程序 > admin/fenlei_2.asp
<!--#include file=conn.asp--> <!--#include file=cookies.asp--> <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><div align="center"> <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_2chk.asp?id=<%=request("id")%>" name="cnmai" method="POST"> <tr bgcolor="#B6EBC4"> <td height="25" bgcolor="#C5D5E4"> <p align="center">添加二级分类</td> </tr> <tr> <td height="25" bgcolor="#E0E9F1" > <p align="center">所属大类: <select name="class1" size="1" style="font-size: 12px"> <% dim rs,sql,id,cnmai id=request("id") 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 if id=cstr(rs("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 height="25" align="center" bgcolor="#E0E9F1" > <p>分类名称: <input type="text" name="class2" size="19" value=""></p> </td> </tr> <tr> <td height="25" align="center" bgcolor="#E0E9F1" > <p>排序数字: <input type="text" name="paixu" size="19" value="0"></td> </tr> <tr> <td width="322" 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>