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

开发平台：
ASP/ASPX

SiteSave.asp：源码内容
							﻿<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8" />
<TITLE>网站信息设置</TITLE>
<link rel="stylesheet" href="Images/CssAdmin.css">
<script language="javascript" src="../skweb/JS/Admin.js"></script>
</HEAD>
<!--#include file="../skweb/ConnSiteData.asp" -->
<!--#include file="../skweb/Const.asp" -->
<!--#include file="CheckAdmin.asp"-->
<%
if Instr(session("AdminPurview"),"|112,")=0 then 
  response.write ("<font color='red')>你不具有该管理模块的操作权限，请返回！</font>")
  response.end
end if
'========判断是否具有管理权限
%>
<body>
<%
  if len(trim(request.Form("SiteTitle")))<3 then
    response.write ("<script language=javascript> alert('SK提示：网站标题必填且不能少于3个字符！');history.back(-1);</script>")
    response.end
  end if
   if len(trim(request.Form("SiteUrl")))<10 then
    response.write ("<script language=javascript> alert('网站网址不能为空，且不少于10个字符！');history.back(-1);</script>")
    response.end
  end if 
  if left(trim(request.Form("SiteUrl")),7)<>"http://" then
    response.write ("<script language=javascript> alert('网站网址请加上""http://""！');history.back(-1);</script>")
    response.end
  end if
  if len(trim(request.Form("ComName")))<3 then
    response.write ("<script language=javascript> alert('SK提示：公司名称必填且不能少于3个字符！');history.back(-1);</script>")
    response.end
  end if 
  if len(trim(request.Form("Address")))<3 then
    response.write ("<script language=javascript> alert('SK提示：公司地址必填且不能少于3个字符！');history.back(-1);</script>")
    response.end
  end if
  if len(trim(request.Form("ZipCode")))<6 then
    response.write ("<script language=javascript> alert('邮政编码必填且不能少于6个字符！');history.back(-1);</script>")
    response.end
  end if
  if len(trim(request.Form("Telephone")))<11 then
    response.write ("<script language=javascript> alert('电话号码必填且不能少于11个字符！');history.back(-1);</script>")
    response.end
  end if
  if len(trim(request.Form("Fax")))<11 then
    response.write ("<script language=javascript> alert('传真号码必填且不能少于11个字符！');history.back(-1);</script>")
    response.end
  end if
  if len(trim(request.Form("Email")))<6 then
    response.write ("<script language=javascript> alert('电子邮箱必填具不能少于6个字符！');history.back(-1);</script>")
    response.end
  end if
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select top 1 * from sk_Site"
  rs.open sql,conn,1,3
  	  if Request.Form("miewFlag")=1 then
        rs("miewFlag")=1
	  else
        rs("miewFlag")=0
	  end if  
	  if Request.Form("Verify")=1 then
        rs("Verify")=1
	  else
        rs("Verify")=0
	  end if  
  rs("SiteTitle")=trim(Request.Form("SiteTitle"))
  rs("SiteUrl")=trim(Request.Form("SiteUrl"))
  rs("ComName")=trim(Request.Form("ComName"))
  rs("Sitenum")=trim(Request.form("Sitenum"))
  rs("Address")=trim(Request.Form("Address"))
  rs("ZipCode")=trim(Request.Form("ZipCode"))
  rs("Telephone")=trim(Request.Form("Telephone"))
  rs("Fax")=trim(Request.Form("Fax"))
  rs("Email")=trim(Request.Form("Email"))
  rs("Keywords")=trim(Request.Form("Keywords"))
  rs("Descriptions")=trim(Request.Form("Descriptions"))
  rs("IcpNumber")=trim(Request.Form("IcpNumber"))
  if Request.Form("MesViewFlag")=1 then
    rs("MesViewFlag")=Request.Form("MesViewFlag")
    Conn.execute "ALTER TABLE sk_Message ALTER COLUMN  ViewFlag bit default 1"
  else
    rs("MesViewFlag")=0
    Conn.execute "ALTER TABLE sk_Message ALTER COLUMN  ViewFlag bit default 0"
  end if
    if Request.Form("userAudit")=1 then
    rs("userAudit")=Request.Form("userAudit")
    Conn.execute "ALTER TABLE sk_Members ALTER COLUMN  Working bit default 1"
  else
    rs("userAudit")=0
    Conn.execute "ALTER TABLE sk_Members ALTER COLUMN  Working bit default 0"
  end if
    rs("n_in")=trim(Request.Form("n_in"))
	rs("writesql")=trim(Request.Form("writesql"))
	rs("alert_url")=trim(Request.Form("alert_url"))
	rs("alert_info")=trim(Request.Form("alert_info"))
	rs("kill_info")=trim(Request.Form("kill_info"))
	rs("n_type")=trim(Request.Form("n_type"))
	rs("sec_forms")=trim(Request.Form("sec_forms"))
	rs("sec_form_open")=trim(Request.Form("sec_form_open"))
	rs("kill_ip")=trim(Request.Form("kill_ip"))
  rs.update
  rs.close
  set rs=nothing 
  Response.Redirect("Tips/Permissions.asp")
  %>
  </body>
</html>

						