create_softwarecls.asp

大型黄页系统,精美黄页flash演示,10m

<%
Class Create_SoftInfo_Cls

	Private Rs, SQL, Rss, SQLS, total, CreateHtml, FSO, objFSO, NewFolderPath
	Private DownloadClass_Ads
	Private HtmlTemplate
	Private SoftName
	Private userName
	Private SoftReadme
	Private SoftTime
	Private SoftSize
	Private MemberSoft
	Private isCommend
	Private MoneyNum
	Private AllHits
	Private Grades
	Private impower
	Private RunSystem
	Private SoftImg
	Private sortid
	Private SortName
	Private depth
	Private ParentID
	Private strParent
	Private Company
	Private JobTitle
	Private Grade
	Private PhoneCountry
	Private PhoneArea
	Private usertel
	Private MobileNo
	Private FaxCountry
	Private FaxArea
	Private FaxNumber
	Private MaterialClassCode
	Private address
	Private postcode
	Private MaterialClass
	Private userID

	Private PreviewImg
	Private PreviewPic
	Private strDecode
	Private Homepage
	Private SoftType
	Private Language
	Private Contact
	Private softid
	Private HtmlTempStr
	Private NowStats
	Private HtmlTitle
	Private TempTopStr
	Private TempFootStr
	Private Style_CSS
	Private datDate
	Private startime
	Private i
	Private j, k
	Private Rs1
	Private p
	Private d
	Private maxperpage
	Private SoftTotal
	Private TotalPage
	Private SoftNumber
	Private totalnumber
	Private action
	Private Re
	Private Sub Class_Initialize()
	    On Error Resume Next
		Set Rs = Server.CreateObject("ADODB.Recordset")
		DownsysClass.LoadTemplates ("softinfo")
		Set DownloadClass_Ads = New Adcolumn_Cls
	End Sub

	Private Sub Class_Terminate()
		If IsObject(Conn) Then
			Conn.Close
			Set Conn = Nothing
		End If
		If IsObject(DownloadClass_Ads) Then
			Set DownloadClass_Ads = Nothing
		End If
	End Sub
	'*************************************************************
	'函数作用：生成全部信息
	'*************************************************************
	Public Sub CreateSoftInfos()
	Dim SoftType,ii
	SoftType = Split(DownsysClass.Setting(35), ",")
	 ii = Trim(Request("ado"))
		DownsysClass.admin_header
		Server.ScriptTimeout = 99999
		Set NC_Admin = New Check
		NC_Admin.AdminChk = "32"
		If Not(DownsysClass.IsObjectFSO(DownsysClass.Script_FSO) And CInt(DownsysClass.Setting(5)) = 0 ) Then
			NC_Admin.Error_Msg ("<b><font color=red>你的服务器不支持 FSO(Scripting.FileSystemObject)或你后台没有选择为html方式</font></b>")
			DownsysClass.admin_footer
			Response.End
		End If
		Response.Write "<table width=""400"" border=""0"" cellspacing=""1"" cellpadding=""1"">" & vbCrLf
		Response.Write "<tr> " & vbCrLf
		Response.Write "<td align=center> <span id=txt2 name=txt2 style=""font-size:9pt"">正在生成文件请耐心等待……</span>   <span id=txt3 name=txt3 style=""font-size:9pt""></span></td></tr>" & vbCrLf
		Response.Write "</table>" & vbCrLf
		Response.Flush
		Set Rss = Server.CreateObject("adodb.recordset")
		SQLs = "select softid from [NC_SoftInfo] where SoftType like '%" & Trim(SoftType(ii)) & "%' and isLock=0"
		Rss.Open SQLs, Conn, 1, 1
		total = Rss.recordcount
		If total = 0 Then
			NC_Admin.Error_Msg ("<script>txt2.innerHTML="""";txt3.innerHTML="""";</script> 没有你选择范围内信息页可生成！")
			DownsysClass.admin_footer
			Response.End
		End If
		Rss.MoveFiRst
		k = 1
		Do While Not Rss.EOF
			softid = Rss("softid")
			CreateSoftInfo(softid) '生成信息信息html页
			Response.Write "<script>txt2.innerHTML=""生成进度:" & FormatNumber(k / total * 100, 2, -1) & "%"";" & vbCrLf
			Response.Write "txt3.innerHTML=""共有 <B><font color=RED>" & total & "</font></B> 个 　正在生成第 " & k & " 个"";</script>" & vbCrLf
			Response.Flush
			Rss.movenext
			DownsysClass.SqlQueryNum = DownsysClass.SqlQueryNum + 1
			k = k + 1
		Loop
		Rss.Close
		Set Rss = Nothing
		Response.Write "<script>txt2.innerHTML="""";txt3.innerHTML="""";</script>"
		NC_Admin.Succeed_Msg ("共有 <B><font color=RED>" & total & "</font></B> 个信息信息页面生成完毕！")
		DownsysClass.admin_footer
	End Sub
	'*************************************************************
	'函数作用：生成信息
	'*************************************************************
	Public Sub CreateSoftInfo(softid)
	Dim SoftType,ii
	SoftType = Split(DownsysClass.Setting(35), ",")
	 ii = Trim(Request("ado"))
		On Error Resume Next
		Set Rs = Server.CreateObject("adodb.recordset")
		SQL = "select * from NC_SoftInfo where SoftType like '%" & Trim(SoftType(ii)) & "%' and softid = " & softid
		Rs.Open SQL, Conn, 1, 1
		If Rs.bof And Rs.EOF Then
			Response.Write "Sorry！还没有找到任何信息！"
			Exit Sub
		Else
			If CInt(Rs("isMember")) = 0 Then
				MemberSoft = ""
			Else
				MemberSoft = DownsysClass.TempSet(3)
			End If
			SoftName = Trim(Rs("SoftName")) & " " & Trim(Rs("SoftVer"))
			userName = Rs("userName")
			If Rs("SoftSize") > 1024 Then
				SoftSize = Round(Rs("SoftSize") / 1024, 2) & " MB"
			Else
				SoftSize = Rs("SoftSize") & " KB"
			End If
			If Rs("MoneyNum") = 0 Or Len(Rs("MoneyNum")) = 0 Then
				MoneyNum = ""
			Else
				MoneyNum = Rs("MoneyNum")
			End If
			sortid = Rs("sortid")
			SoftReadme = Rs("content")
			Set Re = New RegExp
			Re.IgnoreCase =true
			Re.Global=True
			If CInt(DownsysClass.Setting(44)) = 1 Then
				Re.Pattern="\[br\]"
				SoftReadme = Re.Replace(SoftReadme,"<BR>")
				Re.Pattern="\[align=right\]"
				SoftReadme = Re.Replace(SoftReadme,"<div align=right>")
				Re.Pattern="\[\/align\]"
				SoftReadme = Re.Replace(SoftReadme,"</div>")
			Else
				Re.Pattern="\[br\]"
				SoftReadme = Re.Replace(SoftReadme,"")
				Re.Pattern="\[align=right\](.*)\[\/align\]"
				SoftReadme = Re.Replace(SoftReadme,"")
			End If
			Set Re = Nothing
			SoftTime = Rs("SoftTime")
			AllHits = Rs("Hits")
			Grades = Rs("Grades")
			impower = Rs("impower")
			RunSystem = Rs("RunSystem")
			SoftType = Trim(Rs("softType"))
			Language = Trim(Rs("Language"))
			Company = Rs("Company")
			JobTitle = Rs("JobTitle")
			Grade = Rs("Grade")
			PhoneCountry = Rs("PhoneCountry")
			PhoneArea = Rs("PhoneArea")
			usertel = Rs("usertel")
			MobileNo = Rs("MobileNo")
			FaxCountry = Rs("FaxCountry")
			FaxArea = Rs("FaxArea")
			FaxNumber = Rs("FaxNumber")
			MaterialClassCode = Rs("MaterialClassCode")
			address = Rs("address")
			postcode = Rs("postcode")
			userID = Rs("userID")
			MaterialClass = Rs("MaterialClass")
			
			If Not IsNull(Trim(Rs("softimg"))) And Trim(Rs("softimg")) <> "" Then
				SoftImg = "<img src='" & Rs("softimg") & "' onload='javascript:if(this.height>this.width){this.height=" & DownsysClass.TempSet(14) & "}else{this.width=" & DownsysClass.TempSet(13) & "}'  border='0'>"
			Else
				SoftImg = DownloadClass_Ads.AdsColumn(3, 7)
			End If
			If Not IsNull(Trim(Rs("PreviewImg"))) And Trim(Rs("PreviewImg")) <> "" Then
				PreviewImg = " <img src="& Trim(Rs("PreviewImg")) &" onload='javascript:if(this.width>650){this.width=650;}' border=1 >"
				PreviewPic = "<img src='"& Trim(Rs("PreviewImg")) &"' onload='javascript:if(this.width>650){this.width=650;}' border='0'>"
			Else
				PreviewImg = "没有预览图片"
				PreviewPic = "没有预览图片"
			End If
			If Not IsNull(Trim(Rs("Decode"))) And Trim(Rs("Decode")) <> "" Then
				strDecode = "<font color=red>" & Trim(Rs("Decode")) & "</font>"
			Else
				strDecode = "默认密码:<font color=red>" & DownsysClass.Setting(37) & "</font>"
			End If
			If Len(Rs("Contact")) = 0 Then
				Contact = DownsysClass.TempSet(16)
			Else
				Contact = DownsysClass.TempSet(17)
				Contact = Replace(Contact, "{$SoftName}", Trim(Rs("SoftName")))
				Contact = Replace(Contact, "{$userName}", Rs("userName"))
				Contact = Replace(Contact, "{$ContactSite}", Trim(Rs("Contact")))
			End If
			If Len(Rs("Homepage")) = 0 Then
				Homepage = DownsysClass.TempSet(4)
			Else
				Homepage = DownsysClass.TempSet(15)
				Homepage = Replace(Homepage, "{$PageUrl}", Trim(Rs("Homepage")))
			End If
		End If
		Rs.Close
		Set Rs = Server.CreateObject("adodb.recordset")
		SQL = "select sortid,rootid,sortname,depth,ParentID,strParent from [NC_SoftSort] where  sortid = " & sortid
		Rs.Open SQL, Conn, 1, 1
		If Rs.bof And Rs.EOF Then
			Response.Write "Sorry！没有找到任何信息。或者您选择了错误的系统参数!"
			Response.End
		Else
			SortName = Rs("sortname")
			sortid = Rs("sortid")
			depth = Rs("depth")
			ParentID = Rs("ParentID")
			strParent = Rs("strParent")
			
		End If
		Rs.Close
		NowStats = NowStation(sortid, SortName, ParentID, strParent) & "→" & SoftName
		HtmlTitle = SoftName
		If Len(DownsysClass.temphtml(0)) < 50 Then
			TempTopStr = DownsysClass.mainhtml(0) & DownsysClass.mainhtml(1) & DownsysClass.mainhtml(2) & DownsysClass.mainhtml(3)
		Else
			TempTopStr = DownsysClass.temphtml(0)
		End If
		If Len(DownsysClass.temphtml(4)) = 0 Then
			TempFootStr = DownsysClass.mainhtml(4)
		Else
			TempFootStr = DownsysClass.temphtml(4)
		End If
		Style_CSS = Replace(Replace(DownsysClass.Style_CSS, "{$SetupDir}", DownsysClass.SetupDir), "{$PicUrl}", DownsysClass.TempDir)
		HtmlTempStr = TempTopStr & DownsysClass.temphtml(1) & DownsysClass.temphtml(2) & DownsysClass.temphtml(3) & TempFootStr
		HtmlTempStr = Replace(HtmlTempStr, "{$NavMenu}", DownsysClass.SortingMenu)
		HtmlTempStr = Replace(HtmlTempStr, "{$Width}", DownsysClass.mainset(0))
		HtmlTempStr = Replace(HtmlTempStr, "{$Style_CSS}", Style_CSS)
		HtmlTempStr = Replace(HtmlTempStr, "{$TopMeun}", DownsysClass.mainset(9))
		HtmlTempStr = Replace(HtmlTempStr, "{$FootMeun}", DownsysClass.mainset(44))
		HtmlTempStr = Replace(HtmlTempStr, "{$NowStats}", NowStats)
		HtmlTempStr = Replace(HtmlTempStr, "{$Title}", HtmlTitle)
		HtmlTempStr = Replace(HtmlTempStr, "{$SoftName}", SoftName)
		HtmlTempStr = Replace(HtmlTempStr, "{$userName}", userName)
		HtmlTempStr = Replace(HtmlTempStr, "{$SoftID}", softid)
		HtmlTempStr = Replace(HtmlTempStr, "{$SortID}", sortid)
		HtmlTempStr = Replace(HtmlTempStr, "{$SortName}", SortName)
		HtmlTempStr = Replace(HtmlTempStr, "{$Company}", Company)
		HtmlTempStr = Replace(HtmlTempStr, "{$JobTitle}", JobTitle)
		HtmlTempStr = Replace(HtmlTempStr, "{$Grade}", Grade)