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

📄 admin_js.asp

📁 电子备课系统
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
<!--#include file="inc/inc_sys.asp"-->
<!--#include file="../inc/Cls_xmlDoc.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>JS调用管理</title>
<link rel="stylesheet" href="images/style.css" type="text/css" />
<script src="images/menu.js" type="text/javascript"></script>
</head>
<body>
<div id="main_body">
	<ul class="main_top">
		<li class="main_top_left left">JS调用管理：</li>
		<li class="main_top_right right"> </li>
	</ul>
	<div class="main_content_rightbg">
		<div class="main_content_leftbg">
  <table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
    <tr >
      <td width="70" height="30"><strong>注意事项：</strong></td>
      <td height="30" style="color:red;">①添加调用后，在列表中点击相应的预览即可看到效果，将调用代码复制到任意位置即可调用。<br>②建议将时间间隔设置的稍微长一点，有利减少资源消耗</td>
    </tr>
    <tr >
      <td width="70" height="30"><strong>管理导航：</strong></td>
      <td height="30"><a href="?action=add">添加JS调用</a> | <a href="?">JS调用列表</a></td>
    </tr>
</table>
		</div>
	</div>
	<ul class="main_end">
		<li class="main_end_left left"></li>
		<li class="main_end_right right"></li>
	</ul>
</div>
<%
Dim getType

Dim xmlDoc

ReDim getType(12)

getType(0) = ""
getType(1) = "站点统计"
getType(2) = "用户信息"
getType(3) = "站点公告"
getType(4) = "系统分类"
getType(5) = "日志"
getType(6) = "相片"
getType(7) = "博客之星"
getType(8) = "圈子列表"
getType(9) = "圈子日志"
getType(10) = "标签（TAG）"
getType(11) = "用户推荐（DIGG）日志"
getType(12) = "被推荐（DIGG）用户信息"

Dim eName,Intro,eType,Update,FormatTime
Dim isModify
Dim action
Dim node
Dim head,skinmain,foot
Dim Sql

eName = Trim(Request("eName"))
Intro = Trim(Request("Intro"))
eType = Trim(Request("eType"))
Update = Trim(Request("Update"))
FormatTime = Trim(Request("FormatTime"))
isModify = Trim(Request("modify"))

head = Trim(Request("head"))
skinmain = Trim(Request("main"))
foot = Trim(Request("foot"))

Dim topN,length,order,isbest

topN = Trim(request("topn"))
If topN<>"" Then topN = CLng(topN) Else topN=10
If topN  >50 Then topN = 50
length = Trim(request("length"))
If length<>"" Then length = CLng(length) Else length=20
order = Trim(request("order"))
isbest = Trim(request("isbest"))
action = Trim(Request("action"))

Select Case Trim(Request("action"))
	Case "del":Call delNode()
	Case "add","modify":Call add()
	Case "saveadd":Call saveadd()
	Case Else :Call main()
End Select

'部分参考DV
Sub main()%>
<div id="main_body">
	<ul class="main_top">
		<li class="main_top_left left">JS调用列表</li>
		<li class="main_top_right right"> </li>
	</ul>
	<div class="main_content_rightbg">
		<div class="main_content_leftbg">
<form action="" method="post" name="myform">
<table cellpadding="0" cellspacing="1" border="0" align="center" width="100%" class="border">
	<tr class="title">
		<td align="center" width="28" height="23"><strong>选中</strong></td>
		<td align="center" width="100"><strong>分类</strong></td>
		<td align="center"><strong>名称</strong></td>
		<td align="center" width="150"><strong>说明</strong></td>
		<td align="center" width="80"><strong>添加更新时间</strong></td>
		<td align="center" width="60"><strong>添加者</strong></td>
		<td align="center" width="60"><strong>操作</strong></td>
	</tr>
<%
Dim xmlDoc
Set XmlDoc=CreateObject("Msxml2.DOMDocument"&MsxmlVersion)
	If Not xmlDoc.Load(Server.Mappath("../xmlData/jsTemplate.config")) Then
		Response.Write  "模板文件不存在，无法完成操作"
		Response.End
	End If
