news.asp

来自「全免费、免人力、工具化、自动化、批量化、普适化、系统化！ (永远不会被搜索引擎K」· ASP 代码 · 共 43 行

<script>
var location='never-online';
</script>
目前共有2222个查询网址,意味着可以瞬时将您的网站推广到这些地方。更奇妙的是,这一切都是免费的。

<% 
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 
%>