📄 ks_channelfoldercls.asp
字号:
Else
.Write ("<option value=" & TemplateRS(0) & ">" & TemplateRS(1) & "</option>")
End If
End If
TemplateRS.MoveNext
Loop
End If
TemplateRS.Close
.Write (" </select>")
.Write (" 生成的" & TempStr & "首页名称： ")
.Write (" <select name=""FolderFsoIndex"" id=""FolderFsoIndex"" style=""border-style: solid; border-width: 1"">")
.Write (" <option value=""index.html"">index.html</option>")
.Write (" <option value=""index.htm"" selected>index.htm</option>")
.Write (" <option value=""index.shtm"">index.shtm</option>")
.Write (" <option value=""index.shtml"">index.shtml</option>")
.Write (" <option value=""default.html"">default.html</option>")
.Write (" <option value=""default.htm"">default.htm</option>")
.Write (" <option value=""default.shtm"">default.shtm</option>")
.Write (" <option value=""default.shtml"">default.shtml</option>")
.Write (" <option value=""index.asp"">index.asp</option>")
.Write (" <option value=""" & RS("FolderFsoIndex") & """ selected>" & RS("FolderFsoIndex") & "</option>")
.Write (" </select> </td>")
.Write ("</tr>")
.Write ("<tr> ")
.Write (" <td width=""150"" height=""28"" align=""right"" nowrap> <div align=""center"">" & XMName & "页模板：</div></td>")
.Write (" <td height=""28"" nowrap> <select name=""ArticleTemplateID"" id=""ArticleTemplateID"">")
TemplateSql = "Select TemplateID,TemplateName,IsDefault From KS_Template Where ChannelID=" & ChannelID & " And TemplateType=3 Order By TemplateID" '3内容页模板
TemplateRS.Open TemplateSql, Conn, 1, 1
If TemplateRS.EOF And TemplateRS.BOF Then
.Write ("<option value=0>请先添加" & XMName & "模板</option>")
Else
Do While Not TemplateRS.EOF
If RS("ArticleTemplateID") = TemplateRS(0) Then
.Write ("<option value=" & TemplateRS(0) & " selected>" & TemplateRS(1) & "</option>")
Else
If TemplateRS("IsDefault") = 1 Then
.Write ("<option value=" & TemplateRS(0) & " selected>" & TemplateRS(1) & "</option>")
Else
.Write ("<option value=" & TemplateRS(0) & ">" & TemplateRS(1) & "</option>")
End If
End If
TemplateRS.MoveNext
Loop
End If
TemplateRS.Close
.Write (" </select>")
.Write (" 生成的" & XMName & "页扩展名： ")
.Write (" <select name=""ArticleFnameType"" id=""ArticleFnameType"" style=""border-style: solid; border-width: 1"">")
.Write (" <option value="".html"">.html</option>")
.Write (" <option value="".htm"">.htm</option>")
.Write (" <option value="".shtm"">.shtm</option>")
.Write (" <option value="".shtml"" selected>.shtml</option>")
.Write (" <option value="".asp"">.asp</option>")
.Write (" <option value=""" & RS("ArticleFnameType") & """ selected>" & RS("ArticleFnameType") & "</option>")
.Write (" </select> </td>")
.Write ("</tr>")
.Write ("<tr> ")
.Write (" <td width=""150"" height=""28"" align=""right"" nowrap> <div align=""center"">生成格式：</div></td>")
.Write (" <td height=""28"" nowrap> <select style=""width:200"" name=""ArticleFsoType"" id=""ArticleFsoType"" onChange=""SelectArticleFsoType(this.value);"">")
Dim SelStr
If ArticleFsoType = 1 Then
SelStr = " Selected"
Else
SelStr = ""
End If
.Write ("<option value=""1""" & SelStr & ">" & YearStr & "/" & MonthStr & "-" & DayStr & "/RE</option>")
If ArticleFsoType = 2 Then
SelStr = " Selected"
Else
SelStr = ""
End If
.Write ("<option value=""2""" & SelStr & ">" & YearStr & "/" & MonthStr & "/" & DayStr & "/RE</option>")
If ArticleFsoType = 3 Then
SelStr = " Selected"
Else
SelStr = ""
End If
.Write ("<option value=""3""" & SelStr & ">" & YearStr & "-" & MonthStr & "-" & DayStr & "/RE</option>")
If ArticleFsoType = 4 Then
SelStr = " Selected"
Else
SelStr = ""
End If
.Write ("<option value=""4""" & SelStr & ">" & YearStr & "/" & MonthStr & "/RE</option>")
If ArticleFsoType = 5 Then
SelStr = " Selected"
Else
SelStr = ""
End If
.Write ("<option value=""5""" & SelStr & ">" & YearStr & "-" & MonthStr & "/RE</option>")
If ArticleFsoType = 6 Then
SelStr = " Selected"
Else
SelStr = ""
End If
.Write ("<option value=""6""" & SelStr & ">" & YearStr & MonthStr & DayStr & "/RE</option>")
If ArticleFsoType = 7 Then
SelStr = " Selected"
Else
SelStr = ""
End If
.Write ("<option value=""7""" & SelStr & ">" & YearStr & "/RE</option>")
If ArticleFsoType = 8 Then
SelStr = " Selected"
Else
SelStr = ""
End If
.Write ("<option value=""8""" & SelStr & ">" & YearStr & MonthStr & DayStr & "RE</option>")
If ArticleFsoType = 9 Then
SelStr = " Selected"
Else
SelStr = ""
End If
.Write ("<Option value=""9""" & SelStr & ">RE</Option>")
If ArticleFsoType = 10 Then
SelStr = " Selected"
Else
SelStr = ""
End If
.Write ("<option value=""10""" & SelStr & ">SCE</option>")
.Write (" </select></td>")
.Write ("</tr>")
.Write ("<tr><td height=""22"" colspan=""2"" align=""right"" nowrap> <div align=""center""> <strong><span id=""ShowAS1""></Span></strong></div></td></tr>")
If ParentID = "0" Then
.Write ("<tr> ")
Else
.Write ("<tr style=""display:none""> ")
End If
.Write ("<td height=""28"" align=""right"" nowrap>")
.Write (" <div align=""center"">绑定域名：<br>")
.Write (" </div></td>")
.Write ("<td height=""28"" nowrap><b> ")
.Write ("<INPUT NAME=""FolderDomain"" TYPE=""text"" value=""" & Trim(RS("FolderDomain")) & """ style=""border-style: solid; border-width: 1"" size=""30"">")
.Write ("</b>如：http://news.h121.com/ </td>")
.Write ("</tr>")
.Write ("<tr> ")
.Write (" <td width=""150"" height=""28"" align=""right"" nowrap> <div align=""center"">" & TempStr & "系号：</div></td>")
.Write (" <td height=""28"" nowrap> <input name=""FolderOrder"" type=""text"" id=""FolderOrder"" value=""" & RS("FolderOrder") & """ style=""border-style: solid; border-width: 1"">")
.Write (" 请输入1000以内的" & TempStr & "系号 </td>")
.Write ("</tr>")
.Write ("</table>")
.Write ("</FIELDSET>")
.Write (" </td>")
.Write (" </tr>")
.Write ("</table>")
.Write ("<table width=""100%"" height=""30"" border=""0"" cellpadding=""0"" cellspacing=""0"">")
.Write (" <tr>")
.Write (" <td height=""40"" align=""center""> ")
.Write (" <input type=""button"" name=""Submit"" Onclick=""CheckForm();"" value="" 编 辑 ""> ")
.Write (" <input type=""button"" name=""Submit2"" onclick=""window.close()"" value="" 取 消 "">")
.Write (" </td>")
.Write (" </tr>")
.Write ("</table>")
.Write (" </form>")
.Write (" <br>")
.Write ("<table width=""80%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">")
.Write (" <tr> ")
.Write (" <td><strong>附加说明:</strong></td>")
.Write (" </tr>")
.Write (" <tr> ")
.Write (" <td height=""22""> 1．创建一级栏目相当于创建一个录属于""" & XMName & "中心""的频道</td>")
.Write (" </tr>")
.Write (" <tr> ")
.Write (" <td height=""22""> 2．R代表随机数,E代表扩展名,<strong>SCE</strong>代表随机字符文件名。例：选择"2005/10-1/RE"则生成格式形如"2005/10-1/2123212,html";</td>")
.Write (" </tr>")
.Write ("</table>")
.Write "<Script Language='javascript'>" & vbCrLf
.Write "<!--" & vbCrLf
.Write "SelectArticleFsoType('" & ArticleFsoType & "');"
.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.EditFolderForm.ArticleFnameType.value + '</font>'; break;" & vbCrLf
.Write " case '2' :ShowAS1.innerHTML=ChannelDomain+'<font color=red>" & YearStr & "/" & MonthStr & "/" & DayStr & "/" & KSCMS.MakeRandom(N) & "' + document.EditFolderForm.ArticleFnameType.value + '</font>'; break;" & vbCrLf
.Write " case '3' :ShowAS1.innerHTML=ChannelDomain+'<font color=red>" & YearStr & "-" & MonthStr & "-" & DayStr & "/" & KSCMS.MakeRandom(N) & "' + document.EditFolderForm.ArticleFnameType.value + '</font>'; break;" & vbCrLf
.Write " case '4' :ShowAS1.innerHTML=ChannelDomain+'<font color=red>" & YearStr & "/" & MonthStr & "/" & KSCMS.MakeRandom(N) & "' + document.EditFolderForm.ArticleFnameType.value + '</font>'; break;" & vbCrLf
.Write " case '5' :ShowAS1.innerHTML=ChannelDomain+'<font color=red>" & YearStr & "-" & MonthStr & "/" & KSCMS.MakeRandom(N) & "' + document.EditFolderForm.ArticleFnameType.value + '</font>'; break;" & vbCrLf
.Write " case '6' :ShowAS1.innerHTML=ChannelDomain+'<font color=red>" & YearStr & MonthStr & DayStr & "/" & KSCMS.MakeRandom(N) & "' + document.EditFolderForm.ArticleFnameType.value + '</font>'; break;" & vbCrLf
.Write " case '7' :ShowAS1.innerHTML=ChannelDomain+'<font color=red>" & YearStr & "/" & KSCMS.MakeRandom(N) & "' + document.EditFolderForm.ArticleFnameType.value + '</font>'; break;" & vbCrLf
.Write " case '8' :ShowAS1.innerHTML=ChannelDomain+'<font color=red>" & YearStr & MonthStr & DayStr & KSCMS.MakeRandom(N) & "' + document.EditFolderForm.ArticleFnameType.value + '</font>'; break;" & vbCrLf
.Write " case '9' :ShowAS1.innerHTML=ChannelDomain+'<font color=red>" & KSCMS.MakeRandom(N) & "'+ document.EditFolderForm.ArticleFnameType.value + '</font>'; break;" & vbCrLf
.Write " case '10' :ShowAS1.innerHTML=ChannelDomain+'<font color=red>" & KSCMS.MakeRandomChar(N) & "'+ document.EditFolderForm.ArticleFnameType.value + '</font>'; break;" & vbCrLf
.Write " }"
.Write "}" & vbCrLf
.Write "function CheckForm()" & vbCrLf
.Write "{ var form=document.EditFolderForm;" & 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 (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>"
RS.Close
Conn.Close:Set Conn = Nothing
End With
End Sub
End Class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -