<!--#Include File="Connection.Asp"-->
 
<%
Dim JaZ,C,flyN,B,cur
Set JaZ = new q_zone
B = JaZ.JaKillStr(Request.QueryString("JaUid"))
If B="" Then
B= "2"
End If
C=Split(JaZ.GetHeadElement("*",B,"JaFaceSet",""),"<><><>")
flyN = split(Trim(C(2)),"|")
If Cint(Trim(C(1)))<>0 Then
cur = "CURSOR:url('cur/"&C(1)&".ani');"
Else
cur = ""
End If 
%>

<%
Dim Jacontent,Jahassign
Dim JaBlog,JaInSQL
Dim Bid,JaUser,JaUSQL
Dim JaCheckIsLog
Dim JaUpSQL
Bid = JaZ.JaKillStr(Request.QueryString("id"))
Set JaBlog = new q_zone
Jacontent = JaBlog.JaKillStr(Trim(Request.Form("content")))

Jahassign = Trim(Request.Form("hassign"))
If Jahassign="yes" Then
Jahassign=1
Else
Jahassign=0
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
JaUSQL = "Where JaUid='"&SESSION("VicNum")&"' "
JaUser = JaBlog.GetCount("JaUname","JaUser",JaUSQL)
JaInSQL = "(Jaid,JaReUser,JaReNum,JaReMsg,JaSign) Values("&Bid&",'"&JaUser&"','"&SESSION("VicNum")&"','"&Jacontent&"',"&Jahassign&")"
JaBlog.JaInsert "JaReBlog",JaInSQL

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="&B&"&id="&Bid&"';</script>"
End if
Set JaBlog=Nothing
%>
