📄 adminsave.asp

📁 中介之家房产中介系统 V4.0企业共享版

💻 ASP

字号:

<% @language="vbscript" %>
<% 
'response.buffer=true
'Response.Expires=0
name=request("name")
logo=request("logo")
logourl=request("logourl")
bgs=request("bgs")
bgss=request("bgss")
homepage=request("homepage")
bgsrc=request("bgsrc")
admin=request("admin")
biankk=request("bian")
password=request("password")
'bt=request("bt")

If logo="" then
response.write "SORRY <br>"
response.write "看看哪里忘记填写了？"
response.end
end if

if len(logourl)>=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 conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("enet.asp")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="update about set name='"&name&"',logourl='"&logourl&"',logo='"&logo&"',bian='"&biankk&"',bgs='"&bgs&"',bgss='"&bgss&"',home='"&homepage&"',bgsrc='"&bgsrc&"'"
sql2="update admin set admin='"&admin&"',password='"&password&"'"
conn.execute(sql)
conn.execute(sql2)
%>
<html>
<head>
<title>OK</title>
<meta http-equiv=refresh content="1; url=admin.asp">
<BODY bgcolor="#ffffff"  text="#000000" link="#000080" alink="#800000" vlink="#2f2f4f" marginheight=0 marginwidth=0 topmargin=10 leftmargin=20 rightmargin=0>
Loading ....
<p align="center">已经成功添加到数据库！</p>
<p align="center">二秒钟后系统自动返回到添加页面</p>
</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -