📄 cls.create.asp
字号:
<%
Class Cls_Create
'c
Private cRs,cCityID,cDir,cTime,cTemp,cClassID,cI,cN,cCityList,cCity
Private Sub Class_Initialize()
Set ClsPage = New Cls_Page
Set cRs = Server.CreateObject("ADODB.RecordSet")
Call WRMPS.FsoBegin()
End Sub
Private Sub Class_Terminate()
Call WRMPS.FsoEnd()
Set cRs = Nothing
Set ClsPage = Nothing
End Sub
Function GetCityList(cCityID)
cRs.Open "Select Top 1 WM_ParentPath From WM_Area Where WM_ID="&cCityID&" and WM_ParentID > 0",Conn,1,1
If Not cRs.Eof Then
GetCityList = cRs(0)
GetCityList = Right(GetCityList,Len(GetCityList)-2)
End If
cRs.Close
If GetCityList <> "" Then GetCityList = cCityID&","&GetCityList Else GetCityList = cCityID
End Function
'分类信息ID，生成或删除，内容ID
'cCreType 是否只生成内容页，对新发布信息有用 0只发布内容页 1发布所有 2只发布首页
Public Sub CreClass(cMode,cID,cCreType)
cRs.Open "Select Top 1 B.WM_ChannelDir,B.WM_ChannelName,B.WM_Module,B.WM_Title,B.WM_Re,B.WM_ChannelLogo,B.WM_MetaKey,B.WM_MetaContent,B.WM_CreateHTML,B.WM_StructureType,B.WM_FileNameType,B.WM_FileExt_Index,B.WM_FileExt_Item,B.WM_ID,A.WM_AreaID,A.WM_PostTime,A.WM_ClassDir From WM_ClassAD A Inner Join WM_Channel B on A.WM_ChannelID = B.WM_ID Where A.WM_ID="&cID&" and B.WM_ChannelType > 0",Conn,1,1
If Not cRs.Eof Then
ChannelID = cRs(13)
ChannelDir = cRs(0)
ChannelName = cRs(1)
Module = cRs(2)
ChannelTitle = cRs(3)
Revert = cRs(4)
ChannelLogo = cRs(5)
MetaKey = cRs(6)
MetaContent = cRs(7)
CreateHTML = cRs(8)
StructureType = cRs(9)
FileNameType = cRs(10)
FileExt_Index = cRs(11)
FileExt_Item = cRs(12)
cCityID = cRs(14)
cDir = ChannelDir&cRs(16)
cTime = cRs(15)
End If
cRs.Close
cCityList = GetCityList(cCityID) '得到所有上级城市列表
If Ucase(cMode) = "DEL" Then Conn.Execute ("Delete From WM_ClassAD Where WM_ID = " & cID & ""):Call WRMPS.FsoDel("Dir",WR_Setting(3)&WR_UpLoad(0)&"/"&WR_UpLoad(47)&"/C/"&cID&"/")
If CreateHTML > 1 Then
If cCreType = 0 Or cCreType = 1 Then
'操作内容页
Call GetCityInfo(cCityID)
Select Case Ucase(cMode)
Case "CRE"
cTemp = ClsPage.PageClassShow(cID)
Call WRMPS.CreFolder(WRMPS.GetShowUrl(1,1,1,cID,cTime,cDir,2))
Call WRMPS.CreateFile(WRMPS.GetShowUrl(1,1,2,cID,cTime,cDir,2),cTemp)
Case "DEL"
Call WRMPS.FsoDel("File",WRMPS.GetShowUrl(1,1,2,cID,cTime,cDir,2))
End Select
End If
If cCreType = 1 Or cCreType = 2 Then
'操作频道首页
If CreateHTML = 2 Then
Call GetCityInfo(0)'首页
cTemp = ClsPage.PageClassIndex()
Call WRMPS.CreateFile("../"&ChannelDir&"/Index."&FileExt_Index,cTemp)
cCity = Split(cCityList,",")
For cI=0 To UBound(cCity)
If cCity(cI) <> "" Then
If GetCityInfo(cCity(cI)) Then
cTemp = ClsPage.PageClassIndex()
Call WRMPS.CreFolder("../City/"&cCity(cI)&"/"&ChannelDir)
Call WRMPS.CreateFile("../City/"&cCity(cI)&"/"&ChannelDir&"/Index."&FileExt_Index,cTemp)
End If
End If
Next
End If
End If
End If
If cCreType = 1 Or cCreType = 2 Then
If Ucase(WR_Setting(15)) <> "ASP" Then Call CreIndex(cCityID,cCityList)
End If
End Sub
'###############################################################################################
'文章ID，生成或删除，内容ID
'cCreType 是否只生成内容页，对新发布信息有用 0只发布内容页 1发布所有 2只发布首页
Public Sub CreArticle(cMode,cID,cCreType)
cRs.Open "Select Top 1 B.WM_ChannelDir,B.WM_ChannelName,B.WM_Module,B.WM_Title,B.WM_Re,B.WM_ChannelLogo,B.WM_MetaKey,B.WM_MetaContent,B.WM_CreateHTML,B.WM_StructureType,B.WM_FileNameType,B.WM_FileExt_Index,B.WM_FileExt_Item,B.WM_ID,A.WM_AddTime,A.WM_ClassDir From WM_Article A Inner Join WM_Channel B on A.WM_ChannelID = B.WM_ID Where A.WM_ID="&cID&" and B.WM_ChannelType > 0",Conn,1,1
If Not cRs.Eof Then
ChannelID = cRs(13)
ChannelDir = cRs(0)
ChannelName = cRs(1)
Module = cRs(2)
ChannelTitle = cRs(3)
Revert = cRs(4)
ChannelLogo = cRs(5)
MetaKey = cRs(6)
MetaContent = cRs(7)
CreateHTML = cRs(8)
StructureType = cRs(9)
FileNameType = cRs(10)
FileExt_Index = cRs(11)
FileExt_Item = cRs(12)
cDir = ChannelDir&cRs(15)
cTime = cRs(14)
End If
cRs.Close
If CreateHTML > 1 Then
If cCreType = 0 Or cCreType = 1 Then
'操作内容页
Call GetCityInfo(0)
Select Case Ucase(cMode)
Case "CRE"
Call WRMPS.CreFolder(WRMPS.GetShowUrl(1,1,1,cID,cTime,cDir,ChannelID))
For cI = 1 To ClsPage.PageArticleShow(cID,1,1,1)
cTemp = ClsPage.PageArticleShow(cID,cI,0,1)
Call WRMPS.CreateFile(WRMPS.GetShowUrl(1,cI,2,cID,cTime,cDir,ChannelID),cTemp)
Next
Case "DEL"
Call WRMPS.CreFolder(WRMPS.GetShowUrl(1,1,1,cID,cTime,cDir,ChannelID))
For cI = 1 To ClsPage.PageArticleShow(cID,1,1,1)
Call WRMPS.FsoDel("File",WRMPS.GetShowUrl(1,cI,2,cID,cTime,cDir,ChannelID))
Next
End Select
End If
If cCreType = 1 Or cCreType = 2 Then
'操作频道首页
If CreateHTML = 2 Then
ClassID=""
Call GetCityInfo(0)
cTemp = ClsPage.PageArticleIndex(ChannelID)
Call WRMPS.CreateFile("../"&ChannelDir&"/Index."&FileExt_Index,cTemp)
End If
End If
End If
If Ucase(cMode) = "DEL" Then Conn.Execute ("Delete From WM_Article Where WM_ID = " & cID & "")
If cCreType = 1 Or cCreType = 2 Then
If Ucase(WR_Setting(15)) <> "ASP" Then Call CreIndex(0,"")
End If
End Sub
'###############################################################################################
'站点首页
Sub CreIndex(cCityID,cCityList)
ChannelID = ""
Call GetCityInfo(0)
cTemp = ClsPage.PageIndex(0)
Call WRMPS.CreateFile("../Index."&WR_Setting(15),cTemp)
If cCityList <> "" Then
cCity = Split(cCityList,",")
For cI=0 To UBound(cCity)
If cCity(cI) <> "" Then
If GetCityInfo(cCity(cI)) Then
cTemp = ClsPage.PageIndex(cCity(cI))
Call WRMPS.CreFolder("../City/"&cCity(cI)&"/")
Call WRMPS.CreateFile("../City/"&cCity(cI)&"/Index."&WR_Setting(15),cTemp)
End If
End If
Next
End If
End Sub
End Class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -