lt_tiezhi_caozuo.asp

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

<!--#Include File="../Inc/Head.Asp"--><%
Private FangWen
Set FangWen=New xkon_FangWen
	FangWen.FangWen()
	FangWen.TieZhi()
Set FangWen=Nothing
Private c,s
Set c=New xkon_Response
Set s=New xkon_Request
	Private ID
	ID=s.QueryString("ID")
	Private Sub x()
		Dim Cn1,Cn2,MingChen,NiChen,HuiYuan,ShiJian,ZuiHouHuiFu,Qian,BanKuai,DianJi,HuiFu,IP,TongZhi,MiMing,JingBi
		Call OpenData()
		Set Cn1=Server.CreateObject("Adodb.Command")
		Cn1.ActiveConnection=Conn
		Cn1.CommandType=1
		Cn1.CommandText="Select * From TieZhi Where ID="&Clng(ID)
		Set Cn2=Cn1.Execute
		If Cn2.Eof Then
			Call xkon_Error("该内容不存在")
		Else
			MingChen=Cn2("MingChen")
			NiChen=Cn2("NiChen")
			HuiYuan=Cn2("HuiYuan")
			ShiJian=Cn2("ShiJian")
			ZuiHouHuiFu=Cn2("ZuiHouHuiFu")
			Qian=Cn2("Qian")
			BanKuai=Cn2("BanKuai")
			DianJi=Cn2("DianJi")
			HuiFu=Cn2("HuiFu")
			IP=Cn2("IP")
			TongZhi=Cn2("TongZhi")
			MiMing=Cn2("MiMing")
		End If
		Set Cn2=Nothing
		Set Cn1=Nothing
		Call CloseData()
		c.Writeln("贴子ID:"&ID)
		c.Writeln("贴子名称:"&MingChen)
		c.Writeln("发贴人:"&NiChen)
		c.Writeln("发贴人用户名:"&HuiYuan)
		c.Writeln("发表时间:"&ShiJian)
		c.Writeln("最后回复时间"&ZuiHouHuiFu)
		c.Writeln("状态:"&Qian)
		c.Writeln("贴子所属版块:"&BanKuai)
		c.Writeln("贴子点击:"&DianJi)
		c.Writeln("贴子回复:"&HuiFu)
		c.Writeln("发贴人IP:"&IP)
		c.Writeln("回贴通知:"&Zhuan(TongZhi))
		c.Writeln("是否匿名:"&Zhuan(MiMing))
	End Sub
	Call H_Title("贴子管理")
	Call x()
	c.Write("<a href=""LT_TieZhi.Asp"">返回贴子管理</a>")
	Call H_End()
Set c=Nothing
Set s=Nothing
%>