setcache.asp

xml缓存类试用版用于ASP

<!--#include file="inc/const.asp"-->
<%
openconn
Dim action 
action = Trim(Request("action"))&""

Dim curpage
curpage = Request("curpage")

Dim classid
Dim keyword
Dim thmid
If action = "list" Then
	classid = Request("classid")
	If classid="" Or (Not IsNumeric(classid)) Or curpage="" Or (Not IsNumeric(curpage)) Then
	Else
		CreateListxml CLng(classid),CLng(curpage),20,10,60 * 60 * 2  '创建分类列表的xml
	End If 
ElseIf action = "search" Then
	keyword = Trim(Request("keyword"))
	If keyword=""  Then
	Else
		CreateSearchxml keyword,CLng(curpage),20,10,60 * 60 * 2  '创建搜索列表的xml
	End If 
ElseIf action = "detail" Then
	thmid = Request("id")
	If thmid="" Or (Not IsNumeric(thmid))  Then
	Else
		CreateDetailxml CLng(thmid),60 * 60 * 2  '创建详情信息的xml
	End If 
End If 
Call Closeconn
Response.write " "
Response.End 

%>