<!-- #INCLUDE FILE="common.asp" -->
<%
response.redirect selDest(typ, strQuery)
%>
common.asp
<%
function selDest(id, strQuery)
dim dateVal, lstType, destPage
select case id
case 0
destPage="event_today.asp"
case 1
destPage="event_day.asp"
case 2
destPage="event_week.asp"
case 3
destPage="event_month.asp"
case 4
destPage="event_year.asp"
end select
selDest=destPage&"?"&strQuery
end function
%>
这是我用过的东东。