cmd.asp

来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 26 行

<!--#include  file="inc/Class_UserCommand.asp"-->
<%
Dim UserId,Action,strReturn,classid
UserId=Request.QueryString("uid")
Action=LCase(Request.QueryString("do"))
if (action="index" or action="message") and request("page")="1" then '判断首页
	response.Write("window.location='"&action&"."&f_ext&"'")
	response.End()
end if
Select Case  Action
	Case "index","blogs","photos","month","day","message", "comment", "tag_blogs", "tag_photos", "tags", "show","album","info"
		Dim objUC
		Set objUC=New Class_UserCommand
		objUC.UserId=UserId
		strReturn=objUC.Process
		'Response.Write strReturn & VbCrlf
		Response.Write strReturn
		strReturn=objUC.CreateCalendar
		Response.Write strReturn & VbCrlf
		Set objUC=Nothing
		Set oBlog=Nothing
	Case Else
		'Response.Write "错误的参数"
		Response.End
End Select
%>