<!--#Include File="Connection.Asp"-->
 
<%
Dim JaBlog,JaDelSQL,Bid
Dim JaCheckIsLog,B
Set JaBlog = new q_zone
B = JaBlog.JaKillStr(Request.QueryString("JaUid"))
Bid = JaBlog.JaKillStr(Request.QueryString("id"))
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="&Bid&" "
JaBlog.JaDelete "JaMsg",JaDelSQL
Response.Write "<script language=javascript>alert('删除成功!');"
Response.Write "window.document.location.href='Message.asp?JaUid="&B&"';</script>"
End if
Set JaBlog=Nothing
%>
