<%
'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
%>