📄 save_sys.asp

📁 商城源码程序(上海数字商城整站) 功能列表：商品管理
💻 ASP
字号:
<!--#include file="conn.asp"-->
<%call time_out()%>
<%
if instr(session("proview"),"s5")=0  then
response.Write "<script language=javascript>alert('您无权操作!');window.location.href='index.asp';</script>"
response.end
end if%>

<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body>
<%action=trim(Request("action"))
select case action
case "edit1"
sql="select * from system where id=1"
	  set rs=server.createobject("adodb.recordset")
	  rs.open sql,conn,1,3
rs("webname")=trim(Request("webname"))
rs("weburl")=trim(Request("weburl"))
rs("mail")=trim(Request("mail"))
rs("qq")=trim(Request("qq"))
rs("tel")=trim(Request("tel"))
rs("fax")=trim(Request("fax"))
rs("linkman")=trim(Request("linkman"))
rs("address")=trim(Request("address"))
rs("youbian")=trim(Request("youbian"))
rs("icp")=trim(Request("icp"))
rs.update
rs.close:set rs=nothing
response.Write "<script language=javascript>alert('基本资料修改成功!');window.location.href='system.asp';</script>"

case "edit2"
sql="select * from system where id=1"
	  set rs=server.createobject("adodb.recordset")
	  rs.open sql,conn,1,3
rs("bigpic_width")=trim(Request("bigpic_width"))
rs("bigpic_height")=trim(Request("bigpic_height"))
rs("smallpic_width")=trim(Request("smallpic_width"))
rs("smallpic_height")=trim(Request("smallpic_height"))
rs("mailaddress")=trim(Request("mailaddress"))
rs("mailusername")=trim(Request("mailusername"))
rs("mailuserpass")=trim(Request("mailuserpass"))
rs("zhanghao")=trim(Request("zhanghao"))
rs("safecode")=trim(Request("safecode"))
rs("bill")=trim(Request("bill"))
rs("billcode")=trim(Request("billcode"))

rs.update
rs.close:set rs=nothing
response.Write "<script language=javascript>alert('基本资料修改成功!');window.location.href='sys_high.asp';</script>"

case "edit3"
sql="select id,aboutus from system where id=1"
	  set rs=server.createobject("adodb.recordset")
	  rs.open sql,conn,1,3
rs("aboutus")=trim(Request("aboutus"))
rs.update
rs.close:set rs=nothing
response.Write "<script language=javascript>alert('修改成功!');window.location.href='aboutus.asp';</script>"

case "edit4"
sql="select id,linkus from system where id=1"
	  set rs=server.createobject("adodb.recordset")
	  rs.open sql,conn,1,3
rs("linkus")=trim(Request("linkus"))
rs.update
rs.close:set rs=nothing
response.Write "<script language=javascript>alert('修改成功!');window.location.href='linkus.asp';</script>"

case "edit5"
sql="select id,fukuan from system where id=1"
	  set rs=server.createobject("adodb.recordset")
	  rs.open sql,conn,1,3
rs("fukuan")=trim(Request("fukuan"))
rs.update
rs.close:set rs=nothing
response.Write "<script language=javascript>alert('修改成功!');window.location.href='fukuan.asp';</script>"

end select%>
</body>
</html>
⌨️ 快捷键说明

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