📄 admin_keylink.asp
字号:
<%
Option Explicit
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
%>
<!--#Include File="../Conn.asp"-->
<!--#Include File="Admin_CheckPurview.asp"-->
<%
Dim CurrentPath, KeyType
Dim ArrKeyType(1)
ArrKeyType(0) = "站内链接"
ArrKeyType(1) = "字符过滤"
KeyType = EL_Common.ELRequest("KeyType", 2)
CurrentPath = "·您现在的位置：<a href='"& EL_CurrentScriptName &"'>"& ArrKeyType(KeyType) &"管理首页</a> "
If KeyType = 1 Then
If EL_Admin.Purview <> 1 Then
If EL_Admin.CheckAdminPurview(9, 3) = False Then
EL_Admin.ShowPurviewError("对不起！您没有足够的管理权限")
End If
End If
Else
If EL_Admin.Purview <> 1 Then
If EL_Admin.CheckAdminPurview(10, 3) = False Then
EL_Admin.ShowPurviewError("对不起！您没有足够的管理权限")
End If
End If
End If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href='Admin_Style.css' type='text/css' rel='stylesheet'>
<title><%=ArrKeyType(KeyType)%>管理</title>
<script language="javascript" src="../js/Common.js"></script>
<script language="javascript" src="../js/InstallDir.js"></script>
</head>
<body>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td align="center" class="top_25"><strong><%=ArrKeyType(KeyType)%>管理</strong></td>
</tr>
<tr>
<td class="td_50">管理导航：<a href="<%=EL_CurrentScriptName%>?KeyType=<%=KeyType%>"><%=ArrKeyType(KeyType)%>管理首页</a> | <a href="<%=EL_CurrentScriptName%>?KeyType=<%=KeyType%>&Action=Add">添加<%=ArrKeyType(KeyType)%></a></td>
</tr>
</table>
<br>
<%
Select Case Action
Case "": Call ManageKeylink()
Case "Add": Call AddKeylink()
Case "Save": Call SaveKeyLink(0)
Case "Delete": Call SaveKeyLink(2)
Case "Modify": Call ModifyKeyLink()
Case "SaveModify": Call SaveKeyLink(1)
End Select
Call EL_Common.Bottom()
Call ApplicationTerminate()
Sub SaveKeyLink(UpdateType)
On Error Resume Next
Dim KeyLinkCmd
Dim KeyID, KeyLevel, KeyText, ReplaceText, ArrInfoID
KeyID = EL_Common.ELRequest("KeyID", 2)
KeyLevel = EL_Common.ELRequest("KeyLevel", 2)
KeyText = EL_Common.ELRequest("KeyText", 1)
ReplaceText = EL_Common.ELRequest("ReplaceText", 1)
ArrInfoID = EL_Common.ELRequest("CheckObject", 1)
If UpdateType = 2 Then
If KeyID<>0 Then ArrInfoID = EL_Common.Join2String(ArrInfoID, KeyID, ",")
End If
Call EL_Common.InitCommand(KeyLinkCmd, "EL_SP_KeyLink")
With KeyLinkCmd
.Parameters.Append .CreateParameter("RETURN", 2, 4)
.Parameters.Append .CreateParameter("@UpdateType", 3, 1, 4, UpdateType)
.Parameters.Append .CreateParameter("@KeyID", 3, 1, 4, KeyID)
.Parameters.Append .CreateParameter("@KeyType", 3, 1, 4, KeyType)
.Parameters.Append .CreateParameter("@KeyLevel", 3, 1, 4, KeyLevel)
.Parameters.Append .CreateParameter("@KeyText", 200, 1, 255, KeyText)
.Parameters.Append .CreateParameter("@ReplaceText", 200, 1, 255, ReplaceText)
.Parameters.Append .CreateParameter("@ArrKeyID", 200, 1, 4000, ArrInfoID)
.Execute()
End With
If KeyLinkCmd(0) = 40 Then
EL_Common.ShowErrorMsg("指定"& ArrKeyType(KeyType) &"不存在")
Set KeyLinkCmd = Nothing
Exit Sub
End If
Set KeyLinkCmd = Nothing
EL_Common.ShowScriptError()
If UpdateType = 0 Then
EL_Common.ShowSuccessMsg("添加"& ArrKeyType(KeyType) &"成功")
ElseIf UpdateType = 1 Then
EL_Common.ShowSuccessMsg("修改"& ArrKeyType(KeyType) &"成功")
Else
Response.Redirect ComeURL
End If
End Sub
Sub ModifyKeyLink()
On Error Resume Next
Dim KeyLinkCmd, rsKeyLink
Dim KeyID
KeyID = EL_Common.ELRequest("KeyID", 2)
Call EL_Common.InitCommonCmd(KeyLinkCmd, rsKeyLink, "EL_KeyLink", "KeyLevel, KeyText,ReplaceText", "KeyType="& KeyType &" AND KeyID="& KeyID)
rsKeyLink.Close()
If KeyLinkCmd(0) <> 1 Then
Set rsKeyLink = Nothing
Set KeyLinkCmd = Nothing
EL_Common.ShowErrorMsg("指定"& ArrKeyType(KeyType) &"不存在")
Exit Sub
End If
rsKeyLink.Open()
%>
<script language="javascript">
function Check(frm){
if(frm.KeyText.value.trim()==""){
alert(<%=KeyType%>==0?"请输入链接目标":"请输入替换目标");
frm.KeyText.focus();
return false;
}
<% If KeyType = 0 Then %>
if(frm.ReplaceText.value.trim()==""){
alert("请输入链接地址");
frm.ReplaceText.focus();
return false;
}
<% End If %>
SubmitOnce(frm);
return true;
}
</script>
<form name="myform" action="Admin_Keylink.asp" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td colspan="2" class="top_25"><strong>修改<%=ArrKeyType(KeyType)%></strong></td>
</tr>
<tr>
<td class="td_ItemName"><strong>优先级别</strong></td>
<td class="td_25"><input name="KeyLevel" type="text" id="KeyLevel" value="<%=rsKeyLink("KeyLevel")%>" size="10">
<span class="redText">数字越大，优先级越高</span></td>
</tr>
<tr>
<td width="19%" class="td_ItemName"><strong>
<%
If KeyType = 0 Then
Response.Write "链接目标"
Else
Response.Write "替换目标"
End If
%>
</strong> </td>
<td width="81%" class="td_25"><input name="KeyText" type="text" id="KeyText" value="<%=EL_Common.ServerHTMLEncode(rsKeyLink("KeyText"))%>" size="60"></td>
</tr>
<tr>
<td class="td_ItemName"><strong>
<%
If KeyType = 0 Then
Response.Write "链接地址"
Else
Response.Write "替换内容"
End If
%>
</strong> </td>
<td class="td_25"><input name="ReplaceText" type="text" id="ReplaceText" value="<%=EL_Common.ServerHTMLEncode(rsKeyLink("ReplaceText"))%>" size="60"></td>
</tr>
<tr>
<td class="td_ItemName"> </td>
<td class="td_50"><input type="submit" name="Submit" value="保存修改">
<input type="button" name="Submit2" value="返回上页" onClick="history.back()">
<input name="Action" type="hidden" id="Action" value="SaveModify">
<input name="KeyID" type="hidden" id="KeyID" value="<%=KeyID%>">
<input name="KeyType" type="hidden" id="KeyType" value="<%=KeyType%>"></td>
</tr>
</table>
</form>
<%
Set rsKeyLink = Nothing
Set KeyLinkCmd = Nothing
EL_Common.ShowScriptError()
End Sub
Sub ManageKeylink()
On Error Resume Next
Dim ManageCmd, rsKeyLink, StrFields, StrCondition
Dim PageCounts, RowCount, TotalRowCount
StrFields = "KeyID,KeyLevel,KeyText,ReplaceText"
StrCondition = "KeyType="& KeyType &" "
Call EL_Common.InitCommand(ManageCmd, "EL_SP_SplitPage")
With ManageCmd
.Parameters.Append .CreateParameter("RETURN", 3, 4, 4)
.Parameters.Append .CreateParameter("@Tables", 200, 1, 20, "EL_KeyLink")
.Parameters.Append .CreateParameter("@PrimaryKey", 200, 1, 20, "KeyID")
.Parameters.Append .CreateParameter("@Sort", 200, 1, 30, "KeyID DESC")
.Parameters.Append .CreateParameter("@CurrentPage", 3, 1, 4, CurrentPage)
.Parameters.Append .CreateParameter("@PageSize", 3, 1, 4, PageSizes)
.Parameters.Append .CreateParameter("@Fields", 200, 1, 1000, StrFields)
.Parameters.Append .CreateParameter("@Filter", 200, 1, 1000, StrCondition)
.Parameters.Append .CreateParameter("@Group", 200, 1, 1, "")
.Parameters.Append .CreateParameter("@TotalRowCount", 3, 2, 4)
.Parameters.Append .CreateParameter("@PageCount", 3, 2, 4)
Set rsKeyLink = .Execute()
End With
rsKeyLink.Close()
RowCount = ManageCmd(0)
TotalRowCount = ManageCmd(9)
PageCounts = ManageCmd(10)
%>
<script language="javascript">
function CheckedAll(){
for (var i=0;i<document.myform.elements.length;i++){
var e = document.myform.elements[i];
if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false){
e.checked = true;
}
}
getObject("myselect").innerHTML = "[<a href='javascript:CancelAll()'>取消</a>]";
}
function CancelAll(){
for (var i=0;i<document.myform.elements.length;i++){
var e = document.myform.elements[i];
if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false){
e.checked = false;
}
}
getObject("myselect").innerHTML = "[<a href='javascript:CheckedAll()'>全选</a>]";
}
function CheckObject(){
var frm = getObject("myform");
for (var i=0;i<frm.elements.length;i++){
var e = frm.elements[i];
if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false && e.checked == true ){
return true
}
}
return false;
}
function Check(frm){
SubmitOnce(frm);
return true;
}
var JURL = "<%=EL_CurrentScriptName%>?KeyType=<%=KeyType%>";
function doDelete(){
var frm = getObject("myform");
if(!CheckObject()){
alert("请至少选定1个<%=ArrKeyType(KeyType)%>");
return false;
}
frm.action = JURL + "&Action=Delete";
if(confirm("本次操作将彻底删除选定的<%=ArrKeyType(KeyType)%>，不可以恢复\n确认要执行选定删除吗？")){
frm.submit();
return;
}
return false;
}
</script>
<form name="myform" action="" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td width="6%" align="center" class="top_item"><strong>选择</strong></td>
<td width="7%" align="center" class="top_item"><strong>ID</strong></td>
<td width="10%" align="center" class="top_item"><strong>优先级</strong></td>
<td width="26%" align="center" class="top_item"><strong>
<%
If KeyType = 0 Then
Response.Write "链接目标"
Else
Response.Write "替换目标"
End If
%>
</strong></td>
<td width="39%" align="center" class="top_item"><strong>
<%
If KeyType = 0 Then
Response.Write "链接地址"
Else
Response.Write "替换内容"
End If
%>
</strong></td>
<td width="12%" align="center" class="top_item"><strong>操作</strong></td>
</tr>
<%
If RowCount = 0 Then
Response.Write "<tr><td class=td_50 align=center colspan=6>没有任何"& ArrKeyType(KeyType) &"</td></tr>"
Else
Dim i
rsKeyLink.Open()
For i = 1 To RowCount
%>
<tr class="td_25" onMouseOut="this.className='td_25'" onMouseOver="this.className='MouseOver_25'">
<td align="center"><input name="CheckObject" type="checkbox" id="CheckObject" value="<%=rsKeyLink("KeyID")%>"></td>
<td align="center"><%=rsKeyLink("KeyID")%></td>
<td align="center"><%=rsKeyLink("KeyLevel")%></td>
<td align="center"><%=EL_Common.ServerHTMLEncode(rsKeyLink("KeyText"))%></td>
<td align="center"><%=EL_Common.ServerHTMLEncode(rsKeyLink("ReplaceText"))%></td>
<td align="center">
<a href="<%=EL_CurrentScriptName%>?KeyType=<%=KeyType%>&Action=Modify&KeyID=<%=rsKeyLink("KeyID")%>">修改</a> |
<a href="<%=EL_CurrentScriptName%>?KeyType=<%=KeyType%>&Action=Delete&KeyID=<%=rsKeyLink("KeyID")%>" onClick="return confirm('本次操作将彻底删除，不可恢复，确认要执行删除吗？')">删除</a> </td>
</tr>
<%
If i<RowCount Then rsKeyLink.MoveNext
Next
rsKeyLink.Close()
End If
%>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td width="12%"><span id="myselect">[<a href="javascript:CheckedAll()">全选</a>]</span></td>
<td width="88%" align="right" nowrap><%Call EL_Common.ShowPage("KeyType="& KeyType, CurrentPage, PageSizes, PageCounts, TotalRowCount, "公告", "条")%></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td height="50" align="center"><input type="button" name="Submit3" value="删除选定<%=ArrKeyType(KeyType)%>" onClick="doDelete()"></td>
</tr>
</table>
</form>
<%
Set rsKeyLink = Nothing
Set ManageCmd = Nothing
EL_Common.ShowScriptError()
End Sub
Sub AddKeylink()
On Error Resume Next
%>
<script language="javascript">
function Check(frm){
if(frm.KeyText.value.trim()==""){
alert(<%=KeyType%>==0?"请输入链接目标":"请输入替换目标");
frm.KeyText.focus();
return false;
}
<% If KeyType = 0 Then %>
if(frm.ReplaceText.value.trim()==""){
alert("请输入链接地址");
frm.ReplaceText.focus();
return false;
}
<% End If %>
SubmitOnce(frm);
return true;
}
</script>
<form name="myform" action="Admin_Keylink.asp" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td colspan="2" class="top_25"><strong>添加<%=ArrKeyType(KeyType)%></strong></td>
</tr>
<tr>
<td class="td_ItemName"><strong>优先级别</strong></td>
<td class="td_25"><input name="KeyLevel" type="text" id="KeyLevel" value="1" size="10">
<span class="redText">数字越大，优先级越高</span></td>
</tr>
<tr>
<td width="19%" class="td_ItemName"><strong>
<%
If KeyType = 0 Then
Response.Write "链接目标"
Else
Response.Write "替换目标"
End If
%>
</strong> </td>
<td width="81%" class="td_25"><input name="KeyText" type="text" id="KeyText" size="60"></td>
</tr>
<tr>
<td class="td_ItemName"><strong>
<%
If KeyType = 0 Then
Response.Write "链接地址"
Else
Response.Write "替换内容"
End If
%>
</strong> </td>
<td class="td_25"><input name="ReplaceText" type="text" id="ReplaceText" size="60"></td>
</tr>
<tr>
<td class="td_ItemName"> </td>
<td class="td_50"><input type="submit" name="Submit" value="添加<%=ArrKeyType(KeyType)%>">
<input type="button" name="Submit2" value="返回上页" onClick="history.back()">
<input name="Action" type="hidden" id="Action" value="Save">
<input name="KeyType" type="hidden" id="KeyType" value="<%=KeyType%>"></td>
</tr>
</table>
</form>
<%
EL_Common.ShowScriptError()
End Sub
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -