admin_mb_tg.asp 学校共青团组织网站源代码 - ASP源码程序

gusucode.com > 学校共青团组织网站源代码 > 学校共青团组织网站源代码/626/admin/admin_mb_tg.asp
    <%
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 -->

<head>
<!--#include file = language.asp -->
<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: "宋体,MingLiU"; TEXT-DECORATION: underline}
body         {font-size: 9pt; font-family: 宋体,MingLiU, Arial;color: #000000}
TD           {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000;table-layout:fixed;word-break:break-all}
p            {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000}
input        {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000}
body         {margin-top: 0; margin-bottom: 0;margin-left:0;margin-right:0; color: #000000}
select       {FONT-SIZE: 9PT;}
option       {FONT-SIZE: 9pt;}
textarea     {FONT-SIZE: 9pt;}
-->
</STYLE>
</head>
<body bgcolor="#EFEFDE">

<center><BR><BR>
<%
if trim(request("tgtop"))<>"" and trim(request("tgbottom"))<>"" then
	 'conn.Execute "update [config] set tgtop='"&trim(request("tgtop"))&"',tgbottom='"&trim(request("tgbottom"))&"'"
	 set rs = Server.CreateObject("ADODB.RecordSet")
	 rs.Open "select * from [config] order by id desc",conn,1,3
	 rs("tgtop")=trim(request("tgtop"))
	 rs("tgbottom")=trim(request("tgbottom"))
	 rs.update
	 Response.Write "<a href=admin_mb.asp>保存成功! </a>"
end if

Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select * from [config]",conn,1,1
tgtop=rs("tgtop")
tgbottom=rs("tgbottom")
rs.close
set rs=nothing
%>
<a href=admin_mb.asp>返回模版管理</a>　　<a href="admin_tg.asp">返回投稿管理</a><br>
<br>
<b><font size="3">投稿模版管理</font></b><BR><BR>
</center>
<!--webbot BOT="GeneratedScript" PREVIEW=" " startspan --><script Language="JavaScript" Type="text/javascript"><!--
function FrontPage_Form1_Validator(theForm)
{

  if (theForm.tgtop.value == "")
  {
    alert("请在 页头 域中输入值。");
    theForm.tgtop.focus();
    return (false);
  }

  if (theForm.tgtop.value.length < 1)
  {
    alert("在 页头 域中，请至少输入 1 个字符。");
    theForm.tgtop.focus();
    return (false);
  }

  if (theForm.tgbottom.value == "")
  {
    alert("请在 页尾 域中输入值。");
    theForm.tgbottom.focus();
    return (false);
  }

  if (theForm.tgbottom.value.length < 1)
  {
    alert("在 页尾 域中，请至少输入 1 个字符。");
    theForm.tgbottom.focus();
    return (false);
  }
  return (true);
}
//--></script><!--webbot BOT="GeneratedScript" endspan --><form method="POST" action="admin_mb_tg.asp" name="FrontPage_Form1" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript">
	<div align="center">
		<table border="1" cellpadding="3" width="700" id="table1" style="border-collapse: collapse">
			<tr>
				<td align="center" width="54">页头<br>
				<br>
				<font color="#666666">支持HTML</font></td>
				<td align="center">
				<p align="left">
				&nbsp;<!--webbot bot="Validation" s-display-name="页头" b-value-required="TRUE" i-minimum-length="1" --><textarea rows="16" name="tgtop" cols="99"><%=tgtop%></textarea></td>
			</tr>
			<tr>
				<td width="54">
				<p align="center">页尾<p align="center">
				<font color="#666666">支持HTML</font></td>
				<td>
				&nbsp;<!--webbot bot="Validation" s-display-name="页尾" b-value-required="TRUE" i-minimum-length="1" --><textarea rows="17" name="tgbottom" cols="99"><%=tgbottom%></textarea></td>
			</tr>
		</table>
	</div>
	<p align="center"><input type="submit" value="保存" name="B1">　　　<input type="reset" value="重置" name="B2"></p>
</form>
<%
conn.close
set conn=nothing
%>