📄 create_newcommendcls.asp
字号:
<%
Class Create_NewCommend_Cls
Private ErrMsg
Private SucMsg
Private Founderr
Private NC_Admin, Rs, SQL
Private maxperpage, CurrentPage, totalnumber, bookmark, tempPcount
Private i, HtmlTempStr, NewCloud_Ads, Style_CSS, showpage, FileName
Private SoftImg, SoftName, SoftTime, SoftSize, SoftReadme, isCommend
Private TempString, HtmlTemplate, SortName
Private NowStats, HtmlTitle, ii
Private stype, SofType, SoftTypeSrt
Private Sub Class_Initialize()
On Error Resume Next
Founderr = False
Set Rs = Server.CreateObject("ADODB.Recordset")
Set NewCloud_Ads = New Adcolumn_Cls
End Sub
Private Sub Class_Terminate()
If IsObject(Conn) Then
Conn.Close
Set Conn = Nothing
End If
Set NC_Admin = Nothing
Set Newasp = Nothing
End Sub
Public Sub LateNewSoft()
stype = Replace(Request("type"), "'", "''")
If CInt(Newasp.Setting(5)) = 0 Then Response.redirect (Newasp.SetupDir & "Codelist/Latenew.html")
Response.Write LateNewInfo(stype)
End Sub
Public Sub Init_CreateLateNew()
Set NC_Admin = New Check
NC_Admin.AdminChk = "33"
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
SofType = Split(Newasp.Setting(35), ",")
For ii = 0 To UBound(SofType)
FileName = Newasp.SetupDir & "Codelist/Latenew" & ii & ".html"
HtmlTempStr = LateNewInfo(SofType(ii))
Newasp.CreateNewFiles FileName, HtmlTempStr
Next
FileName = Newasp.SetupDir & "Codelist/Latenew.html"
HtmlTempStr = LateNewInfo("")
Newasp.CreateNewFiles FileName, HtmlTempStr
NC_Admin.Succeed_Msg ("生成最近更新软件的HTML页完成!")
Response.Write "<meta http-equiv=""refresh"" content=""2;url='Create_codesort.Asp'"">"
Newasp.admin_footer
End Sub
Private Function LateNewInfo(stype)
Newasp.LoadTemplates ("")
stype = Trim(Replace(stype, "'", "''"))
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)
Set Rs = Server.CreateObject("adodb.recordset")
If stype <> "" Then
SQL = "select top " & CInt(Newasp.mainset(29)) & " * from [NC_Softinfo] where isLock=0 and SoftType='" & stype & "' order by SoftTime desc,SoftID desc"
SoftTypeSrt = stype
Else
SQL = "select top " & CInt(Newasp.mainset(29)) & " * from [NC_Softinfo] where isLock=0 order by SoftTime desc,SoftID desc"
SoftTypeSrt = "最近更新软件"
End If
NowStats = SoftTypeSrt
HtmlTitle = SoftTypeSrt
HtmlTempStr = HtmlTempStr & Newasp.mainhtml(6)
If CInt(Newasp.Setting(5)) = 0 Then
HtmlTempStr = Replace(HtmlTempStr, "{$NewAllName}", "Latenew.html")
Else
HtmlTempStr = Replace(HtmlTempStr, "{$NewAllName}", "Latenew.Asp")
End If
Dim SoftType, NewFileName
SoftType = Split(Newasp.Setting(35), ",")
For i = 0 To UBound(SoftType)
HtmlTempStr = HtmlTempStr & Newasp.mainhtml(7)
If CInt(Newasp.Setting(5)) = 0 Then
NewFileName = "Latenew" & i & ".html"
Else
NewFileName = "?type=" & Trim(SoftType(i))
End If
If Trim(SoftType(i)) = stype Then HtmlTempStr = Replace(HtmlTempStr, "{$Selected}", "selected")
HtmlTempStr = Replace(HtmlTempStr, "{$SoftTypeName}", Trim(SoftType(i)))
HtmlTempStr = Replace(HtmlTempStr, "{$NewFileName}", NewFileName)
Next
HtmlTempStr = HtmlTempStr & Newasp.mainhtml(8)
Rs.Open SQL, Conn, 1, 1
If Rs.bof And Rs.EOF Then
HtmlTempStr = HtmlTempStr & "<tr><td colspan=5 class=Border2>还没有找到任何软件！</td></tr>"
Else
Do While Not Rs.EOF
HtmlTempStr = HtmlTempStr & Newasp.mainhtml(9)
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
If CInt(Newasp.Setting(5)) = 0 Then
SoftName = "<a href='" & Newasp.SetupDir & "Codelist/Catalog" & Rs("sortid") & "/" & Rs("softid") & ".html'>" & Rs("SoftName") & Rs("SoftVer") & "</A>"
SortName = "<a href='" & Newasp.SetupDir & "codesort/Catalog" & Rs("sortid") & "/codesort_Indate_Desc_1.html'>" & Rs("SortName") & "</a>"
Else
SoftName = "<a href='" & Newasp.SetupDir & "Codelist.Asp?id=" & Rs("softid") & "'>" & Rs("SoftName") & Rs("SoftVer") & "</A>"
SortName = "<a href='" & Newasp.SetupDir & "codesort.Asp?sortid=" & Rs("sortid") & "'>" & Rs("SortName") & "</a>"
End If
HtmlTempStr = Replace(HtmlTempStr, "{$Grades}", Rs("Grades"))
HtmlTempStr = Replace(HtmlTempStr, "{$SoftSize}", SoftSize)
HtmlTempStr = Replace(HtmlTempStr, "{$SoftName}", SoftName)
HtmlTempStr = Replace(HtmlTempStr, "{$SoftTime}", SoftTime)
HtmlTempStr = Replace(HtmlTempStr, "{$SortName}", SortName)
Rs.movenext
Loop
End If
Rs.Close
Set Rs = Nothing
HtmlTempStr = HtmlTempStr & Newasp.mainhtml(10)
HtmlTempStr = HtmlTempStr & Newasp.mainhtml(4)
If CInt(Newasp.Setting(5)) = 0 Then
HtmlTempStr = Replace(HtmlTempStr, "{$TopMeun}", Newasp.mainset(9))
Else
HtmlTempStr = Replace(HtmlTempStr, "{$TopMeun}", Newasp.mainset(10))
End If
HtmlTempStr = Replace(HtmlTempStr, "{$NowStats}", NowStats)
HtmlTempStr = Replace(HtmlTempStr, "{$Title}", HtmlTitle)
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))
LateNewInfo = HtmlTempStr
End Function
Public Sub Init_CreateCommend()
Set NC_Admin = New Check
NC_Admin.AdminChk = "33"
NC_Admin.Check
Newasp.admin_header
Newasp.LoadTemplates ("")
If CInt(Newasp.Setting(5)) = 1 Then
NC_Admin.Error_Msg ("对不起!你选择的是动态ASP程序,不能生成HTML文件,请在基本设置修改成静态HTML方能生成THML文件。")
Exit Sub
End If
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
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
i = 0
TempString = Newasp.mainhtml(11)
Do While Not Rs.EOF And i < CLng(maxperpage)
TempString = TempString & 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/Catalog" & Rs("sortid") & "/" & Rs("softid") & ".html'>" & Rs("SoftName") & Rs("SoftVer") & "</A> "
SoftReadme = Newasp.CutString(Rs("Content"), CInt(Newasp.mainset(32)))
TempString = Replace(TempString, "{$Grades}", Rs("Grades"))
TempString = Replace(TempString, "{$SoftSize}", SoftSize)
TempString = Replace(TempString, "{$SoftName}", SoftName)
TempString = Replace(TempString, "{$SoftTime}", SoftTime)
TempString = Replace(TempString, "{$SoftReadme}", SoftReadme)
TempString = Replace(TempString, "{$SoftPic}", SoftImg)
TempString = Replace(TempString, "{$Commend}", isCommend)
TempString = Replace(TempString, "{$Hits}", Rs("Hits"))
TempString = Replace(TempString, "{$RunSystem}", Rs("RunSystem"))
TempString = Replace(TempString, "{$Impower}", Rs("impower"))
Rs.movenext
i = i + 1
If i >= maxperpage Then Exit Do
Loop
showpage = HtmlShowPage(maxperpage, totalnumber, CurrentPage)
TempString = TempString & Newasp.mainhtml(13)
TempString = Replace(TempString, "{$ShowPage}", showpage)
HtmlTemplate = HtmlTempStr & TempString & Newasp.mainhtml(4)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -