admin_system.asp

电子商城代码

<!--#include file="conn.asp"-->
<%
if session("admin_name")="" then
        response.redirect "default.asp"
end if
admintop()
Dim admin_flag
admin_flag=",27,"
	if session("admin_name")="" or instr(","&session("flag")&",",admin_flag)=0 then
	adminflag()	
	else
set rs=server.createobject("adodb.recordset")

if request("action")="change" Then
sys_oicq_x=Safereplace(trim(request("sys_oicq_x")))
sys_oicq_y=Safereplace(trim(request("sys_oicq_y")))
oicq_skin=Safereplace(trim(request("oicq_skin")))
oicq_skin=Replace(oicq_skin,"../images/qq_skin/","")
oicq_skin=Replace(oicq_skin,"_1.gif","")
oicq_zt=Safereplace(trim(request("oicq_zt")))
sys_qq=Safereplace(trim(request("sys_qq")))
sys_oicq=sys_oicq_x&"$$"&sys_oicq_y&"$$"&oicq_skin&"$$"&oicq_zt&"$$"&sys_qq&"$$"
sql="select * from [56770_system] where id=1"
rs.open sql, conn, 1, 3
rs("name")=Safereplace(trim(request("name")))
rs("name_lan1")=Safereplace(trim(request("name_lan1")))
rs("sys_tel")=Safereplace(trim(request("sys_tel")))
rs("fax")=Safereplace(trim(request("fax")))
rs("mail")=Safereplace(trim(request("mail")))
rs("sys_oicq")=sys_oicq
rs("sys_oicqname")=Safereplace(trim(request("sys_oicqname")))
rs("qq_zt")=request("qq_zt")
rs("qq_wz")=request("qq_wz")
rs("qq_ys")=request("qq_ys")
rs("web")=Safereplace(trim(request("web")))
rs("sitename")=Safereplace(trim(request("sitename")))
rs("sitename_lan1")=Safereplace(trim(request("sitename_lan1")))
rs("lowprice")=Safereplace(trim(request("lowprice")))
'澧炲姞 闈炰細鍛樸