Dim nodes,i,node
Set nodes = xmlDoc.getElementsByTagName("template")
For Each node In nodes
%>
	<tr>
		<td align=center><input name='ename' type='checkbox' id="ename" value='<%=node.GetAttribute("name")%>' /></td>


		<td align=center style="color:#090;font-weight:600;"><%=getType(node.GetAttribute("type"))%></td>
		<td align=center><%=node.GetAttribute("name")%></td>
		<td >
		<%=node.GetAttribute("intro")%>
		<br><font color="gray">更新时间间隔为：<font color="red"><%=node.GetAttribute("update")%></font>&nbsp;秒。</font>
		</td>
		<td style="color:#666;font-family:tahoma,Arial,Helvetica,sans-serif;font-size:10px;padding:0 0 0 8px!important;"><%=node.GetAttribute("addTime")%><br><font color="red"><%=node.GetAttribute("updateTime")%></font></td>
		<td align=center style="color:#666;font-family:tahoma,Arial,Helvetica,sans-serif;font-size:10px;padding:0 0 0 8px!important;"><span style="font-size:12px;font-weight: 600;">admin</span><br><font color="gray"><%=node.GetAttribute("IP")%></font></td>
		<td align=center>
		<a href="#" onclick="document.myform.action.value='modify';document.myform.eName.value='<%=node.GetAttribute("name")%>';document.myform.submit();">编辑</a> &nbsp;<a href="../jsView.htm?action=<%=node.GetAttribute("name")%>" target="blank">预览</a>
		</td>
	</tr>
<%Next%>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="200" height="30">
		<label for="chkAll"><input type="checkbox" id="chkAll" name="chkAll" onclick="CheckAll(this.form);"> 选中本页所有</label>
		<input type="hidden" name="action" value="del"><input type="hidden" name="eName" value=""><input type="submit" name="Submit" value="删除" onclick="return confirm('确定要删除选中的记录吗？');" >
	</td>
  </tr>
</table>
</form>
		</div>
	</div>
	<ul class="main_end">
		<li class="main_end_left left"></li>
		<li class="main_end_right right"></li>
	</ul>
</div>
	<%
	End Sub
Sub add()
	If  action="modify" Then

		Set xmlDoc = New Cls_XmlDoc
		xmlDoc.Unicode = False

		If Not xmlDoc.LoadXml("../xmlData/jsTemplate.config") Then
			oblog.ShowMsg "模板文件不存在，无法完成操作",""
		End If
		Dim node
		Set node = XmlDoc.NodeObj("template[@name='"&eName&"']")

		Intro = XmlDoc.AtrributeValue("template[@name='"&eName&"']","intro")
		eType = XmlDoc.AtrributeValue("template[@name='"&eName&"']","type")
		Update = XmlDoc.AtrributeValue("template[@name='"&eName&"']","update")

		head =  node.selectSingleNode("head").text
		skinmain =  node.selectSingleNode("main").text
		foot =  node.selectSingleNode("foot").text
	End if
	%>
<style type="text/css">
.main_content_leftbg div ul label { width: 200px; text-align: right; }
fieldset legend { font-weight: 600; }
#skin_info ol { padding: 0 0 0 12px; margin: 0 0 0 20px; }
#skin_info ol li { list-style: disc inline none; }

</style>

<div id="main_body">
	<ul class="main_top">
		<li class="main_top_left left">添加JS调用</li>
		<li class="main_top_right right"> </li>
	</ul>
	<div class="main_content_rightbg">
		<div class="main_content_leftbg">
<form method="post" action="?action=saveadd" name="TheForm">
<table cellpadding="3" cellspacing="1" border="0" align="center" width="100%">
	<tr>
		<td width="30%" class="td2" align="right">名称：</td>
		<td width="70%" class="td1"><input type="text" name="eName" size="20" Maxlength="10" onkeyup="OutputNewsCode(this.value);" value="<%=eName%>">(英文或者数字)</td>
	</tr>
	<tr>
		<td class="td2" align="right">调用代码：</td>
		<td class="td1"><input type="text" name="code" id="code" style="width: 100%;" size="60" disabled value="<script src=&quot;<%=Trim(oblog.CacheConfig(3))%>jsNew.asp?action=<%=eName%>&quot;></script>"></td>
	</tr>
	<tr>
		<td class="td2" align="right">调用说明：</td>
		<td class="td1"><input type="text" name="Intro" size="30" Maxlength="30" value="<%=Intro%>"></td>
	</tr>
	<tr>
		<td class="td2" align="right">调用类型：</td>
		<td class="td1">
			<select NAME="eType" ID="eType" onchange="NewsTypeSel(this.selectedIndex)">
				<option value="0">请选择</option>
<%
Dim i
For i = 1 To UBound(getType)
%>
				<option value="<%=i%>" <%If Int(OB_IIF(eType,0)) = i Then Response.Write "selected"%>><%=getType(i)%></option>
<%Next%>
				</select>
		</td>
	</tr>
	<tr>
		<td class="td2" align="right">数据更新间隔：</td>
		<td class="td1"><input type="text" name="Update" value="<%=Update%>">(单位：秒)</td>
	</tr>
