<!--#Include File="Connection.Asp"-->
 
<%
Dim JaBlog,JaDelSQL,Bid,Reid
Dim JaCheckIsLog,B
Dim JaUpSQL
Set JaBlog = new q_zone
B = JaBlog.JaKillStr(Request.QueryString("JaUid"))
Bid = JaBlog.JaKillStr(Request.QueryString("id"))
Reid = JaBlog.JaKillStr(Request.QueryString("reid"))
If B="" Then
B= "2"
End If
JaCheckIsLog = JaBlog.JaIsUser(B)
If JaCheckIsLog = "no" Or JaCheckIsLog = "IsRe" Then
Response.Write "<script language=javascript>alert('你没有权限观看该页面!');"
Response.Write "window.document.location.href='javascript:history.go(-1)';</script>"
Else
JaDelSQL = "id="&Reid&" "
JaBlog.JaDelete "JaReBlog",JaDelSQL

JaUpSQL = "JaId="&Bid&" "
JaBlog.JaVicBlog "JaRe=JaRe-1","JaBlogSet",JaUpSQL

Response.Write "<script language=javascript>alert('删除成功!');"
Response.Write "window.document.location.href='BlogShow.asp?JaUid="&SESSION("VicNum")&"&id="&Bid&"&reid="&Reid&"';</script>"
End if
Set JaBlog=Nothing
%>
