savehelp.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 Help",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 Help",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 Help",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 Help",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 Help",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 Help",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 Help",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 Help",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
%>