www.gusucode.com > 爱美尔女性商城源码 1.0源码程序 > admintouch/moveclass.asp
<!--#include file="conn.asp"--> <%if session("bjxadmin")="" then response.Write "<script language='javascript'>alert('网络超时或您还没有登陆!');window.location.href='login.asp';</script>" response.End else if session("flag")>1 then response.Write "<p align=center><font color=red>您没有此项目管理权限!</font></p>" response.End end if end if %> <html><head><title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <link href="images/css.css" rel="stylesheet" type="text/css"> </head> <body> <table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#6a7f9a"> <form name="form1" method="post" action="savemoveclass.asp"> <tr> <td colspan="4" align="center" background="images/admin_bg_1.gif"><b><font color="#ffffff">商品类别转移</font></b></td> </tr> <tr> <td align="right" width="30%">请选择要转移的小类:</td> <td width="70%"> <select name="nclassid" size="1" class="smallinput"> <%set rs=server.CreateObject("adodb.recordset") rs.Open "select nclassid,nclass FROM BJX_class2 order by nclassid",conn,1,1 if rs.EOF and rs.BOF then response.Write "<option value=0>还没有分类</option>" else do while not rs.EOF %> <option value="<%=int(rs("nclassid"))%>"><%=trim(rs("nclass"))%></option> <%rs.MoveNext loop rs.Close set rs=nothing end if%> </select> 请选择转移到大类: <select name="anclassid" size="1" class="smallinput"> <%set rs=server.CreateObject("adodb.recordset") rs.Open "select anclassid,anclass FROM BJX_class1 order by anclassidorder",conn,1,1 if rs.eof and rs.bof then response.Write "<option value=0>还没有分类</option>" else do while not rs.eof %> <option value="<%=int(rs("anclassid"))%>"><%=trim(rs("anclass"))%></option> <%rs.movenext loop rs.close set rs=nothing end if%> </select> </td> </tr> <tr> <td ></td> <td height="30"> <input type="submit" name="Submit" value="确定转移"> </td> </tr> </form> </table> <!--#include file="bjxfoot.asp"--> </body> </html>