mis_do.asp

MisCMS源码

<!--#include file="config.Asp"-->
<% act=request("act")
call ChkPOst
if ChkPOst=true then

if act="pl" then
user=request.form("username")
pl=request.form("pl")
id=request("id")
title=request.Form("title")
set rs=server.CreateObject("adodb.recordset")
rs.open"select * from plxx",conn,3,3
rs.addnew()
   rs("plmen")=user
   rs("plcon")=pl
   rs("wzid")=id
  rs.update
  rs.close
  set rs=nothing
  call alerturl("发表评论成功!","read.asp?id=" & id & "&title=" & title & "")
end if

if act="book" then
author=request.form("author")
qq=request.form("qq")
content=request.form("content")
head=request.form("head")
g=request.form("httpp")
set rs=server.CreateObject("adodb.recordset")
rs.open"select * from guestxx",conn,3,3
   rs.addnew()
   rs("men")=author
   rs("qq")=qq
   rs("con")=content
   rs("img")=head
   rs("http")=g
   rs.update
 rs.close
 set rs=nothing
 call alerturl("发表留言成功!","book.asp")
end if

if act="link" then
linkname=goback(trim(request.form("linkname")),"链接名称不能为空!")
linkurl=goback(trim(request.form("linkurl")),"链接地址不能为空!")
linksm=request.form("linksm")
set rs=Server.CreateObject("Adodb.Recordset")
rs.open"select * from linkxx",conn,3,3
rs.addnew
rs("linkname")=linkname
rs("linkurl")=linkurl
rs("linkinfo")=linksm
rs.update
rs.close
set rs=nothing
call alerturl("申请成功，请等待管理员审核开通！","/")
end if

if act="wzadd" then
bclassid=request.form("BClassID")
sclassid=request.form("SClassID")
wz_title=request.Form("wz_title")
wz_content=request.Form("Content")
zuozhe=request.Form("zuozhe")
soji=request.Form("soji")

set rs=server.CreateObject("adodb.recordset")
rs.open"select * from wzxx",conn,3,3
 rs.addnew()
   rs("mid1")=bclassid
   rs("mid2")=sclassid
   rs("t_tit")=wz_title
   rs("t_con")=wz_content
   rs("zuozhe")=zuozhe
   rs("soji")=soji
  rs.update
  rs.close
  set rs=nothing
  call alerturl("添加文章成功!请等待管理员审核!","/")
end if

if act="urladd" then
u_tp=goback(trim(request.Form("sort")),"请选择分类！")
u_nm=goback(trim(request.Form("web")),"请填写站点名称!")
u_http=goback(trim(request.Form("url")),"请填写站点地址!")
u_con=request.Form("txtcontent")
set rs=server.CreateObject("adodb.recordset")
rs.open"select * from zurl",conn,3,3
rs.addnew()
rs("u_tp")=u_tp
rs("u_nm")=u_nm
rs("u_http")=u_http
rs("u_con")=u_con
rs.update
rs.close
set rs=nothing
call alerturl("添加成功!","/")
end if


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