del_banner.asp

是一个关于小学信息化教育的平台,提供了学校论坛,和聊天室功能!

<!--#include file="../../include/db.asp"-->
<!--#include file="../../include/admin_check.asp"-->
<!--#include file="power.asp"-->
<%
Dim InsertSql,imagespath
imagepath ="/images/banner/"
Id = request("id")
Set conn = OpenOrGet_Database("sql_conn")
act = request("act")
'删除banner条

If act = "del" and Split(Request.ServerVariables("HTTP_REFERER"),"/")(UBound(Split(Request.ServerVariables("HTTP_REFERER"),"/"))) = "Show_banner.asp" Then
Id = request("id")
Deletebanner
response.end
End If

'使用banner条
If act = "use" and Split(Request.ServerVariables("HTTP_REFERER"),"/")(UBound(Split(Request.ServerVariables("HTTP_REFERER"),"/"))) = "Show_banner.asp" Then
act = 1
act2 = 0
StartBanner
End If

Sub Deletebanner()
	SelectSql = "select * from banner where id = '" & id &"'"
	Set Rs = Open_Rs(conn,SelectSql)
	If Rs.Eof Then
	Call goback("该Banner条不存在","")
	End If

	If Rs("ban_src") = "" or isnull(rs("ban_src")) or other = "errimg" Then
	Conn.Execute "Delete from banner where id = '" & id & "'"
	call Goback("Banner条已删除！","window.location='edit_link.asp'")
	Response.end
	Else
	TempName = split(Rs("ban_src"),"/")
	ImgName = TempName(UBound(TempName))
	source = Server.MapPath("/images/banner/"&ImgName)
	Set Fs = Server.CreateObject("Scripting.FileSystemObject")
			IF not Fs.FileExists(source) Then
			Call Goback("","if(confirm('要删除的Banner条已不存在！\n\n[确定] 删除此链接， [取消] 返回')){window.location='del_banner.asp?act=del&other=errimg&id="&id&"'}else{window.history.back();}")
			Conn.Execute "Delete from banner where id = '" & id & "'"
			call Goback("Banner条已删除！","window.location='Show_banner.asp'")
			End If
	Fs.DeleteFile source,True
	Set Fs = Nothing
	Conn.Execute "Delete from banner where id = '" & id & "'"
	call Goback("Banner条已删除！","window.location='Show_banner.asp'")
	End If
End Sub

Sub StartBanner()
	Conn.Execute "update banner set ban_use = " & act2
	Conn.Execute "update banner set ban_use = " & act & " where id = '" & id & "'"
	Call goback("Banner条已更换！","window.location='Show_banner.asp'")
End Sub
function Deal(initstring)
	tempstring=replace(initstring,chr(39),"’")
	tempstring=Replace(tempstring,"<","&lt;")
	tempstring=Replace(tempstring,">","&gt;")
	tempstring=replace(tempstring,chr(34),"“")
	tempstring=replace(tempstring,chr(32),"&nbsp;")	
	deal=(tempstring)
end function

function Dealname(mystring)
    arrName=split(Cstr(mystring),chr(34))
Dealname=arrName(1)
end function
%>