<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../inc/oConn.asp" -->
<!--#include file="../inc/Page.asp" -->
<!--#include file="../inc/HeadDH.asp" -->
<!--#include file="Function.asp" -->
<%
Dim Key
Key = CheckBad(Request.QueryString("Key"))

Call PrintHead("藍色空間 軟件下載 搜索結果列表")
Call DisplayPage(Key)
Call PrintFoot()

Sub DisplayPage(Key)
	Dim strHtml
	strHtml = PrintListTable()&ResponseTable(1)&UserAddress(Key)
	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 & SearchSoftList(Key)
	strHtml = strHtml & "</TD>"&vbCrLf
	strHtml = strHtml & "</TR>"&vbCrLf
	strHtml = strHtml & "</TABLE>"
	Call CloseConn()
	Print strHtml
End Sub

Function UserAddress(Key)
	Dim strHtml,strTmp
	strTmp = "搜索關鍵字 <font color='blue'>"&Key&"</font> 結果"
	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 SearchSoftList(Key)
	Dim MyPage,objRs,strHtml
	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 SoftName like '%"&Key&"%' 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'>沒有找到你要查找的軟件！</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

	SearchSoftList = strHtml
End Function
%>