📄 admin_jsfile.asp
字号:
Response.Write " <td class=tablerow1><select name=setting size=1>"
Response.Write " <option value='0'"
If CInt(JsSetting(14)) = 0 Then Response.Write " selected"
Response.Write ">不显示</option>"
Response.Write " <option value='1'"
If CInt(JsSetting(14)) = 1 Then Response.Write " selected"
Response.Write ">显示</option>"
Response.Write " </select></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='0'"
If CInt(JsSetting(15)) = 0 Then Response.Write " selected"
Response.Write ">不显示</option>"
Response.Write " <option value='1'"
If CInt(JsSetting(15)) = 1 Then Response.Write " selected"
Response.Write ">显示</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 CLng(JsSetting(16)) = i 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"
If Rs("stype") = 0 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 align=right><b>最多显示多少图片：</b></td>"
Response.Write " <td class=tablerow2><input type=text name=setting size=10 value='" & Trim(JsSetting(17)) & "'></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(18)) & "'></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(19)) & "'></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'"
If CInt(JsSetting(20)) = 0 Then Response.Write " selected"
Response.Write ">本窗口打开</option>"
Response.Write " <option value='1'"
If CInt(JsSetting(20)) = 1 Then Response.Write " selected"
Response.Write ">新窗口打开</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='" & Trim(JsSetting(21)) & "'></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(22)) & "'></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(23)) = 0 Then Response.Write " selected"
Response.Write ">不显示</option>"
Response.Write " <option value='1'"
If CInt(JsSetting(23)) = 1 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></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>"
Set Rs = Nothing
End Sub
Sub SaveNewJsFile()
If Trim(Request.Form("sTitle")) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "<li>JS文件说明不能为空！</li>"
Exit Sub
End If
If Trim(Request.Form("sFileName")) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "<li>JS文件名不能为空！</li>"
Exit Sub
End If
If LCase(Right(Trim(Request.Form("sFileName")),3)) <> ".js" Then
FoundErr = True
ErrMsg = ErrMsg + "<li>请输入正确的JS文件名，扩展名一定要是*.js！</li>"
Exit Sub
End If
SQL = "INSERT INTO NC_ScriptFile (ChannelID,sTitle,stype,sFileName,setting) VALUES ("& ChannelID &",'"& Newasp.CheckStr(Request("sTitle")) &"',"& Request("stype") &",'"& Newasp.CheckStr(Request("sFileName")) &"','"& Request("setting") &"')"
Newasp.Execute(SQL)
Response.Redirect("admin_jsfile.asp?ChannelID="& ChannelID)
End Sub
Sub SaveJsFile()
If Trim(Request.Form("sTitle")) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "<li>JS文件说明不能为空！</li>"
Exit Sub
End If
If Trim(Request.Form("sFileName")) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "<li>JS文件名不能为空！</li>"
Exit Sub
End If
If LCase(Right(Trim(Request.Form("sFileName")),3)) <> ".js" Then
FoundErr = True
ErrMsg = ErrMsg + "<li>请输入正确的JS文件名，扩展名一定要是*.js！</li>"
Exit Sub
End If
SQL = "UPDATE NC_ScriptFile SET sTitle='"& Newasp.CheckStr(Request("sTitle")) &"',stype="& Request("stype") &",sFileName='"& Newasp.CheckStr(Request("sFileName")) &"',setting='"& Request("setting") &"' WHERE ChannelID = "& ChannelID &" And id="& Request("id")
Newasp.Execute(SQL)
Response.Redirect("admin_jsfile.asp?ChannelID="& ChannelID)
End Sub
Sub MakeJsFile()
If Trim(Request("id")) = "" Then
ErrMsg = "<li>错误的系统参数,请选择文件ID</li>"
FoundErr = True
Exit Sub
End If
Dim FileName,strJsContent,JsSetting
On Error Resume Next
SQL = "SELECT stype,sFileName,setting FROM NC_ScriptFile WHERE ChannelID="& ChannelID &" And id in("& Request("id") &")"
Set Rs = Newasp.Execute(SQL)
If Not(Rs.BOF And Rs.EOF) Then
Do While Not Rs.EOF
JsSetting = Split(Rs("setting"), ",")
Newasp.InstallDir = Newasp.SiteUrl & "/"
If Rs("stype") = 1 Then
Select Case CInt(Newasp.modules)
Case 1
strJsContent = HTML.LoadArticlePic(ChannelID,Trim(JsSetting(0)),Trim(JsSetting(1)),Trim(JsSetting(2)),Trim(JsSetting(17)),Trim(JsSetting(18)),Trim(JsSetting(19)),Trim(JsSetting(20)),Trim(JsSetting(21)),Trim(JsSetting(22)),Trim(JsSetting(23)),0)
Case 2
strJsContent = HTML.LoadSoftPic(ChannelID,Trim(JsSetting(0)),Trim(JsSetting(1)),Trim(JsSetting(2)),Trim(JsSetting(17)),Trim(JsSetting(18)),Trim(JsSetting(19)),Trim(JsSetting(20)),Trim(JsSetting(21)),Trim(JsSetting(22)),Trim(JsSetting(23)),0)
Case 5
strJsContent = HTML.LoadFlashPic(ChannelID,Trim(JsSetting(0)),Trim(JsSetting(1)),Trim(JsSetting(2)),Trim(JsSetting(17)),Trim(JsSetting(18)),Trim(JsSetting(19)),Trim(JsSetting(20)),Trim(JsSetting(21)),Trim(JsSetting(22)),Trim(JsSetting(23)),0)
End Select
Else
Select Case CInt(Newasp.modules)
Case 1
strJsContent = HTML.NewsPictureAndText(ChannelID,Trim(JsSetting(0)),Trim(JsSetting(1)),Trim(JsSetting(2)),Trim(JsSetting(3)),Trim(JsSetting(4)),Trim(JsSetting(5)),Trim(JsSetting(6)),Trim(JsSetting(7)),Trim(JsSetting(8)),Trim(JsSetting(9)),Trim(JsSetting(10)),Trim(JsSetting(11)),JsSetting(12),Trim(JsSetting(13)),Trim(JsSetting(14)),Trim(JsSetting(15)),Trim(JsSetting(16)))
Case 2
strJsContent = HTML.SoftPictureAndText(ChannelID,Trim(JsSetting(0)),Trim(JsSetting(1)),Trim(JsSetting(2)),Trim(JsSetting(3)),Trim(JsSetting(4)),Trim(JsSetting(5)),Trim(JsSetting(6)),Trim(JsSetting(7)),Trim(JsSetting(8)),Trim(JsSetting(9)),Trim(JsSetting(10)),Trim(JsSetting(11)),JsSetting(12),Trim(JsSetting(13)),Trim(JsSetting(14)),Trim(JsSetting(15)),Trim(JsSetting(16)))
Case 5
strJsContent = HTML.LoadFlashPic(ChannelID,Trim(JsSetting(0)),Trim(JsSetting(1)),Trim(JsSetting(2)),Trim(JsSetting(17)),Trim(JsSetting(18)),Trim(JsSetting(19)),Trim(JsSetting(20)),Trim(JsSetting(21)),Trim(JsSetting(22)),Trim(JsSetting(23)))
End Select
End If
strJsContent = "document.write ('"& fixjs(strJsContent) &"');"
FileName = "../"& Newasp.ChannelDir &"js/"& Rs("sFileName")
Newasp.CreatedTextFile FileName,strJsContent
Rs.movenext
Loop
End If
Set Rs = Nothing
Succeed("<li>恭喜您！生成JS文件成功。</li>")
End Sub
Sub DeleteJsFile()
If Trim(Request("id")) <> "" Then
On Error Resume Next
Set Rs = Newasp.Execute("SELECT sFileName FROM NC_ScriptFile WHERE ChannelID = "& ChannelID &" And id=" & CLng(Request("id")))
If Not(Rs.BOF And Rs.EOF) Then
Newasp.FileDelete("../"& Newasp.ChannelDir &"js/"& Rs("sFileName"))
End If
Set Rs = Nothing
Newasp.Execute ("DELETE FROM NC_ScriptFile WHERE ChannelID = "& ChannelID &" And id=" & CLng(Request("id")))
Response.Redirect Request.ServerVariables("HTTP_REFERER")
Else
ErrMsg = "<li>错误的系统参数,请选择要删除的文件ID</li>"
FoundErr = True
Exit Sub
End If
End Sub
Sub DemoJsFile()
Dim JsFileName
Set Rs = Newasp.Execute("SELECT sFileName FROM NC_ScriptFile WHERE ChannelID = "& ChannelID &" And id=" & CLng(Request("id")))
If Not(Rs.BOF And Rs.EOF) Then
Response.Write "<table cellspacing=1 align=center cellpadding=3 border=0 class=tableborder>"
Response.Write " <tr>"
Response.Write " <th>" & sModuleName & "JS文件调用演示</th>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow2 colspan=4 align=center>"
JsFileName = "<script src="""& Newasp.InstallDir & Newasp.ChannelDir &"js/"& Rs("sFileName") &""" type=""text/javascript""></script>"
Response.Write Server.HTMLEncode(JsFileName)
Response.Write "</td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow1>"
Response.Write JsFileName
Response.Write "</td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=tablerow2 align=center>"
Response.Write " <input type=button name=Submit4 onclick=""javascript:history.go(-1)"" value=""返回上一页"" class=Button> "
Response.Write "</td>"
Response.Write " </tr>"
Response.Write "</table>"
End If
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -