show.asp

坟地法地电唱机介词的大家词典飞机搭街坊第斤第毫飞机的

<!--#include file=Config.asp-->
<!--#include file=Function.asp-->
<!--#include file=Cache.asp-->
<!--#include file=Top.asp-->
<div id="main"><%
	ID = Request.QueryString("ID")
	If ID<>"" Then
		HttpUrl="http://bt.81dd.com/BtHtml/"&ID&""
	Else
		Call ShowErr("参数错误!")
	End if
	set myCache=new cache
	myCache.name="812007_Show_"&ID
	If myCache.valid then
		StarGet = myCache.value
	Else
		StarGet = GetHttpPage(HttpUrl)
		myCache.add StarGet,dateadd("h",6,Now)
	End if
	List=GetBody(StarGet,"<!--内容开始-->","<!--内容结束-->",False,False)
	List=Replace(List,"width=100%","width=723")
	List=Replace(List,"href=""/downpage.asp","href=""http://bt.81dd.com/download.asp")
	List=Replace(List,"/show/urltext.js","")
	List=Replace(List,"/images/","images/")
	If List<>"$False$" Then
		Response.write List
	Else
		Response.write ErrMsg
	End If
%></div>
<!--#include file=Bottom.asp-->
</body></html>