📄 admin_jsfile.asp
字号:
Response.Write " <option value='1'>显示</option>"
Response.Write " </select></td>"
Response.Write " <td class=tablerow2 align=right><b>显示时间格式：</b></td>"
Response.Write " <td class=tablerow2><select name=setting size=1>"
For i = 1 To 9
Response.Write "<option value='" & i & "'"
If i = 5 Then Response.Write " selected"
Response.Write ">"
Response.Write Newasp.FormatDate(Now(),i)
Response.Write "</option>" & vbCrLf
Next
Response.Write " </select></td>"
Response.Write " </tr>"
Response.Write "</table>"
Response.Write "</td>"
Response.Write " </tr>"
Response.Write " <tr id=stype2 style=""display:none"">"
Response.Write " <td bgcolor=""#FFFFFF"" colspan=4>"
Response.Write "<table width=""100%"" cellspacing=1 align=center cellpadding=3 border=0>"
Response.Write " <tr>"
Response.Write " <td class=tablerow2 align=right><b>最多显示多少图片：</b></td>"
Response.Write " <td class=tablerow2><input type=text name=setting size=10 value='5'></td>"
Response.Write " <td class=tablerow2 align=right><b>每行显示多少图片：</b></td>"
Response.Write " <td class=tablerow2><input type=text name=setting size=10 value='5'></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow1 align=right><b>显示最多字符数：</b></td>"
Response.Write " <td class=tablerow1><input type=text name=setting size=10 value='22'></td>"
Response.Write " <td class=tablerow1 align=right><b>是否新窗口打开：</b></td>"
Response.Write " <td class=tablerow1><select name=setting size=1>"
Response.Write " <option value='0' selected>本窗口打开</option>"
Response.Write " <option value='1'>新窗口打开</option>"
Response.Write " </select></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow2 width=""20%"" align=right><b>图片宽度：</b></td>"
Response.Write " <td class=tablerow2 width=""30%""><input type=text name=setting size=10 value='120'></td>"
Response.Write " <td class=tablerow2 width=""20%"" align=right><b>图片高度：</b></td>"
Response.Write " <td class=tablerow2 width=""30%""><input type=text name=setting size=10 value='100'></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow1 align=right><b>是否显示标题名称：</b></td>"
Response.Write " <td class=tablerow1><select name=setting size=1>"
Response.Write " <option value='0' selected>不显示</option>"
Response.Write " <option value='1'>显示</option>"
Response.Write " </select></td>"
Response.Write " <td class=tablerow1 align=right><b></b></td>"
Response.Write " <td class=tablerow1></td>"
Response.Write " </tr>"
Response.Write "</table>"
Response.Write "</td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow2 colspan=4 align=center>"
Response.Write " <input type=button name=Submit4 onclick=""javascript:history.go(-1)"" value=""返回上一页"" class=Button> "
Response.Write " <input type=submit name=submit3 value="" 添加新的JS文件 "" onclick=""document.selform.action.value='add';"" class=Button>"
Response.Write "</td>"
Response.Write " </tr>"
Response.Write " </form>"
Response.Write "</table>"
End Sub
Sub EditJsFile()
On Error Resume Next
Dim JsSetting
Set Rs = Newasp.Execute("SELECT id,sTitle,stype,sFileName,setting FROM NC_ScriptFile WHERE ChannelID = "& ChannelID &" And id ="& CLng(Request("id")))
If Rs.BOF And Rs.EOF Then
FoundErr = True
ErrMsg = ErrMsg + "<li>错误的系统参数！</li>"
Set Rs = Nothing
Exit Sub
End If
JsSetting = Split(Rs("setting"), ",")
Response.Write "<table cellspacing=1 align=center cellpadding=0 border=0 class=tableborder>"
Response.Write " <tr>"
Response.Write " <th colspan=4>添加" & sModuleName & "JS文件</th>"
Response.Write " </tr>"
Response.Write " <form name=myform method=post action='admin_jsfile.asp'>"
Response.Write " <input type=hidden name=action value=""save"">"
Response.Write " <input type=hidden name=ChannelID value="""& ChannelID &""">"
Response.Write " <input type=hidden name=id value="""& Rs("id") &""">"
Response.Write " <tr>"
Response.Write " <td class=tablerow1 align=right width=""20%""><b>文件说明：</b></td>"
Response.Write " <td class=tablerow1 width=""30%""><input type=text name=sTitle size=35 value='"& Rs("sTitle") &"'></td>"
Response.Write " <td class=tablerow1 align=right width=""20%""><b>JS文件名称：</b></td>"
Response.Write " <td class=tablerow1 width=""30%""><input type=text name=sFileName size=20 value='"& Rs("sFileName") &"'></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow2 align=right><b>显示类型：</b></td>"
Response.Write " <td class=tablerow2><input type=radio name=stype value=0 onClick=""stype1.style.display='';stype2.style.display='none';"""
If Rs("stype") = 0 Then Response.Write " checked"
Response.Write "> 列表 "
Response.Write "<input type=radio name=stype value=1 onClick=""stype2.style.display='';stype1.style.display='none';"""
If Rs("stype") = 1 Then Response.Write " checked"
Response.Write "> 图片</td>"
Response.Write " <td class=tablerow2 align=right><b>选择分类：</b></td>"
Response.Write " <td class=tablerow2>"
Response.Write "<select name=""setting"" size='1'>"
Response.Write "<option value=0>指定所有分类</option>"
Dim strSelectClass,re
strSelectClass = Newasp.LoadSelectClass(ChannelID)
Set re = New RegExp
re.IgnoreCase = True
re.Global = True
Re.Pattern="(value=)(.*)("" )"
strSelectClass = Re.Replace(strSelectClass,"")
Re.Pattern="({ClassID=)(.*)(}>)"
strSelectClass = Re.Replace(strSelectClass,"value=""$2"">")
Set Re = Nothing
strSelectClass = Replace(strSelectClass, "value=""" & Trim(JsSetting(0)) & """", "value=""" & Trim(JsSetting(0)) & """ selected")
Response.Write strSelectClass
Response.Write "</select>"
Response.Write "</td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow1 align=right><b>所属专题：</b></td>"
Response.Write " <td class=tablerow1>"
Response.Write "<select name=""setting"" size='1'>"
Response.Write "<option value=0>不指定专题</option>"
Dim RsObj
Set RsObj = Newasp.Execute("SELECT SpecialID,SpecialName FROM NC_Special WHERE ChannelID="& ChannelID &" And ChangeLink=0")
Do While Not RsObj.EOF
Response.Write Chr(9) & Chr(9) & "<option value=""" & RsObj("SpecialID") & """"
If CLng(JsSetting(1)) = RsObj("SpecialID") Then Response.Write " selected"
Response.Write ">"
Response.Write RsObj("SpecialName")
Response.Write "</option>" & vbCrLf
RsObj.movenext
Loop
Set RsObj = Nothing
Response.Write "</select>"
Response.Write "</td>"
Response.Write " <td class=tablerow1 align=right><b>调用类型：</b></td>"
Response.Write " <td class=tablerow1>"
Response.Write "<select name=""setting"" size='1'>"
Response.Write " <option value='0'"
If CLng(JsSetting(2)) = 0 Then Response.Write " selected"
Response.Write ">所有最新" & sModuleName & "</option>"
Response.Write " <option value='1'"
If CLng(JsSetting(2)) = 1 Then Response.Write " selected"
Response.Write ">所有推荐" & sModuleName & "</option>"
Response.Write " <option value='2'"
If CLng(JsSetting(2)) = 2 Then Response.Write " selected"
Response.Write ">所有热门" & sModuleName & "</option>"
Response.Write " <option value='3'"
If CLng(JsSetting(2)) = 3 Then Response.Write " selected"
Response.Write ">分类最新" & sModuleName & "</option>"
Response.Write " <option value='4'"
If CLng(JsSetting(2)) = 4 Then Response.Write " selected"
Response.Write ">分类推荐" & sModuleName & "</option>"
Response.Write " <option value='5'"
If CLng(JsSetting(2)) = 5 Then Response.Write " selected"
Response.Write ">分类热门" & sModuleName & "</option>"
Response.Write "</select><font color=""#0066CC""></font>"
Response.Write "</td>"
Response.Write " </tr>"
Response.Write " <tr id=stype1"
If Rs("stype") = 1 Then Response.Write " style=""display:none"""
Response.Write ">"
Response.Write " <td bgcolor=""#FFFFFF"" colspan=4>"
Response.Write "<table width=""100%"" cellspacing=1 align=center cellpadding=3 border=0>"
Response.Write " <tr>"
Response.Write " <td class=tablerow2 width=""20%"" align=right><b>图片宽度：</b></td>"
Response.Write " <td class=tablerow2 width=""30%""><input type=text name=setting size=10 value='" & Trim(JsSetting(3)) & "'></td>"
Response.Write " <td class=tablerow2 width=""20%"" align=right><b>图片高度：</b></td>"
Response.Write " <td class=tablerow2 width=""30%""><input type=text name=setting size=10 value='" & Trim(JsSetting(4)) & "'></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow1 align=right><b>最多字符数：</b></td>"
Response.Write " <td class=tablerow1><input type=text name=setting size=10 value='" & Trim(JsSetting(5)) & "'></td>"
Response.Write " <td class=tablerow1 align=right><b>最多列表数：</b></td>"
Response.Write " <td class=tablerow1><input type=text name=setting size=10 value='" & Trim(JsSetting(6)) & "'></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow2 align=right><b>垂直边距：</b></td>"
Response.Write " <td class=tablerow2><input type=text name=setting size=10 value='" & Trim(JsSetting(7)) & "'></td>"
Response.Write " <td class=tablerow2 align=right><b>水平边距：</b></td>"
Response.Write " <td class=tablerow2><input type=text name=setting size=10 value='" & Trim(JsSetting(8)) & "'></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow1 align=right><b>图文对齐方式：</b></td>"
Response.Write " <td class=tablerow1><select name=setting size=1>"
Response.Write " <option value='left'"
If LCase(Trim(JsSetting(9))) = "left" Then Response.Write " selected"
Response.Write ">左对齐</option>"
Response.Write " <option value='right'"
If LCase(Trim(JsSetting(9))) = "right" Then Response.Write " selected"
Response.Write ">右对齐</option>"
Response.Write " <option value='middle'"
If LCase(Trim(JsSetting(9))) = "middle" Then Response.Write " selected"
Response.Write ">居中对齐</option>"
Response.Write " <option value='texttop'"
If LCase(Trim(JsSetting(9))) = "texttop" Then Response.Write " selected"
Response.Write ">文本上方</option>"
Response.Write " <option value='baseline'"
If LCase(Trim(JsSetting(9))) = "baseline" Then Response.Write " selected"
Response.Write ">基线</option>"
Response.Write " </select></td>"
Response.Write " <td class=tablerow1 align=right><b>调用样式：</b></td>"
Response.Write " <td class=tablerow1><input type=text name=setting size=20 value='" & Trim(JsSetting(10)) & "'></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow2 align=right><b>连接目标：</b></td>"
Response.Write " <td class=tablerow2><select name=setting size=1>"
Response.Write " <option value='" & Trim(JsSetting(11)) & "'>" & Trim(JsSetting(11)) & "</option>"
Response.Write " <option value='_blank'>_blank</option>"
Response.Write " <option value='_self'>_self</option>"
Response.Write " <option value='_top'>_top</option>"
Response.Write " <option value='_parent'>_parent</option>"
Response.Write " </select></td>"
Response.Write " <td class=tablerow2 align=right><b>标识符：</b></td>"
Response.Write " <td class=tablerow2><input type=text name=setting size=20 value='" & JsSetting(12) & "'></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow1 align=right><b>是否显示图片：</b></td>"
Response.Write " <td class=tablerow1><select name=setting size=1>"
Response.Write " <option value='0'"
If CInt(JsSetting(13)) = 0 Then Response.Write " selected"
Response.Write ">不显示</option>"
Response.Write " <option value='1'"
If CInt(JsSetting(13)) = 1 Then Response.Write " selected"
Response.Write ">显示</option>"
Response.Write " </select></td>"
Response.Write " <td class=tablerow1 align=right><b>是否显示分类：</b></td>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -