admin_articlesetting.asp

网站 QCNEWS后台管理程序,风格流行功能强大

<!--#include file="admin_head.asp"-->
<br><br>

<%
Select Case Request("method")
	Case 1
		Call AddSet()
	Case 2 
		Call AddSetname()
	Case 3
		Call Addfromto()
	Case 4 
		Call DelSet()
End Select
Sub AddSet()
	if Trim(Request.Form("setname")) = "" then
		Errmsg = "<li>请输入相关文章名称。"
		Call Qcdn.Err_List(Errmsg,1)
		Response.End()
	else
		setname = Qcdn.checkStr(Trim(Request.Form("setname")))
	end if
	sql = "Insert into article_setting(setname,flag)values('"& setname &"',1)"
	Conn.execute(sql)
	Response.Write("<script>alert(""添加成功"");location.href=""admin_articlesetting.asp"";</script>")
	Response.End()
End Sub
Sub AddSetname()
	if Trim(Request.Form("setname")) = "" then
		Errmsg = "<li>请输入作者姓名。"
		Call Qcdn.Err_List(Errmsg,1)
		Response.End()
	else
		setname = Qcdn.checkStr(Trim(Request.Form("setname")))
	end if
	sql = "Insert into article_setting(setname,flag)values('"& setname &"',2)"
	Conn.execute(sql)
	Response.Write("<script>alert(""添加成功"");location.href=""admin_articlesetting.asp"";</script>")
	Response.End()
End Sub
Sub Addfromto()
	if Trim(Request.Form("setname")) = "" then
		Errmsg = "<li>请输入文章来源。"
		Call Qcdn.Err_List(Errmsg,1)
		Response.End()
	else
		setname = Qcdn.checkStr(Trim(Request.Form("setname")))
	end if
	sql = "Insert into article_setting(setname,flag)values('"& setname &"',3)"
	Conn.execute(sql)
	Response.Write("<script>alert(""添加成功"");location.href=""admin_articlesetting.asp"";</script>")
	Response.End()
End Sub
Sub DelSet()
	if Request.Form("setid") = "" then
		Errmsg = "<li>发现异常错误。<li>错误编号为: error 102。<li>请和青创网络联系解决问题。"
		Call Qcdn.Err_List(Errmsg,1)
		Response.End()
	else
		setid = Request.Form("setid")
	end if
	sql = "Delete from article_setting where Unid in ("& setid &")"
	Conn.execute(sql)
	Response.Write("<script>alert(""删除成功"");location.href=""admin_articlesetting.asp"";</script>")
	Response.End()
