📄 systemsave.asp

📁 一个不错的代码一个不错的代码一个不错的代码
💻 ASP
字号:
<% @language="vbscript" %>
<!--#include file=conn.asp -->
<%

IF Session("KEY")<>"super"THEN
response.redirect "index_face.asp"
response.end
END IF


xpurl=request("xpurl")
email=request("email")
copyright=request("copyright")
version=request("version")
logo=request("logo")
banner=request("banner")
bannerurl=request("bannerurl")

top_news=request("top_news")
top_sp=request("top_sp")
top_txt=request("top_txt")
top_img=request("top_img")

bgcolor=request("bgcolor")
bgimg=request("bgimg")
t_bg=request("t_bg")
b_bg=request("b_bg")
T_m_bg=request("T_m_bg")
l_BG=request("l_BG")
l_top=request("l_top")
l_main=request("l_main")
m_BG=request("m_BG")
m_main=request("m_main")
m_top=request("m_top")
r_top=request("r_top")
r_BG=request("R_BG")
r_main=request("r_main")
border=request("border")
xp1=request("xp1")
xp2=request("xp2")
xp3=request("xp3")
xp4=request("xp4")
xp5=request("xp5")
xp6=request("xp6")
xp7=request("xp7")
xp8=request("xp8")
gg=server.htmlencode(request("gg"))
gg=replace(gg,vbCrLf,"<br>")
gg=replace(gg," ","&nbsp;")
gg=replace(gg,"'","‘")
gg=replace(gg,"""","“")
name=server.htmlencode(request("name"))
name=replace(name,"""","“")
name=replace(name,"'","‘")
version="版本：REDCAFF XP 2.0 Build 20011213"
If name=""  or xpurl="" or copyright="" or email="" or gg="" Then
response.write "SORRY <br>"
response.write "看看哪里忘记填写了？"
response.end
end if

if len(gg)>=250 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&"',email='"&email&"',copyright='"&copyright&"',logo='"&logo&"',banner='"&banner&"',bannerurl='"&bannerurl&"',bgcolor='"&bgcolor&"',bgimg='"&bgimg&"',top_news="&top_news&",top_sp="&top_sp&",top_txt="&top_txt&",top_img="&top_img&",t_bg='"&t_bg&"',b_bg='"&b_bg&"',T_m_bg='"&T_m_bg&"',l_bg='"&l_bg&"',m_bg='"&m_bg&"',r_bg='"&r_bg&"',l_top='"&l_top&"',m_top='"&m_top&"',r_top='"&r_top&"',l_main='"&l_main&"',m_main='"&m_main&"',r_main='"&r_main&"',border='"&border&"',gg='"&gg&"',xp1='"&xp1&"',xp2='"&xp2&"',xp3='"&xp3&"',xp4='"&xp4&"',xp5='"&xp5&"',xp6='"&xp6&"',xp7='"&xp7&"',xp8='"&xp8&"',version='"&version&"'"
conn.execute(sql)
conn.close
set conn=nothing
%>
<html>
<head>
<title>SAVEOK</title>
<meta http-equiv="refresh" content="3;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>
<BODY>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<table width="500" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#000000">
<tr>
<td bgcolor="#FFFFFF" align="center">
<p>&nbsp;</p>
<p>已经成功添加到数据库！</p>
<p>&nbsp;</p>
</td>
</tr>
</table>
<p align="center">&nbsp;</p>
</body></html>
⌨️ 快捷键说明

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