action.asp

来自「用ASP写的一个论坛的程序 数据库是ACCESS 很简单」· ASP 代码 · 共 84 行

<!-- #include file="conn.asp" -->


<%
ac=request.QueryString("ac")
id=request.QueryString("id")
n=request.QueryString("n")
if ac="" then
ac=request.Form("dtac")
  if strcomp(ac,"删除")=0 then
  ac="del"
  end if
  if strcomp(ac,"置顶")=0 then
  ac="zd"
  n=0
  end if
  if strcomp(ac,"精华")=0 then
  ac="jh"
  n=0
  end if
  if strcomp(ac,"去精")=0 then
  ac="jh"
  n=1
  end if
end if
if id="" then
id=request.Form("dtid")
end if
	if strcomp(ac,"tc")=0 then
			session("username")=""
			session("ql")=""
			response.Redirect(request.servervariables("HTTP_REFERER"))
	end if
	if strcomp(ac,"del")=0 then
		sj="msg"
		set rs=server.createobject("adodb.recordset")
		sql="delete * from "&sj&" where id="&id&""
		rs.open sql,conn,1,3
		response.Write("完成删除")
		
		sj="reply"
		set rs=server.createobject("adodb.recordset")
		sql="delete * from "&sj&" where id="&id&""
		rs.open sql,conn,1,3
		response.Write("完成删除")
		set rs=nothing
		response.Redirect(request.servervariables("HTTP_REFERER"))
	end if
	if strcomp(ac,"zd")=0 then
	set rs=server.createobject("adodb.recordset")
		sql="select id,ding from msg where id="&cint(id)&""
		rs.open sql,conn,1,3
		if rs.eof=false then
		    if n=0 then
			rs("ding")=true
			end if
		    if n=1 then
			rs("ding")=false
			end if
			rs.update
		end if
		rs.close
		set rs=nothing
		response.Redirect(request.servervariables("HTTP_REFERER"))
	end if

	if strcomp(ac,"jh")=0 then
	set rs=server.createobject("adodb.recordset")
		sql="select id,jh from msg where id="&cint(id)&""
		rs.open sql,conn,1,3
		if rs.eof=false then
		    if n=0 then
			rs("jh")=true
			end if
			if n=1 then
			rs("jh")=false
			end if
			rs.update
		end if
		rs.close
		set rs=nothing
		response.Redirect(request.servervariables("HTTP_REFERER"))
	end if
%>