showclass.asp

来自「希瑞电驴小偷第三版 程序功能：添加链接、修改链接、删除链接、清空链接、管理链接等」· ASP 代码 · 共 55 行

<!--#include file="inc/config.asp" -->
<!--#include file="inc/cache.asp" -->
<!--#include file="inc/function.asp" -->
<% dim title,id
	id = Request("id")
	If id<>"" Then
		HttpUrl="http://www.ccred.cn/showclass.asp?id="&id
	Else
		Call ShowErr("参数错误!")
	End if
	set myCache=new cache
	myCache.name="jsred_com_"&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>","- 希瑞电驴",False,False)
	If title<>"$False$" Then
		showTitle=title
	Else
		showTitle="Emule"
	End If
%>
<!--#include file="top.asp"-->
<!--main-->
<script type="text/javascript">
function ContentSize(size)
{
	var obj=document.getElementById("BodyLabel");
	obj.style.fontSize=size+"px";
}
</script>
<script type="text/javascript" src="style/thumbnail.js"></script>

<table id="middle" align="center" cellspacing="0" cellpadding="0" style="width:778px;background:#FFFFFF;">
<tr align="left" valign="top">
<td>
	<div class='mframe'>
<%
	List=GetBody(StarGet,"<!--main-->","<!--bottom-->",False,False)
	List=Replace(List,"","")
	If List<>"$False$" Then
		Response.write List
	Else
		Response.write ErrMsg
	End If
%>
</div></div>
</td></tr></table>
<!--bottom-->
<!--#include file="base.asp"-->