kuaijie.asp

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

<!--#Include File="../Inc/Head.Asp"--><%
Private FangWen
Set FangWen=New xkon_FangWen
	FangWen.FangWen()
	FangWen.A()
Set FangWen=Nothing
Private c,s,NeiRong
Set c=New xkon_Response
Set s=New xkon_Request
	NeiRong=ReadTextFile("KuaiJie",";")
	Private Sub LieBiao()
		Dim KuaiJie,MingChen,i
		KuaiJie=Split(NeiRong,"&xkon.cn&")
		If UBound(KuaiJie)>0 Then
			c.Write("<table width=100% ><tr><td>ID</td><td>名称</td><td>地址</td><td></td></tr>")
			For i=1 To UBound(KuaiJie)
				MingChen=Split(KuaiJie(i),";xkon.cn;")
				c.Write("<tr><td>"&i&"</td><td>"&MingChen(0)&"</td><td>"&MingChen(1)&"</td><td><a href=""KuaiJie.Asp?l=s&amp;Str="&Server.UrlEncode(MingChen(0)&";xkon.cn;"&MingChen(1))&""">删除</a></td></tr>")
			Next
			c.Write("</table>")
		Else
			c.Writeln("还没有快捷设置")
		End If
	End Sub
	Private Sub J()
		c.Write("<form method=""post"" action=""KuaiJie.Asp?l=j2"">")
		c.Writeln("名称:<input type=""text"" name=""MingChen"" />")
		c.Writeln("地址:<input type=""text"" name=""DiZhi"" />")
		c.Write("<input type=""submit"" value=""增加"" />")
		c.Write("</form>")
	End Sub
	Private Sub j2()
		Dim MingChen,DiZhi
		MingChen=s.Form("MingChen")
		DiZhi=s.Form("DiZhi")
		If MingChen="" Or DiZhi="" Then
			Call xkon_Error("名称和地址不能为空")
		Else
			Dim FSO,FS
			Set FSO=Server.CreateObject("Scripting.FileSystemObject")
			Set FS=FSO.OpenTextFile(Server.Mappath("../File/;/KuaiJie.txt"),8,True)
			FS.Write("&xkon.cn&"&MingChen&";xkon.cn;"&DiZhi)
			FS.Close
			Set FS=Nothing
			Set FSO=Nothing
			c.Writeln("增加成功")
		End If
	End Sub
	Private Sub Delete()
		Dim Str
		Str=s.QueryString("Str")
		NeiRong=Replace(NeiRong,"&xkon.cn&"&Str,"")
		Dim FSO,FS
		Set FSO=Server.CreateObject("Scripting.FileSystemObject")
		Set FS=FSO.OpenTextFile(Server.Mappath("../File/;/KuaiJie.txt"),2,True)
		FS.Write(NeiRong)
		FS.Close
		Set FS=Nothing
		Set FSO=Nothing
	Response.Write("<script language=javascript>location.href=""KuaiJie.Asp"";</script>")
	Response.End()
	End Sub
	Call H_Title("快捷设置")
	Dim l
	l=s.QueryString("l")
	Select Case l
	Case "j2"
		Call j2()
	Case "s"
		Call Delete()
	End Select
	Call LieBiao()
	Call j()
	Call H_End()
Set c=Nothing
Set s=Nothing
%>