my.asp

来自「一个asp写的论坛源代码,论坛所需要的功能都有」· ASP 代码 · 共 31 行

<!-- #include file="conn.asp" -->
<!-- #include file="INC/Const.asp" -->
<%
Dim tID,fID,x1,x2
tID = HRF(2,2,"tid")
fID = HRF(2,2,"fid")
team.Headers(Team.Club_Class(1) & "- 我的收藏夹")

Select Case HRF(2,1,"action")
	Case "getnews"
		Call getnews
	Case "upnews"
		Call upnews
	Case Else
		Call Main()
End Select

Sub Main()

	Echo "开发中.."
End Sub

Sub getnews
	Echo "开发中.."


End Sub

team.footer
%>