edit.asp

鄂尔多斯建站网全站程序(冬季修正版)

rs("price")=price
rs("attention")=attention
rs("tj")=tj
rs.update
rs.close
set rs=nothing
response.redirect"edit_shop.asp"
end if
'=============================================================订单确认代码
if request("action")="pass" then
set rs=server.createobject("adodb.recordset")
sql="select * from sub where sub_id="&request("sub_id")
rs.open sql,conn,3,3
if rs.eof then
response.write "没有此订单信息，或者此订单已通过管理员确认"
response.end
else
rs("sub_check")=true
rs.update
response.write "<center>"
response.write rs("sub_number")+"号"
response.write "<font color=red>订单已经确认!</font>"
response.write"<br>"
rs.close
set rs=nothing
response.write"<a href=edit_list_new.asp>返回到 [ 最新订单系统 ] </a>"
end if
end if
'============================================================修改管理员帐号
if request("action")="edit_admin" then
admin_name=request("admin_name2")
admin_pass=request("admin_pass")
admin_pass2=request("admin_pass2")
if admin_name="" then
response.write("<script>alert('登陆帐号不能为空！');history.go(-1)</script>")
response.end
end if
if admin_pass="" then
response.write("<script>alert('登陆密码不能为空！');history.go(-1)</script>")
response.end
end if
if admin_pass2="" then
response.write("<script>alert('重复密码不能为空！');history.go(-1)</script>")
response.end
end if
if admin_pass<>admin_pass2 then
response.write("<script>alert('“登陆密码”与“重复密码”不能为空！');history.go(-1)</script>")
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from admin where admin_name='"&session("admin_name")&"'"
rs.open sql,conn,3,3
rs("admin_name")=admin_name
rs("admin_pass")=xy20_md5(admin_pass,"short")
rs("flag")="1"
rs.update
rs.close
set rs=nothing
response.write"<a href=quit.asp><p align=center>修改完成，请退出重新登陆</p></a>"
end if
'============================================================control_1
if request("action")="edit_control_1" then
c_1=request("c_1")
set rs = server.createobject("adodb.recordset")
sql="select * from control_1 where id="&request("id") 
rs.open sql,conn,1,3
rs("c_1")=c_1
rs.update
rs.close
set rs=nothing
response.redirect"control_1.asp"
end if
'============================================================control_2
if request("action")="edit_control_2" then
c_2=request("c_2")
set rs = server.createobject("adodb.recordset")
sql="select * from control_2 where id="&request("id") 
rs.open sql,conn,1,3
rs("c_2")=c_2
rs.update
rs.close
set rs=nothing
response.redirect"control_2.asp"
end if
'============================================================control_3
if request("action")="edit_control_3" then
c_3=request("c_3")
set rs = server.createobject("adodb.recordset")
sql="select * from control_3 where id="&request("id") 
rs.open sql,conn,1,3
rs("c_3")=c_3
rs.update
rs.close
set rs=nothing
response.redirect"control_3.asp"
end if
'============================================================control_4
if request("action")="edit_control_4" then
c_4=request("c_4")
set rs = server.createobject("adodb.recordset")
sql="select * from control_4 where id="&request("id") 
rs.open sql,conn,1,3
rs("c_4")=c_4
rs.update
rs.close
set rs=nothing
response.redirect"control_4.asp"
end if
'============================================================推荐客户
if request("action")="edit_customer" then
id=request("id")
c_name=request("c_name")
c_url=request("c_url")
if id="" then
response.write("<script>alert('客户类别没有选择');history.go(-1)</script>")
response.end
end if
if c_name="" then
response.write("<script>alert('网站名称不能为空');history.go(-1)</script>")
response.end
end if
if c_url="" then
response.write("<script>alert('网站网址不能为空');history.go(-1)</script>")
response.end
end if
set rs = server.createobject("adodb.recordset")
sql="select * from customer where c_id="&request("c_id") 
rs.open sql,conn,1,3
rs("id")=id
rs("c_name")=c_name
rs("c_url")=c_url
rs.update
rs.close
set rs=nothing
response.redirect"edit_customer.asp"
end if
'============================================================
if request("action")="edit_friend" then
dim f_s,f_name,f_logo,f_url
f_s=request("f_s")
f_name=request("f_name")
f_logo=request("f_logo")
f_url=request("f_url")
if f_s="" then
response.write("<script>alert('连接位置不能为空！');history.go(-1)</script>")
response.end
end if
if f_name="" then
response.write("<script>alert('连接名称不能为空！');history.go(-1)</script>")
response.end
end if
if f_logo="" then
f_logo="无"
end if
if f_url="" then
response.write("<script>alert('连接地址不能为空！');history.go(-1)</script>")
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from friend where id="&request("id")
rs.open sql,conn,3,3
rs("f_s")=f_s
rs("f_name")=f_name
rs("f_logo")=f_logo
rs("f_url")=f_url
rs.update
rs.close
set rs=nothing
response.redirect"edit_friend.asp"
end if
'===========================================================
if request("action")="edit_ad" then
ad_w=request("ad_w")
html_w=request("html_w")
mo=request("mo")
if mo="" then
kuan=request("kuan")
gao=request("gao")
elseif mo<>"" then
kuan="0"
gao="0"
end if
ad_pic=request("ad_pic")
ad_url=request("ad_url")
ad_wenzi=request("ad_wenzi")
ad_html=request("ad_html")

if ad_w="" then
response.write("<script>alert('广告分类没有选择');history.go(-1)</script>")
response.end
end if

if request("html_w")="0" then
if kuan="" then
response.write("<script>alert('宽没有填入像素');history.go(-1)</script>")
response.end
end if
if gao="" then
response.write("<script>alert('高没有填入像素');history.go(-1)</script>")
response.end
end if
if ad_pic="" then
response.write("<script>alert('广告图片没有填写');history.go(-1)</script>")
response.end
end if
if ad_url="" then
response.write("<script>alert('连接地址没有填写');history.go(-1)</script>")
response.end
end if
if ad_wenzi="" then
response.write("<script>alert('文字说明没有填写');history.go(-1)</script>")
response.end
end if
set rs = server.createobject("adodb.recordset")
sql="select * from ad where ad_id="&request("ad_id") 
rs.open sql,conn,1,3
rs("ad_w")=ad_w
rs("html_w")=html_w
rs("kuan")=kuan
rs("gao")=gao
rs("ad_pic")=ad_pic
rs("ad_url")=ad_url
rs("ad_wenzi")=ad_wenzi
rs("ad_html")="-"
rs("ad_time")=now()
rs.update
rs.close
set rs=nothing
response.write"<a href=edit_ad.asp>修改完成</a>"
else
if ad_html="" then
response.write("<script>alert('html代码没有填写');history.go(-1)</script>")
response.end
end if
set rs = server.createobject("adodb.recordset")
sql="select * from ad where ad_id="&request("ad_id") 
rs.open sql,conn,1,3
rs("ad_w")=ad_w
rs("html_w")=html_w
rs("kuan")="-"
rs("gao")="-"
rs("ad_pic")="-"
rs("ad_url")="-"
rs("ad_wenzi")="-"
rs("ad_html")=ad_html
rs("ad_time")=now()
rs.update
rs.close
set rs=nothing
response.write"<a href=edit_ad.asp>修改完成</a>"
end if
end if
'===========================================================
conn.close
set conn=nothing
%>
</head>
<%
'**********************************
'版本:host_free 3.0               *
'官方网站:http://www.850518.com   *
'技术论坛:http://forum.850518.com *
'qq:54455245 (欢迎咨询商业版)     *
'msn: [e-mail]         *
'手机:[phone]              *
'mail:[e-mail]            *
'版权所有，请保留该信息，谢谢合作 *
'**********************************
%>