📄 admin_basic.asp

📁 5237 论坛.rar
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="Inc/Level012.asp" -->
<!--#include file="Connections/connY.asp" -->
<!--#include file="Inc/Info.asp" -->
<!--#include file="Inc/TimeFormat.asp" -->
<!--#include file="Inc/UBBCode.asp" -->
<!--#include file="Inc/SetCss.asp" -->
<html>
<head>
<title><%=Forum_Title%></title>
<meta http-equiv="Content-Type" content="text/html;">
<meta http-equiv="Expires" CONTENT="0">
<meta http-equiv="Cache-Control" CONTENT="no-cache">
<meta http-equiv="Pragma" CONTENT="no-cache">
<!--#include file="Inc/Css.asp" -->
<script language=Javascript src="Js/Menu.Js"></script>
<script language=Javascript src="Js/Button.Js"></script>
<script language=Javascript src="Js/Operate.Js"></script>
</head>
<body leftmargin="0" topmargin="0" bgcolor="<%=Forum_ColorList_BgColor%>" vlink="<%=Forum_Css_A_Link_Color%>" onLoad="MM_preloadImages('<%=Forum_Pic_Write2%>','<%=Forum_Pic_Vote2%>')">
<!--#include file="Inc/Top.asp" -->
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="<%=Forum_ColorList_BorderColor%>">
  <tr> 
    <td height="20" bgcolor="<%=Forum_ColorList_BgColor%>"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0" class="font">
        <tr> 
          <td>&nbsp;您所在的位置： <a href="../" onfocus="this.blur()">首页</a> &gt;&gt; 
            <a href="List.asp" onFocus="this.blur()">讨论组</a> &gt;&gt; <font color="<%=Forum_ColorList_NavFontColor%>">论坛管理系统</font></td>
          <td width="18"> 
            <div align="center"></div>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td height=1></td>
  </tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="2" align="center" bgcolor="<%=Forum_ColorList_BorderColor%>" class="font">
  <tr> 
    <td valign="top" width="102" bgcolor="<%=Forum_ColorList_BgColor%>"> 
      <table width="100%" border="0" cellspacing="1" cellpadding="0">
        <tr>
		<td>
          <!--#include file="Inc/Menu.asp" -->
		</td>
        </tr>
      </table>
    </td>
    <td bgcolor="<%=Forum_ColorList_BgColor%>" valign="top"> <br>
        <table width="80%" border="0" cellspacing="1" cellpadding="2" align="center" class="font" bgcolor="<%=Forum_ColorList_BorderColor%>">
		<form name="form1" method="post" action="Admin_Basic.asp?Action=EditNow">
          <tr> 
            <td bgcolor="<%=Forum_ColorList_TitleColor%>" height="20"> 基本设置</td>
          </tr>
          <tr> 
            <td bgcolor="<%=Forum_ColorList_BgColor%>" valign="top"> 1.以下项目都是论坛任何版面都共有的属性,请务必仔细设定.<br>
              -------------------------------------------------------------------------------<br>
              <%
			If Request("Action")="EditNow" Then
Forum_Title=Request.Form("Forum_Title")
Forum_LogoSrc=Request.Form("Forum_LogoSrc")
Forum_LogoLink=Request.Form("Forum_LogoLink")
Forum_Right=Request.Form("Forum_Right")
Forum_Width=Request.Form("Forum_Width")
Forum_Time=Request.Form("Forum_Time")
Forum_Limit=Request.Form("Forum_Limit")
Forum_BadWords=Request.Form("Forum_BadWords")
Forum_Title=Request.Form("Forum_Title")
Forum_PageNum=Request.Form("Forum_PageNum")
Forum_Expensive=Request.Form("Forum_Expensive")
Forum_BannerSrc=Request.Form("Forum_BannerSrc")
Forum_BannerLink=Request.Form("Forum_BannerLink")
Forum_IsClassic=Request.Form("Forum_IsClassic")
Forum_CBanner=Request.Form("Forum_CBanner")
Forum_PA=Request.Form("Forum_PA")
Forum_PE=Request.Form("Forum_PE")
Forum_PG=Request.Form("Forum_PG")
Forum_VA=Request.Form("Forum_VA")
Forum_VE=Request.Form("Forum_VE")
Forum_VG=Request.Form("Forum_VG")
Forum_RA=Request.Form("Forum_RA")
Forum_RE=Request.Form("Forum_RE")
Forum_RG=Request.Form("Forum_RG")
Forum_BA=Request.Form("Forum_BA")
Forum_BE=Request.Form("Forum_BE")
Forum_BG=Request.Form("Forum_BG")
Forum_DPA=Request.Form("Forum_DPA")
Forum_DPE=Request.Form("Forum_DPE")
Forum_DPG=Request.Form("Forum_DPG")
Forum_DRA=Request.Form("Forum_DRA")
Forum_DRE=Request.Form("Forum_DRE")
Forum_DRG=Request.Form("Forum_DRG")
Forum_IPA=Request.Form("Forum_IPA")
Forum_IPE=Request.Form("Forum_IPE")
Forum_IPG=Request.Form("Forum_IPG")
Forum_IRA=Request.Form("Forum_IRA")
Forum_IRE=Request.Form("Forum_IRE")
Forum_IRG=Request.Form("Forum_IRG")
Forum_UIPA=Request.Form("Forum_UIPA")
Forum_UIPE=Request.Form("Forum_UIPE")
Forum_UIPG=Request.Form("Forum_UIPG")
Forum_UIRA=Request.Form("Forum_UIRA")
Forum_UIRE=Request.Form("Forum_UIRE")
Forum_UIRG=Request.Form("Forum_UIRG")
Forum_TA=Request.Form("Forum_TA")
Forum_TE=Request.Form("Forum_TE")
Forum_TG=Request.Form("Forum_TG")
Forum_UTA=Request.Form("Forum_UTA")
Forum_UTE=Request.Form("Forum_UTE")
Forum_UTG=Request.Form("Forum_UTG")
Forum_SA=Request.Form("Forum_SA")
Forum_SE=Request.Form("Forum_SE")
Forum_SG=Request.Form("Forum_SG")
Forum_USA=Request.Form("Forum_USA")
Forum_USE=Request.Form("Forum_USE")
Forum_USG=Request.Form("Forum_USG")
Forum_LOA=Request.Form("Forum_LOA")
Forum_LOE=Request.Form("Forum_LOE")
Forum_LOG=Request.Form("Forum_LOG")
Forum_ReplyNum=Request.Form("Forum_ReplyNum")
Set rsOption = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From tForumManage Where rID=1"
rsOption.Open Sql,ConnY,3,3
rsOption("rLog")=Forum_PageNum&"|"&Forum_Expensive&"|"&Forum_PA&"|"&Forum_PE&"|"&Forum_PG&"|"&Forum_VA&"|"&Forum_VE&"|"&Forum_VG&"|"&Forum_RA&"|"&Forum_RE&"|"&Forum_RG&"|"&Forum_BA&"|"&Forum_BE&"|"&Forum_BG&"|"&Forum_DPA&"|"&Forum_DPE&"|"&Forum_DPG&"|"&Forum_DRA&"|"&Forum_DRE&"|"&Forum_DRG&"|"&Forum_IPA&"|"&Forum_IPE&"|"&Forum_IPG&"|"&Forum_IRA&"|"&Forum_IRE&"|"&Forum_IRG&"|"&Forum_UIPA&"|"&Forum_UIPE&"|"&Forum_UIPG&"|"&Forum_UIRA&"|"&Forum_UIRE&"|"&Forum_UIRG&"|"&Forum_TA&"|"&Forum_TE&"|"&Forum_TG&"|"&Forum_UTA&"|"&Forum_UTE&"|"&Forum_UTG&"|"&Forum_SA&"|"&Forum_SE&"|"&Forum_SG&"|"&Forum_USA&"|"&Forum_USE&"|"&Forum_USG&"|"&Forum_LOA&"|"&Forum_LOE&"|"&Forum_LOG&"|"&Forum_ReplyNum
rsOption("rBadWords")=Forum_BadWords
rsOption("rSet")=Forum_Title&"|"&Forum_LogoSrc&"|"&Forum_LogoLink&"|"&Forum_Right&"|"&Forum_Width&"|"&Forum_Time&"|"&Forum_Limit&"|"&Forum_BannerSrc&"|"&Forum_BannerLink&"|"&Forum_IsClassic&"|"&Forum_CBanner
rsOption.Update
rsOption.Close
Set rsOption=Nothing
Response.Write "修改成功"
End If
If Request("Action")="" Then
%>
              论坛标题　 　　　　　　　
<input type="text" name="Forum_Title" class="Textfiled" size="30" value="<%=Forum_Title%>">
              <br>
              是否采用传统LOGO+BANNER　 
              <input type="radio" name="Forum_IsClassic" value="0" onFocus="this.blur()" <%If Cint(Forum_IsClassic)=0 Then Response.Write "checked"%>>
              是
              <input type="radio" name="Forum_IsClassic" value="1" onFocus="this.blur()" <%If Cint(Forum_IsClassic)=1 Then Response.Write "checked"%>>
              否<br>
              传统Logo图片　　　　　 　 
              <input type="text" name="Forum_LogoSrc" class="Textfiled" size="40" value="<%=Forum_LogoSrc%>">
              (180*60)<br>
              传统Logo图片链接　　　 　 
              <input type="text" name="Forum_LogoLink" class="Textfiled" size="40" value="<%=Forum_LogoLink%>">
              <br>
              传统Banner图片　　　　 　 
              <input type="text" name="Forum_BannerSrc" class="Textfiled" size="40" value="<%=Forum_BannerSrc%>">
              <br>
              传统Banner图片链接　　 　 
              <input type="text" name="Forum_BannerLink" class="Textfiled" size="40" value="<%=Forum_BannerLink%>">
              (468*60)<br>
              个性Banner链接　　　　 　 
              <input type="text" name="Forum_CBanner" class="Textfiled" size="40" value="<%=Forum_CBanner%>">
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -