query.asp

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

<!--#include file=Config.asp-->
<!--#include file=Function.asp-->
<!--#include file=Top.asp-->
<div id="main"><div class="friend_link"><%
q=Request("q")
t=Request("t")
	If q<>"" then
		If Request("page")<>"" then
			HttpUrl="http://bt.81dd.com/query.asp?t="&t&"&q="&q&"&page="&Request("page")&""
		Else
			HttpUrl="http://bt.81dd.com/query.asp?t="&t&"&q="&q&""
		End if
	Else
		Call ShowErr("<script>alert('请先输入关键词!');history.back();</script>")
	End if
	If len(Request("q"))<2 then
	Call ShowErr("<script>alert('关键词长度不能少于2个字符!');history.back();</script>")
	End If
	StartGet = GetHttpPage(HttpUrl)
	List=GetBody(StartGet,"<!--列表开始-->","<!--列表结束-->",False,False)
	List=Replace(List,"/BtHtml/","Show.asp?id=")
	List=Replace(List,"width='100%'","width='723'")
	List=Replace(List,"Width=100%","width=723")
	If List<>"$False$" Then
		Response.write List
	Else
		Response.write ErrMsg
	End If
%></div></div>
<!--#include file=Bottom.asp-->
</body></html>