End Sub
%>
<table width="95%" border="1" cellspacing="0" cellpadding="3" align="center" bordercolorlight="#ECEEE4" bordercolordark="#CCCABC">
  <tr> 
    <td colspan="2" align="center" height="30" background="image/tablebg.gif"><b>文 
      章 录 入 设 置</b> </td>
  </tr>
  <form name="form1" method="post" action="">
    <tr> 
      <td height="25" align="center" colspan="2"> 相关文章名称设置： 
        <input name="setname" type="text" id="setname" size="30" maxlength="50"> 
        <input type="submit" name="Submit" value="提交" class="tbutton"> </td>
    </tr>
    <input type="hidden" name="method" value="1">
  </form>
  <tr> 
    <td height="25" colspan="2">文章录入－相关文章：</td>
  </tr>
  <form name="form2" action="" method="post">
    <tr> 
      <td height="25" colspan="2"> <%
	sql = "Select Unid,setname from article_setting where flag=1 order by Unid asc"
	set rs = conn.execute(sql)
	if rs.eof and rs.bof then
		response.Write("还没有添加作者姓名。")
	else
		do while not rs.eof
			for i = 1 to 7
				Response.Write("<input type=checkbox name=setid value="& rs(0) &">"& Qcdn.HTMLcode(rs(1)) &"&nbsp;")
			rs.movenext
			if rs.eof then exit for
			next
			Response.Write("<br>")
		loop
	end if
		rs.close
	%> </td>
    </tr>
    <tr> 
      <td width="15%" height="25" align="center">删除操作</td>
      <td height="25">全部选择 
        <input type="checkbox" name="chkall" value="checkbox" onClick="javascript:CheckAll(this.form)"> 
        <input onClick="{if(confirm('\n确定要执行此项操作吗？')){this.document.form2.submit();return true;}return false;}" type=submit value=删除 name=action2 class="tbutton"> 
        <input type="Hidden" name="method" value="4"></td>
    </tr>
  </form>
  <form name="form3" action="" method="post">
    <tr> 
      <td height="25" colspan="2" align="center">作者姓名设置： <input name="setname" type="text" id="setname" size="30" maxlength="50"> 
        <input type="submit" name="Submit2" value="提交" class="tbutton"></td>
    </tr>
    <input type="hidden" name="method" value="2">
  </form>
  <tr> 
    <td height="25" colspan="2">文章录入－作者姓名：</td>
  </tr>
  <form action="" name="form4" method="post">
    <tr> 
      <td height="25" colspan="2"> <%
	sql = "Select Unid,setname from article_setting where flag=2 order by Unid asc"
	set rs = conn.execute(sql)
	if rs.eof and rs.bof then
		response.Write("还没有添加文章来源。")
	else
		do while not rs.eof
			for i = 1 to 7
				Response.Write("<input type=checkbox name=setid value="& rs(0) &">"& Qcdn.HTMLcode(rs(1)) &"&nbsp;")
			rs.movenext
			if rs.eof then exit for
			next
			Response.Write("<br>")
		loop
	end if
		rs.close
	%> </td>
    </tr>
    <tr> 
      <td height="25" align="center">删除操作</td>
      <td height="25"> 全部选择 
        <input type="checkbox" name="chkall" value="checkbox" onClick="javascript:CheckAll(this.form)"> 
        <input onClick="{if(confirm('\n确定要执行此项操作吗？')){this.document.form4.submit();return true;}return false;}" type=submit value=删除 name=action2 class="tbutton"> 
        <input type="Hidden" name="method" value="4"> </td>
    </tr>
  </form>
  <form name="form5" action="" method="post">
    <tr align="center"> 
      <td height="25" colspan="2">文章来源设置： <input name="setname" type="text" id="setname" size="30" maxlength="50"> 
        <input type="submit" name="Submit3" value="提交" class="tbutton"></td>
    </tr>
    <input type="hidden" name="method" value="3">
  </form>
  <tr> 
    <td height="25" colspan="2">文章录入－文章来源：</td>
  </tr>
  <form name="form6" action="" method="post">
    <tr> 
      <td height="25" colspan="2"> <%
	sql = "Select Unid,setname from article_setting where flag=3 order by Unid asc"
	set rs = conn.execute(sql)
	if rs.eof and rs.bof then
		response.Write("还没有添加相关文章。")
	else
		do while not rs.eof
			for i = 1 to 7
				Response.Write("<input type=checkbox name=setid value="& rs(0) &">"& Qcdn.HTMLcode(rs(1)) &"&nbsp;")
			rs.movenext
			if rs.eof then exit for
			next
			Response.Write("<br>")
		loop
	end if
		rs.close
	%> </td>
    </tr>
    <tr> 
      <td height="25" align="center">删除操作</td>
      <td height="25">
	  全部选择 
        <input type="checkbox" name="chkall" value="checkbox" onClick="javascript:CheckAll(this.form)"> 
        <input onClick="{if(confirm('\n确定要执行此项操作吗？')){this.document.form6.submit();return true;}return false;}" type=submit value=删除 name=action2 class="tbutton"> 
        <input type="Hidden" name="method" value="4">
	  </td>
    </tr>
  </form>
</table>
<!--#include file="admin_copy.asp"-->