BBsDel.asp
Upload User: jisenq
Upload Date: 2014-06-29
Package Size: 7216k
Code Size: 1k
Category:

ADO-ODBC

Development Platform:

ASP/ASPX

  1. <% Option Explicit %>
  2. <!--#include file="../FS_Inc/Const.asp"-->
  3. <!--#include file="../FS_InterFace/MF_Function.asp" -->
  4. <!--#include file="../FS_Inc/Function.asp" -->
  5. <%
  6. response.buffer=true
  7. Response.CacheControl = "no-cache"
  8. MF_Default_Conn
  9. Dim Conn,User_Conn
  10. Dim Configobj,PageS,sql,MSTitle,ShowIP
  11. Set Configobj=server.CreateObject (G_FS_RS)
  12. sql="select ID,Title,IPShow,IsUser,IsAut,PageSize,Style From FS_WS_Config"
  13. configobj.open sql,Conn,1,1
  14. if not configobj.eof then
  15. PageS=configobj("PageSize")
  16. MSTitle=configobj("Title")
  17. ShowIP=configobj("IPShow")
  18. end if
  19. set configobj=nothing
  20. Dim BBsID,NoteID,ClassName,ClassID,Pag,NoteTilte,ShowRs,url
  21. if NoSqlHack(Request.querystring("Act"))="SinglDel" then
  22. NoteTilte=NoSqlHack(Request.QueryString("NoteTilte"))
  23. BBsID=NoSqlHack(Request.QueryString("BBSID"))
  24. NoteID=NoSqlHack(Request.QueryString("NoteID"))
  25. ClassName=NoSqlHack(Request.QueryString("ClassName"))
  26. ClassID=NoSqlHack(Request.QueryString("ClassID"))
  27. Pag=NoSqlHack(Request.QueryString("Page"))
  28. Set ShowRs=Conn.execute("Delete  From FS_WS_BBS Where ID="&BBSID&" and User='"&session("FS_UserName")&"'")
  29. Conn.execute("Delete  From FS_WS_BBS Where ParentID='"&BBSID&"' and User='"&session("FS_UserName")&"'")
  30. url="ShowNote.asp?ClassName="&ClassName&"&NoteID="&NoteID&"&ClassID="&ClassID&"&Page="&Pag&""
  31. Response.write("<script>location.href='"&url&"'</script>")
  32. Response.end
  33. end if
  34. Set Conn=nothing
  35. %>