softlists.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" -->
<%
Dim SortID,strTitle,strUserAddress
SortID = Request.QueryString("SortID")
If SortID = "" Or Not IsNumeric(SortID) Then SortID = 1
strUserAddress = UserAddress(SortID)

Call PrintHead(strTitle)
Call DisplayPage(SortID)
Call PrintFoot()

Sub DisplayPage(SortID)
	Dim strHtml
	strHtml = PrintListTable()&ResponseTable(1)&strUserAddress
	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 & ClassList(BigClassID(SortID))&ResponseTable(1)
	strHtml = strHtml & HotList(SortID,"S")&ResponseTable(1)
	strHtml = strHtml & AllHotList()&ResponseTable(1)
	strHtml = strHtml & "</TD>"&vbCrLf
	strHtml = strHtml & "<TD valign='top'>"
	strHtml = strHtml & SmallClassSoftList(SortID)
	strHtml = strHtml & "</TD>"&vbCrLf
	strHtml = strHtml & "</TR>"&vbCrLf
	strHtml = strHtml & "</TABLE>"
	Call CloseConn()
	Print strHtml
End Sub

Function UserAddress(SortID)
	Dim objRs,strHtml,strTmp
	Set objRs = oConn.Execute("Select SoftClassBigName,SoftClassSmallName,SoftBigClassID From "&ClassTable&" Where SoftClassID="&SortID&"")
	If Not objRs.Eof Then
		strTmp = "<a href='SoftListB.asp?SortID="&objRs(2)&"'>"&objRs(0)&"</a> >> "&objRs(1)&""
		strTitle = "蓝色空间 软件下载 >> "&objRs(0)&" >> "&objRs(1)&""
	Else
		strTmp = "大类"
	End If
	Set objRs = Nothing
	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 SmallClassSoftList(intSmallClassID)
	Dim MyPage,objRs,strHtml
	If intSmallClassID = "" Then intSmallClassID = 1
	strHtml = "<!--软件列表Start-->"&vbCrLf
	strHtml = strHtml & "<TABLE style=""background:#cccccc"" align='center' width='"&ListTableWidth&"' cellspacing='1' cellpadding='4'>"&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 SoftID,SoftName,SoftUpdateTime,SoftSize,SoftRemark,SoftCount,SoftClass From "&InfoTable&" Where SoftClass="&intSmallClassID&" Order by 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

	SmallClassSoftList = strHtml
End Function

Function BigClassID(intSmallClassID)
	On Error Resume Next
	BigClassID = oConn.Execute("Select SoftBigClassID From "&ClassTable&" Where SoftClassID="&intSmallClassID&"")(0)
	If Err Then
		Err.Clear
		BigClassID = 1
	End If
End Function
%>