📄 systemsave.asp
字号:
<% @language="vbscript" %>
<!--#include file=conn.asp -->
<%
IF request.cookies("KEY")<>"super" THEN
response.redirect "index_face.asp"
response.end
END IF
xpurl=request("xpurl")
email=request("email")
copyright=request("copyright")
version=request("version")
ver=request("ver")
gd1=request("gd1")
gd2=request("gd2")
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")
gg1=server.htmlencode(request("gg1"))
gg1=replace(gg1,vbCrLf,"<br>")
gg1=replace(gg1," "," ")
gg1=replace(gg1,"<","<")
gg1=replace(gg1,">",">")
gg1=replace(gg1,""","""")
name=server.htmlencode(request("name"))
name=replace(name,"""","“")
name=replace(name,"'","‘")
copyright="尘缘雅境图文系统"
version="V3.0 ACCESS版"
ver="build 20030123"
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='"©right&"',gd1='"&gd1&"',gd2='"&gd2&"',top_news="&top_news&",top_sp="&top_sp&",top_txt="&top_txt&",top_img="&top_img&",gg1='"&gg1&"',newsnum='"&newsnum&"',picnum='"&picnum&"',ver='"&ver&"',version='"&version&"'"
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 "%" & ">"
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>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -