bbs_do.asp

客户管理系统使用ASP.NET和Access

<!--#include file="islogin.asp"-->
<!--#include file="conn.asp"-->
<%
SELECT CASE REQUEST("action")
'修改开始---------------------------------------------------------------------------------
CASE "mod"
fileid=request("ID")
memberID=request("memberID")
member=request("member")
title=request("title")
content=request("content")
up=request("up")
hits=request("hits")
if title="" and content="" then
response.write "<script>history.go(-1)</script>"
else
set rs=server.createobject("adodb.recordset")
sql="select * from BBS where id="+fileid
rs.open sql,conn,1,3
rs("MemberID")=MemberID
rs("Member")=Member
rs("title")=title
rs("content")=content
rs("hits")=hits
rs("up")=up
rs.update
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
response.redirect "BBS.asp"
'修改结束--------------------------------------------------------------------------------

'删除开始--------------------------------------------------------------------------------
CASE "del"
articleid=request("id")
page_id=request("page_id")
conn.execute("delete from BBS where id="&articleid&"")
conn.execute("delete from BBSre where ReID="&articleid&"")'贴子删除以后，相应的评论也删除了
conn.close
set conn=nothing
'重定向返回
 response.Write("<script>opener.location.reload()</script>")
 response.Write("<script>javascript:window.close()</script>")
'删除结束--------------------------------------------------------------------------------
'删除开始--------------------------------------------------------------------------------
CASE "delre"
articleid=request("id")
conn.execute("delete from BBSre where ReID="&articleid&"")'贴子删除以后，相应的评论也删除了
conn.close
set conn=nothing
'重定向返回
 response.Write("<script>alert('该贴子评论已经删除');</script>")
 response.Write("<script>javascript:window.close()</script>")
'删除结束--------------------------------------------------------------------------------

END SELECT
%>