showinfo.asp

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

<!--#include file="inc/config.asp" -->
<!--#include file="inc/cache.asp" -->
<!--#include file="inc/function.asp" -->
<% dim title,id
	id = Request.QueryString("id")
	If id<>"" Then
		HttpUrl="http://www.ccred.cn/showinfo.asp?id="&id
	Else
		Call ShowErr("参数错误!")
	End if
	set myCache=new cache
	myCache.name="jsredcom_"&id
	If myCache.valid then
		StarGet = myCache.value
	Else
		StarGet = GetHttpPage(HttpUrl)
		myCache.add StarGet,dateadd("h",3,Now)
	End if
	title=GetBody(StarGet,"<title>","</title>",False,False)
	showTitle=title
%>
<!--#include file="top.asp"-->
<!--main-->
<%
	List=GetBody(StarGet,"<!--main-->","<!--bottom-->",False,False)
	List=Replace(List,"","")
	If List<>"$False$" Then
		Response.write List
	Else
		Response.write ErrMsg
	End If
%>
<!--bottom-->
<!--#include file="base.asp"-->