<!--#include file=Config.asp-->
<!--#include file=Function.asp-->
<!--#include file=Cache.asp-->
<!--#include file=TopMain.asp-->
<%
	ID = Request.QueryString("ID")
	If ID<>"" Then
		HttpUrl="http://www.ep8.net/Html/"&ID&".html"
	Else
		Call ShowErr("参数错误!")
		Response.End()
	End if
	set myCache=new cache
	myCache.name="EP8_Show_"&ID
	If myCache.valid then
		StarGet = myCache.value
	Else
		StarGet = GetHttpPage(HttpUrl)
		myCache.add StarGet,dateadd("h",3,Now)
	End if
	List=GetBody(StarGet,"<!--列表开始-->","<!--列表结束-->",False,False)
	List=Replace(List,"/Category/","List.asp?ID=")
	List=Replace(List,"/Index.html","")
	List=Replace(List,"src=""/Images","src=""Images")
	List=Replace(List,"Link5","Link2")
	List=Replace(List,"Link4","Link2")
	List=Replace(List,"/JS/","JS/")
  List=replace(List,"_blank","")
	If List<>"$False$" Then
		Response.write List
	Else
		Response.write ErrMsg
	End If
%>
</body></html>
