⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 config.asp

📁 很不错的文章系统,可以下载下来看看吧
💻 ASP
字号:
<!--
############################  智思留言本 版权声明  ##############################
#####  智思留言本系统(版本:ZSBS v3.0 构建于 2005/11/01)                  #####
#####  智思网络(zhisi.net) (2004-2024)版权所有!                         #####
#####  此留言本为自由源码版,你可以自由传播和使用而不用交纳任何款项,       #####
#####  你也可以进行更改,但必须本保留版权信息!                             #####
#####  如需删除版权信息,则必须经授权,并交纳版权费,否则将会诉诸于法律!   #####
#####  电子邮箱:zhisi@126.com  QQ:122178250  POPO:simonda                #####
#################################################################################
#####  此版权信息不会妨碍你正常使用本留言本,我们承诺完全免费,但保留版权! #####
################ 请访问http://www.zhisi.net 查看新版本信息 ######################
-->
<!-- #include file="common.asp" -->
<!-- #include file="isadm.asp" -->
<%
	Dim zsb_auth, hasAuth
	hasAuth = False
	zsb_auth = Split( Trim( session("zsb_auth") ), ",", -1, 1 )
	For Each auth In zsb_auth
		If ( auth = "config" ) Then
				hasAuth = True
			Exit For
		End If
	Next
	
	If hasAuth = false Then
		Response.Write("<script language=javascript>alert('对不起,你没有权限,请联系超级管理员!');location.href='manage.asp';</script>")
	End If
%>
<html>
<head>
	<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
	<title>留言本设置</title>
	<link href="<%=GBCss%>/common.css" rel="stylesheet" type="text/css">
</head>

<body>
<%
  set rs=Server.CreateObject("ADODB.Recordset")
  sqlstr="select * from Config"

  rs.open sqlstr,conn,1,3
  if not rs.eof then
%>
<table width="650" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr><td height="20">&nbsp;</td></tr>
  <tr>
    <td height="30" bgcolor="#FFFFFF" align="center" style="background-image:url(<% =GBSkin %>/guest_top.gif) " class="guest_name"><b>留言本系统设置</b></td>
  </tr>
</table>
<table width="650" border="0" align="center" cellpadding="0" cellspacing="5" bgcolor="#FFFFFF" style="background-image:url(<% =GBSkin %>/guest_bg.gif) ">
  <form name="lyform" method="POST" action="ConfigSave.asp">
  <tr>
    <td height="20" class="guest_name">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;留言本名称:
      <input name="GBName" type="text" id="GBName" class="input_common" style="width: 300px; height:18px;" value="<% =rs("GB_Name") %>"></td>
    </tr>
  <tr>
    <td height="20" class="guest_name">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;顶部图像:
      <input name="LogoIMG" type="text" id="LogoIMG" class="input_common" style="width: 200px; height:18px;" value="<% =rs("Logo_IMG") %>" size="15">
      (最大710 x 65)</td>
    </tr>
  <tr>
    <td height="20" class="guest_name">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;版权说明: 
      <input name="CopyTXT" type="text" id="CopyTXT" class="input_common" style="width: 350px; height:18px;" value="<% =rs("CopyRight") %>" size="15"></td>
    </tr>
  <tr>
    <td height="20" class="guest_name">&nbsp;留言是否需要审核:
	<% if rs("ifNeedAuditing")=True Then %><input name="ifNeedAuditing" type="checkbox" id="ifNeedAuditing" value="1" checked><% else %><input name="ifNeedAuditing" type="checkbox" id="ifNeedAuditing" value="1"><% end if %>
	</td>
  </tr>
  <tr>
    <td height="20" class="guest_name">&nbsp;每页显示留言条数:
      <input name="GNum" type="text" id="GNum" class="input_common" style="width: 50px; height:18px;" value="<% =rs("Guest_Num") %>" size="15"></td>
  </tr>
  <tr>
    <td height="20" class="guest_name">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;置顶公告:
      <% if rs("News_View")=True then %><input name="NewsV" type="checkbox" id="NewsV" value="1" checked><% else %><input name="NewsV" type="checkbox" id="NewsV" value="1"><% end if %>
      (选上为显示)</td>
    </tr>
  <tr>
    <td height="20" class="guest_name">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;公告签名:
      <input name="NewsLabel" type="text" id="NewsLabel" class="input_common" style="width: 480px; height:18px;" value="<% =rs("News_Label") %>" size="28"></td>
    </tr>
  <tr>
    <td height="20" class="guest_name">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;留言本风格:
      <select name="skin" id="skin">
	    <% if Trim(rs("SkinStr"))="red" then %>
         <option value="blue" selected>浅蓝色调</option>
		 <option value="red" selected>粉红之梦</option>
         <option value="green">绿色风情</option>
		<% elseif Trim(rs("SkinStr"))="blue" then %>
         <option value="blue" selected>浅蓝色调</option>
		 <option value="red">粉红之梦</option>
         <option value="green">绿色风情</option>
		<% elseif Trim(rs("SkinStr"))="green" then %>
         <option value="blue">浅蓝色调</option>
		 <option value="red">粉红之梦</option>
         <option value="green" selected>绿色风情</option>
		<% end if %>
        <option value="red">粉红之梦</option>
        <option value="green">绿色风情</option>
      </select></td>
    </tr>
  <tr>
    <td height="20" class="guest_name"> &nbsp;刷新自动改变风格:<% if rs("AlterSkin")=True then%>
      <input name="ASkin" type="checkbox" id="ASkin" value="1" checked>
      <% else %>
	  <input name="ASkin" type="checkbox" id="ASkin" value="1">
	  <% end if %> 
	  (取消后不自动改变风格)</td>
  </tr>
  <tr>
    <td height="20" class="guest_name">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;页面链接一:
      <input id="Link_one" name="Link_one" type="text" class="input_common" style="width: 480px; height:18px;" value="<% =rs("Link_one") %>" size="28"></td>
  </tr>
  <tr>
    <td height="20" class="guest_name">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;页面链接二:
      <input id="Link_two" name="Link_two" type="text" class="input_common" style="width: 480px; height:18px;" value="<% =rs("Link_two") %>" size="28"></td>
  </tr>
  <tr>
    <td height="20" class="guest_name">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;页面链接三:
      <input id="Link_three" name="Link_three" type="text" class="input_common" style="width: 480px; height:18px;" value="<% =rs("Link_three") %>" size="28"></td>
  </tr>
  <tr align="center">
    <td height="30">
	<input type="button" value="返  回" onClick="javascript:history.back(-1);" class="button_common" style="width: 80px; height:18px;">&nbsp;&nbsp;
	<input type="reset" value="重新填写" class="button_common" style="width: 80px; height:18px;">&nbsp;&nbsp;
	<input name="按钮" type="button" onClick="javascript:lysubmit()" value="保存设置" class="button_common" style="width: 80px; height:18px;">
	</td>
  </tr>
  </form>
</table>
<% end if %>
<script language=javascript>
<!--
function lysubmit() {  
	if (lyform.GBName.value=="") {
		alert("请输入留言本名称!");
		lyform.GBName.focus();
		return false;  
	}   
	 
	if (lyform.CopyTXT.value=="") {
		alert("请输入版权信息!");
		lyform.CopyTXT.focus();
		return false;  
	}   
	  lyform.submit();
	 return true;
}
//-->
</script>
</body>
</html>

⌨️ 快捷键说明

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