savefirst.asp

校园二手交易系统,具有完备的后台操作以及应用功能!

<%@ LANGUAGE = VBScript.Encode %>
<!--#include file="conn.asp"-->
<%
dim action,html,ubbcode
%>

<%
html=request("html")
action=request.QueryString("action")
set rs=server.CreateObject("adodb.recordset")
select case action

case "First1"
rs.Open "select First1 from config",conn,1,3
if html="" then
rs("First1")=ubbcode(trim(request("First1")))
else
rs("First1")=trim(request("First1"))
end if
rs.Update
response.Write "<script language=javascript>alert('注册会员修改成功');history.go(-1);</script>"
response.End



case "First2"
rs.Open "select First2 from config",conn,1,3
if html="" then
rs("First2")=ubbcode(trim(request("First2")))
else
rs("First2")=trim(request("First2"))
end if
rs.Update
response.Write "<script language=javascript>alert('申请开店修改成功');history.go(-1);</script>"
response.End


case "First3"
rs.Open "select First3 from config",conn,1,3
if html="" then
rs("First3")=ubbcode(trim(request("First3")))
else
rs("First3")=trim(request("First3"))
end if
rs.Update
response.Write "<script language=javascript>alert('通过审核修改成功');history.go(-1);</script>"
response.End





case "First4"
rs.Open "select First4 from config",conn,1,3
if html="" then
rs("First4")=ubbcode(trim(request("First4")))
else
rs("First4")=trim(request("First4"))
end if
rs.Update
response.Write "<script language=javascript>alert('免费认证修改成功');history.go(-1);</script>"
response.End


case "First5"
rs.Open "select First5 from config",conn,1,3
if html="" then
rs("First5")=ubbcode(trim(request("First5")))
else
rs("First5")=trim(request("First5"))
end if
rs.Update
response.Write "<script language=javascript>alert('推荐店铺修改成功');history.go(-1);</script>"
response.End


case "First6"
rs.Open "select First6 from config",conn,1,3
if html="" then
rs("First6")=ubbcode(trim(request("First6")))
else
rs("First6")=trim(request("First6"))
end if
rs.Update
response.Write "<script language=javascript>alert('评定星级修改成功');history.go(-1);</script>"
response.End


case "First7"
rs.Open "select First7 from config",conn,1,3
if html="" then
rs("First7")=ubbcode(trim(request("First7")))
else
rs("First7")=trim(request("First7"))
end if
rs.Update
response.Write "<script language=javascript>alert('如何交易修改成功');history.go(-1);</script>"
response.End


case "First8"
rs.Open "select First8 from config",conn,1,3
if html="" then
rs("First8")=ubbcode(trim(request("First8")))
else
rs("First8")=trim(request("First8"))
end if
rs.Update
response.Write "<script language=javascript>alert('联系留言修改成功');history.go(-1);</script>"
response.End




end select
%>