b;huifu.asp

支持IE 手机同步访问的WAP论坛社区程序

<!--#Include File="Inc/xkon.Asp"--><%
Private c,s
Set c=New xkon_Response
Set s=New xkon_Request
	Dim ID,TID,P,TP,HP,i
	ID=s.QueryString_Long("ID")
	TID=s.QueryString_Long("TID")
	P=s.QueryString_Long("p")
	TP=s.QueryString_Long("TP")
	HP=s.QueryString_Long("HP")
	Call BanKuai_Du(ID)
	Private Function HuiFu_LieBiao()
		Dim HuiFu_LieBiao_Cn1,Count_
		Call OpenData()
			Set HuiFu_LieBiao_Cn1=Server.CreateObject("Adodb.RecordSet")
			HuiFu_LieBiao_Cn1.Open "Select * From HuiFu Where TieZhi="&TID&" Order By ID Desc",Conn,1,1
			HuiFu_LieBiao_Cn1.PageSize=Const_Page_Ys
			If HuiFu_LieBiao_Cn1.Eof Then HuiFu_LieBiao_Cn1.Close:Set HuiFu_LieBiao_Cn1=Nothing:Call CloseData():Exit Function
			HuiFu_LieBiao_Cn1.AbsolutePage=p
			Count_=HuiFu_LieBiao_Cn1.RecordCount
			For i=1 To Const_Page_Ys
				If HuiFu_LieBiao_Cn1.Eof Then Exit For
				HuiFu_LieBiao=HuiFu_LieBiao&(Count_-(p-1)*Const_Page_Ys)-i+1&"."
				If HuiFu_LieBiao_Cn1("MiMing")="1" Then
					HuiFu_LieBiao=HuiFu_LieBiao&HuiFu_LieBiao_Cn1("IP")&":"
				Else
					HuiFu_LieBiao=HuiFu_LieBiao&"<a href=""ZiLiao.Asp?ZhangHao="&HuiFu_LieBiao_Cn1("ZhangHao")&"{(xkon.cn)链接}"">"&HuiFu_LieBiao_Cn1("NiChen")&"</a>:"
				End If
				HuiFu_LieBiao=HuiFu_LieBiao&HuiFu_LieBiao_Cn1("NeiRong")&"<br/>"
				HuiFu_LieBiao_Cn1.MoveNext
			Next
			HuiFu_LieBiao=HuiFu_LieBiao&CPage(HuiFu_LieBiao_Cn1.PageCount,p,"B;HuiFu.Asp?ID="&ID&"&amp;TID="&TID&"&amp;TP="&TP&"&amp;HP="&HP&"{(xkon.cn)链接}&amp;")
			HuiFu_LieBiao_Cn1.Close
			Set HuiFu_LieBiao_Cn1=Nothing
		Call CloseData()
	End Function
	Private Sub HuiFu_C()
		If DuQu_BanKuai(ID,"FangWen_HuiFu")="0" Then Call xkon_Error("禁止发表回复")
		Dim HuiFu_C_Cn1,HuiFu_C_Cn2,NeiRong,NiChen,J_ID,MiMing,HuiFu_C_Qian,HuiFu_C_HuiFu
		NeiRong=s.QueryString_Form("NeiRong")
		If NeiRong="" Then Call xkon_Error("内容不能为空")
		MiMing="0"
		If Zi_ZhangHao="" Then
			MiMing="1"
		End If
		Call OpenData()
			Set HuiFu_C_Cn1=Server.CreateObject("Adodb.Command")
			HuiFu_C_Cn1.ActiveConnection=Conn
			HuiFu_C_Cn1.CommandType=1
			HuiFu_C_Cn1.CommandText="Select ID From HuiFu Order By ID Desc"
			Set HuiFu_C_Cn2=HuiFu_C_Cn1.Execute
			If HuiFu_C_Cn2.Eof Then
				J_ID=1
			Else
				J_ID=HuiFu_C_Cn2("ID")+1
			End If
			Set HuiFu_C_Cn1=Nothing
			Set HuiFu_C_Cn2=Nothing
			Set HuiFu_C_Cn1=Server.CreateObject("Adodb.Command")
			HuiFu_C_Cn1.ActiveConnection=Conn
			HuiFu_C_Cn1.CommandType=1
			HuiFu_C_Cn1.CommandText="Select Qian,HuiFu From TieZhi Where ID="&TID
			Set HuiFu_C_Cn2=HuiFu_C_Cn1.Execute
			If HuiFu_C_Cn2.Eof Then Call xkon_Error("发生意外错误")
			HuiFu_C_Qian=HuiFu_C_Cn2("Qian")
			HuiFu_C_HuiFu=HuiFu_C_Cn2("HuiFu")
			Set HuiFu_C_Cn2=Nothing
			Set HuiFu_C_Cn1=Nothing
			If HuiFu_C_HuiFu>=CLng(Read_SZ("Re_HuiFu")) Then
				If InStr(HuiFu_C_Qian,"[热]")<=0 Then
					Conn.Execute("Update TieZhi Set Qian='"&HuiFu_C_Qian&"[热]' Where ID="&TID)
				End If
			End If
			If InStr(HuiFu_C_Qian,"[锁]")>0 Then Call xkon_Error("锁定贴无法回复")
			Conn.Execute("Insert Into HuiFu(ID,ZhangHao,NiChen,IP,TieZhi,NeiRong,ShiJian,MiMing,BanKuai)Values('"&J_ID&"','"&Zi_ZhangHao&"','"&Zi_NiChen&"','"&ReadUSIP()&"','"&TID&"','"&NeiRong&"','"&Now()&"','"&MiMing&"','"&ID&"')")
			Call Jia_JingBi("+"&CLng(Read_SZ("JiFen_HuiTie")),"+"&CLng(Read_SZ("JingYan_HuiTie")))
		        Conn.Execute("Update TieZhi Set ZuiHouHuiFu='"&Now()&"' Where ID="&TID)
			Conn.Execute("Update TieZhi Set HuiFu=HuiFu+1 Where ID="&TID)
			Conn.Execute("Update BanKuai Set ShuLiang_HuiFu=ShuLiang_HuiFu+1 Where ID="&ID)
		Call CloseData()
	End Sub
	Private Function TieZhi_U(TieZhi_U_Str)
		TieZhi_U=TieZhi_U_Str
		TieZhi_U=Replace(TieZhi_U,xkon_S("编号"),ID)
		TieZhi_U=Replace(TieZhi_U,xkon_S("贴子链接"),"ID="&ID&"&amp;TID="&TID&"&amp;p="&Hp&"&amp;l=&amp;Tp="&TP&"{(xkon.cn)链接}")
		TieZhi_U=Replace(TieZhi_U,xkon_S("返回"),"<a href=""B;LieBiao.Asp?ID="&ID&"&amp;p="&TP&"&amp;l={(xkon.cn)链接}"">返回"&DuQu_BanKuai(ID,"BanKuai_MingChen")&"</a>")
		TieZhi_U=Replace(TieZhi_U,xkon_S("版块名称"),DuQu_BanKuai(ID,"BanKuai_MingChen"))
	End Function
	Call H_Title("贴子回复")
	If s.QueryString_Form("NeiRong")<>"" Then Call HuiFu_C()
	c.Write(xkon_FenXi(TieZhi_U(Replace(Read_Text("B;HuiFu"),xkon_S("回复列表"),HuiFu_LieBiao()))))
	Call H_End()
Set c=Nothing
Set s=Nothing
%>