📄 ks_channelfoldercls.asp
字号:
.Write " <option value='4'>" & YearStr & "/" & MonthStr & "/RE" & "</option>" & vbCrLf
.Write " <option value='5'>" & YearStr & "-" & MonthStr & "/RE" & "</option>" & vbCrLf
.Write " <option value='6'>" & YearStr & MonthStr & DayStr & "/RE</option>" & vbCrLf
.Write " <option value='7'>" & YearStr & "/RE</option>" & vbCrLf
.Write " <option value='8'>" & YearStr & MonthStr & DayStr & "RE</option>" & vbCrLf
.Write " <Option value='9' selected>RE</Option>"
.Write " <option value='10'>SCE</option>"
.Write " </select> </td>"
.Write " </tr>" & vbCrLf
.Write " <tr>" & vbCrLf
.Write " <td height='30' colspan='3' align='right' nowrap> <div align='center'><strong><span id='ShowAS1'></Span></strong> </div></td>" & vbCrLf
.Write " </tr>" & vbCrLf
If FolderID = "0" Then
.Write " <tr>"
.Write " <td height='30' align='right' nowrap>绑定域名<font color='#FF0000'>(子域名)</font>：<br>" & vbCrLf
.Write " <font color='#0000FF'>仅对第一级栏目有效</font></td>" & vbCrLf
.Write " <td width='20' height='28' align='right' nowrap> <div align='center'></div></td>" & vbCrLf
.Write " <td height='28' nowrap><b>" & vbCrLf
.Write " <INPUT NAME='FolderDomain' TYPE='text' id='FolderDomain' style='border-style: solid; border-width: 1' size=30>"
.Write " </b>如：http://news.h121.com/ </td>" & vbCrLf
.Write " </tr>" & vbCrLf
Else
.Write " <INPUT NAME='FolderDomain' TYPE='hidden' value='" & FolderDomain & "'>" & vbCrLf
End If
.Write " <tr>"
.Write " <td height='30' align='right' nowrap>" & TempStr & "系号：</td>" & vbCrLf
.Write " <td height='28' align='right' nowrap> </td>" & vbCrLf
.Write " <td height='28' nowrap> <input name='FolderOrder' type='text' id='FolderOrder2' value='0' style='border-style: solid; border-width: 1'>"
.Write " 请输入1000以内的" & TempStr & "系号 </td>" & vbCrLf
.Write " </tr>" & vbCrLf
.Write " </table>" & vbCrLf
.Write " </FIELDSET>" & vbCrLf
.Write " </td>" & vbCrLf
.Write " </tr>" & vbCrLf
.Write " </table>" & vbCrLf
.Write " <table width='100%' height='30' border='0' cellpadding='0' cellspacing='0'>" & vbCrLf
.Write " <tr>" & vbCrLf
.Write " <td height='40' align='center'>" & vbCrLf
.Write " <input type='button' name='Submit' Onclick='CheckForm()' value=' 确 定 '>" & vbCrLf
.Write " <input type='button' name='Submit2' onclick='window.close()' value=' 取 消 '>" & vbCrLf
.Write " </td>" & vbCrLf
.Write " </tr>" & vbCrLf
.Write " </table>" & vbCrLf
.Write " </form>" & vbCrLf
.Write "</body>" & vbCrLf
.Write "</html>" & vbCrLf
.Write "<Script Language='javascript'>" & vbCrLf
.Write "<!--" & vbCrLf
.Write "function SelectArticleFsoType(ObjValue)" & vbCrLf
.Write "{ var ChannelDomain='" & KSCMS.GetChannelDomain(ChannelID) & "分类目录/';" & vbCrLf
Dim N
Randomize
N = Rnd * 10 + 5
.Write "switch (ObjValue)" & vbCrLf
.Write " {" & vbCrLf
.Write " case '1' :ShowAS1.innerHTML=ChannelDomain+'<font color=red>" & YearStr & "/" & MonthStr & "-" & DayStr & "/" & KSCMS.MakeRandom(N) & "' + document.CreateFolderForm.ArticleFnameType.value + '</font>'; break;" & vbCrLf
.Write " case '2' :ShowAS1.innerHTML=ChannelDomain+'<font color=red>" & YearStr & "/" & MonthStr & "/" & DayStr & "/" & KSCMS.MakeRandom(N) & "' + document.CreateFolderForm.ArticleFnameType.value + '</font>'; break;" & vbCrLf
.Write " case '3' :ShowAS1.innerHTML=ChannelDomain+'<font color=red>" & YearStr & "-" & MonthStr & "-" & DayStr & "/" & KSCMS.MakeRandom(N) & "' + document.CreateFolderForm.ArticleFnameType.value + '</font>'; break;" & vbCrLf
.Write " case '4' :ShowAS1.innerHTML=ChannelDomain+'<font color=red>" & YearStr & "/" & MonthStr & "/" & KSCMS.MakeRandom(N) & "' + document.CreateFolderForm.ArticleFnameType.value + '</font>'; break;" & vbCrLf
.Write " case '5' :ShowAS1.innerHTML=ChannelDomain+'<font color=red>" & YearStr & "-" & MonthStr & "/" & KSCMS.MakeRandom(N) & "' + document.CreateFolderForm.ArticleFnameType.value + '</font>'; break;" & vbCrLf
.Write " case '6' :ShowAS1.innerHTML=ChannelDomain+'<font color=red>" & YearStr & MonthStr & DayStr & "/" & KSCMS.MakeRandom(N) & "' + document.CreateFolderForm.ArticleFnameType.value + '</font>'; break;" & vbCrLf
.Write " case '7' :ShowAS1.innerHTML=ChannelDomain+'<font color=red>" & YearStr & "/" & KSCMS.MakeRandom(N) & "' + document.CreateFolderForm.ArticleFnameType.value + '</font>'; break;" & vbCrLf
.Write " case '8' :ShowAS1.innerHTML=ChannelDomain+'<font color=red>" & YearStr & MonthStr & DayStr & KSCMS.MakeRandom(N) & "' + document.CreateFolderForm.ArticleFnameType.value + '</font>'; break;" & vbCrLf
.Write " case '9' :ShowAS1.innerHTML=ChannelDomain+'<font color=red>" & KSCMS.MakeRandom(N) & "'+ document.CreateFolderForm.ArticleFnameType.value + '</font>'; break;" & vbCrLf
.Write " case '10' :ShowAS1.innerHTML=ChannelDomain+'<font color=red>" & KSCMS.MakeRandomChar(N) & "'+ document.CreateFolderForm.ArticleFnameType.value + '</font>'; break;" & vbCrLf
.Write " }"
.Write "}" & vbCrLf
.Write "function CheckForm()" & vbCrLf
.Write "{ var form=document.CreateFolderForm;" & vbCrLf
.Write " if (form.FolderName.value=='')" & vbCrLf
.Write " {" & vbCrLf
.Write " alert('请输入" & TempStr & "的中文名称!');" & vbCrLf
.Write " form.FolderName.focus();" & vbCrLf
.Write " return false;" & vbCrLf
.Write " }" & vbCrLf
.Write " if (form.FolderName.value.length>50)" & vbCrLf
.Write " {" & vbCrLf
.Write " alert('" & TempStr & "中文名称不能超过25个汉字(50个英文字符)!');" & vbCrLf
.Write " form.FolderName.focus();" & vbCrLf
.Write " return false;" & vbCrLf
.Write " }" & vbCrLf
.Write " if (form.FolderEname.value=='')" & vbCrLf
.Write " {" & vbCrLf
.Write " alert('请输入" & TempStr & "的英文名称!');" & vbCrLf
.Write " form.FolderEname.focus();" & vbCrLf
.Write " return false;" & vbCrLf
.Write " }" & vbCrLf
.Write " if (CheckEnglishStr(form.FolderEname,'" & TempStr & "的英文名称')==false)" & vbCrLf
.Write " return false;" & vbCrLf
.Write " if (CheckNumber(form.FolderOrder,'" & TempStr & "系号')==false)" & vbCrLf
.Write " return false;" & vbCrLf
.Write " form.submit();" & vbCrLf
.Write " form.reset();" & vbCrLf
.Write " return true;" & vbCrLf
.Write "}"
.Write "//-->"
.Write "</Script>"
End With
End Sub
'添加频道目录的保存过程
'参数:ChannelID--频道ID,ReturnUrl---添加成功或出错时返回的路径
Sub ChannelFolderAddSave(ChannelID, ReturnUrl)
Dim ID, TJ, FolderName, Folder, ClassID, TS, AddDate, FolderTemplateID, FolderFsoIndex
Dim ArticleTemplateID, ArticleFnameType, ArticleFsoType, FolderDomain, FolderOrder, CurrPath, TopFlag
Dim RSC
Dim FolderEName,ClassPurview
Set RSC=Server.CreateObject("ADODB.Recordset")
FolderName = Replace((Replace(Trim(Request("FolderName")), "'", "")), """", "")
FolderEName = Replace((Replace(Trim(Request("FolderEName")), "'", "")), """", "")
ID = Trim(Request("FolderID"))
If ID = "" Then ID = "0"
If ID <> "0" Then
Folder = "" & Trim(Request("Folder")) & "" & FolderEName & "/"
Else
Folder = "" & FolderEName & "/"
End If
If Trim(FolderName) = "" Then
Call KSCMS.Alert("目录中文名称不能为空!", ReturnUrl & "?FolderID=" & ID)
Set KSCMS = Nothing
.End
End If
If KSCMS.strLength(Trim(FolderName)) > 50 Then
Call KSCMS.Alert("目录中文名称不能超过25个汉字(50个英文字符)!", ReturnUrl & "?FolderID=" & ID)
Set KSCMS = Nothing
.End
End If
If Trim(Request("FolderEName")) = "" Then
Call KSCMS.Alert("目录英文名称不能为空!", ReturnUrl & "?FolderID=" & ID)
Set KSCMS = Nothing
.End
End If
TS = Trim(Request("TS"))
AddDate = Now()
TopFlag = Request.Form("TopFlag")
If TopFlag = "" Then TopFlag = 0
FolderTemplateID = Request("FolderTemplateID")
FolderFsoIndex = Request("FolderFsoIndex")
ArticleTemplateID = Request("ArticleTemplateID")
ArticleFnameType = Request("ArticleFnameType")
ArticleFsoType = Request("ArticleFsoType")
FolderDomain = Replace(Replace(Trim(Request("FolderDomain")), "'", ""), """", "")
FolderOrder = Request("FolderOrder")
ClassPurview=KSCMS.G("ClassPurview")
If FolderTemplateID = 0 Or ArticleTemplateID = 0 Then
Call KSCMS.Alert("对不起,添加新频道应先将模板导入数据库!", ReturnUrl & "?FolderID=" & ID)
Set KSCMS = Nothing
Exit Sub
End If
If Not IsNumeric(Request("FolderOrder")) Then
Call KSCMS.Alert("栏目系号必须用数字!", ReturnUrl & "?FolderID=" & ID)
Set KSCMS = Nothing
Exit Sub
End If
If FolderOrder >= 1000 Then
Call KSCMS.Alert("栏目系号必须在1000以内!", ReturnUrl & "?FolderID=" & ID)
Set KSCMS = Nothing
Exit Sub
End If
If Not IsDate(AddDate) Then
Call KSCMS.Alert("目录创建日期格式有误!", ReturnUrl & "?FolderID=" & ID)
Set KSCMS = Nothing
Exit Sub
End If
TJ = Request.Form("TJ")
RSC.Open "Select FolderName,Folder From KS_Class Where TN='" & ID & "' And FolderName= '" & FolderName & "'", Conn, 1, 1
If Not RSC.EOF Then
If RSC(0) = FolderName Then
Call KSCMS.Alert("名称已存在,请用其它名称!", ReturnUrl & "?FolderID=" & ID)
Set KSCMS = Nothing
.End
End If
If RSC(1) = Folder Then
Call KSCMS.Alert("英文名称已存在,请用其它英文名称!", ReturnUrl & "?FolderID=" & ID)
Set KSCMS = Nothing
.End
End If
End If
RSC.Close
Dim RST
Set RST=Server.CreateObject("ADODB.Recordset")
RST.Open "select * from KS_Class", Conn, 1, 3
RST.AddNew
ClassID = KSCMS.GetClassID() '调用函数取新的目录ID
RST("ID") = ClassID
RST("Creater") = Request.Cookies(KSCMS.SiteSn)("AdminName")
RST("CreateDate") = AddDate
RST("folder") = Folder
RST("FolderName") = FolderName
If ID <> "" Then
RST("TN") = ID
Else
RST("TN") = "0"
End If
RST("TJ") = TJ
RST("TS") = "" & TS & "" & ClassID & ","
RST("FolderTemplateID") = FolderTemplateID
RST("TopFlag") = TopFlag
RST("FolderFsoIndex") = FolderFsoIndex
RST("ArticleTemplateID") = ArticleTemplateID
RST("ArticleFnameType") = ArticleFnameType
RST("ArticleFsoType") = ArticleFsoType
RST("FolderDomain") = FolderDomain
RST("FolderOrder") = FolderOrder
RST("ChannelID") = ChannelID
RST("CommentTF")=KSCMS.G("CommentTF")
RST("DelTF") = 0
RST("OrderID") = 0
RST("ClassPurview")=ClassPurview
RST.Update
RST.Close
Response.Write ("<script>if (confirm('创建成功,继续创建吗?')) {location.href='" & ReturnUrl & "?FolderID=" & ID & "';}else{window.close();}</script>")
Set RST = Nothing
End Sub
'编辑频道或栏目的过程
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -