admin_do.asp

MisCMS源码

<!--#include file="../inc/conn.Asp"-->
<!--#include file="../inc/MyFunction.Asp"-->
<% call master
call ChkPOst
if ChkPOst=true then

act=request("act")
if act="sys" then
sysname=request.Form("sysname")
sysurl=request.Form("sysurl")
sysmaster=request.Form("sysmaster")
sysemail=request.Form("sysemail")
syskeyword=request.Form("syskeyword")
sysinfo=request.Form("sysinfo")
sysbeian=request.Form("sysbeian")
sysother=request.Form("sysother")
set sv=server.CreateObject("adodb.recordset")
sv.open"select * from sysxx where id=1",conn,3,3
sv("sysname")=sysname
sv("sysurl")=sysurl
sv("sysmaster")=sysmaster
sv("sysemail")=sysemail
sv("syskeyword")=syskeyword
sv("sysinfo")=sysinfo
sv("sysbeian")=sysbeian
sv("sysother")=sysother
sv.update
sv.close
set sv=nothing
call alerturl("提交成功！","admin_sys.asp")
end if

if act="muneadd" then
m_name=goback(trim(request.Form("m_name")),"名称不能为空！")
m_from=request.Form("m_from")
m_type=request.Form("m_type")
set sa=server.CreateObject("adodb.recordset")
sa.open"select * from munexx",conn,3,3
sa.addnew()
sa("m_name")=m_name
if m_from<>"" then
sa("m_from")=m_from
end if
if m_type<>"" then
sa("m_type")=m_type
end if
sa.update
sa.close
set sa=nothing
call alerturl("添加成功！","admin_wztype.asp")
end if

if act="munedel" then
id=request.QueryString("id")
conn.execute("delete from munexx where m_id=" & id & "")
call alerturl("删除成功！","admin_wztype.asp")
end if

if act="muneup" then
id=request.QueryString("id")
conn.execute("update munexx set m_order=m_order-1 where m_id=" & id & "")
call alerturl("操作成功！","admin_wztype.asp")
end if

if act="munedown" then
id=request.QueryString("id")
conn.execute("update munexx set m_order=m_order+1 where m_id=" & id & "")
call alerturl("操作成功！","admin_wztype.asp")
end if

if act="note" then
n_tit=request.Form("n_tit")
n_con=request.Form("n_con")
set sa=server.CreateObject("adodb.recordset")
sa.open"select * from notexx where id=1",conn,3,3
sa("n_tit")=n_tit
sa("n_con")=n_con
sa.update
sa.close
set sa=nothing
call alerturl("操作成功！","admin_note.asp")
end if

if act="lkadd" then
linkname=goback(trim(request.Form("linkname")),"网站名称不能为空！")
linkurl=goback(trim(request.Form("linkurl")),"网站地址不能为空！")
linkinfo=request.Form("linkinfo")
lshow=request.Form("lshow")
set sa=server.CreateObject("adodb.recordset")
sa.open"select * from linkxx",conn,3,3
sa.addnew()
sa("linkname")=linkname
sa("linkurl")=linkurl
sa("linkinfo")=linkinfo
sa("lshow")=lshow
sa.update
sa.close
set sa=nothing
call alerturl("操作成功！","admin_link.asp")
end if

if act="lkdel" then
id=request.QueryString("id")
conn.execute("delete from linkxx where id=" & id & "")
call alerturl("操作成功！","admin_link.asp")
end if

if act="lkshow" then
id=request.QueryString("id")
s=request.QueryString("s")
conn.execute("update linkxx set lshow=" & s & " where id=" & id & "")
call alerturl("操作成功！","admin_link.asp")
end if

if act="lydel" then
id=request.QueryString("id")
conn.execute("delete from guestxx where id=" & id & "")
call alerturl("操作成功！","admin_guest.asp")
end if

if act="pldel" then
id=request.QueryString("id")
conn.execute("delete from plxx where plid=" & id & "")
call alerturl("操作成功！","admin_pl.asp")
end if

if act="wzshow" then
id=request.QueryString("id")
s=request.QueryString("s")
conn.execute("update wzxx set t_show=" & s & " where t_id=" & id & "")
call alerturl("操作成功！","admin_wztxt.asp")
end if

if act="wzdel" then
id=request.QueryString("id")
conn.execute("delete from wzxx where t_id=" & id & "")
call alerturl("操作成功！","admin_wztxt.asp")
end if

if act="wzadd" then
mid1=goback(trim(request.Form("type1")),"请选择大类！")
mid2=goback(trim(request.Form("type2")),"请选择小类！")
t_tit=goback(trim(request.Form("t_tit")),"请填写标题！")
t_con=goback(request.Form("t_con"),"请填写内容！")
t_show=request.Form("t_show")
zuozhe=request.Form("zuozhe")
soji=request.Form("soji")
set sa=server.CreateObject("adodb.recordset")
sa.open"select * from wzxx",conn,3,3
sa.addnew()
sa("mid1")=mid1
sa("mid2")=mid2
sa("t_tit")=t_tit
sa("t_con")=t_con
sa("t_show")=t_show
sa("zuozhe")=zuozhe
sa("soji")=soji
sa.update
sa.close
set sa=nothing
call alerturl("操作成功！","admin_wztxt.asp")
end if

if act="wzed" then
mid1=goback(trim(request.Form("type1")),"请选择大类！")
mid2=goback(trim(request.Form("type2")),"请选择小类！")
t_tit=goback(trim(request.Form("t_tit")),"请填写标题！")
t_con=goback(request.Form("t_con"),"请填写内容！")
t_show=request.Form("t_show")
id=request.Form("id")
zuozhe=request.Form("zuozhe")
soji=request.Form("soji")
set sa=server.CreateObject("adodb.recordset")
sa.open"select * from wzxx where t_id=" & id & "",conn,3,3
sa("mid1")=mid1
sa("mid2")=mid2
sa("t_tit")=t_tit
sa("t_con")=t_con
sa("t_show")=t_show
sa("zuozhe")=zuozhe
sa("soji")=soji
sa.update
sa.close
set sa=nothing
call alerturl("操作成功！","admin_wztxt.asp")
end if

if act="mzdel" then
id=request.QueryString("id")
conn.execute("delete from mzxx where mzid=" & id & "")
call alerturl("操作成功！","admin_mztxt.asp")
end if

if act="mzadd" then
mztit=goback(trim(request.Form("mztit")),"请填写标题!")
mzcon=goback(request.Form("mzcon"),"请填写内容!")
zuozhe=request.Form("zuozhe")
soji=request.Form("soji")
set sa=server.CreateObject("adodb.recordset")
sa.open"select * from mzxx",conn,3,3
sa.addnew()
sa("mztit")=mztit
sa("mzcon")=mzcon
sa("zuozhe")=zuozhe
sa("soji")=soji
sa.update
sa.close
set sa=nothing
call alerturl("操作成功！","admin_mztxt.asp")
end if

if act="mzed" then
mztit=goback(trim(request.Form("mztit")),"请填写标题!")
mzcon=goback(request.Form("mzcon"),"请填写内容!")
zuozhe=request.Form("zuozhe")
soji=request.Form("soji")
id=request.Form("id")
set sa=server.CreateObject("adodb.recordset")
sa.open"select * from mzxx where mzid=" & id & "",conn,3,3
sa("mztit")=mztit
sa("mzcon")=mzcon
sa("zuozhe")=zuozhe
sa("soji")=soji
sa.update
sa.close
set sa=nothing
call alerturl("操作成功！","admin_mztxt.asp")
end if

if act="zurltpadd" then
bn=goback(trim(request.form("z_nm")),"请填写分类名！")
set sa=server.CreateObject("adodb.recordset")
sa.open "select * from ztype",conn,3,3
sa.addnew()
sa("z_nm")=bn
sa.update
sa.close
set sa=nothing
call alerturl("操作成功！","admin_zurl.asp?l=type")
end if

if act="zurltpdel" then
bclassid=request.querystring("bclassid")
conn.Execute("delete from ztype where z_id = " & bclassid & "")
call alerturl("操作成功！","admin_zurl.asp?l=type")
end if

if act="zurldel" then
id=request.QueryString("id")
conn.execute("delete from zurl where u_id=" & id & "")
call alerturl("操作成功！","admin_zurl.asp")
end if

if act="zurladd" then
u_tp=goback(request.form("u_tp"),"选择分类!")
webname=request.form("webname")
webhttp=request.form("webhttp")
intro=request.Form("intro")
set sa=server.CreateObject("adodb.recordset")
sa.open"select * from zurl",conn,3,3
sa.addnew()
sa("u_nm")=webname
sa("u_tp")=u_tp
sa("u_http")=webhttp
sa("u_con")=intro
sa.update
sa.close
set sa=nothing
call alerturl("操作成功！","admin_zurl.asp?l=add")
end if

if act="zurltj" then
d=request.QueryString("d")
id=request.QueryString("id")
conn.execute("update zurl set u_tj=" & d & " where u_id=" & id & "")
call alerturl("操作成功！","admin_zurl.asp")
end if

if act="favuserdel" then
id=request.QueryString("id")
conn.execute("delete from favuserxx where yhid="&id&"")
conn.execute("delete from favxx where yhid="&id&"")
call alerturl("删除成功！","admin_favuser.asp")
end if


else
call alerturl("请用www.mis8.cn访问本站！","../index.asp")
end if
 %>