sz_diaocha.asp

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

<!--#Include File="../Inc/Head.Asp"--><%
Private FangWen
Set FangWen=New xkon_FangWen
	FangWen.FangWen()
	FangWen.DiaoCha()
Set FangWen=Nothing
Private c,s
Set c=New xkon_Response
Set s=New xkon_Request
	Private Sub ShuRu()
		Dim DiaoCha
		Dim FSO,FS
		Set FSO=Server.CreateObject("Scripting.FileSystemObject")
		Set FS=FSO.OpenTextFile(Server.Mappath("SZ_DiaoCha.xkon.cn"))
		DiaoCha=Split(FS.ReadAll(),"&xkon.cn&")
		FS.Close
		Set FS=Nothing
		Set FSO=Nothing
		c.Write("<form method=""post"" action=""SZ_DiaoCha.Asp"">调查:<input type=""text"" name=""DiaoCha"" value="""&DiaoCha(0)&""" /><br/>选项:<input type=""text"" name=""XuanXiang"" value="""&DiaoCha(1)&""" /><br/><input type=""submit"" value=""提交"" /></form>")
	End Sub
	Private Sub ChuLi()
		Dim DiaoCha,XuanXiang
		DiaoCha=s.Form("DiaoCha")
		XuanXiang=Request.Form("XuanXiang")
		If DiaoCha="" Or XuanXiang="" Then
			Call xkon_Error("调查和选择不能为空")
		Else
			Dim FSO,FS
			Set FSO=Server.CreateObject("Scripting.FileSystemObject")
			Set FS=FSO.OpenTextFile(Server.Mappath("SZ_DiaoCha.xkon.cn"),2,True)
			FS.Write(DiaoCha&"&xkon.cn&"&XuanXiang)
			FS.Close
			Set FS=Nothing
			Set FSO=Nothing
			Call JiLu("设置调查")
			c.Writeln("设置成功")
		End If
	End Sub
	Call H_Title("设置调查")
	If s.Form("DiaoCha")<>"" Then
		Call ChuLi()
	End If
	Call ShuRu()
	Call H_End()
Set c=Nothing
Set s=Nothing
%>