function.asp

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

<%
Const IsCreateHtml	= False
Const BigClassTable = "SoftBigClass"
Const ClassTable	= "SoftClass"
Const DownUrlTable	= "SoftDownUrl"
Const InfoTable		= "SoftInfo"
Const TurnPageSize	= 15
Const ListTableWidth= 586
Const MaxTableWidth	= 770
Dim PageStart,DownIndexUrl
DownIndexUrl		= "<a href='"&SystemPath&"/Soft/Index.asp'>下载首页</a> >> <a href='"&SystemPath&"/Soft/Sort.asp'>软件分类</a> >>"
PageStart			= Timer

Function PrintListTable()
	Dim strHtml
	strHtml = HeadDH&"<script language='JavaScript' src='"&SystemPath&"/JSFile/SoftDH.js'></script>"&vbCrLf

	PrintListTable = strHtml
End Function


Function SearchForm()
	strHtml = "<!--软件搜索Start-->"&vbCrLf
	strHtml = strHtml & "<TABLE style=""background:#ffffff;border:1 solid #cccccc"" align='center' width='178' cellspacing='1' cellpadding='4' border='0'>"&vbCrLf
	strHtml = strHtml & "<TR><td class='thetitle1'>软件搜索</td></tr>"&vbCrLf
	strHtml = strHtml & "<TR><FORM METHOD='Get' ACTION='"&SystemPath&"/Soft/Search.asp'>"&vbCrLf
	strHtml = strHtml & "<TD><INPUT TYPE='text' NAME='Key' size='15'> <INPUT TYPE='submit' value='搜索'><hr size='1' color='#cccccc'><script language='javascript' src='"&SystemPath&"/JSFile/SoftCount.js'></script></TD>"&vbCrLf
	strHtml = strHtml & "</FORM></TR>"&vbCrLf
	strHtml = strHtml & "</TABLE>"&vbCrLf
	strHtml = strHtml & "<!--软件搜索End-->"&vbCrLf

	SearchForm = strHtml
End Function


Function HotList(SortID,HotType)
	Dim strHtml
	If HotType="S" Then
		strHtml = "<script language='JavaScript' src='"&SystemPath&"/JSFile/SoftClassHot"&SortID&".js'></script>"&vbCrLf
	Else
		strHtml = "<script language='JavaScript' src='"&SystemPath&"/JSFile/SoftHot"&SortID&".js'></script>"&vbCrLf
	End If

	HotList = strHtml
End Function


Function AllHotList()
	Dim strHtml
	strHtml = "<script language='JavaScript' src='"&SystemPath&"/JSFile/SoftAllHot.js'></script>"&vbCrLf

	AllHotList = strHtml
End Function

Function ClassList(intBigClassID)
	Dim strHtml
	'If intBigClassID = "" Then intBigClassID = 1
	strHtml = "<script language='JavaScript' src='"&SystemPath&"/JSFile/SoftClassDH"&intBigClassID&".js'></script>"&vbCrLf

	ClassList = strHtml
End Function

Function SoftClassID(intSoftID)
	Dim strSQL,objRs,strTmp
	strSQL = "Select SoftClass From "&InfoTable&" Where SoftID="&intSoftID&""
	Set objRs = oConn.Execute(strSQL)
	If Not objRs.Eof Then
		strTmp = objRs(0)
	Else
		strTmp = ""
	End If
	Set objRs = Nothing

	SoftClassID = strTmp
End Function
%>