index.asp

希瑞电驴小偷第三版 程序功能：添加链接、修改链接、删除链接、清空链接、管理链接等

<!--#include file="inc/config.asp" -->
<!--#include file="inc/cache.asp" -->
<!--#include file="inc/function.asp" -->
<%
dim showTitle
showTitle=""
HttpUrl="http://www.ccred.cn/"
set myCache=new cache
myCache.name="jsred_01"
If myCache.valid then
	StartGet = myCache.value
Else
	StartGet = GetHttpPage(HttpUrl)	
	myCache.add StartGet,dateadd("h",3,Now)
End if
List1=GetBody(StartGet,"<!--main-->","<!--midADstart-->",False,False)
List2=GetBody(StartGet,"<!--midADend-->","<!--bottom-->",False,False)
%>
<!--#include file="top.asp"-->
<!--main-->
<table width="778"  border="0" align="center" cellpadding="3" cellspacing="0" bgcolor="#FFFFFF" height="0">
<tr><td align="center"><%if TopAD<>"" then response.write TopAD%></td></tr>
</table>
<table width="778" cellpadding="0" cellspacing="0" align="center" style="background-color:#FFFFFF">
<tr><td bgcolor="#FFFFFF">
<%If List1<>"$False$" Then Response.write List1 Else Response.write ErrMsg End If%>
</td>
</tr>
</table>
</td></tr></table>
<!--midADstart-->
<table width="778"  border="0" align="center" cellpadding="3" cellspacing="0" bgcolor="#FFFFFF" height="0">
<tr><td align="center"><%if midAD<>"" then response.write midAD%></td></tr>
</table>
<!--midADend-->
<table id="dlAll" width="778" cellpadding="0" cellspacing="0" align="center" style="background-color:#FFFFFF">
<tr valign="top"><td bgcolor="#FFFFFF">
<%If List2<>"$False$" Then Response.write List2 Else Response.write ErrMsg End If%>
</td>
</table>
<!--bottom-->
<!--#include file="base.asp"-->