www.gusucode.com > 学校共青团组织网站源代码 > 学校共青团组织网站源代码/626/admin/admin_set_tglm.asp
<% 'ON ERROR RESUME NEXT if Request.Cookies("admindj")<>"1" then Response.Write "<BR><BR><BR><BR><center>权限不足,你没有此功能的管理权限" Response.end end if %> <!--#include file = admin_chk.asp --> <!--#include file = admin_conn.asp --> <!--#include file = titleb.asp --> <html> <head> <meta http-equiv="Content-Language" content="zh-cn"> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <STYLE type="text/css"> <!-- a:link {text-decoration: none; font-family: AdobeSm; color: #000000 } a:visited {text-decoration: none; color: #000000 } A:hover {COLOR: green; FONT-FAMILY: "Verdana,宋体,MingLiU"; TEXT-DECORATION: underline} body {font-size: 9pt; font-family: Verdana,宋体,MingLiU, Arial;color: #000000} TD {FONT-SIZE: 9pt; FONT-FAMILY: "Verdana,宋体,MingLiU, Arial";color: #000000;line-height: 120%;table-layout:fixed;word-break:break-all} p {FONT-SIZE: 9pt; FONT-FAMILY: "Verdana,宋体,MingLiU, Arial";color: #000000} input {FONT-SIZE: 9pt; FONT-FAMILY: "Verdana,宋体,MingLiU, Arial";color: #000000} body {margin-top: 0; margin-bottom: 0;margin-left:0;margin-right:0; color: #000000} select {FONT-SIZE: 9PT;font-family: Verdana,宋体} option {FONT-SIZE: 9pt;font-family: Verdana,宋体} textarea {FONT-SIZE: 9pt;font-family: Verdana,宋体} --> </STYLE> </head> <body> <% lmid=trim(request("lmid")) if lmid<>"" then conn.Execute "update [config] set [tglm]='"&lmid&"' " end if %> <div align="center"> <table border="0" cellpadding="3" cellspacing="0" width="700" id="table1"> <tr> <td> </td> </tr> <tr> <td> </td> </tr> <tr> <td background="../images/bj5.jpg" height="25"> <p align="center"><font color="#FFFFFF">设置投稿时可选择的栏目</font></td> </tr> <tr> <td> <form method="POST" action="admin_set_tglm.asp" webbot-action="--WEBBOT-SELF--"> <% lmid=config("tglm") 'Response.Write lmid if lmid="" then lmid="0,0" lmid=lmid&"," sql = "select * from lm where lm<>''" Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open sql,conn,1,1 while not rs.eof ccc="" 'Response.Write lmid&"<BR>" 'Response.end 'ASP停止 nr=split(lmid,",") For i=0 to ubound(nr) 'Response.Write ubound(nr) aaa=nr(i) if aaa="" then aaa=0 if clng(aaa)=clng(rs("id")) then ccc=" checked " next 'response.write "<BR><B>"&rs("lm")&"<font color=999999>(编号:"&rs("id")&")</font></b><br>" Response.Write "<input "&ccc&" type=checkbox name=lmid value="&rs("id")&" id="&rs("id")&"><label for="&rs("id")&">"&rs("lm")&"<font color=999999>(编号:"&rs("id")&")</font></label><BR>" sql2 = "select * from lm where lmid='"&rs("id")&"'" Set rs2 = Server.CreateObject("ADODB.RecordSet") rs2.Open sql2,conn,1,1 while not rs2.eof ccc="" nr=split(lmid,",") For i=0 to ubound(nr) aaa=nr(i) if aaa="" then aaa=0 if clng(aaa)=clng(rs2("id")) then ccc=" checked " next Response.Write " <input "&ccc&" type=checkbox name=lmid value="&rs2("id")&" id="&rs2("id")&"><label for="&rs2("id")&">"&rs2("lm2")&"<font color=999999>(编号:"&rs2("id")&")</font></label><BR>" Set rs3 = Server.CreateObject("ADODB.RecordSet") rs3.Open "select * from [lm] where lmid='"&rs2("id")&"' order by id asc",conn,1,1 while not rs3.eof ccc="" nr=split(lmid,",") For i=0 to ubound(nr) aaa=nr(i) if aaa="" then aaa=0 if clng(aaa)=clng(rs3("id")) then ccc=" checked " next Response.Write " <input "&ccc&" type=checkbox name=lmid value="&rs3("id")&" id="&rs3("id")&"><label for="&rs3("id")&">"&rs3("lm3")&"<font color=999999>(编号:"&rs3("id")&")</font></label><BR>" rs3.movenext wend rs2.movenext wend rs.movenext wend %> <p align="center"><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p> </form> <p> </td> </tr> </table> </div> </body> </html> <% conn.close set conn=nothing %>