create_softwarecls.asp

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

		HtmlTempStr = Replace(HtmlTempStr, "{$PhoneCountry}", PhoneCountry)
		HtmlTempStr = Replace(HtmlTempStr, "{$PhoneArea}", PhoneArea)
		HtmlTempStr = Replace(HtmlTempStr, "{$usertel}", usertel)
		HtmlTempStr = Replace(HtmlTempStr, "{$MobileNo}", MobileNo)
		HtmlTempStr = Replace(HtmlTempStr, "{$FaxCountry}", FaxCountry)
		HtmlTempStr = Replace(HtmlTempStr, "{$FaxArea}", FaxArea)
		HtmlTempStr = Replace(HtmlTempStr, "{$FaxNumber}", FaxNumber)
		HtmlTempStr = Replace(HtmlTempStr, "{$MaterialClassCode}", MaterialClassCode)
		HtmlTempStr = Replace(HtmlTempStr, "{$MaterialClass}", MaterialClass)
		HtmlTempStr = Replace(HtmlTempStr, "{$userID}", userID)
		HtmlTempStr = Replace(HtmlTempStr, "{$address}", address)
		HtmlTempStr = Replace(HtmlTempStr, "{$postcode}", postcode)
		HtmlTempStr = Replace(HtmlTempStr, "{$SoftReadme}", SoftReadme)
		HtmlTempStr = Replace(HtmlTempStr, "{$SoftTime}", SoftTime)
		HtmlTempStr = Replace(HtmlTempStr, "{$SoftSize}", SoftSize)
		HtmlTempStr = Replace(HtmlTempStr, "{$Hits}", AllHits)
		HtmlTempStr = Replace(HtmlTempStr, "{$RunSystem}", RunSystem)
		HtmlTempStr = Replace(HtmlTempStr, "{$Impower}", impower)
		HtmlTempStr = Replace(HtmlTempStr, "{$Grades}", Grades)
		HtmlTempStr = Replace(HtmlTempStr, "{$SoftPic}", SoftImg)
		HtmlTempStr = Replace(HtmlTempStr, "{$MoneyNum}", MoneyNum)
		HtmlTempStr = Replace(HtmlTempStr, "{$MemberSoft}", MemberSoft)
		HtmlTempStr = Replace(HtmlTempStr, "{$Commend}", isCommend)
		HtmlTempStr = Replace(HtmlTempStr, "{$Decode}", strDecode)
		HtmlTempStr = Replace(HtmlTempStr, "{$PreviewImg}", PreviewImg)
		HtmlTempStr = Replace(HtmlTempStr, "{$PreviewPic}", PreviewPic)
		HtmlTempStr = Replace(HtmlTempStr, "{$SoftType}", SoftType)
		HtmlTempStr = Replace(HtmlTempStr, "{$Language}", Language)
		HtmlTempStr = Replace(HtmlTempStr, "{$Contact}", Contact)
		HtmlTempStr = Replace(HtmlTempStr, "{$HomePage}", Homepage)
		HtmlTempStr = Replace(HtmlTempStr, "{$DownLoadUrl}", DownLoadUrl(softid))
		HtmlTempStr = Replace(HtmlTempStr, "{$EssayInfo}", SoftEssayInfo(softid))
		HtmlTempStr = Replace(HtmlTempStr, "{$KeySoft}", GetKeySoftware(userName, softid))
		HtmlTempStr = Replace(HtmlTempStr, "{$KeyArticle}", GetKeyArticle(SoftName))
		HtmlTempStr = Replace(HtmlTempStr, "{$sousuo}", sousuo)
		HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(0)}", DownloadClass_Ads.RunScriptAds(3))
		HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(1)}", DownloadClass_Ads.BannerAds(3))
		HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(2)}", DownloadClass_Ads.AdsColumn(3, 2))
		HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(3)}", DownloadClass_Ads.AdsColumn(3, 3))
		HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(6)}", DownloadClass_Ads.AdsColumn(3, 7))
		HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(7)}", DownloadClass_Ads.AdsColumn(3, 8))
		HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(8)}", DownloadClass_Ads.AdsColumn(3, 9))
		HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(9)}", DownloadClass_Ads.AdsColumn(3, 10))
		HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(4)}", DownloadClass_Ads.ScriptFloatAds(3))
		HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(5)}", DownloadClass_Ads.ScriptFixedAds(3))
		Set Rs = Nothing
		NewFolderPath = Server.MapPath(DownsysClass.SetupDir & "Software/Catalog" & sortid)
		Set objFSO = Server.CreateObject(DownsysClass.Script_FSO)
		If Not objFSO.FolderExists(NewFolderPath) Then
			objFSO.CreateFolder (NewFolderPath)
		End If
		objFSO.Close
		Set objFSO = Nothing
		Set FSO = Server.CreateObject("ADODB.STREAM")
		CreateHtml = Server.MapPath(DownsysClass.SetupDir & "Software/Catalog" & sortid & "/" & softid & ".html")
		With FSO
			.Open
			.Charset = "GB2312"
			.WriteText HtmlTempStr
			.SaveToFile CreateHtml,2
			.Close
		End With
		Set FSO = Nothing
    End Sub
	'*************************************************************
	'函数作用：删除信息
	'*************************************************************
	Public Sub DelSoftInfo(softid)
		Dim FilePath
		Set NC_Admin = New Check
		NC_Admin.Check
		Set Rs = Server.CreateObject("adodb.recordset")
		SQL = "select * from NC_SoftInfo where softid = " & softid
		Rs.Open SQL, Conn, 1, 1
		If Rs.bof And Rs.EOF Then
			Response.Write "Sorry！还没有找到任何信息！"
			Exit Sub
		Else
			sortid = Rs("sortid")
		End If
		If CInt(DownsysClass.Setting(5)) = 0 Then
			FilePath = Server.MapPath(DownsysClass.SetupDir & "Software/Catalog" & sortid & "/" & softid & ".html")
			Set FSO = Server.CreateObject(DownsysClass.Script_FSO)
			If FSO.FileExists(FilePath) Then
				FSO.DeleteFile FilePath
			End If
			Set FSO = Nothing
		End If
	End Sub
	'*************************************************************
	'函数作用：当前位置
	'*************************************************************
	Private Function NowStation(sortid, SortName, ParentID, strParent)
		Dim Rs
		Dim SQL
		Dim HtmlString
		Dim SoftType,ii
	SoftType = Split(DownsysClass.Setting(35), ",")
	 ii = Trim(Request("ado"))

		Set Rs = Server.CreateObject("adodb.recordset")
		If ParentID <> 0 And Len(strParent) <> 0 Then
			SQL = "select sortid,sortname from [NC_SoftSort] where sortid in(" & strParent & ")"
			Rs.Open SQL, Conn, 1, 1
			If Not (Rs.EOF And Rs.bof) Then
				Do While Not Rs.EOF
					If CInt(DownsysClass.Setting(5)) = 0 Then
						HtmlString = HtmlString & "<a href='" & DownsysClass.SetupDir & "Sorting"& ii &"/Catalog" & Rs(0) & "/Sorting_Indate_Desc_1.html'>" & Rs(1) & "</a>→"
					Else
						HtmlString = HtmlString & "<a href='" & DownsysClass.SetupDir & "Sorting.asp?sortid=" & Rs(0) & "'>" & Rs(1) & "</a>→"
					End If
					Rs.movenext
				Loop
			End If
			Rs.Close
			Set Rs = Nothing
		End If
		If CInt(DownsysClass.Setting(5)) = 0 Then
			HtmlString = HtmlString & "<a href='" & DownsysClass.SetupDir & "Sorting"& ii &"/Catalog" & sortid & "/Sorting_Indate_Desc_1.html'>" & SortName & "</a>"
		Else
			HtmlString = HtmlString & "<a href='" & DownsysClass.SetupDir & "Sorting.asp?sortid=" & sortid & "'>" & SortName & "</a>"
		End If
		NowStation = HtmlString
	End Function
	'*************************************************************
	'函数作用：信息服务器
	'*************************************************************
	Private Function DownLoadUrl(softid)
		Dim Rs, Rss
		Dim SQL
		Dim HtmlString
		Set Rs = Server.CreateObject("ADODB.Recordset")
		Set Rss = Server.CreateObject("ADODB.Recordset")
		SQL = "select  * from  NC_SoftSite where SoftID=" & softid
		Rs.Open SQL, Conn, 1, 1
		If Rs.bof And Rs.EOF Then
			HtmlString = "还没有添加通讯方式!"
		Else
			Do While Not Rs.EOF
				If Rs("serverid") = 0 Then
					HtmlString = HtmlString & "&nbsp;&nbsp;<img src='" & DownsysClass.SetupDir & "images/download.gif' border=0> <a href='" & DownsysClass.SetupDir & "down.asp?id=" & Rs("id") & "&downid=" & Rs("serverid") & "'>" & Trim(Rs("SiteName")) & "</a><BR>"
				Else
					SQL = "select  * from NC_ServerSite where depth = 1 And rootid = " & Rs("serverid") & " order by orders"
					Rss.Open SQL, Conn, 1, 1
					If Rss.bof And Rss.EOF Then
						HtmlString = HtmlString & "还没有添加信息服务器!"
					Else
						Do While Not Rss.EOF
							HtmlString = HtmlString & "&nbsp;&nbsp;<img src='" & DownsysClass.SetupDir & "images/download.gif' border=0> <a href='" & DownsysClass.SetupDir & "down.asp?id=" & Rs("id") & "&downid=" & Rss("serverid") & "'>" & Trim(Rss("ServerName")) & "</a><BR>"
							Rss.movenext
						Loop
					End If
					Rss.Close
				End If
				Rs.movenext
			Loop
		End If
		Rs.Close
		Set Rss = Nothing
		Set Rs = Nothing
		DownLoadUrl = HtmlString
	End Function
	'*************************************************************
	'函数作用：留言询价信息
	'*************************************************************
	Private Function SoftEssayInfo(softid)
		Dim Rss
		Dim SQL
		Dim HtmlString
		Set Rss = Server.CreateObject("ADODB.Recordset")
		SQL = "select top " & CInt(DownsysClass.TempSet(5)) & " * from NC_SoftEssay where softid=" & softid & " order by ID desc"
		Rss.Open SQL, Conn, 1, 1
		If Rss.bof And Rss.EOF Then
			HtmlString = ""
		Else
			Do While Not Rss.EOF
				HtmlString = HtmlString & "用户名：" & Rss("username") & " 　参与时间：" & Rss("postime") & "<BR>"
				HtmlString = HtmlString & "　 · " & DownsysClass.gotTopic(Rss("content"), CInt(DownsysClass.TempSet(6))) & "<BR>"
				Rss.movenext
			Loop
		End If
		Rss.Close
		Set Rss = Nothing
		SoftEssayInfo = HtmlString
	End Function
	'*************************************************************
	'函数作用：相关产品
	'*************************************************************
	
	Private Function GetKeySoftware(Keys, keyid)
		Dim Rss, SQL, HtmlString, SoftName, SoftTime, username
		Set Rss = Server.CreateObject("adodb.recordset")
		SQL = "select top " & CInt(DownsysClass.TempSet(8)) & " SoftID,sortid,SoftName,SoftVer,softimg,softTime,Hits,SoftTime,islock,username from NC_SoftInfo where userName like '%" & Keys & "%' and  SoftID <> " & keyid & " and islock = 0 "
		Rss.Open SQL, Conn, 1, 1
		If Not (Rss.EOF And Rss.bof) Then
			Do While Not Rss.EOF
			for i = 1 to 2
			if not Rss.eof then
				HtmlString = HtmlString & DownsysClass.TempSet(10)
				If CInt(DownsysClass.Setting(5)) = 0 Then
					SoftName = "<td><TABLE cellSpacing=0 cellPadding=0 width=98%  border=0> <TBODY><TR><TD width=20% height=64 align=middle><TABLE class=picstyle cellSpacing=0 cellPadding=0 width=64  border=0><TBODY><TR><TD align=middle height=64><A class=M href='" & DownsysClass.SetupDir & "Software/Catalog" & Rss(1) & "/" & Rss(0) & ".html' target=_blank><IMG  src=" & Rss(4) & " onload='javascript:if(this.height>this.width){this.height=" & DownsysClass.TempSet(14) & "}else{this.width=" & DownsysClass.TempSet(13) & "}' border=0 ></A></TD></TR></TBODY></TABLE> </TD><TD width=80% bgColor=#ffffff ><A HREF='" & DownsysClass.SetupDir & "Software/Catalog" & Rss(1) & "/" & Rss(0) & ".html'>" & DownsysClass.gotTopic(Rss(2) & " " & Rss(3), CInt(DownsysClass.TempSet(9))) & "</A><BR>  <FONT color=#666666>" & Rss(5) & "</FONT></TD></TR></TBODY></TABLE></td>"
				Else
					SoftName = "<A HREF='" & DownsysClass.SetupDir & "Software.asp?id=" & Rss(0) & "'>" & DownsysClass.gotTopic(Rss(2) & " " & Rss(3), CInt(DownsysClass.TempSet(9))) & "</A>"
				End If
				'SoftTime = Month(Rss("SoftTime")) & "/" & Day(Rss("SoftTime"))
				'HtmlString = Replace(HtmlString, "{$SoftHits}", Rss("Hits"))
				'HtmlString = Replace(HtmlString, "{$SoftTime}", SoftTime)
				HtmlString = Replace(HtmlString, "{$SoftName}", SoftName)
				Rss.movenext
			else
				HtmlString = HtmlString & DownsysClass.TempSet(10)
				If CInt(DownsysClass.Setting(5)) = 0 Then
					SoftName = "</TR><td></td>"
				Else
					SoftName = "</TR><td></td>"
				End If
				'SoftTime = Month(Rss("SoftTime")) & "/" & Day(Rss("SoftTime"))
				'HtmlString = Replace(HtmlString, "{$SoftHits}", Rss("Hits"))
				'HtmlString = Replace(HtmlString, "{$SoftTime}", SoftTime)
				HtmlString = Replace(HtmlString, "{$SoftName}", SoftName)
			end if
			next
				HtmlString = HtmlString & DownsysClass.TempSet(10)
				If CInt(DownsysClass.Setting(5)) = 0 Then
					SoftName = "</tr><tr><td height=1  align=center ></td></tr><tr >"
				Else
					SoftName = "</tr><tr><td height=1  align=center ></td></tr><tr >"
				End If
				'SoftTime = Month(Rss("SoftTime")) & "/" & Day(Rss("SoftTime"))
				'HtmlString = Replace(HtmlString, "{$SoftHits}", Rss("Hits"))
				'HtmlString = Replace(HtmlString, "{$SoftTime}", SoftTime)
				HtmlString = Replace(HtmlString, "{$SoftName}", SoftName)

			Loop
		End If
		Rss.Close
		 Set Rss = Nothing
		GetKeySoftware = HtmlString
	End Function
	'*************************************************************
	'函数作用：相关文章
	'*************************************************************
	Private Function GetKeyArticle(Keys)
		Dim Rss, SQL, HtmlString, Topic, InfoTime
		Set Rss = Server.CreateObject("adodb.recordset")
		SQL = "select top " & CInt(DownsysClass.TempSet(8)) & " id,classid,title,Hits,InfoTime,islock from NC_Article where title like '%" & Left((Keys), 4) & "%' and islock = 0"
		Rss.Open SQL, Conn, 1, 1
		If Not (Rss.EOF And Rss.bof) Then
			Do While Not Rss.EOF
				HtmlString = HtmlString & DownsysClass.TempSet(11)
				If CInt(DownsysClass.Setting(5)) = 0 Then
					Topic = "<A HREF='" & DownsysClass.SetupDir & "Article/Catalog" & Rss("classid") & "/" & Rss("id") & ".html' >" & DownsysClass.gotTopic(Rss("title"), CInt(DownsysClass.TempSet(9))) & "</A>"
				Else
					Topic = "<A HREF='" & DownsysClass.SetupDir & "Article.asp?id=" & Rss("id") & "' >" & DownsysClass.gotTopic(Rss("title"), CInt(DownsysClass.tempset(9))) & "</A>"
				End If
				'InfoTime = Month(Rss("InfoTime")) & "/" & Day(Rss("InfoTime"))
				'HtmlString = Replace(HtmlString, "{$Hits}", Rss("Hits"))
				'HtmlString = Replace(HtmlString, "{$InfoTime}", InfoTime)
				HtmlString = Replace(HtmlString, "{$Topic}", Topic)
				Rss.movenext
			Loop
		End If
		Rss.Close
		Set Rss = Nothing
		GetKeyArticle = HtmlString
	End Function
'搜索下拉框选择项目(整体分类部分：供应、求购)
Private Function sousuo()
Dim SoftType
Dim HtmlShowPage
Dim ii
			HtmlShowPage = HtmlShowPage &" <select name=""action""> "
            HtmlShowPage = HtmlShowPage &" <option value=""soft"" selected>全部信息</option>"
			SoftType = Split(DownsysClass.Setting(35), ",")
			For ii = 0 To UBound(SoftType)
			HtmlShowPage = HtmlShowPage & "<option value=""soft"& ii &""">" & Trim(SoftType(ii)) & "</option>"
			Next
			HtmlShowPage = HtmlShowPage & "<option value=""info"">文章搜索</option></SELECT>"
	sousuo = HtmlShowPage
End Function

End Class
%>