⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_jsfile.asp

📁 网络上经典的图片程序
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<!--#include file="../inc/cls_public.asp"-->
<%
Admin_header
'=====================================================================
' 软件名称：新云网站管理系统
' 当前版本：NewCloud Site Management System Version 2.1
' 文件名称：admin_jsfile.asp
' 更新日期：2005-4-15
' 官方网站：新云网络(www.newasp.net) QQ：94022511
'=====================================================================
' Copyright 2002-2005 newasp.net - All Rights Reserved.
' newasp is a trademark of newasp.net
'=====================================================================
Dim Action,i
If Not ChkAdmin("AdminJsFile" & ChannelID) Then
	Server.Transfer("showerr.asp")
	Response.End
End If
Action = LCase(Request("action"))
Select Case Trim(Action)
Case "del"
	Call DeleteJsFile
Case "add"
	Call AddJsFile
Case "edit"
	Call EditJsFile
Case "savenew"
	Call SaveNewJsFile
Case "save"
	Call SaveJsFile
Case "make"
	Call MakeJsFile
Case "demo"
	Call DemoJsFile
Case Else
	Call showmain
End Select
If FoundErr = True Then
	ReturnError(ErrMsg)
End If
Admin_footer
SaveLogInfo(AdminName)
CloseConn

Sub showmain()
	Dim page_count,tablebody,JsFileName
	Response.Write "<table cellspacing=1 align=center cellpadding=3 border=0 class=tableborder>"
	Response.Write "	<tr>"
	Response.Write "		<th  width=""20%"">说明标题</th>"
	Response.Write "		<th  width=""40%"">调用方式</th>"
	Response.Write "		<th  width=""15%"">JS文件名称</th>"
	Response.Write "		<th  width=""25%"">管理选项</th>"
	Response.Write "	</tr>"
	Response.Write "	<form name=selform method=post action='admin_jsfile.asp'>"
	Response.Write "	<input type=hidden name=action value=""make"">"
	Response.Write "	<input type=hidden name=ChannelID value="""& ChannelID &""">"
	Set Rs = Newasp.Execute("SELECT id,ChannelID,sTitle,stype,sFileName FROM NC_ScriptFile WHERE ChannelID="& ChannelID &" ORDER BY id DESC")
	If Rs.BOF And Rs.EOF Then
		Response.Write "<tr><td align=center colspan=4 class=TableRow1>没有添加" & sModuleName & "JS文件！</td></tr>"
	Else
		page_count = 0
		Do While Not Rs.EOF
			If (page_count mod 2) = 0 Then
				tablebody = "class=TableRow1"
			Else
				tablebody = "class=TableRow2"
			End If
			JsFileName = "<script src="""& Newasp.SiteUrl & Newasp.InstallDir & Newasp.ChannelDir &"js/"& Rs("sFileName") &"""></script>"
			Response.Write "	<input type=hidden name=id value="""& Rs("id") &""">"
			Response.Write "	<tr align=center>"
			Response.Write "		<td " & tablebody & ">"& Rs("sTitle") &"</td>"
			Response.Write "		<td " & tablebody & "><input type=text name=jsfile size=50 value='" & Server.HTMLEncode(JsFileName) & "'></td>"
			Response.Write "		<td " & tablebody & " noWrap>" & Rs("sFileName") & "</td>"
			Response.Write "		<td " & tablebody & " noWrap><a href='?action=edit&ChannelID="& ChannelID &"&id="& Rs("id") &"'>设 置</a> | "
			Response.Write "<a href='?action=del&ChannelID="& ChannelID &"&id="& Rs("id") &"' onclick=""return confirm('您确定要删除此JS文件吗?')"">删 除</a> | "
			Response.Write "<a href='?action=make&ChannelID="& ChannelID &"&id="& Rs("id") &"'>生 成</a> | "
			Response.Write "<a href='?action=demo&ChannelID="& ChannelID &"&id="& Rs("id") &"'>演 示</a>"
			Response.Write "</td>"
			Response.Write "	</tr>"
			Rs.movenext
			page_count = page_count + 1
		Loop
	End If
	Rs.Close:Set Rs = Nothing
	Response.Write "	<tr>"
	Response.Write "		<td class=tablerow2 colspan=4 align=center>"
	Response.Write "<input type=submit name=submit3 value="" 生成所有JS文件 "" class=Button>&nbsp;&nbsp;"
	Response.Write "<input type=submit name=submit4 value="" 添加新的JS文件 "" onclick=""document.selform.action.value='add';"" class=Button>"
	Response.Write "</td>"
	Response.Write "	</tr>"
	Response.Write "	</form>"
	Response.Write "	<tr>"
	Response.Write "		<td class=tablerow1 colspan=4>"
	Response.Write "<b>说明：</b><br>&nbsp;&nbsp;&nbsp;&nbsp;请将上面的JS调用代码复制到模板相应的位置；"
	Response.Write "由于JS文件是系统生成的静态文件，所以要不定期的生成所有JS文件。"
	Response.Write "</td>"
	Response.Write "	</tr>"
	Response.Write "</table>"
End Sub

Sub AddJsFile()
	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=""savenew"">"
	Response.Write "	<input type=hidden name=ChannelID value="""& ChannelID &""">"
	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=''></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='file.js'></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 checked onClick=""stype1.style.display='';stype2.style.display='none';""> 列表&nbsp;&nbsp;"
	Response.Write "<input type=radio name=stype value=1 onClick=""stype2.style.display='';stype1.style.display='none';""> 图片</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"">")
	Response.Write strSelectClass
	Set Re = Nothing
	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 "<option value='" & RsObj("SpecialID") & "'>" & RsObj("SpecialName") & "</option>"
		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>所有最新" & sModuleName & "</option>"
        Response.Write "  <option value='1'>所有推荐" & sModuleName & "</option>"
	Response.Write "  <option value='2'>所有热门" & sModuleName & "</option>"
	Response.Write "  <option value='3'>分类最新" & sModuleName & "</option>"
	Response.Write "  <option value='4'>分类推荐" & sModuleName & "</option>"
	Response.Write "  <option value='5'>分类热门" & sModuleName & "</option>"
        Response.Write "</select><font color=""#0066CC""></font>"
	Response.Write "</td>"
	Response.Write "	</tr>"
	Response.Write "	<tr id=stype1>"
	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='85'></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='85'></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><input type=text name=setting size=10 value='10'></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='10'></td>"
	Response.Write "		<td class=tablerow2 align=right><b>水平边距：</b></td>"
	Response.Write "		<td class=tablerow2><input type=text name=setting size=10 value='10'></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' selected>左对齐</option>"
	Response.Write "		<option value='right'>右对齐</option>"
	Response.Write "		<option value='middle'>居中对齐</option>"
	Response.Write "		<option value='texttop'>文本上方</option>"
	Response.Write "		<option value='baseline'>基线</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='class=dottedline'></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='_blank' selected>_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='· '></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><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 align=right><b>是否显示时间：</b></td>"
	Response.Write "		<td class=tablerow2><select name=setting size=1>"
	Response.Write "		<option value='0' selected>不显示</option>"
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -