📄 admin_setup.asp

📁 是个不错的文件代码,希望大家好好用,
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
      <td> <% Call EchoRadio("a47","","",ac(47))%></td>
    </tr>
    <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
      <td width="348" height="25" > <p>博客名称不允许重复：</p></td>
      <td> <% Call EchoRadio("a48","","",ac(48))%></td>
    </tr>
    <tr>
      <td height="25" class="topbg"><a name="SiteOption"></a><strong>网站选项配置</strong></td>
      <td height="22" class="topbg1"><a href="#top"><img src="images/ico_top.gif" border=0></a>&nbsp;<a href="#formbottom"><img src="images/ico_bottom.gif" border=0></a>&nbsp;</td>
    </tr>
    <tr class="tdbg" onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''">
      <td width="348" height="25">发表日志，系统日志分类是否为必须：</td>
      <td><% Call EchoRadio("a25","","",ac(25))%></td>
    </tr>
    <tr class="tdbg" onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''">
      <td width="348" height="25">是否允许日志全文搜索(建议关闭)：</td>
      <td> <% Call EchoRadio("a26","","",ac(26))%></td>
    </tr>
    <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
      <td width="348" height="25">是否允许游客发表评论及留言：</td>
      <td> <% Call EchoRadio("a27","","",ac(27))%></td>
    </tr>
    <!--
    <tr class="tdbg" onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''" style="display:none">
      <td width="348" height="25">发表日志时，当敏感字出现多少种，日志自动转为待审核：</td>
      <td><% Call EchoInput("a28",10,10,ac(28))%>次</td>
    </tr>
    -->
    <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
      <td width="348" height="25">用户登陆是否需要验证码：</td>
      <td><% Call EchoRadio("a29","","",ac(29))%></td>
    </tr>
   <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
      <td width="348" height="25">用户发表评论，留言是否需要验证码：</td>
      <td><% Call EchoRadio("a30","","",ac(30))%></td>
    </tr>
    <tr class="tdbg" onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''">
      <td width="348" height="25">用户页面统计防刷新时间：</td>
      <td><% Call EchoInput("a31",10,10,ac(31)) %>
        秒 </td>
    </tr>
    <tr class="tdbg" onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''">
      <td width="348" height="25">留言，评论的时间间隔：</td>
      <td><% Call EchoInput("a32",10,10,ac(32))%>秒 </td>
    </tr>
    <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
      <td width="348" height="25">首页静态文件的更新时间（建议设置300秒以上，否则将极耗费服务器资源）：</td>
      <td><% Call EchoInput("a33",10,10,ac(33))%>秒 </td>
    </tr>
    <tr class="tdbg" onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''">
      <td width="348" height="25">单篇日志允许最多字数：</td>
      <td><% Call EchoInput("a34",10,10,ac(34))%>
        字(英文字符) </td>
    </tr>
    <tr class="tdbg" onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''">
      <td width="348" height="25">回复及留言允许最多字数：</td>
      <td><% Call EchoInput("a35",10,10,ac(35))%>
        字(英文字符) </td>
    </tr>
    <tr class="tdbg" onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''">
      <td height="25" >转向用户首页是否转到index文件：</td>
      <td> <% Call EchoRadio("a46","","",ac(46))%></td>
    </tr>
    <tr class="tdbg" onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''">
      <td height="25" >申请群组是否需要审核：</td>
      <td> <% Call EchoRadio("a49","","",ac(49))%></td>
    </tr>
    <tr class="tdbg" onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''">
      <td height="25" >留言与回复是否默认通过审核：</td>
      <td> <% Call EchoRadio("a50","","",ac(50))%></td>
    </tr>
    <tr class="tdbg" onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''">
      <td height="25" >发生多少次敏感行为后系统自动封禁(0为不限制)：</td>
      <td><% Call EchoInput("a13",10,10,ac(13))%>
    </tr>
    <tr>
      <td height="25" class="topbg"><a name="show"></a><strong>日志显示选项</strong></td>
      <td class="topbg1"><a href="#top"><img src="images/ico_top.gif" border=0></a>&nbsp;<a href="#formbottom"><img src="images/ico_bottom.gif" border=0></a>&nbsp;</td>
    </tr>
    <tr class="tdbg" onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''">
      <td width="348" height="25">系统日志列表每页显示多少条日志标题：</td>
      <td><% Call EchoInput("a36",10,10,ac(36))%></td>
    </tr>
    <tr class="tdbg" onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''">
      <td width="348" height="25"><p>系统日志列表调用前多少篇日志：</p></td>
      <td><% Call EchoInput("a37",10,10,ac(37))%></td>
    <tr class="tdbg" onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''">
      <td width="348" height="25">相片列表每页显示多少个相片：</td>
      <td><% Call EchoInput("a38",10,10,ac(38))%></td>
    </tr>
    <tr class="tdbg" onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''">
      <td width="348" height="25"><p>相片列表调用前多少个相片：</p></td>
      <td><% Call EchoInput("a39",10,10,ac(39))%></td>
    <tr class="tdbg" onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''">
      <td width="348" height="25">评论是否顺序排列：</td>
      <td><% Call EchoRadio("a40","倒序","正序",ac(40))%></td>
    </tr>
    <tr class="tdbg" onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''">
      <td width="348" height="25">页面数据载入时显示字符：</td>
      <td><% Call EchoInput("a41",30,50,ac(41))%></td>
    </tr>
    <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
      <td width="348" height="25">博客列表每页显示条数：</td>
      <td><% Call EchoInput("a42",10,10,ac(42))%></td>
    </tr>
    <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
      <td width="348" height="25">图片自动缩小宽度（为零不缩放）：</td>
      <td><% Call EchoInput("a43",10,10,ac(43))%>像素</td>
    </tr>
    <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
      <td width="348" height="25" >图片是否随鼠标滚轮缩放：</td>
      <td> <% Call EchoRadio("a44","","",ac(44))%></td>
    </tr>
    <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
      <td width="348" height="25" >部分显示日志是否使用htm标记强化过滤：<br>
        （若选择此项，所有除图片以外的标记都将被过滤掉）</td>
      <td> <% Call EchoRadio("a45","","",ac(45))%></td>
    </tr>
	 <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
      <td width="348" height="25" >日志文件名为空时默认为：<br></td>
      <td><% Call EchoRadio("a23","日志ID自动编号","日志发表时间",ac(23))%></td>
    </tr>
    <tr class="tdbg" onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''">
      <td colspan="2">&nbsp;</td>
    </tr>
    <tr>
      <td height="40" colspan="2" align="center" class="tdbg"> <a name="formbottom"></a><input name="Action" type="hidden" id="Action" value="saveconfig">
        <input name="cmdSave" type="submit" id="cmdSave" value=" 保存设置 " > </td>
    </tr>
  </table>
</form>
		</div>
	</div>
	<ul class="main_end">
		<li class="main_end_left left"></li>
		<li class="main_end_right right"></li>
	</ul>
</div>
</body>
</html>
<%
Set rs = Nothing
End Sub

Sub Saveconfig()
	Dim rs, i,sOpt
    'Check
    For i=1 To C_Items
    	sOpt=Request.Form("a"&i)
    	If sOpt="" Then
    		%>
    		<script language="javascript">
    			//alert("<%=i%>所有项目必须填写!")    			
    			//history.back();
    		</script>
    		<%
    		'Response.End
    	End If
  	Next
  	sOpt=""
  	For i=1 To C_Items
  		sOpt=sOpt & "$$" & Replace(Trim(Request.Form("a"&i)),"$","")
  	Next
  	sOpt=Now&sOpt
    If Not IsObject(conn) Then link_database
    Set rs = server.CreateObject("adodb.recordset")
    rs.Open  "Select * From oblog_config Where Id=1",conn,1,3
    If rs.Eof Then rs.AddNew
    rs("ob_value")=sOpt
    rs.Update
    rs.Close
    Set rs = Nothing
    oblog.ReloadCache
    Set oblog=Nothing
    Response.Redirect "admin_setup.asp"
End Sub

%>
上一页 12
⌨️ 快捷键说明

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