createsoftdhjs.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 CreateSoftDH()
Call CreateSoftClassDH()
Print "</td></tr></table><br>"
Call PrintFoot()

Sub CreateSoftDH()
	Dim strJS,strSQL,objRs,JSFileName
	JSFileName = Server.MapPath("../JSFile/SoftDH.js")

	strJS = "//生成日期："&Now()&""&vbCrLf
	strJS = strJS & "document.write('<TABLE style=\'background:#EDEDED;border:1 solid #cccccc\' align=\'center\' width=\'"&MaxTableWidth&"\' cellspacing=\'1\' cellpadding=\'2\' border=\'0\'>')"&vbCrLf
	strJS = strJS & "document.write('<TR align=\'center\'>')"&vbCrLf
	strSQL = "Select SoftBigClassID,SoftBigClassName From SoftBigClass"
	Set objRs = oConn.Execute(strSQL)
	If Not objRs.Eof Then
		Do While Not objRs.Eof
			strJS = strJS & "document.write('<TD class=\'tb0\' noWrap onmouseleave=""mhHover(\'tb0\')"" onmouseenter=""mhHover(\'tb1\')""><a href=\'"&SystemPath&"/Soft/SoftListB.asp?SortID="&objRs(0)&"\'>"&objRs(1)&"</a></TD>')"&vbCrLf
			objRs.MoveNext
			If objRs.Eof Then Exit Do
			strJS = strJS & "document.write('<TD class=\'tbsep\'>|</TD>')"&vbCrLf
		LOOP
	End If
	Set objRs = Nothing
	strJS = strJS & "document.write('</TR>')"&vbCrLf
	strJS = strJS & "document.write('</TABLE>')"&vbCrLf

	Call WriteLocalFile(JsFileName,strJS)
	Response.Write "<li> 生成软件下载导航JS文件："&JSFileName&" 成功!"
End Sub

Sub CreateSoftClassDH()
	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 SoftClassID,SoftClassSmallName From SoftClass Where SoftBigClassID="&objRs(0)&""
			JSFileName = Server.MapPath("../JSFile/SoftClassDH"&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\'>分类列表</td></tr>')"&vbCrLf
			Set objRs1 = oConn.Execute(strSQL)
			If Not objRs1.Eof Then
				Do While Not objRs1.Eof
					strJS = strJS & "document.write('<TR align=\'center\'>')"&vbCrLf
					strJS = strJS & "document.write('<TD class=\'tb0\' noWrap onmouseleave=""mhHover(\'tb0\')"" onmouseenter=""mhHover(\'tb1\')""><a href=\'"&SystemPath&"/Soft/SoftListS.asp?SortID="&objRs1(0)&"\'>"&objRs1(1)&"</a></TD>')"&vbCrLf
					strJS = strJS & "document.write('</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
%>