create_softinfocls.asp
来自「多用户管理分权限发布、管理软件信息； 自由选择系统默认为静态HTML或动态A」· ASP 代码 · 共 636 行 · 第 1/2 页
ASP
636 行
AllHits = Rs("Hits")
Grades = Rs("Grades")
'impower = Rs("impower")
RunSystem = Rs("RunSystem")
SoftType = Trim(Rs("softType"))
Language = Trim(Rs("Language"))
If Not IsNull(Trim(Rs("softimg"))) And Trim(Rs("softimg")) <> "" Then
SoftImg = "<img src='" & Rs("softimg") & "' width='" & Newasp.TempSet(13) & "' height='" & Newasp.TempSet(14) & "' border='0'>"
Else
SoftImg = NewCloud_Ads.AdsColumn(3, 7)
End If
If Not IsNull(Trim(Rs("PreviewImg"))) And Trim(Rs("PreviewImg")) <> "" Then
PreviewImg = "<a href='" & Newasp.SetupDir & "PreviewImg.asp?SoftID=" & softid & "' target='_blank'><img src='" & Newasp.SetupDir & "images/screen.gif' border='0' align='absmiddle' title='查看预览图'>"
PreviewPic = "<img src='"& Trim(Rs("PreviewImg")) &"' border='0'>"
Else
PreviewImg = "没有预览图片"
PreviewPic = "没有预览图片"
End If
If Len(Rs("Contact")) = 0 Then
Contact = Newasp.TempSet(16)
Else
Contact = Newasp.TempSet(17)
Contact = Replace(Contact, "{$ContactSite}", Trim(Rs("Contact")))
End If
If Len(Rs("Homepage")) = 0 Then
Homepage = Newasp.TempSet(4)
Else
Homepage = Newasp.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")
CreateNewFolder (CLng(sortid))
End If
Rs.Close
NowStats = NowStation(sortid, SortName, ParentID, strParent) & "→" & SoftName
HtmlTitle = SoftName
If Len(Newasp.temphtml(0)) < 50 Then
TempTopStr = Newasp.mainhtml(0) & Newasp.mainhtml(1) & Newasp.mainhtml(2) & Newasp.mainhtml(3)
Else
TempTopStr = Newasp.temphtml(0)
End If
If Len(Newasp.temphtml(4)) = 0 Then
TempFootStr = Newasp.mainhtml(4)
Else
TempFootStr = Newasp.temphtml(4)
End If
Style_CSS = Replace(Replace(Newasp.Style_CSS, "{$SetupDir}", Newasp.SetupDir), "{$PicUrl}", Newasp.TempDir)
HtmlTempStr = TempTopStr & Newasp.temphtml(1) & Newasp.temphtml(2) & Newasp.temphtml(3) & TempFootStr
HtmlTempStr = Replace(HtmlTempStr, "{$NavMenu}", Newasp.SortingMenu)
HtmlTempStr = Replace(HtmlTempStr, "{$Width}", Newasp.mainset(0))
HtmlTempStr = Replace(HtmlTempStr, "{$Style_CSS}", Style_CSS)
If CInt(Newasp.Setting(5)) = 0 Then
HtmlTempStr = Replace(HtmlTempStr, "{$TopMeun}", Newasp.mainset(9))
Else
HtmlTempStr = Replace(HtmlTempStr, "{$TopMeun}", Newasp.mainset(10))
End If
strDecode=Rs("Decode")
impower=Rs("zhuyan")
HtmlTempStr = Replace(HtmlTempStr, "{$FootMeun}", Newasp.mainset(11))
HtmlTempStr = Replace(HtmlTempStr, "{$NowStats}", NowStats)
HtmlTempStr = Replace(HtmlTempStr, "{$Title}", HtmlTitle)
'HtmlTempStr = Replace(HtmlTempStr, "{$SoftName}", SoftName)
'HtmlTempStr = Replace(HtmlTempStr, "{$SoftID}", softid)
HtmlTempStr = Replace(HtmlTempStr, "{$SortID}", sortid)
HtmlTempStr = Replace(HtmlTempStr, "{$SortName}", SortName)
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, "{$RunSystem}", impower)
HtmlTempStr = Replace(HtmlTempStr, "{Impowerr}",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(SoftName, softid))
HtmlTempStr = Replace(HtmlTempStr, "{$KeyArticle}", GetKeyArticle(SoftName))
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(0)}", NewCloud_Ads.RunScriptAds(3))
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(1)}", NewCloud_Ads.BannerAds(3))
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(2)}", NewCloud_Ads.AdsColumn(3, 2))
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(3)}", NewCloud_Ads.AdsColumn(3, 3))
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(6)}", NewCloud_Ads.AdsColumn(3, 7))
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(4)}", NewCloud_Ads.ScriptFloatAds(3))
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(5)}", NewCloud_Ads.ScriptFixedAds(3))
Set Rs = Nothing
HtmlTemplate = HtmlTempStr
If CInt(Newasp.Setting(5)) = 0 Then
CreateHtmlFile sortid, softid, HtmlTemplate
Else
CreateSoftInfo = HtmlTemplate
End If
End Function
'*************************************************************
'函数作用：生成HTML文件
'*************************************************************
Private Function CreateHtmlFile(sortid, softid, HtmlTemplate)
Dim CreateHtml
Dim FSO
Dim Fout
Dim CreatePath
Set FSO = Server.CreateObject(Newasp.Script_FSO)
CreatePath = "" & Newasp.SetupDir & "Software/Catalog" & sortid & "/" & softid & ".html"
CreateHtml = Server.MapPath(CreatePath)
Set Fout = FSO.CreateTextFile(CreateHtml)
Fout.WriteLine HtmlTemplate
Fout.Close
Set Fout = Nothing
Set FSO = Nothing
End Function
'*************************************************************
'函数作用：按分类ID生成文件目录
'*************************************************************
Private Function CreateNewFolder(FolderID)
Dim FSO
Dim FolderPath
If CInt(Newasp.Setting(5)) = 1 Then Exit Function
FolderPath = Newasp.SetupDir & "Software/Catalog" & FolderID
Set FSO = Server.CreateObject(Newasp.Script_FSO)
If FSO.FolderExists(Server.MapPath(FolderPath)) = False Then
FSO.CreateFolder Server.MapPath(FolderPath)
End If
Set FSO = Nothing
End Function
'*************************************************************
'函数作用：当前位置
'*************************************************************
Private Function NowStation(sortid, SortName, ParentID, strParent)
Dim Rs
Dim SQL
Dim HtmlString
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(Newasp.Setting(5)) = 0 Then
HtmlString = HtmlString & "<a href='" & Newasp.SetupDir & "Sorting/Catalog" & Rs(0) & "/Sorting_Indate_Desc_1.html'>" & Rs(1) & "</a>→"
Else
HtmlString = HtmlString & "<a href='" & Newasp.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(Newasp.Setting(5)) = 0 Then
HtmlString = HtmlString & "<a href='" & Newasp.SetupDir & "Sorting/Catalog" & sortid & "/Sorting_Indate_Desc_1.html'>" & SortName & "</a>"
Else
HtmlString = HtmlString & "<a href='" & Newasp.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 & " <img src='" & Newasp.SetupDir & "images/download.gif' border=0> <a href='" & Newasp.SetupDir & "download.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 & " <img src='" & Newasp.SetupDir & "images/download.gif' border=0> <a href='" & Newasp.SetupDir & "download.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(Newasp.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 & " · " & Newasp.gotTopic(Rss("content"), CInt(Newasp.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
Set Rss = Server.CreateObject("adodb.recordset")
SQL = "select top " & CInt(Newasp.TempSet(8)) & " SoftID,sortid,SoftName,SoftVer,Hits,SoftTime from NC_SoftInfo where SoftName like '%" & Left((Keys), 4) & "%' and SoftID <> " & keyid
Rss.Open SQL, Conn, 1, 1
If Not (Rss.EOF And Rss.bof) Then
Do While Not Rss.EOF
HtmlString = HtmlString & Newasp.TempSet(10)
If CInt(Newasp.Setting(5)) = 0 Then
SoftName = "<A HREF='" & Newasp.SetupDir & "Software/Catalog" & Rss(1) & "/" & Rss(0) & ".html' title='软件名称: " & Rss(2) & Rss(3) & "<BR>更新时间: " & Rss(5) & "<BR>下载次数: " & Rss(4) & "'>" & Newasp.gotTopic(Rss(2) & Rss(3), CInt(Newasp.TempSet(9))) & "</A>"
Else
SoftName = "<A HREF='" & Newasp.SetupDir & "Software.asp?id=" & Rss(0) & "' title='软件名称: " & Rss(2) & Rss(3) & "<BR>更新时间: " & Rss(5) & "<BR>下载次数: " & Rss(4) & "'>" & Newasp.gotTopic(Rss(2) & Rss(3), CInt(Newasp.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
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(Newasp.TempSet(8)) & " id,classid,title,Hits,InfoTime from NC_Article where title like '%" & Left((Keys), 4) & "%' "
Rss.Open SQL, Conn, 1, 1
If Not (Rss.EOF And Rss.bof) Then
Do While Not Rss.EOF
HtmlString = HtmlString & Newasp.TempSet(11)
If CInt(Newasp.Setting(5)) = 0 Then
Topic = "<A HREF='" & Newasp.SetupDir & "Article/Catalog" & Rss("classid") & "/" & Rss("id") & ".html' title='文章标题: " & Rss("title") & "<BR>更新时间: " & Rss("InfoTime") & "<BR>浏览次数: " & Rss("Hits") & "'>" & Newasp.gotTopic(Rss("title"), CInt(Newasp.TempSet(9))) & "</A>"
Else
Topic = "<A HREF='" & Newasp.SetupDir & "Article.asp?id=" & Rss("id") & "' title='文章标题: " & Rss("Title") & "<BR>更新时间: " & Rss("InfoTime") & "<BR>浏览次数: " & Rss("Hits") & "'>" & Newasp.gotTopic(Rss("title"), CInt(Newasp.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
Public Sub GetSoftInfo()
If CInt(Newasp.Setting(5)) = 0 Then Response.redirect (Newasp.SetupDir & Newasp.Setting(6))
If Not IsNumeric(Request("id")) And Request("id") <> "" Then
Response.Write "错误的系统参数!ID必须是数字"
Response.End
End If
If Request("id") = 0 Or Request("id") = "" Then
Response.Write "<BR><BR><BR>Sorry！错误的系统参数,请选择正确的连接方式。"
Response.End
Else
softid = CLng(Request("id"))
End If
Response.Write CreateSoftInfo(softid)
End Sub
Private Sub UpdateAllSoft()
Newasp.Execute ("update NC_SoftInfo set isUpdate=1")
Response.Redirect (Request.ServerVariables("HTTP_REFERER"))
End Sub
End Class
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?