📄 create_newcommendcls.asp
字号:
HtmlTemplate = Replace(HtmlTemplate, "{$TopMeun}", Newasp.mainset(10))
HtmlTemplate = Replace(HtmlTemplate, "{$NowStats}", "推荐软件")
HtmlTemplate = Replace(HtmlTemplate, "{$Title}", "推荐软件")
HtmlTemplate = Replace(HtmlTemplate, "{$Width}", Newasp.mainset(0))
HtmlTemplate = Replace(HtmlTemplate, "{$FootMeun}", Newasp.mainset(11))
HtmlTemplate = Replace(HtmlTemplate, "{$Adcolumn(0)}", NewCloud_Ads.RunScriptAds(7))
HtmlTemplate = Replace(HtmlTemplate, "{$Adcolumn(1)}", NewCloud_Ads.BannerAds(7))
HtmlTemplate = Replace(HtmlTemplate, "{$Adcolumn(2)}", NewCloud_Ads.AdsColumn(7, 2))
HtmlTemplate = Replace(HtmlTemplate, "{$Adcolumn(3)}", NewCloud_Ads.AdsColumn(7, 3))
HtmlTemplate = Replace(HtmlTemplate, "{$Adcolumn(6)}", NewCloud_Ads.AdsColumn(7, 7))
HtmlTemplate = Replace(HtmlTemplate, "{$Adcolumn(4)}", NewCloud_Ads.ScriptFloatAds(7))
HtmlTemplate = Replace(HtmlTemplate, "{$Adcolumn(5)}", NewCloud_Ads.ScriptFixedAds(7))
FileName = Newasp.SetupDir & "Codelist/Commend_" & CurrentPage & ".html"
Newasp.CreateNewFiles FileName, HtmlTemplate
Next
End If
Rs.Close
Set Rs = Nothing
NC_Admin.Succeed_Msg ("生成推荐软件的HTML页完成!")
Response.Write "<meta http-equiv=""refresh"" content=""2;url='Create_codesort.Asp'"">"
Newasp.admin_footer
End Sub
Public Sub CommendSoft()
If Not IsEmpty(Request.Querystring("page")) Then
CurrentPage = CInt(Request.Querystring("page"))
Else
CurrentPage = 1
End If
If CInt(Newasp.Setting(5)) = 0 Then Response.redirect (Newasp.SetupDir & "Codelist/Commend_1.html")
Newasp.LoadTemplates ("")
Style_CSS = Replace(Replace(Newasp.Style_CSS, "{$SetupDir}", Newasp.SetupDir), "{$PicUrl}", Newasp.TempDir)
HtmlTempStr = Newasp.mainhtml(0) & Newasp.mainhtml(1) & Newasp.mainhtml(2) & Newasp.mainhtml(3)
HtmlTempStr = Replace(HtmlTempStr, "{$NavMenu}", Newasp.codesortMenu)
HtmlTempStr = Replace(HtmlTempStr, "{$Style_CSS}", Style_CSS)
maxperpage = CInt(Newasp.mainset(31))
SQL = "select top " & CInt(Newasp.mainset(30)) & " * from NC_softinfo where isLock=0 and iscommend=1 or softimg<>'' order by softTime desc,SoftID desc"
Rs.Open SQL, Conn, 1, 1
If Not (Rs.EOF And Rs.bof) Then
totalnumber = Rs.recordcount
If (totalnumber Mod maxperpage) = 0 Then
tempPcount = totalnumber \ maxperpage
Else
tempPcount = totalnumber \ maxperpage + 1
End If
Rs.MoveFiRst
If CurrentPage > tempPcount Then CurrentPage = tempPcount
If CurrentPage < 1 Then CurrentPage = 1
Rs.Move (CurrentPage - 1) * maxperpage
bookmark = Rs.bookmark
i = 0
HtmlTempStr = HtmlTempStr & Newasp.mainhtml(11)
Do While Not Rs.EOF And i < CLng(maxperpage)
HtmlTempStr = HtmlTempStr & Newasp.mainhtml(12)
If Not IsNull(Rs("softimg")) And Rs("softimg") <> "" Then
SoftImg = "<img src=""" & Rs("softimg") & """ width='" & Newasp.mainset(41) & "' height='" & Newasp.mainset(42) & "' border=0>" & vbCrLf
Else
SoftImg = "<img src=""" & Newasp.SetupDir & "images/NoPic.jpg"" width='" & Newasp.mainset(41) & "' height='" & Newasp.mainset(42) & "' border=0>" & vbCrLf
End If
If Rs("isCommend") = 1 Then
isCommend = "<font color=red>推荐</font>"
Else
isCommend = " "
End If
If Rs("SoftSize") > 1024 Then
SoftSize = Round(Rs("SoftSize") / 1024, 2) & " MB"
Else
SoftSize = Rs("SoftSize") & " KB "
End If
If Rs("SoftTime") >= Date Then
SoftTime = "<FONT color=red>" & FormatDateTime(Rs("SoftTime"), 2) & "</FONT >"
Else
SoftTime = FormatDateTime(Rs("SoftTime"), 2)
End If
SoftName = "<a href='" & Newasp.SetupDir & "Codelist.Asp?id=" & Rs("softid") & "'>" & Rs("SoftName") & Rs("SoftVer") & "</A> "
SoftReadme = Newasp.CutString(Rs("Content"), CInt(Newasp.mainset(32)))
HtmlTempStr = Replace(HtmlTempStr, "{$Grades}", Rs("Grades"))
HtmlTempStr = Replace(HtmlTempStr, "{$SoftSize}", SoftSize)
HtmlTempStr = Replace(HtmlTempStr, "{$SoftName}", SoftName)
HtmlTempStr = Replace(HtmlTempStr, "{$SoftTime}", SoftTime)
HtmlTempStr = Replace(HtmlTempStr, "{$Commend}", isCommend)
HtmlTempStr = Replace(HtmlTempStr, "{$SoftReadme}", SoftReadme)
HtmlTempStr = Replace(HtmlTempStr, "{$SoftPic}", SoftImg)
HtmlTempStr = Replace(HtmlTempStr, "{$Hits}", Rs("Hits"))
HtmlTempStr = Replace(HtmlTempStr, "{$RunSystem}", Rs("RunSystem"))
HtmlTempStr = Replace(HtmlTempStr, "{$Impower}", Rs("impower"))
Rs.movenext
i = i + 1
If i >= maxperpage Then Exit Do
Loop
End If
Rs.Close
showpage = AspShowPage(maxperpage, totalnumber, CurrentPage)
HtmlTempStr = HtmlTempStr & Newasp.mainhtml(13)
HtmlTempStr = Replace(HtmlTempStr, "{$ShowPage}", showpage)
HtmlTempStr = HtmlTempStr & Newasp.mainhtml(4)
HtmlTempStr = Replace(HtmlTempStr, "{$TopMeun}", Newasp.mainset(10))
HtmlTempStr = Replace(HtmlTempStr, "{$NowStats}", "推荐软件")
HtmlTempStr = Replace(HtmlTempStr, "{$Title}", "推荐软件")
HtmlTempStr = Replace(HtmlTempStr, "{$Width}", Newasp.mainset(0))
HtmlTempStr = Replace(HtmlTempStr, "{$FootMeun}", Newasp.mainset(11))
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(0)}", NewCloud_Ads.RunScriptAds(7))
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(1)}", NewCloud_Ads.BannerAds(7))
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(2)}", NewCloud_Ads.AdsColumn(7, 2))
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(3)}", NewCloud_Ads.AdsColumn(7, 3))
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(6)}", NewCloud_Ads.AdsColumn(7, 7))
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(4)}", NewCloud_Ads.ScriptFloatAds(7))
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(5)}", NewCloud_Ads.ScriptFixedAds(7))
Set Rs = Nothing
Response.Write HtmlTempStr
End Sub
Private Function HtmlShowPage(maxperpage, totalnumber, CurrentPage)
Dim n, HtmlString
If totalnumber Mod maxperpage = 0 Then
n = totalnumber \ maxperpage
Else
n = totalnumber \ maxperpage + 1
End If
HtmlString = HtmlString & "<table cellspacing=1 width='100%' border=0><form method=Post onChange=""submit()""><tr><td align=center> " & vbCrLf
HtmlString = HtmlString & "<font color='red'>推荐软件</font> " & vbCrLf
If CurrentPage < 2 Then
HtmlString = HtmlString & "" & totalnumber & "个 首 页 上一页 "
Else
HtmlString = HtmlString & "" & totalnumber & "个 <a href=commend_1.html>首 页</a> "
HtmlString = HtmlString & "<a href=commend_" & CurrentPage - 1 & ".html>上一页</a> "
End If
If n - CurrentPage < 1 Then
HtmlString = HtmlString & "下一页 尾 页 " & vbCrLf
Else
HtmlString = HtmlString & "<a href=commend_" & (CurrentPage + 1) & ".html>下一页</a>"
HtmlString = HtmlString & " <a href=commend_" & n & ".html>尾 页</a>" & vbCrLf
End If
HtmlString = HtmlString & " 页次：<strong><font color=red>" & CurrentPage & "</font>/" & n & "</strong>页"
HtmlString = HtmlString & " <b>" & maxperpage & "</b>个/页" & vbCrLf
HtmlString = HtmlString & " 转到："
HtmlString = HtmlString & "<select name='page' size='1' style=""font-size: 9pt"" onChange='javascript:window.open(this.options[this.selectedIndex].value,""_top"")'>" & vbCrLf
For ii = 1 To n
HtmlString = HtmlString & " <option value='commend_" & ii & ".html' "
If CurrentPage = CInt(ii) Then
HtmlString = HtmlString & "selected "
End If
HtmlString = HtmlString & ">第" & ii & "页</option>"
Next
HtmlString = HtmlString & " </select> " & vbCrLf
HtmlString = HtmlString & "</td></tr></FORM></table>" & vbCrLf
HtmlShowPage = HtmlString
End Function
Private Function AspShowPage(maxperpage, totalnumber, CurrentPage)
Dim n, HtmlString
If totalnumber Mod maxperpage = 0 Then
n = totalnumber \ maxperpage
Else
n = totalnumber \ maxperpage + 1
End If
HtmlString = HtmlString & "<table cellspacing=1 width='100%' border=0><form method=Post onChange=""submit()""><tr><td align=center> " & vbCrLf
HtmlString = HtmlString & "<font color='red'>推荐软件</font> " & vbCrLf
If CurrentPage < 2 Then
HtmlString = HtmlString & "" & totalnumber & "个 首 页 上一页 "
Else
HtmlString = HtmlString & "" & totalnumber & "个 <a href=?page=1>首 页</a> "
HtmlString = HtmlString & "<a href=?page=" & CurrentPage - 1 & ">上一页</a> "
End If
If n - CurrentPage < 1 Then
HtmlString = HtmlString & "下一页 尾 页 " & vbCrLf
Else
HtmlString = HtmlString & "<a href=?page=" & (CurrentPage + 1) & ">下一页</a>"
HtmlString = HtmlString & " <a href=?page=" & n & ">尾 页</a>" & vbCrLf
End If
HtmlString = HtmlString & " 页次：<strong><font color=red>" & CurrentPage & "</font>/" & n & "</strong>页"
HtmlString = HtmlString & " <b>" & maxperpage & "</b>个/页" & vbCrLf
HtmlString = HtmlString & " 转到："
HtmlString = HtmlString & "<select name='page' size='1' style=""font-size: 9pt"" onChange='javascript:window.open(this.options[this.selectedIndex].value,""_top"")'>" & vbCrLf
For ii = 1 To n
HtmlString = HtmlString & " <option value='?page=" & ii & "' "
If CurrentPage = CInt(ii) Then
HtmlString = HtmlString & "selected "
End If
HtmlString = HtmlString & ">第" & ii & "页</option>"
Next
HtmlString = HtmlString & " </select> " & vbCrLf
HtmlString = HtmlString & "</td></tr></FORM></table>" & vbCrLf
AspShowPage = HtmlString
End Function
Public Sub Init_CreateHotSoft()
Server.ScriptTimeout = 99999
Set NC_Admin = New Check
NC_Admin.AdminChk = "32"
NC_Admin.Check
Newasp.admin_header
If CInt(Newasp.Setting(5)) = 1 Then
NC_Admin.Error_Msg ("对不起!你选择的是动态ASP程序,不能生成HTML文件,请在基本设置修改成静态HTML方能生成THML文件。")
Exit Sub
End If
Newasp.LoadTemplates ("")
Style_CSS = Replace(Replace(Newasp.Style_CSS, "{$SetupDir}", Newasp.SetupDir), "{$PicUrl}", Newasp.TempDir)
HtmlTempStr = Newasp.mainhtml(0) & Newasp.mainhtml(1) & Newasp.mainhtml(2) & Newasp.mainhtml(3)
HtmlTempStr = Replace(HtmlTempStr, "{$NavMenu}", Newasp.codesortMenu)
HtmlTempStr = Replace(HtmlTempStr, "{$Style_CSS}", Style_CSS)
NowStats = "热门软件"
HtmlTitle = "热门软件"
Set Rs = Server.CreateObject("adodb.recordset")
maxperpage = CInt(Newasp.mainset(34))
SQL = "select top " & CInt(Newasp.mainset(33)) & " * from NC_SoftInfo where isLock=0 order by hits desc, SoftTime desc,SoftID desc"
Rs.Open SQL, Conn, 1, 1
If Not (Rs.EOF And Rs.bof) Then
totalnumber = Rs.recordcount
If (totalnumber Mod maxperpage) = 0 Then
tempPcount = totalnumber \ maxperpage
Else
tempPcount = totalnumber \ maxperpage + 1
End If
For CurrentPage = 1 To tempPcount
Rs.MoveFiRst
If CurrentPage > tempPcount Then CurrentPage = tempPcount
If CurrentPage < 1 Then CurrentPage = 1
Rs.Move (CurrentPage - 1) * maxperpage
bookmark = Rs.bookmark
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -