systemsave.asp

社区天地图文系统(核心:尘缘雅境图文系统) 版本: 1.0 本系统是ASP+ACCESS环境下开发成功

<% @language="vbscript" %>
<!--#include file=conn.asp --><!--#include file="char.inc"--><!--#include file="chkuser.asp" -->
<%

IF request.cookies("KEY")<>"super" THEN
response.redirect "index_face.asp"
response.end
else
usernamecookie=CheckStr(request.cookies("UserName"))
passwdcookie=replace(trim(Request.cookies("passwd")),"'","''")
KEYcookie=replace(trim(request.cookies("KEY")),"'","''")
if usernamecookie="" or passwdcookie="" then
response.redirect "login.asp"
response.end
else
'判断用户的合法性
  set rs=server.createobject("adodb.recordset")
  sql="select * from admin where username='"&usernamecookie&"'"
  rs.open sql,conn,1,1
  if rs.eof and rs.bof then
             response.redirect "login.asp"
            response.end
         end if
  IF passwdcookie<>rs("passwd") THEN
          response.redirect "login.asp"
           response.end
      END IF
   '下面判断用户级别实际在有用户级别是都应该判断
   if KEYcookie<>rs("OSKEY") then
      response.redirect "index_face.asp"
      response.end
    end if
           rs.close
           set rs=nothing
END IF
END IF


xpurl=request("xpurl")
email=request("email")
copyright=request("copyright")
version=request("version")
ver=request("ver")
gd1=request("gd1")
gd2=request("gd2")
B_BG=0

top_news=request("top_news")
bigclassshownum=request("bigclassshownum")
top_sp=request("top_sp")
top_txt=request("top_txt")
top_img=request("top_img")
newsnum=request("newsnum")
picnum=request("picnum")
topuser=request("topuser")
linkshownum=request("linkshownum")
reviewnum=request("reviewnum")

logo=request("logo")
logourl=request("logourl")
banner=request("banner")
bannerurl=request("bannerurl")
M_BG=1

gg1=server.htmlencode(request("gg1"))
gg1=replace(gg1,vbCrLf,"<br>")
gg1=replace(gg1,"&nbsp;"," ")
gg1=replace(gg1,"&lt;","<")
gg1=replace(gg1,"&gt;",">")
gg1=replace(gg1,"&quot;","""")
name=server.htmlencode(request("name"))
name=replace(name,"""","“")
name=replace(name,"'","‘")
copyright="社区天地图文系统(核心:尘缘雅境图文系统)"
version="V1.0 [枫叶]版"
ver="-=-"
R_BG=request("R_BG")
R_TOP=request("R_TOP")
R_MAIN=request("R_MAIN")
L_MAIN=request("L_MAIN")

If name=""  or xpurl="" or email="" Then
response.write "SORRY <br>"
response.write "看看哪里忘记填写了？"
response.end
end if

if len(gg1)>=65535 then
response.write("<table width=300 border=0 cellspacing=0 cellpadding=0 align=center>")
response.write("<tr><td>－－本站公告太长了，将会破坏页面的整体风格－－</td></tr>")
response.write(" <tr><td>－－－<a href=vbscript:history.back()>回去重来</a>－－－</td></tr>")
response.write("</table>")
response.end
end if

if len(url)>=100 then
response.write("<table width=300 border=0 cellspacing=0 cellpadding=0 align=center>")
response.write("<tr><td>－－你的主页地址太长了－－</td></tr>")
response.write(" <tr><td>－－－<a href=vbscript:history.back()>回去重来</a>－－－</td></tr>")
response.write("</table>")
response.end
end if


Set rs = Server.CreateObject("ADODB.Recordset")
sql="update system set name='"&name&"',xpurl='"&xpurl&"',bigclassshownum='"&bigclassshownum&"',reviewnum='"&reviewnum&"',linkshownum='"&linkshownum&"',topuser='"&topuser&"',email='"&email&"',copyright='"&copyright&"',gd1='"&gd1&"',gd2='"&gd2&"',B_BG='"&B_BG&"',top_news="&top_news&",top_sp="&top_sp&",R_BG="&R_BG&",top_txt="&top_txt&",top_img="&top_img&",gg1='"&gg1&"',R_TOP='"&R_TOP&"',R_MAIN='"&R_MAIN&"',L_MAIN='"&L_MAIN&"',newsnum='"&newsnum&"',picnum='"&picnum&"',ver='"&ver&"',version='"&version&"',logo='"&logo&"',logourl='"&logourl&"',banner='"&banner&"',bannerurl='"&bannerurl&"',M_BG='"&M_BG&"'"
conn.execute(sql)

conn.close
set conn=nothing
set fso=Server.CreateObject("Scripting.FileSystemObject")
	set hf=fso.CreateTextFile(Server.mappath("../inc/config.asp"),true)
	hf.write "<" & "%" & vbcrlf
	hf.write "Const MaxFileSize=" & chr(34) & trim(request("MaxFileSize")) & chr(34) & "        '上传文件大小限制" & vbcrlf
	hf.write "Const SaveUpFilesPath=" & chr(34) & "UploadFile" & chr(34) & "        '存放上传文件的目录" & vbcrlf
	hf.write "Const UpFileType=" & chr(34) & trim(request("UpFileType")) & chr(34) & "        '允许的上传文件类型" & vbcrlf
	hf.write "Const byteType=" & chr(34) & trim(request("byteType")) & chr(34) & "        '留言本屏蔽词语" & vbcrlf
    hf.write "Const basemenu=" & chr(34) & trim(request("basemenu")) & chr(34) & "        '自定义菜单" & vbcrlf
	hf.write "%" & ">"
	hf.close
	set hf=nothing
	set fso=nothing

%>
<html>
<head>
<title>SAVEOK</title>
<meta http-equiv="refresh" content="0;url=system.asp">
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href=site.css rel=stylesheet>
</head>
<BODY>

<table border="1" width="750" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="<%=border%>" align=center>
<tr align="center">
<tr>
<td align="center">
<p>　</p>
<p>已经成功添加到数据库！</p>
<p>　</p>
</td>
</tr>
</table>
</body></html>