<% 'ON ERROR RESUME NEXT if Request.Cookies("admindj")<>"1" then Response.Write "



权限不足，你没有此功能的管理权限" Response.end end if %> <% lmid=trim(request("lmid")) if lmid<>"" then conn.Execute "update [config] set [tglm]='"&lmid&"' " 'Application("tglm")=lmid conn.close:set conn=nothing Response.Write "


投稿栏目设置成功！

" Response.end end if set rsnewsx= Server.CreateObject("ADODB.RecordSet"):rsnewsx.cursorlocation=3 rsnewsx.Open "select top 1 [id],[tglm] from [config]",conn,1,1 if rsnewsx.recordcount<>0 then tglm=rsnewsx("tglm")&" " end if rsnewsx.close set rsnewsx=nothing %>
　
　

设置投稿时可选择的栏目
<% lmid=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&"
" '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 "
"&rs("lm")&"(编号:"&rs("id")&")
" Response.Write "
" 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 "　
" 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 "　　　
" rs3.movenext wend rs2.movenext wend rs.movenext wend %>

　
<% conn.close set conn=nothing %>