qf.asp

来自「支持IE 手机同步访问的WAP论坛社区程序 很不错」· ASP 代码 · 共 38 行

<!--#Include File="../Inc/Head.Asp"--><%
Private FangWen
Set FangWen=New xkon_FangWen
	FangWen.FangWen()
	FangWen.QunFa()
Set FangWen=Nothing
Private c,s
Set c=New xkon_Response
Set s=New xkon_Request
	Private Sub ShuRu()
		c.Write("<form method=""post"" action=""QF.Asp"">信息内容:<input type=""text"" name=""Word"" /><br/><input type=""submit"" value=""群发"" /></form>")
	End Sub
	Private Sub ChuLi()
		Dim Word
		Word=s.Form("Word")
		Call OpenData()
			Dim Cn1
			Set Cn1=Server.CreateObject("Adodb.Recordset")
			Cn1.Open "Select ZhangHao From ZhangHao Order By Id Desc",Conn,1,1
			Do While(Not Cn1.Eof)
				If Not Response.IsClientConnected Then Response.End()
				Call FaXin("xkon.cn",Cn1("ZhangHao"),0,Word)
				Cn1.MoveNext
			Loop
			Cn1.Close
			Set Cn1=Nothing
		Call CloseData()
		c.Writeln("群发成功")
	End Sub
	Call H_Title("群发信息")
	If Request.Form("Word")<>"" Then
		Call ChuLi()
	End If
	Call ShuRu()
	Call H_End()
Set c=Nothing
Set s=Nothing
%>