📄 admin_createother.asp
字号:
If UseCreateHTML > 0 And (ClassPurview = 0 Or rsArticle(2) = -1) Then
strHTML = strHTML & "<li><a href='" & preurl & GetItemPath(StructureType, ParentDir, ClassDir, rsArticle(5)) & GetItemFileName(FileNameType, iChannelDir, rsArticle(5), rsArticle(0)) & arrFileExt(FileExt_Item) & "'>" & rsArticle(3) & "</a> - [" & iAuthor & "]</li>" & vbCrLf
Else
strHTML = strHTML & "<li><a href='" & preurl & "/ShowSoft.asp?SoftID=" & rsArticle(0) & "'>" & rsArticle(3) & "</a> - [" & iAuthor & "]</li>" & vbCrLf
End If
i = i + 1
If i > MaxPerPage Then
strtmp = "<html>" & vbCrLf
strtmp = strtmp & "<head>" & vbCrLf
strtmp = strtmp & "<title>" & SiteName & "-SiteMap</title>" & vbCrLf
strtmp = strtmp & "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" & vbCrLf
strtmp = strtmp & "<link href='" & InstallDir & "Skin/DefaultSkin.css' rel='stylesheet' type='text/css'>" & vbCrLf
strtmp = strtmp & "</head>" & vbCrLf
strtmp = strtmp & "<body><table width='760' align='center'><tr><td>" & vbCrLf
strtmp = strtmp & "<a href='" & SiteUrl & "'>" & SiteName & "</a> >> 网站地图 >> 第" & CurrentPage & "页:<br>" & vbCrLf
strtmp = strtmp & strHTML & "<br><br>分页:"
For j = 1 To totalPage
If CurrentPage = j Then
If (j Mod MaxPageCol) = 0 Then
strtmp = strtmp & " [" & j & "]<br>"
Else
strtmp = strtmp & " [" & j & "] "
End If
Else
If (j Mod MaxPageCol) = 0 Then
strtmp = strtmp & " <a href='" & InstallDir & "SiteMap/Soft" & j & ".htm'>" & j & "</a><br>"
Else
strtmp = strtmp & " <a href='" & InstallDir & "SiteMap/Soft" & j & ".htm'>" & j & "</a> "
End If
End If
Next
strtmp = strtmp & "</td></tr></table></body>" & vbCrLf
strtmp = strtmp & "</html>" & vbCrLf
Call WriteToFile(InstallDir & "SiteMap/Soft" & CurrentPage & ".htm", strtmp)
Response.Write "<br> 生成页面（<a href='" & InstallDir & "SiteMap/Soft" & CurrentPage & ".htm' target='_blank'>" & SiteUrl & "SiteMap/Soft" & CurrentPage & ".htm</a>）<font color=red>成功!</font>"
CurrentPage = CurrentPage + 1
i = 1
strHTML = ""
End If
oldChannelID = rsArticle(1)
rsArticle.movenext
Loop
Set rsChannel = Nothing
strtmp = "<html>" & vbCrLf
strtmp = strtmp & "<head>" & vbCrLf
strtmp = strtmp & "<title>" & SiteName & "-SiteMap</title>" & vbCrLf
strtmp = strtmp & "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" & vbCrLf
strtmp = strtmp & "<link href='" & InstallDir & "Skin/DefaultSkin.css' rel='stylesheet' type='text/css'>" & vbCrLf
strtmp = strtmp & "</head>" & vbCrLf
strtmp = strtmp & "<body><table width='760' align='center'><tr><td>" & vbCrLf
strtmp = strtmp & "<a href='" & SiteUrl & "'>" & SiteName & "</a> >> 网站地图 >> 第" & CurrentPage & "页:<br>" & vbCrLf
strtmp = strtmp & strHTML & "<br><br>分页:"
For j = 1 To totalPage
If CurrentPage = j Then
If (j Mod MaxPageCol) = 0 Then
strtmp = strtmp & " [" & j & "]<br>"
Else
strtmp = strtmp & " [" & j & "] "
End If
Else
If (j Mod MaxPageCol) = 0 Then
strtmp = strtmp & " <a href='" & InstallDir & "SiteMap/Soft" & j & ".htm'>" & j & "</a><br>"
Else
strtmp = strtmp & " <a href='" & InstallDir & "SiteMap/Soft" & j & ".htm'>" & j & "</a> "
End If
End If
Next
strtmp = strtmp & "</td></tr></table></body>" & vbCrLf
strtmp = strtmp & "</html>" & vbCrLf
Call WriteToFile(InstallDir & "SiteMap/Soft" & CurrentPage & ".htm", strtmp)
Response.Write "<br> 生成页面（<a href='" & InstallDir & "SiteMap/Soft" & CurrentPage & ".htm' target='_blank'>" & SiteUrl & "SiteMap/Soft" & CurrentPage & ".htm</a>）<font color=red>成功!</font>"
strHTML = strHTML & "<br>" & vbCrLf
End If
rsArticle.Close
Set rsArticle = Nothing
End Sub
Sub OutPhotoMap()
Dim rsArticle, sqlArticle, rsChannel, strHTML, totalPut, totalPage, CurrentPage, i, j
Dim iChannelDir, ChannelType, LinkUrl, preurl, UseCreateHTML, StructureType, FileNameType, FileExt_Item, ClassDir, ParentDir, ClassPurview, iAuthor
Dim oldChannelID: oldChannelID = 0
sqlArticle = "select top " & OutNum & " A.PhotoID,A.ChannelID,A.ClassID,A.PhotoName,A.Author,A.UpdateTime,A.Status,A.Deleted,A.InfoPoint,C.ClassDir,C.ParentDir,C.ClassPurview from PE_Photo A left join PE_Class C on A.ClassID=C.ClassID Where A.Status=3 and A.Deleted=" & PE_False & " order by A.PhotoID Desc"
Set rsArticle = Server.CreateObject("adodb.recordset")
rsArticle.Open sqlArticle, Conn, 1, 1
If rsArticle.bof And rsArticle.EOF Then
Response.Write "尚无内容!暂不生成页面!<br>"
Else
totalPut = rsArticle.recordcount
If (totalPut Mod MaxPerPage) = 0 Then
totalPage = totalPut \ MaxPerPage
Else
totalPage = totalPut \ MaxPerPage + 1
End If
i = 1
CurrentPage = 1
Do While Not rsArticle.EOF
ClassDir = rsArticle(9)
ParentDir = rsArticle(10)
ClassPurview = rsArticle(11)
If rsArticle(1) <> oldChannelID Then
Set rsChannel = Conn.Execute("select Top 1 ChannelID,ChannelDir,ChannelType,LinkUrl, UseCreateHTML,StructureType,FileNameType,FileExt_Item from PE_Channel where ChannelID=" & rsArticle(1))
If Not (rsChannel.bof And rsChannel.EOF) Then
iChannelDir = rsChannel("ChannelDir")
UseCreateHTML = rsChannel("UseCreateHTML")
StructureType = PE_CLng(rsChannel("StructureType"))
FileNameType = rsChannel("FileNameType")
FileExt_Item = rsChannel("FileExt_Item")
ChannelType = rsChannel("ChannelType")
LinkUrl = rsChannel("LinkUrl")
End If
rsChannel.Close
If LinkUrl <> "" Then
preurl = LinkUrl
Else
preurl = SiteUrl & iChannelDir
End If
End If
iAuthor = rsArticle(4)
If UseCreateHTML > 0 And (ClassPurview = 0 Or rsArticle(2) = -1) And rsArticle(8) = 0 Then
strHTML = strHTML & "<li><a href='" & preurl & GetItemPath(StructureType, ParentDir, ClassDir, rsArticle(5)) & GetItemFileName(FileNameType, iChannelDir, rsArticle(5), rsArticle(0)) & arrFileExt(FileExt_Item) & "'>" & rsArticle(3) & "</a> - [" & iAuthor & "]</li>" & vbCrLf
Else
strHTML = strHTML & "<li><a href='" & preurl & "/ShowPhoto.asp?PhotoID=" & rsArticle(0) & "'>" & rsArticle(3) & "</a> - [" & iAuthor & "]</li>" & vbCrLf
End If
i = i + 1
If i > MaxPerPage Then
strtmp = "<html>" & vbCrLf
strtmp = strtmp & "<head>" & vbCrLf
strtmp = strtmp & "<title>" & SiteName & "-SiteMap</title>" & vbCrLf
strtmp = strtmp & "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" & vbCrLf
strtmp = strtmp & "<link href='" & InstallDir & "Skin/DefaultSkin.css' rel='stylesheet' type='text/css'>" & vbCrLf
strtmp = strtmp & "</head>" & vbCrLf
strtmp = strtmp & "<body><table width='760' align='center'><tr><td>" & vbCrLf
strtmp = strtmp & "<a href='" & SiteUrl & "'>" & SiteName & "</a> >> 网站地图 >> 第" & CurrentPage & "页:<br>" & vbCrLf
strtmp = strtmp & strHTML & "<br><br>分页:"
For j = 1 To totalPage
If CurrentPage = j Then
If (j Mod MaxPageCol) = 0 Then
strtmp = strtmp & " [" & j & "]<br>"
Else
strtmp = strtmp & " [" & j & "] "
End If
Else
If (j Mod MaxPageCol) = 0 Then
strtmp = strtmp & " <a href='" & InstallDir & "SiteMap/Photo" & j & ".htm'>" & j & "</a><br>"
Else
strtmp = strtmp & " <a href='" & InstallDir & "SiteMap/Photo" & j & ".htm'>" & j & "</a> "
End If
End If
Next
strtmp = strtmp & "</td></tr></table></body>" & vbCrLf
strtmp = strtmp & "</html>" & vbCrLf
Call WriteToFile(InstallDir & "SiteMap/Photo" & CurrentPage & ".htm", strtmp)
Response.Write "<br> 生成页面（<a href='" & InstallDir & "SiteMap/Photo" & CurrentPage & ".htm' target='_blank'>" & SiteUrl & "SiteMap/Photo" & CurrentPage & ".htm</a>）<font color=red>成功!</font>"
CurrentPage = CurrentPage + 1
i = 1
strHTML = ""
End If
oldChannelID = rsArticle(1)
rsArticle.movenext
Loop
Set rsChannel = Nothing
strtmp = "<html>" & vbCrLf
strtmp = strtmp & "<head>" & vbCrLf
strtmp = strtmp & "<title>" & SiteName & "-SiteMap</title>" & vbCrLf
strtmp = strtmp & "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" & vbCrLf
strtmp = strtmp & "<link href='" & InstallDir & "Skin/DefaultSkin.css' rel='stylesheet' type='text/css'>" & vbCrLf
strtmp = strtmp & "</head>" & vbCrLf
strtmp = strtmp & "<body><table width='760' align='center'><tr><td>" & vbCrLf
strtmp = strtmp & "<a href='" & SiteUrl & "'>" & SiteName & "</a> >> 网站地图 >> 第" & CurrentPage & "页:<br>" & vbCrLf
strtmp = strtmp & strHTML & "<br><br>分页:"
For j = 1 To totalPage
If CurrentPage = j Then
If (j Mod MaxPageCol) = 0 Then
strtmp = strtmp & " [" & j & "]<br>"
Else
strtmp = strtmp & " [" & j & "] "
End If
Else
If (j Mod MaxPageCol) = 0 Then
strtmp = strtmp & " <a href='" & InstallDir & "SiteMap/Photo" & j & ".htm'>" & j & "</a><br>"
Else
strtmp = strtmp & " <a href='" & InstallDir & "SiteMap/Photo" & j & ".htm'>" & j & "</a> "
End If
End If
Next
strtmp = strtmp & "</td></tr></table></body>" & vbCrLf
strtmp = strtmp & "</html>" & vbCrLf
Call WriteToFile(InstallDir & "SiteMap/Photo" & CurrentPage & ".htm", strtmp)
Response.Write "<br> 生成页面（<a href='" & InstallDir & "SiteMap/Photo" & CurrentPage & ".htm' target='_blank'>" & SiteUrl & "SiteMap/Photo" & CurrentPage & ".htm</a>）<font color=red>成功!</font>"
strHTML = strHTML & "<br>" & vbCrLf
End If
rsArticle.Close
Set rsArticle = Nothing
End Sub
Sub OutProductMap()
Dim rsArticle, sqlArticle, rsChannel, strHTML, totalPut, totalPage, CurrentPage, i, j
Dim iChannelDir, ChannelType, LinkUrl, preurl, UseCreateHTML, StructureType, FileNameType, FileExt_Item, ClassDir, ParentDir, ClassPurview, iAuthor
Dim oldChannelID: oldChannelID = 0
sqlArticle = "select top " & OutNum & " A.ProductID,A.ChannelID,A.ClassID,A.ProductName,A.ProducerName,A.UpdateTime,A.EnableSale,A.Deleted,C.ClassDir,C.ParentDir,C.ClassPurview from PE_Product A left join PE_Class C on A.ClassID=C.ClassID Where A.Deleted=" & PE_False & " and A.EnableSale=" & PE_True & " order by A.ProductID Desc"
Set rsArticle = Server.CreateObject("adodb.recordset")
rsArticle.Open sqlArticle, Conn, 1, 1
If rsArticle.bof And rsArticle.EOF Then
Response.Write "尚无内容!暂不生成页面!<br>"
Else
totalPut = rsArticle.recordcount
If (totalPut Mod MaxPerPage) = 0 Then
totalPage = totalPut \ MaxPerPage
Else
totalPage = totalPut \ MaxPerPage + 1
End If
i = 1
CurrentPage = 1
Do While Not rsArticle.EOF
ClassDir = rsArticle(8)
ParentDir = rsArticle(9)
ClassPurview = rsArticle(10)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -