admin_tg_config.asp

Art2008 CMS是一款具有强大的功能的基于ASP语言的网站管理软件

<!--#include file = admin_chk.asp -->
<%
If Not ChkAdmin("News_Utg") Then
	Call ArtErr("","")
End If
%>
<link rel="stylesheet" type="text/css" href="../images/admin/style.css">
<%

if request("save")="config" then

htmledit=trim(request("htmledit"))
  if htmledit<>"" then 
   conn.Execute "update [config] set tghtmledit="&htmledit
        call ArtErr("<li>您提交的设置已保存。</li>","2")
  end if

end if
if request("save")="lm" then

lmid=trim(request("lmid"))
	conn.Execute "update [config] set [tglm]='"&lmid&"' "
        call ArtErr("<li>您提交的设置已保存。</li>","2")
end if


tghtmledit=config("tghtmledit")

%>
<TABLE width="100%" border="0" align=center cellpadding="0" cellspacing="1" class="tableBorder"> 
    <tr> 
      <th height=25 colspan="3" >网友投稿</th> 
    </tr> 
    <TR ALIGN="center"> 
      <TD >
	   <table width="100%" border="0" align=center cellpadding="3" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#C4D8ED">
      <tr><td colspan="2" align="center" bgcolor="#FFFFFF" height="30"><a href=admin_tg.asp><font color="red">返回</font></a></td></tr>
		<form  name=config method="POST" action="admin_tg_config.asp">
			<tr>
				<td width="174" align="center" class="Forumrow">是否使用HTML编辑器</td>
				<td width="579" class="Forumrow"><select size="1" name="htmledit">
				<option value="0" <% if tghtmledit="0" then response.write " selected "%> >不使用</option>
				<option value="1" <% if tghtmledit="1" then response.write " selected "%>>使用</option>
				</select>　如果使用HTML可能会有一些安全问题，请慎用。</td>
			</tr>
			<tr>
			<td colspan="2" align="center" class="Forumrow" height="40"><INPUT name="save" TYPE="hidden" value="config"><input type="submit" value="提   交" name="B1">　　<input type="reset" value="重   置" name="B2"></td>
          </tr>
     </form>
    </table>

</td></tr></table><br />

<table cellpadding="2" cellspacing="1" border="0" width="95%" class="tableBorder"    align=center>
			
		<tr>
			<td align="left" background="../images/bg1.gif" height="25"><font color="#FFFFFF"><b>设置投稿时可选择的栏目</b></font></td>
		</tr>		
		<tr>
			<td>
			<form  name=lm method="POST" action="admin_tg_config.asp" webbot-action="--WEBBOT-SELF--">
			<table  width="70%" border="1" align="center" cellpadding="3" cellspacing="0" bordercolordark="#FFFFFF" bordercolorlight="#658BD8"  bgcolor="#FFFFFF">
			  <tr>			
			    <td>
			
								<%
				lmid=config("tglm")
				'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=""
					   nr=split(lmid,",")
					   For i=0 to 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
						rs3.close:set rs3=nothing
				    rs2.movenext
					wend
					rs2.close:set rs2=nothing
				rs.movenext
				wend
				rs.close:set rs=nothing
				%>
				<br>
				</td>
				</tr>
				</table>
				<p align="center"><INPUT name="save" TYPE="hidden" value="lm"><input type="submit" value=" 提  交 " name="B1">&nbsp;&nbsp;&nbsp;<input type="reset" value=" 重  置 " name="B2"></p>
			</form>				
			</td>
		</tr>
	</table>


<%

 conn.close:set conn=nothing
%>