showlink.asp

这是一个用SQL Server和ASP开发的搜索引擎网站

<!--#include file="head.asp" -->
<!-- #INCLUDE FILE="adovbs.inc" -->
<!--分类目录:开始-->
<table width=97% border=0 cellspacing=5 cellpadding=0 align=center>
	<col width=33%><col width=33%><col width=33%>
</table>
<!--分类目录:结束-->
<!--网站列表:开始-->
	
	<table width=600 border=0 cellspacing=0 cellpadding=0><tr><td height=1 background=images/bg01.gif><spacer type=block width=1></td></tr></table>

	<table width=600 border=0 cellspacing=0 cellpadding=10>
	<tr><td></td></tr>
	</table>
	<table width=97% border=0 cellspacing=0 cellpadding=2 align=center bgcolor=EEFFEF>
	<%catname = Request.QueryString("parentname")
subname = Request.QueryString("subname")
parent =  Request.QueryString("parentID")
cat = Request.QueryString("CatID")
%>
<center><b><A class=cata HREF="index.asp">首页</A> >> <a class=cata href="showsub.asp?CatID=<%=parent%>&Cat=<%=server.urlencode(catname)%>"><%=catname%></a> >> <FONT COLOR="#FF0000"><%=subname%></FONT></font></b> 　　　　　　　　<a class=cata href="addform.asp?catid=<%=cat%>&catname=<%=server.urlencode(subname)%>&parentID=<%=parent%>&Parentname=<%=server.urlencode(catname)%>">我要登陆我的网站</a></center>
<br>
<%



  
CONN_STRING ="Provider=sqloledb;" & "Data Source=127.0.0.1;Initial Catalog=qiye_8;User Id=sa;Password=password;"
'buil string for connection my database file is jgwy/jgwy.mdb in store in the same folder of this file.

Dim iPageSize       
Dim iPageCount      
Dim iPageCurrent    
Dim strOrderBy      
Dim strSQL          
Dim objPagingConn   
Dim objPagingRS     
Dim iRecordsShown   
Dim I               


iPageSize = 10
'set page size

If Request.QueryString("page") = "" Then
	iPageCurrent = 1
Else
	iPageCurrent = CInt(Request.QueryString("page"))
End If

If Request.QueryString("order") = "" Then
	strOrderBy = "id"
Else
	strOrderBy = Request.QueryString("order")
End If

strSQL = "SELECT * From link2 where Category='" & cat & "' and show=1 order by ID"

' select sql from the table..my table in jgwy/jgwy.mdb name "link2"

Set objPagingConn = Server.CreateObject("ADODB.Connection")
objPagingConn.Open CONN_STRING
'open connection

Set objPagingRS = Server.CreateObject("ADODB.Recordset")
objPagingRS.PageSize = iPageSize
objPagingRS.CacheSize = iPageSize
objPagingRS.Open strSQL, objPagingConn, adOpenStatic, adLockReadOnly, adCmdText


reccount = objPagingRS.recordcount
iPageCount = objPagingRS.PageCount

If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1

If iPageCount = 0 Then
	Response.Write "<br><center><font color=red >对不起没有找到你要查看的网站！！！！！</font></center>"
Else
	objPagingRS.AbsolutePage = iPageCurrent

	%>
	<center>
    <font color=636363>此目录下有网站&nbsp;<b><%=reccount%></b>条　共<FONT COLOR="#FF0000"><%= iPageCount %></FONT>页</font> 
	
	
	<BR><BR>
	
<%

sss = (iPageSize * iPageCurrent) - iPageSize
	iRecordsShown = 0
	Do While iRecordsShown < iPageSize And Not objPagingRS.EOF
	
	
pluscount = pluscount+1


			dagar=DateDiff("d", Date, objPagingRS("postDate"))+7
if dagar >= 0 then 
	%>
	
		
		    <center>
		<table border=0 width=95% cellspacing=0 >
		<tr><td bgcolor="#Ffffff" width="90%">
	 ·&nbsp;</font> <a class=cata href="url.asp?id=<%=objPagingRS("ID")%>" target="_blank"><b>...<%=objPagingRS("Name")%>...</b></font></a> &nbsp;<img src="new.gif" border=0>  
	 </td><td bgcolor="#Ffffff" width="95%"><%=objPagingRS("Hit")%>℃</td>
	 </tr>
	 <tr>
	 <td >...<%=objPagingRS("Description")%></td>
	</tr>
	 <tr>
	 <td ><%=objPagingRS("postdate")%>	</font>
      <a href="error.asp?id=<%=objPagingRS("ID")%>"> <FONT COLOR="#666666">若发现连接错误，请点此告知本站。</FONT></a></font></td>
	</tr>
	</table>
	</center><br>
<%else
%>
		 <center>
		<table border=0 width=95% cellspacing=0 4>
		<tr><td bgcolor="#Ffffff" width="90%">
	 ·&nbsp;</font> <a class=cata href="url.asp?id=<%=objPagingRS("ID")%>" target="_blank"><b>...<%=objPagingRS("Name")%>...</b></font></a>   
	 </td><td bgcolor="#Ffffff" width="95%"><FONT COLOR="#FF0000"><%=objPagingRS("Hit")%></FONT>℃</td>
	 </tr>
	 <tr>
	 <td >...<%=objPagingRS("Description")%>	</td>
	</tr>
	 <tr>
	 <td  > <%=objPagingRS("postdate")%>
      <a href="error.asp?id=<%=objPagingRS("ID")%>"> <FONT COLOR="#666666">若发现连接错误，请点此告知本站。</FONT></a></font></td>
	</tr>
	</table>
	</center><br>
		
		<%
end if
		iRecordsShown = iRecordsShown + 1
		objPagingRS.MoveNext
	Loop
%>

	
	<%
End If

objPagingRS.Close
Set objPagingRS = Nothing
objPagingConn.Close
Set objPagingConn = Nothing


If iPageCurrent <> 1 Then
	%>
	
	<A class=cata HREF="./showlink.asp?page=<%= iPageCurrent - 1 %>&order=<%= Server.URLEncode(strOrderBy) %>&CatID=<%=cat%>&parentID=<%=parent%>&parentname=<%=server.urlencode(catname)%>&subname=<%=server.urlencode(subname)%>"><b><< 上一页</b></font></A>
	&nbsp;&nbsp; <%
	End If

If iPageCurrent < iPageCount Then
	%>
	<A class=cata HREF="./showlink.asp?page=<%= iPageCurrent + 1 %>&order=<%= Server.URLEncode(strOrderBy) %>&CatID=<%=cat%>&parentID=<%=parent%>&parentname=<%=server.urlencode(catname)%>&subname=<%=server.urlencode(subname)%>"><b>下一页 >></b></font></A>
	</center>
	<%
End If


%>
<center>
第 <B><FONT COLOR="#FF0000"><%= iPageCurrent %></FONT></B> 页
共 <B><%= iPageCount %></B> 页
</font><br><br><br> <a class=cata href="addform.asp?catid=<%=cat%>&catname=<%=server.urlencode(subname)%>&parentID=<%=parent%>&Parentname=<%=server.urlencode(catname)%>">网站登陆</a>
</center>
<!--网站列表:结束-->
	
<!-- right col -->
<!--#include file="gg.asp" -->
<!-- right col end -->
</table>

<!--底部导航:开始-->
<!--#include file="foot.asp" -->
<!--底部导航:开始-->

</body>
</html>