index.asp

blue space 蓝色空间下载系统精简版---大家分享

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../inc/oConn.asp" -->
<!--#include file="../inc/Page.asp" -->
<!--#include file="../inc/HeadDH.asp" -->
<!--#include file="Function.asp" -->
<%
Call PrintHead("蓝色空间 软件下载")
Call DisplayPage()
Call PrintFoot()

Sub DisplayPage()
	Dim strHtml
	strHtml = PrintListTable()&ResponseTable(1)&UserAddress()
	strHtml = strHtml & "<TABLE align='center' cellspacing='2' cellpadding='1'>"&vbCrLf
	strHtml = strHtml & "<TR>"&vbCrLf
	strHtml = strHtml & "<TD valign='top'>"
	strHtml = strHtml & SearchForm()&ResponseTable(1)
	strHtml = strHtml & AllHotList()&ResponseTable(1)
	strHtml = strHtml & "</TD>"&vbCrLf
	strHtml = strHtml & "<TD valign='top'>"
	strHtml = strHtml & IndexSoftList()
	strHtml = strHtml & "</TD>"&vbCrLf
	strHtml = strHtml & "</TR>"&vbCrLf
	strHtml = strHtml & "</TABLE>"
	Call CloseConn()
	Print strHtml
End Sub

Function UserAddress()
	Dim strHtml,strTmp
	strTmp = "最新更新(200)"
	strHtml = "<table width='"&MaxTableWidth&"' bgcolor='#ffffff' align='center' cellspacing='0'  cellpadding='5'>"&vbCrLf
	strHtml = strHtml & "<tr><td>"&vbCrLf
	strHtml = strHtml & "你的位置："&DownIndexUrl&" "&strTmp&" >> 列表"&vbCrLf
	strHtml = strHtml & "</td></tr></table>"&vbCrLf

	UserAddress = strHtml
End Function

Function IndexSoftList()
	Dim MyPage,objRs,strHtml
	strHtml = "<!--软件列表Start-->"&vbCrLf
	strHtml = strHtml & "<TABLE align='center' width='"&ListTableWidth&"' cellspacing='1' cellpadding='4'  style=""background:#cccccc"">"&vbCrLf
	strHtml = strHtml & "<tr class='thetitle1' align='center'><td style=""border:1 solid #ffffff"">软件名称</td><td style=""border:1 solid #ffffff"">更新日期</td><td style=""border:1 solid #ffffff"">软件大小</td><td style=""border:1 solid #ffffff"">人 气</td></tr>"
	strSQL = "Select top 200 SoftID,SoftName,SoftUpdateTime,SoftSize,SoftRemark,SoftCount,SoftClass From "&InfoTable&" Order by SoftUpdateTime DESC,SkySoftID DESC"
	Set MyPage = New xdownpage
	MyPage.GetConn = oConn
	MyPage.GetSQL = strSQL
	MyPage.PageSize = TurnPageSize
	Set objRs = MyPage.GetRs()
	If Not objRs.Eof Then
		For i = 1 to MyPage.PageSize
			strHtml = strHtml & "<TR class='tb0' noWrap onmouseleave=""mhHover('tb0')"" onmouseenter=""mhHover('tb1')"">"&vbCrLf
			strHtml = strHtml & "<TD width='350' style=""line-height:120%"">·<a href='SoftView.asp?SoftID="&objRs(0)&"'>"&objRs(1)&"</a></TD>"&vbCrLf
			strHtml = strHtml & "<TD width='130'>"&objRs(2)&"</TD>"&vbCrLf
			strHtml = strHtml & "<TD width='60'>"&objRs(3)&"</TD>"&vbCrLf
			strHtml = strHtml & "<TD width='60'>"&objRs(5)&"</TD>"&vbCrLf
			strHtml = strHtml & "</TR>"&vbCrLf
			strHtml = strHtml & "<TR bgcolor='#ffffff'>"&vbCrLf
			strHtml = strHtml & "<TD colspan='4' class='tdRemark'>"&Left(objRs(4),200)&"...</TD>"&vbCrLf
			strHtml = strHtml & "</TR>"&vbCrLf
			objRs.MoveNext
			If objRs.Eof Then Exit For
		Next
	Else
		strHtml = strHtml & "<TR bgcolor='#ffffff'>"&vbCrLf
		strHtml = strHtml & "<TD colspan='4' class='tdRemark' align='center'>数据库中暂无任何软件，请登录系统管理自动采集软件资料！</TD>"&vbCrLf
		strHtml = strHtml & "</TR>"&vbCrLf
	End If
	Set objRs = Nothing
	strHtml = strHtml & "</TABLE>"&vbCrLf
	strHtml = strHtml & "<TABLE align='center' width='"&ListTableWidth+2&"' cellspacing='1' cellpadding='2'>"&vbCrLf
	strHtml = strHtml & "<tr><td colspan='4' bgcolor='#f1f1f1' style='border:1 solid #b8b8b8'>"&MyPage.PageInfo()&"</td></tr>"
	strHtml = strHtml & "</TABLE>"&vbCrLf
	strHtml = strHtml & "<!--软件列表End-->"&vbCrLf

	IndexSoftList = strHtml
End Function
%>