<script>
var location='never-online';
</script>
目前共有2222個(gè)查詢網(wǎng)址,意味著可以瞬時(shí)將您的網(wǎng)站推廣到這些地方。更奇妙的是,這一切都是免費(fèi)的。

<% 
Dim Conn,Rs_News,domain
domain=trim(request.Form("url"))
Set Conn=Server.CreateObject("ADODb.Connection")
Conn.Open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("wz.cs")

Set Rs_News=server.CreateObject("adodb.recordset")
Rs_News.Open "select * from url",Conn,1,3

%> 
<!--#include file=TurnPage.asp-->
<% 
Dim RowCount 
RowCount=20
Call TurnPage(Rs_News,RowCount,Request.QueryString("url")) 
%> 

<table width=100%> 
<tr> 
<td>編號(hào)</td> 
<td>提交狀態(tài)</td> 
<tr> 
<% 
if not Rs_News.eof then
Do while Not Rs_News.eof and RowCount>0
%> 

<tr> 
<td><%=Rs_News("id")%></td> 
<td><%=Replace(Rs_News("url"),"www.daoxuol.cn",Request.QueryString("url"))%></td>
</tr>
<% 
RowCount = RowCount - 1 
Rs_News.MoveNext 
Loop 
End If 
%>