📄 sitesave.asp

📁 修改迅易在线评选管理系统,,功能能用,下载的迅易功能不全,
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<% Option Explicit %>
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8" />
<META NAME="copyright" CONTENT="Copyright 2004-2008" />
<META NAME="Author" CONTENT="迅易人物评选系统" />
<META NAME="Keywords" CONTENT="" />
<META NAME="Description" CONTENT="" />
<TITLE>网站信息设置</TITLE>
<link rel="stylesheet" href="Images/CssAdmin.css">
<script language="javascript" src="../Script/Admin.js"></script>
</HEAD>
<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/ConnSiteData.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('网站标题必填且不能少于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('公司名称必填且不能少于3个字符！');history.back(-1);</script>")
    response.end
  end if 
  if len(trim(request.Form("Address")))<3 then
    response.write ("<script language=javascript> alert('公司地址必填且不能少于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,ViewFlag
  set rs = server.createobject("adodb.recordset")
  sql="select top 1 * from Ameav_Site"
  rs.open sql,conn,1,3
    if Request.Form("ipclock")=1 then
        rs("ipclock")=1
  else
        rs("ipclock")=0
  end if
  if Request.Form("ViewFlag")=1 then
        rs("ViewFlag")=1
  else
        rs("ViewFlag")=0
  end if
    if Request.Form("memclock")=1 then
        rs("memclock")=1
  else
        rs("memclock")=0
  end if
  rs("numbers")=trim(Request.Form("numbers"))
  rs("endtime")=request.form("endtime")
  rs("SiteTitle")=request.form("SiteTitle")
  rs("ComName")=request.form("ComName")
  rs("interval")=request.form("interval")
  rs("SiteUrl")=trim(Request.Form("SiteUrl"))
  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"))
  rs("Content")=trim(Request.Form("Content"))
  if Request.Form("MesViewFlag")=1 then
    rs("MesViewFlag")=Request.Form("MesViewFlag")
    Conn.execute "update Ameav_Message set ViewFlag=1"
  else
    rs("MesViewFlag")=0
    Conn.execute "update Ameav_Message set ViewFlag=0"
  end if
  rs.update
  rs.close
  set rs=nothing 
  response.write "<script language=javascript> alert('成功编辑网站信息！');changeAdminFlag('网站信息设置');location.replace('SetSite.asp');</script>"

'  if Request.Form("MesViewFlag")=1 then
'    rs("MesViewFlag")=Request.Form("MesViewFlag")
'    Conn.execute "ALTER TABLE Ameav_Message ALTER COLUMN  ViewFlag bit default 1"
'  else
'    rs("MesViewFlag")=0
'    Conn.execute "ALTER TABLE Ameav_Message ALTER COLUMN  ViewFlag bit default 0"
'  end if
'  rs.update
'  rs.close
'  set rs=nothing 
'  response.write "<script language=javascript>成功编辑配置！<'/script>"
  %>
  </body>
</html>
⌨️ 快捷键说明

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