index.asp

来自「坟地法地电唱机介词的大家词典飞机搭街坊第斤第毫飞机的」· ASP 代码 · 共 26 行

<!--#include file=Config.asp-->
<!--#include file=Function.asp-->
<!--#include file=Cache.asp-->
<!--#include file=Top.asp-->
<div id="main"><div class="friend_link">
<%
	HttpUrl="http://bt.81dd.com/other/Soft.html"
	set myCache=new cache
	myCache.name="812007_Index"
	If myCache.valid then
		StartGet = myCache.value
	Else
		StartGet = GetHttpPage(HttpUrl)	
		myCache.add StartGet,dateadd("h",3,Now)
	End if
	List=GetBody(StartGet,"<!--内容开始-->","<!--内容结束-->",False,False)
	List=replace(List,"/BtHtml/","Show.asp?id=")
	List=replace(List,"/class/","List.asp?id=")
	If List<>"$False$" Then
		Response.write List
	Else
		Response.write ErrMsg
	End If
%></div></div>
<!--#include file=Bottom.asp-->
</body></html>