createsofthotjs.asp

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

<!--#include file="Check.asp" -->
<!--#include file="../Inc/HeadDH.asp" -->
<!--#include file="../inc/oConn.asp" -->
<!--#include file="../inc/function.asp" -->
<!--#include file="../Soft/function.asp" -->
<%
Call PrintHead("蓝色空间 网站后台采集管理")
Call PrintTable2()
Call HeadDH2()
Print "<br><table align='center' width='"&MaxTableWidth&"' style='border:1 solid #cccccc;background:#f5f5f5'><tr><td>"
Call CreateSoftHot()
Response.Write "<hr>"
Call CreateSoftAllHot()
Response.Write "<hr>"
Call CreateSoftClassHot()
Print "</td></tr></table><br>"
Call PrintFoot()

Sub CreateSoftHot()
	Dim strJS,strSQL,objRs,JSFileName,objRs1
	strJS = ""
	strSQL = "Select SoftBigClassID From SoftBigClass"
	Set objRs = oConn.Execute(strSQL)
	If Not objRs.Eof Then
		Do While Not objRs.Eof
			strJS = "//生成日期："&Now()&""&vbCrLf
			strSQL = "Select top 10 SoftID,SoftName,SoftClassBigName,SoftClassSmallName,SoftClass From SoftInfo,SoftClass Where SoftBigClassID="&objRs(0)&" And SoftClass.SoftClassID=SoftInfo.SoftClass Order by SoftCount DESC,SkySoftID DESC"

			JSFileName = Server.MapPath("../JSFile/SoftHot"&objRs(0)&".js")
			strJS = strJS & "document.write('<TABLE style=\'background:#ffffff;border:1 solid #cccccc\' align=\'center\' width=\'178\' cellspacing=\'1\' cellpadding=\'4\' border=\'0\'>')"&vbCrLf
			strJS = strJS & "document.write('<TR><td class=\'thetitle1\'>分类下载 TOP10</td></tr>')"&vbCrLf
			Set objRs1 = oConn.Execute(strSQL)
			If Not objRs1.Eof Then
				Do While Not objRs1.Eof
					strJS = strJS & "document.write('<tr><td class=\'tb0\' noWrap onmouseleave=""mhHover(\'tb0\')"" onmouseenter=""mhHover(\'tb1\')""><div style=\'width:165px;overflow: hidden;text-overflow:ellipsis;\'>· <a title=\'"&objRs1(2)&" - "&objRs1(3)&" - "&objRs1(1)&"\' href=\'"&SystemPath&"/Soft/SoftView.asp?SoftID="&objRs1(0)&"\' target=\'"&NewBlank&"\'>"&objRs1(1)&"</a></div></td></tr>');"&vbCrLf
					objRs1.MoveNext
					If objRs1.Eof Then Exit Do
				LOOP
			End If
			strJS = strJS & "document.write('</TABLE>')"&vbCrLf
			Call WriteLocalFile(JSFileName,strJS)
			Response.Write "<li> 生成软件下载大类下载排行榜JS文件："&JSFileName&" 成功!"
			objRs.MoveNext
			If objRs.Eof Then Exit Do
		Loop
	End If
	Set objRs1 = Nothing
	Set objRs = Nothing
End Sub

