<script>
var location='never-online';
</script>
只需数秒即可将你的网站推广到1070个查询网址
<% 
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>编号</td> 
<td>提交状态</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 
%> 