<!--#Include File="Connection.Asp"-->
 
<%
Dim Jahassign,Jacontent
Dim JaBlog,JaUpSQL
Dim JaCheckIsLog,B

Set JaBlog = new q_zone
Jahassign = Trim(Request.Form("hassign"))
If Jahassign="yes" Then
Jahassign = 1
Else
Jahassign = 0
End if
Jacontent = JaBlog.JaKillStr(Trim(Request.Form("content")))
B = JaBlog.JaKillStr(Request.QueryString("JaUid"))
If B="" Then
B= "2"
End If

JaCheckIsLog = JaBlog.JaIsRegUser(B)
If JaCheckIsLog = "no" Then
Response.Write "<script language=javascript>alert('请登录以后再评论!');"
Response.Write "window.document.location.href='javascript:history.go(-1)';</script>"
Else
JaUpSQL = "(JaUid,JaMsg,JaReId,IsPub,JaSign) Values('"&B&"','"&Jacontent&"','"&SESSION("VicNum")&"',0,"&Jahassign&")"
JaBlog.JaInsert "JaMsg",JaUpSQL
Response.Write "<script language=javascript>alert('添加成功!');"
Response.Write "window.document.location.href='Message.asp?JaUid="&B&"';</script>"
End if
Set JaBlog=Nothing
%>