Sub CreateSoftClassHot()
	Dim strJS,strSQL,objRs,JSFileName,objRs1
	strJS = ""
	strSQL = "Select SoftClassID From SoftClass"
	Set objRs = oConn.Execute(strSQL)
	If Not objRs.Eof Then
		Do While Not objRs.Eof
			strJS = "//生成日期："&Now()&""&vbCrLf
			strSQL = "Select top 10 SoftID,SoftName,SoftClassBigName,SoftClassSmallName From SoftInfo,SoftClass Where SoftClass="&objRs(0)&" And SoftClass.SoftClassID=SoftInfo.SoftClass Order by SoftCount DESC,SkySoftID DESC"

			JSFileName = Server.MapPath("../JSFile/SoftClassHot"&objRs(0)&".js")
			strJS = strJS & "document.write('<TABLE style=\'background:#ffffff;border:1 solid #cccccc\' align=\'center\' width=\'178\' cellspacing=\'1\' cellpadding=\'4\' border=\'0\'>')"&vbCrLf
			strJS = strJS & "document.write('<TR><td class=\'thetitle1\'>分类下载 TOP10</td></tr>')"&vbCrLf
			Set objRs1 = oConn.Execute(strSQL)
			If Not objRs1.Eof Then
				Do While Not objRs1.Eof
					strJS = strJS & "document.write('<tr><td class=\'tb0\' noWrap onmouseleave=""mhHover(\'tb0\')"" onmouseenter=""mhHover(\'tb1\')""><div style=\'width:165px;overflow: hidden;text-overflow:ellipsis;\'>· <a title=\'"&objRs1(2)&" - "&objRs1(3)&" - "&objRs1(1)&"\' href=\'"&SystemPath&"/Soft/SoftView.asp?SoftID="&objRs1(0)&"\' target=\'"&NewBlank&"\'>"&objRs1(1)&"</a></div></td></tr>');"&vbCrLf
					objRs1.MoveNext
					If objRs1.Eof Then Exit Do
				LOOP
			End If
			strJS = strJS & "document.write('</TABLE>')"&vbCrLf
			Call WriteLocalFile(JSFileName,strJS)
			Response.Write "<li> 生成软件下载小类下载排行榜JS文件："&JSFileName&" 成功!"
			objRs.MoveNext
			If objRs.Eof Then Exit Do
		Loop
	End If
	Set objRs1 = Nothing
	Set objRs = Nothing
End Sub

Sub CreateSoftAllHot()
	Dim strJS,strSQL,JSFileName,objRs1
	strJS = ""
	strJS = "//生成日期："&Now()&""&vbCrLf
	strSQL = "Select top 10 SoftID,SoftName,SoftClassBigName,SoftClassSmallName,SoftClass From SoftInfo,SoftClass Where SoftClass.SoftClassID=SoftInfo.SoftClass Order by SoftCount DESC,SkySoftID DESC"

	JSFileName = Server.MapPath("../JSFile/SoftAllHot.js")
	strJS = strJS & "document.write('<TABLE style=\'background:#ffffff;border:1 solid #cccccc\' align=\'center\' width=\'178\' cellspacing=\'1\' cellpadding=\'4\' border=\'0\'>')"&vbCrLf
	strJS = strJS & "document.write('<TR><td class=\'thetitle1\'>所有下载 TOP10</td></tr>')"&vbCrLf
	Set objRs1 = oConn.Execute(strSQL)
	If Not objRs1.Eof Then
		Do While Not objRs1.Eof
			strJS = strJS & "document.write('<tr><td class=\'tb0\' noWrap onmouseleave=""mhHover(\'tb0\')"" onmouseenter=""mhHover(\'tb1\')""><div style=\'width:165px;overflow: hidden;text-overflow:ellipsis;\'>· <a title=\'"&objRs1(2)&" - "&objRs1(3)&" - "&objRs1(1)&"\' href=\'"&SystemPath&"/Soft/SoftView.asp?SoftID="&objRs1(0)&"\' target=\'"&NewBlank&"\'>"&objRs1(1)&"</a></div></td></tr>');"&vbCrLf
			objRs1.MoveNext
			If objRs1.Eof Then Exit Do
		LOOP
	End If
	strJS = strJS & "document.write('</TABLE>')"&vbCrLf
	Call WriteLocalFile(JSFileName,strJS)
	Response.Write "<li> 生成软件下载所有软件下载排行榜JS文件："&JSFileName&" 成功!"
	Set objRs1 = Nothing
End Sub
%>