<%
Dim Keyword,GoCity
Keyword = FilterQuot(Request("keyword"))
GoCity = FilterQuot(Request("gocity"))
If GoCity = "" Then
GoCity=0
End If
%>
<%
Function showpages(totalnumber,maxperpage,filename)
Dim n
If totalnumber Mod maxperpage=0 Then
n= totalnumber \ maxperpage
Else
n= totalnumber \ maxperpage+1
End If
Response.Write ""
End Function
%>
奥运频道- 福建康辉旅游网
