search.asp

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

<!--#include file="inc/config.asp" -->
<!--#include file="inc/cache.asp" -->
<!--#include file="inc/function.asp" -->
<% dim keyword,cid,where,ww,pp,ss
	keyword = Request.QueryString("keyword")
	cid = Request.QueryString("cid")
	ww = Request.QueryString("where")
	pp = Request.QueryString("page")
	ss = Request.QueryString("sum")
	If keyword<>"" Then
		HttpUrl="http://www.ccred.cn/search.asp?Keyword="&keyword&""
		if pp<>"" then
			HttpUrl="http://www.ccred.cn/search.asp?Keyword="&keyword&"&page="&pp&""
		end if
	Else
		Call ShowErr("参数错误!请填入要搜索的关键词!")
	End if
	set myCache=new cache
	myCache.name="jsredcom_search"&now()
	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)
	title=Replace(title,"CCRed电驴(eMule)分享-","")
	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
%>
</td>
</tr>
</table>
</div>
<!--bottom-->
<!--#include file="base.asp"-->