yemian.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
Set c=New xkon_Response
Set s=New xkon_Request
	Private Sub Write_()
		Dim FSO,FS,FS1,FS2,F_Name
		Set FSO=Server.CreateObject("Scripting.FileSystemObject")
		Set FS=FSO.GetFolder(Server.Mappath("../Inc"))
		Set FS1=FS.Files
		For Each FS2 In FS1
			F_Name=FS2.Name
			If InStr(F_Name,"xkon.cn.Asp")>0 Then
				If F_Name<>"SZ.xkon.cn.Asp" Then
					c.Writeln("<a href=""Text.Asp?Text="&Replace(F_Name,".xkon.cn.Asp","")&""">"&Replace(F_Name,".xkon.cn","")&"</a>")
				End If
			End If
		Next
		Set FSO=Nothing
		Set FS=Nothing
		Set FS1=Nothing
		Set FS2=Nothing
	End Sub
	Call H_Title("页面设计")
	Call Write_()
	Call H_End()
Set C=Nothing
Set s=Nothing
%>