function.asp

驴友格子(access)版v1.50 (中国驴友网开发http://www.hikers.cn) 后台管理：admin 管理员用户名：admin 管理员密码：admin (md5加密后

<!--#include file="conn.asp"-->
<%
'====================================================================
	'程序名称:驴友格子v1.5
	'作者：刷新记忆
	'网站：中国驴友网 http://www.hikers.cn or http://gezi.hikers.cn
	'QQ:150154016
	'msn:[e-mail]
	'====================================================================

	'=====================================
	' link() 函数link 合作推广链接
	'=====================================
sub Link()
	response.write "<table><tr><td>"
	dim SqlLink
	dim rsLinkdim
	dim AllRecord
	dim m
		SqlLink = "select * from G_link where G_linkFlag=1" 
		set rsLink= server.CreateObject("adodb.Recordset")
		rsLink.open SqlLink,conn,1,3
		Allrecord=rsLink.recordcount
		i = 0
		do while i<10 and  not rsLink.eof  
			response.Write "<td width=100><a href="&rsLink("G_linkurl")&" target=_blank><img src=linkimg/"&rsLink("G_linkpic")&" alt="&rsLink("G_linkname")&" width=88 height=31 border=0></a></td>"
			i=i+1
			rsLink.movenext
		loop
		
		rsLink.close
		set rsLink=nothing
		
		if Allrecord<10 then
		for m=1 to (10 - (Allrecord mod 10))
		response.Write "<td><TABLE style='BORDER-COLLAPSE: collapse' borderColor=#BBBBBB height=31 cellSpacing=0 cellPadding=0 width=88 border=1><TBODY><TR><TD width='100%'><P style='LINE-HEIGHT: 150%' align=center><FONT color=#BBBBBB>合作推广站</FONT></P></TD></TR></TBODY></TABLE></td>"
		next
		end if
	response.write "</td></tr></table>"
end sub

	'=====================================
	' rankIn()  十大点入排行榜
	'=====================================
sub rankIn()
	dim i
	dim sqlRankIn
	dim rsRankIn
	sqlRankIn="select top 20 * from G_user order by G_comein desc"
	set rsRankIn=server.CreateObject("adodb.recordset")
	rsRankIn.open sqlRankIn,conn,1,3
	response.write "<table width='380'>"
	response.write "<tr bgcolor='f5f5f5'><td  colspan='3'>点入统计top20</td></tr>"
	if rsRankIn.bof and rsRankIn.eof then
		response.Write "还没有添加网站"
	else 
		i=1
		do while not rsRankIn.eof 
			response.write "<tr>"
			response.write "<td>"&i&"</td>"
			response.write "<td><a href='http://"&rsRankIn("G_weburl")&"'>"&rsRankIn("G_webname")&"</a></td>"
			response.write "<td align='right'>"&rsRankIn("G_comein")&"</td></tr>"
			i=i+1
			rsRankIn.movenext
		loop
	end if
	response.write "<table>"
end sub


'=====================================
	' rankOut()  十大点出排行榜
	'=====================================
sub rankOut()
	dim i
	dim sqlRankOut
	dim rsRankOut
	sqlRankOut="select top 20 * from G_user order by G_goout desc"
	set rsRankOut=server.CreateObject("adodb.recordset")
	rsRankOut.open sqlRankOut,conn,1,3
	response.write "<table width='380'>"
	response.write "<tr bgcolor='f5f5f5'><td colspan='3'>点出统计top20</td></tr>"
	if rsRankOut.bof and rsRankOut.eof then
		response.Write "还没有添加网站"
	else 
		i=1
		do while not rsRankOut.eof 
			response.write "<tr>"
			response.write "<td>"&i&"</td>"
			response.write "<td><a href='http://"&rsRankOut("G_weburl")&"'>"&rsRankOut("G_webname")&"</a></td>"
			response.write "<td align='right'>"&rsRankOut("G_goout")&"</td></tr>"
			i=i+1
			rsRankOut.movenext
		loop
	end if
	response.write "<table>"
end sub
%>