<!--#Include File="Connection.Asp"-->
 
<%
Dim JaId,Jatitle,Jatype,Jahassign,Jacontent
Dim JaBlog,JaUpSQL,JaUpWhere
Dim JaCheckIsLog,B
Set JaBlog = new q_zone
JaId = Trim(Request.Form("Blogid"))
Jatitle = JaBlog.JaKillStr(Request.Form("title"))
Jatype = JaBlog.JaKillStr(Trim(Request.Form("type")))
Jahassign = Trim(Request.Form("hassign"))
Jacontent = JaBlog.JaKillStr(Trim(Request.Form("content")))
B = JaBlog.JaKillStr(Request.QueryString("JaUid"))
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
JaUpSQL = "JaTitle='"&Jatitle&"',JaMsg='"&Jacontent&"',JaSort='"&Jatype&"' "
JaUpWhere = "JaId="&JaId&" "
JaBlog.JaVicBlog JaUpSQL,"JaBlogSet",JaUpWhere
Response.Write "<script language=javascript>alert('修改成功!');"
Response.Write "window.document.location.href='Blog.asp?JaUid="&SESSION("VicNum")&"';</script>"
End if
Set JaBlog=Nothing
%>
