?? index.asp
字號:
<%@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'>數(shù)據(jù)庫中暫無任何軟件,請登錄系統(tǒng)管理自動采集軟件資料!</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
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -