<!--#include file=Config.asp-->
<!--#include file=Function.asp-->
<!--#include file=Cache.asp-->
<!--#include file=TopMain.asp-->
<%
Page = Request.QueryString("Page")
ClassID = Request.QueryString("ClassID")
	If Page="" Then Page=1
	If ClassID<>"" Then
		HttpUrl="http://www.ep8.net/List.asp?Page="&Page&"&ClassID=" & ClassID
	Else
		HttpUrl="http://www.ep8.net/List.asp?Page=" & Page
	End if
	set myCache=new cache
	myCache.name="EP8_UList_"&Page
	If myCache.valid then
		StartGet = myCache.value
	Else
		StartGet = GetHttpPage(HttpUrl)	
		myCache.add StartGet,dateadd("h",2,Now)
	End if
	List=GetBody(StartGet,"<!--列表开始-->","<!--列表结束-->",False,False)
	List=Replace(List,"/Html/","Show.asp?ID=")
	List=Replace(List,"/List.asp","UList.asp")
	List=Replace(List,".html","")
	List=Replace(List,"/js/","js/")
	If List<>"$False$" Then
		Response.write List
	Else
		Response.write ErrMsg
	End If
%>
<!--#include file=Bottom.asp-->
</body></html>
