xiexiaoxi.asp

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

<!--#Include File="Inc/xkon.Asp"--><%
Call QuanXian("1",0)
Private c,s
Set c=New xkon_Response
Set s=New xkon_Request
	Private Sub ShuChu()
		Dim Z,D
		Z=s.QueryString("Z")
		If Z="" Then
			D="用户名:<input type=""text"" size=""10"" maxlength=""16"" name=""Z"" />"
		Else
			D="<input type=""hidden"" name=""Z"" value="""&Z&""" />"
		End If
		c.Write(xkon_FenXi(Replace(Read_Text("XieXiaoXi"),xkon_S("用户"),D)))
	End Sub
	Private Sub ChuLi()
		Dim Z,NeiRong
		Z=s.Form("Z")
		NeiRong=s.Form_Str("NeiRong",CLng(Read_SZ("XiaoXi_Length_d")),CLng(Read_SZ("XiaoXi_Length_c")))
		If NeiRong="" Then Call xkon_Error("内容不能为空")
		Dim Cn1,Cn2
		Call OpenData()
		Set Cn1=Server.CreateObject("Adodb.Command")
		Cn1.ActiveConnection=Conn
		Cn1.CommandType=1
		Cn1.CommandText="Select ID From ZhangHao Where ZhangHao='"&Z&"'"
		Set Cn2=Cn1.Execute
		If Cn2.Eof Then Call xkon_Error("该用户不存在")
		Set Cn1=Nothing
		Set Cn2=Nothing
		Call Jia_JingBi("+"&Clng(Read_SZ("JiFen_XiaoXi")),"+"&Clng(Read_SZ("JingYan_XiaoXi")))
		Call FaXin(Zi_ZhangHao,Z,0,NeiRong)
		Call CloseData()
		c.Write(xkon_FenXi(Read_Text("XieXiaoXi1")))
	End Sub
	Call H_Title("发送消息")
	Dim l
	l=s.QueryString("l")
	Select Case l
	Case ""
		Call ShuChu()
	Case Else
		Call ChuLi()
	End Select
	Call H_End()
Set c=Nothing
Set s=Nothing
%>