sysbookdelsave.asp

asp源码 图片ASP整站

<!--#include file="../../../Inc/Const.asp" -->
<!--#include file="../../../Inc/Cls_DB.asp" -->
<!--#include file="../../../Inc/Function.asp" -->
<!--#include file="../../../Inc/Cls_User.asp" -->
<!--#include file="../../../Inc/Cls_cache.asp" -->
<%
'==============================================================================
'软件名称：FoosunShop System Form FoosunCMS
'当前版本：Foosun Content Manager System 3.0 系列
'最新更新：2004.12
'==============================================================================
'商业注册联系：028-85098980-601,602 技术支持：028-85098980-605、607,客户支持：608
'产品咨询QQ：159410,394226379,125114015,655071
'技术支持:所有程序使用问题，请提问到bbs.foosun.net我们将及时回答您
'程序开发：风讯开发组 & 风讯插件开发组
'论坛支持：风讯在线论坛(http://bbs.foosun.net)
'官方网站：www.Foosun.net  演示站点：test.cooin.com    
'网站建设专区：www.cooin.com
'==============================================================================
'免费版本请在新闻首页保留版权信息，并做上本站LOGO友情连接
'==============================================================================
Dim DBC,Conn,UserConn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
DBC.ConnStr = "DBQ=" + Server.MapPath(UserDBConnectStr) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set UserConn = DBC.OpenConnection()
Set DBC = Nothing
Dim Fs_User,Fs_ConfigCache
Set Fs_User = New Cls_User
Set Fs_ConfigCache = New cls_FsCache
Fs_ConfigCache.Name="ConfigCache"
%>
<!--#include file="../../../Inc/Session.asp" -->
<!--#include file="../../../Inc/CheckPopedom.asp" -->
<%
if Not JudgePopedomTF(Session("Name"),"P070704") then Call ReturnError1()
If request("Action")="Del" Then
	If trim(Request("GID"))<>"" Then
		Dim BookStr,ParaArray,i,NumStr,NumParaArray
		BookStr = Request("GID")
		  if Right(BookStr,1)="," then
			BookStr = Left(BookStr,Len(BookStr)-1)
		  end if
		  if Left(BookStr,1)="," then
			BookStr = Right(BookStr,Len(BookStr)-1)
		  end if
		  ParaArray = Split(BookStr,",")
		For i = LBound(ParaArray) to UBound(ParaArray)
			Dim GBListObj
			Set GBListObj = UserConn.execute("Select ID,UserID From FS_GBook where id="&Clng(ParaArray(i)))
			Call Fs_User.update("point","Point-"&Fs_User.getUserConfig(8),GBListObj("UserID"))
			UserConn.execute("Delete From FS_GBook Where id="&Clng(ParaArray(i)))
		Next
		Response.Write("<script>alert(""删除成功！"&CopyRight&""");location=""Sysbook.asp"";</script>")  
		Response.End
		'扣除积分
	Else
		Response.Write("<script>alert(""请选择删除的帖子！"&CopyRight&""");location=""Sysbook.asp"";</script>")  
		Response.End
	End if
End If
%>