WEB源码(ASP,PHP,...)

开发平台：
ASP/ASPX

SetSite.asp：源码内容
							﻿<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8" />
<TITLE>网站信息设置</TITLE>
<link href="Images/CssAdmin.css" rel="stylesheet" type="text/css">
<script language="javascript" src="../skweb/JS/Admin.js"></script>
</HEAD>
<!--#include file="../skweb/Const.asp" -->
<!--#include file="../skweb/ConnSiteData.asp" -->
<!--#include file="CheckAdmin.asp"-->
<%
if Instr(session("AdminPurview"),"|112,")=0 then 
  response.write ("<font color='red')>你不具有该管理模块的操作权限，请返回！</font>")
  response.end
end if
'========判断是否具有管理权限
%>
<body>
<%
dim ID,SiteTitle,enSiteTitle,SiteUrl,ComName,Address,ZipCode,Telephone,Fax,Email,Keywords,Descriptions,IcpNumber,SystemSN,Sitenum
dim MesViewFlag,miewFlag,Verify,userAudit,n_in,writesql,alert_url,alert_info,kill_info,n_type,sec_forms,sec_form_open,kill_ip
select case request.QueryString("Action")
  case "Save"
    SaveSiteInfo
  case else
    ViewSiteInfo
end select
%>
<!--#include file="conn/1top.asp"-->
 
<table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC" id=editProduct idth="100%">
	   <tr>
        <td height="29" colspan="2" background="Images/menutitle.gif" bgcolor="#FFFFFF"><strong><font color="#000000" size="2">网站基本设置</font></strong></td>
      </tr>
	 <form name="editForm" method="post" action="SiteSave.asp" > 
      <tr>
        <td height="20" align="right" bgcolor="#FFFFFF">网站标题：</td>
        <td bgcolor="#FFFFFF"><input name="SiteTitle" type="text" class="textfield" id="SiteTitle" style="WIDTH: 400;" value="<%=SiteTitle%>" >&nbsp;*</td>
      </tr>
      <tr>
        <td height="20" align="right" bgcolor="#FFFFFF">分页字数(：</td>
        <td bgcolor="#FFFFFF"><input name="Sitenum" type="text" class="textfield" id="Sitenum" style="WIDTH: 60;" value="<%=Sitenum%>">&nbsp;*指文字超过一定字数，将自动分页</td>
      </tr>
      <tr>
        <td height="20" align="right" bgcolor="#FFFFFF">网　　址：</td>
        <td bgcolor="#FFFFFF"><input name="SiteUrl" type="text" class="textfield" id="SiteUrl" style="WIDTH: 400;" value="<%=SiteUrl%>">&nbsp;*</td>
      </tr>
      <tr>
        <td height="20" align="right" bgcolor="#FFFFFF">公司名称：</td>
        <td bgcolor="#FFFFFF"><input name="ComName" type="text" class="textfield" id="ComName" style="WIDTH: 400;" value="<%=ComName%>" >&nbsp;*</td>
      </tr>
      <tr>
        <td height="20" align="right" bgcolor="#FFFFFF">地　　址：</td>
        <td bgcolor="#FFFFFF"><input name="Address" type="text" class="textfield" id="Address" style="WIDTH: 400;" value="<%=Address%>" >&nbsp;*</td>
      </tr>
      <tr>
        <td height="20" align="right" bgcolor="#FFFFFF">邮　　编：</td>
        <td bgcolor="#FFFFFF"><input name="ZipCode" type="text" class="textfield" id="ZipCode" style="WIDTH: 200;" value="<%=ZipCode%>" maxlength="20">&nbsp;*</td>
      </tr>
      <tr>
        <td height="20" align="right" bgcolor="#FFFFFF">电　　话：</td>
        <td bgcolor="#FFFFFF"><input name="Telephone" type="text" class="textfield" id="Telephone" style="WIDTH: 200;" value="<%=Telephone%>">&nbsp;*</td>
      </tr>
      <tr>
        <td height="20" align="right" bgcolor="#FFFFFF">传　　真：</td>
        <td bgcolor="#FFFFFF"><input name="Fax" type="text" class="textfield" id="Fax" style="WIDTH: 200;" value="<%=Fax%>" >&nbsp;*</td>
      </tr>
      <tr>
        <td height="20" align="right" bgcolor="#FFFFFF">电子邮箱：</td>
        <td bgcolor="#FFFFFF"><input name="Email" type="text" class="textfield" id="Email" style="WIDTH: 200;" value="<%=Email%>">&nbsp;*&nbsp;</td>
      </tr>
      <tr>
        <td height="20" align="right" valign="top" bgcolor="#FFFFFF">关 键 字：</td>
        <td bgcolor="#FFFFFF"><textarea name="Keywords" rows="6"  class="textfield" id="Keywords" style="WIDTH: 400;"><%=Keywords%></textarea>&nbsp;关键字设置有利于网站的搜索</td>
      </tr>
      <tr>
        <td height="20" align="right" valign="top" bgcolor="#FFFFFF">网站描述：</td>
        <td bgcolor="#FFFFFF"><textarea name="Descriptions" rows="6" class="textfield" id="Descriptions" style="WIDTH: 400;"><%=Descriptions%></textarea>&nbsp;网站描述设置有利于网站的搜索</td>
      </tr>
      <tr>
        <td height="20" align="right" bgcolor="#FFFFFF">ICP&nbsp;备案(中、英)：</td>
        <td bgcolor="#FFFFFF"><input name="IcpNumber" type="text" class="textfield" id="IcpNumber" style="WIDTH: 200;" value="<%=IcpNumber%>"></td>
      </tr>
      <tr>
        <td height="20" align="right" bgcolor="#FFFFFF">授&nbsp;权&nbsp;号：</td>
        <td bgcolor="#FFFFFF"><input name="SystemSN" type="text" class="textfield" id="SystemSN" style="WIDTH: 200;" value="<%=SystemSN%>" readonly></td>
      </tr>
      <tr>
        <td height="20" align="right" bgcolor="#FFFFFF"><a name="Message"></a>留&nbsp;言&nbsp;簿：</td>
        <td bgcolor="#FFFFFF"><input name="MesViewFlag" type="checkbox" id="MesViewFlag" value="1" style="HEIGHT: 13px;WIDTH: 13px;" <%if MesViewFlag then response.write ("checked")%>>&nbsp;自动通过审核</td>
      </tr>
	  	<tr>
        <td height="20" align="right" bgcolor="#FFFFFF"><a name="Message"></a>验证码开关：</td>
        <td bgcolor="#FFFFFF"><input name="Verify" type="checkbox" id="Verify" value="1" style="HEIGHT: 13px;WIDTH: 13px;" <%if Verify then response.write ("checked")%>>&nbsp;选中为关闭，否则为打开</td>
      </tr>
	  	  	        <tr>
        <td height="20" align="right" bgcolor="#FFFFFF"><a name="Message"></a>开通注册用户审核：</td>
        <td bgcolor="#FFFFFF"><input name="userAudit" type="checkbox" id="userAudit" value="1" style="HEIGHT: 13px;WIDTH: 13px;" <%if userAudit then response.write ("checked")%>>&nbsp;选中为关闭，否则为打开</td>
      </tr>
	   <tr>
        <td height="29" colspan="2" background="Images/menutitle.gif" bgcolor="#FFFFFF"><strong><font color="#000000" size="2">安全配置</font></strong></td>
      </tr>
	  	  	  	        <tr>
        <td height="20" align="right" bgcolor="#FFFFFF"><a name="Message"></a>需要过滤的关键字：</td>
        <td bgcolor="#FFFFFF"><input name="N_In" type="text" value="<%=N_In%>" class="textfield" size="50">
        用&quot;|&quot;分开</td>
      </tr>
      <tr>
        <td align="right" bgcolor="#FFFFFF"><a name="Message"></a>是否启用安全页面：</td>
        <td bgcolor="#FFFFFF"><select name="Sec_Form_open" id="r_kill">
          <option value="1" <%if Sec_Form_open=1 Then response.write "selected"%>>是</option>
          <option value="0" <%if Sec_Form_open=0 Then response.write "selected"%>>否</option>
        </select>
		慎用这个功能，除非你对确认此页面无需过滤，并确定对安全没影响！		</td>
      </tr>
	  <tr>
        <td align="right" bgcolor="#FFFFFF"><a name="Message"></a>您认为安全的页面：</td>
        <td bgcolor="#FFFFFF"><input name="Sec_Forms" type="text" value="<%=Sec_Forms%>" id="r_str" style=" " size="50">
        用&quot;|&quot;分开</td>
      </tr>
      <tr>
        <td align="right" bgcolor="#FFFFFF"><a name="Message"></a>出错后的处理方式：</td>
        <td bgcolor="#FFFFFF"><select name="N_type" id="r_kill">
          <option value="1" <%if N_type=1 Then response.write "selected"%>>直接关闭网页</option>
          <option value="2" <%if N_type=2 Then response.write "selected"%>>警告后关闭</option>
		  <option value="3" <%if N_type=3 Then response.write "selected"%>>跳转到指定页面</option>
		  <option value="4" <%if N_type=4 Then response.write "selected"%>>警告后跳转</option>
        </select></td>
      </tr>
	<tr>
        <td align="right" bgcolor="#FFFFFF"><a name="Message"></a>出错后跳转Url：</td>
        <td bgcolor="#FFFFFF"><input name="alert_url" type="text" value="<%=alert_url%>" id="r_str" style=" " size="30">注意，这里的都是半角符号，就是英文的！		</td>
      </tr>
      <tr>
        <td align="right" bgcolor="#FFFFFF"><a name="Message"></a>警告提示信息：</td>
        <td bgcolor="#FFFFFF"><textarea name="alert_info" cols="45" rows="4" id="r_err2" style=";  "><%=alert_info%></textarea>nn换行，		</td>
      </tr>
	  <tr>
        <td align="right" bgcolor="#FFFFFF"><a name="Message"></a>阻止访问提示信息：</td>
        <td bgcolor="#FFFFFF"><textarea name="kill_info" cols="45" rows="4" id="r_err2" style=";  "><%=kill_info%></textarea>nn换行		</td>
      </tr>
      <tr>
        <td height="30" align="right" bgcolor="#FFFFFF">&nbsp;</td>
        <td valign="bottom" bgcolor="#FFFFFF"><input name="submitSaveEdit" type="submit"  id="submitSaveEdit" value="保存" style="WIDTH: 60;" ></td>
      </tr>
    </table>
  </form>
</body>
</html>
<%
function ViewSiteInfo()
  dim rs,sql 
  set rs = server.createobject("adodb.recordset")
  sql="select top 1 * from sk_Site"
  rs.open sql,conn,1,1
  if rs.bof and rs.eof then
    response.write "SK提示读取数据库记录出错！"
    response.end
  else
    miewFlag=rs("miewFlag")
	Verify=rs("Verify")
    SiteTitle=rs("SiteTitle")
    SiteUrl=rs("SiteUrl")
    ComName=rs("ComName")
	Sitenum=rs("Sitenum")
    Address=rs("Address")
    ZipCode=rs("ZipCode")
    Telephone=rs("Telephone")
    Fax=rs("Fax")
    Email=rs("Email")
    Keywords=rs("Keywords")
    Descriptions=rs("Descriptions")
    IcpNumber=rs("IcpNumber")
    SystemSN=rs("SystemSN")
	MesViewFlag=rs("MesViewFlag")
	userAudit=rs("userAudit")
	n_in=rs("n_in")
	writesql=rs("writesql")
	alert_url=rs("alert_url")
	alert_info=rs("alert_info")
	kill_info=rs("kill_info")
	n_type=rs("n_type")
	sec_forms=rs("sec_forms")
	sec_form_open=rs("sec_form_open")	
	kill_ip=rs("kill_ip")
					
    rs.close
    set rs=nothing 
  end if
end function
%>

						