</table>
<div id="News"></div>
<table cellpadding="3" cellspacing="1" border="0" align="center" width="100%">
<!-- 调用模板设置 -->
	<tr>
      <td height="25" colspan="2" class="topbg"><b>调用模板设置&nbsp;（请用HTML代码填写）</b></td>
    </tr>
	<tr>
		<td width="30%" class="td2" align="right" valign="top">模板开始标记部分</td>
		<td width="70%" class="td2"><textarea name="head" ID="head" style="width:100%;" rows="3"><%=head%></textarea></td>
	</tr>
	<tr>
		<td class="td2" align="right" valign="top">模板主体循环标记部分
			<fieldset title="模板变量">
				<legend>&nbsp;模板变量说明&nbsp;</legend>
				<div id="skin_info" align="left">请选择调用类型。</div>
			</fieldset>
		</td>
		<td class="td2" valign="top">
			<div id="DisInput"></div>
			<textarea name="main" ID="main" style="width:100%;" rows="10"><%=skinmain%></textarea>
		</td>
	</tr>
	<tr>
		<td class="td2" align="right" valign="top">模板结束标记部分</td>
		<td class="td2"><textarea name="foot" ID="foot" style="width:100%;" rows="3"><%=foot%></textarea></td>
	</tr>
<!-- 调用模板设置 -->
	<tr>
      <td height="40" colspan="2" align="center" class="tdbg" ><%If action="modify" Then %><input type="hidden" name="modify" value="1" /><%End if%><input type="submit" class="button" value=" 提交设置 "></td>
	</tr>
</table>
</form>
		</div>
	</div>
	<ul class="main_end">
		<li class="main_end_left left"></li>
		<li class="main_end_right right"></li>
	</ul>
</div>

<!-- 设置信息部分 -->
<div id="News_1" style="display:none">
<!-- 统计信息 -->
无设置信息
</div>
<div id="News_2" style="display:none">
<!-- 用户信息 -->
<table cellpadding="3" cellspacing="1" border="0" align="center" width="100%">
	<tr>
		<td height="25" colspan="2" class="topbg"><b>用户信息设置</b></td>
    </tr>
	<tr>
		<td class="td2" width="30%" align="right">调用条数：</td>
		<td class="td1" width="70%"><input type="text" id="topn" name="topn" value="10" size="10" /></td>
	</tr>
	<tr>
		<td class="td2" align="right">博客名长度限制：</td>
		<td class="td1"><input type="text" id="length" name="length" value="20" size="10" /></td>
	</tr>
	<tr>
		<td class="td2" align="right">排序方式：</td>
		<td class="td1">
			<select id="order" name="order">
				<option value="0" selected="selected">用户日志总数</option>
				<option value="1">用户访问量</option>
				<option value="2">用户积分</option>
				<option value="3">注册日期倒序</option>
			</select>
		</td>
	</tr>
	<tr>
		<td class="td2" align="right">是否推荐用户：</td>
		<td class="td1"><input type="checkbox" id="isbest" name="isbest" value="on" /></td>
	</tr>
</table>
</div>
<div id="News_3" style="display:none">
<!-- 站点公告 -->
无设置信息
</div>
<div id="News_4" style="display:none">
<!-- 分类 -->
<table cellpadding="3" cellspacing="1" border="0" align="center" width="100%">
	<tr>
		<td height="25" colspan="2" class="topbg"><b>系统分类设置</b></td>
    </tr>
	<tr>
		<td class="td2" width="30%" align="right">分类类型：</td>
		<td class="td1" width="70%">
			<select id="classType" name="classType">
				<option value="-1">博客分类</option>
				<option value="0" selected="selected">日志分类</option>
				<option value="1">相册分类</option>
				<option value="2">圈子分类</option>
			</select>
		</td>
	</tr>
</table>
</div>
<div id="News_5" style="display:none">
<!-- 日志调用 -->
<table cellpadding="3" cellspacing="1" border="0" align="center" width="100%">
	<tr>
		<td height="25" colspan="2" class="topbg"><b>日志调用设置</b></td>
    </tr>
	<tr>
		<td class="td2" width="30%" align="right">调用条数：</td>
		<td class="td1" width="70%"><input type="text" id="topn" name="topn" value="10" size="10" /></td>
	</tr>
	<tr>
		<td class="td2" align="right">标题长度限制：</td>
		<td class="td1"><input type="text" id="length" name="length" value="20" size="10" /></td>
	</tr>
	<tr>
		<td class="td2" align="right">日志分类：</td>
		<td class="td1"><select id="classid" name="classid"><%=oblog.show_class(2,0,0)%></select></td>
	</tr>
123

⌨️ 快捷键说明

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