📄 act.sitelink.asp
字号:
<!--#include file="../ACT.Function.asp"-->
<!--#include file="../../ACT_inc/cls_pageview.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>ACTCMS自定义属性</title>
<link href="../Images/css1/css.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/javascript" src="../../ACT_inc/Prototype.js"></script>
<script language="JavaScript" type="text/javascript" src="../../ACT_inc/ActHelp.js"></script>
</head>
<body>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
<tr>
<td class="bg_tr">您现在的位置：系统中心 >> 自定义管理</td>
</tr>
<tr>
<td>
<a href="ACT.DiyArticle.ASP?Action=add">
<strong>添加自定义属性</strong></a>
<a href="ACT.DiyArticle.ASP"><strong>查看自定义属性</strong></a>
┆
<a href="ACT.author.ASP?Action=add"><strong>添加作者</strong></a>
<a href="ACT.author.ASP"><strong>查看作者</strong></a>
┆
<a href="ACT.CopyFrom.ASP?Action=add"><strong>添加来源</strong></a>
<a href="ACT.CopyFrom.ASP"><strong>查看来源</strong></a>
┆
<a href="ACT.SiteLink.ASP?Action=add"><strong>添加网站关键字</strong></a>
<a href="ACT.SiteLink.ASP"><strong>查看网站关键字</strong></a>
</td>
</tr>
</table>
<% If Not ACTCMS.ChkAdmin() Then Call Actcms.Alert("对不起，您没有操作权限！","")
Dim sql, sqlCount,Sqls,intPageSize, strPageInfo,arrRecordInfo, i,pages,intPageNow,strLocalUrl,Action,Title,url,ifs,OpenType
Action=Request("Action")
Dim ShowErr
IF Request.QueryString("Action") = "del" Then
Dim ID:ID = Request("ID")
IF ID = "" Then
Call Actcms.ActErr("请指定要删除的自定义属性","")
Response.end
End IF
If instr(ID,",")>0 then
ID=replace(ID," ","")
Sql="delete from Sitelink_ACT where ID in (" & ID & ")"
Else
Sql="delete from Sitelink_ACT where ID=" & ACTCMS.ChkNumeric(ID) & ""
End if
Conn.Execute sql:Set Conn=nothing
Call Actcms.ActErr("自定义属性删除成功 <a href=include/ACT.SiteLink.ASP>点击这里返回管理首页</a>","")
End IF
Select Case Action
Case "edit","add"
call edit()
Case "AddSave","EditSave"
Call Saves()
Case Else
call main()
end select
sub main()
Dim ACT_TypeDiY,TypeDiY,Manage
strLocalUrl = request.ServerVariables("SCRIPT_NAME")
intPageNow = request.QueryString("page")
intPageSize =20
sql = "SELECT [ID], [Title], [Url], [IFS], [OpenType]" & _
" FROM [Sitelink_ACT]" & _
" ORDER BY [ID] DESC"
sqlCount = "SELECT Count([ID])" & _
" FROM [Sitelink_ACT]"
Dim clsRecordInfo
Set clsRecordInfo = New Cls_PageView
clsRecordInfo.intRecordCount = 2816
clsRecordInfo.strSqlCount = sqlCount
clsRecordInfo.strSql = sql
clsRecordInfo.intPageSize = intPageSize
clsRecordInfo.intPageNow = intPageNow
clsRecordInfo.strPageUrl = strLocalUrl
clsRecordInfo.strPageVar = "page"
clsRecordInfo.objConn = Conn
arrRecordInfo = clsRecordInfo.arrRecordInfo
strPageInfo = clsRecordInfo.strPageInfo
Set clsRecordInfo = nothing
%>
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
<form name="Article" method="post" action="?Action=">
<tr>
<td width="30" align="center" class="bg_tr">选中 </td>
<td align="center" class="bg_tr" nowrap>关键字名称</td>
<td align="center" class="bg_tr" nowrap>关键字链接</td>
<td align="center" class="bg_tr" nowrap>是否启用</td>
<td colspan="2" align="center" class="bg_tr" nowrap> 管理操作</td>
</tr>
<%
Dim bgColor
If IsArray(arrRecordInfo) Then
For i = 0 to UBound(arrRecordInfo, 2)
bgColor="#FFFFFF"
if i mod 2=0 then bgColor="#DFEFFF"
%>
<tr onMouseOver=overColor(this) onMouseOut=outColor(this)>
<td align="center" >
<input type="checkbox" name="ID" value="<%= arrRecordInfo(0,i) %>"> </td>
<td align="center" ><%= arrRecordInfo(1,i) %></td>
<td align="center" ><%= arrRecordInfo(2,i) %></td>
<td align="center" ><%If arrRecordInfo(3,i)="1" Then response.write "<font color=green>正常</font>":Else response.write "<font color=red>禁用</font>" %></td>
<td colspan="2" align="center">
<a href="?Action=edit&id=<%= arrRecordInfo(0,i) %>">修改</a>┆
<a href="?Action=del&ID=<%= arrRecordInfo(0,i) %>" onClick="return confirm('确认删除此自定义属性吗?')">删除</a> </td>
</tr>
<%
Next
End If
%>
<tr >
<td height="30" colspan="6">
<label for=chk>
<input id="chk" type="checkbox" name="chkall" value="checkbox" onClick="CheckAll(this.form)">选择全部</label>
<input type="button" class="ACT_btn" name="yd" value="批量删除" onClick="delpost()"></td>
</tr>
<tr >
<td height="25" colspan="6" align="center"><%= strPageInfo%></td>
</tr></form>
</table>
<p>
<script language="javascript">
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = Article.elements[i];
if (e.name != 'chkall')
e.checked = Article.chkall.checked;
}
}
//CSS背景控制
function overColor(Obj)
{
var elements=Obj.childNodes;
for(var i=0;i<elements.length;i++)
{
elements[i].className="tdbg1"
Obj.bgColor="";
}
}
function outColor(Obj)
{
var elements=Obj.childNodes;
for(var i=0;i<elements.length;i++)
{
elements[i].className="tdbg";
Obj.bgColor="";
}
}
function delpost(){
document.Article.method="post";
document.Article.action="?Action=del";
{
if(confirm('确认要删除选中的Tags吗?')){
this.document.Article.submit();
return true;}return false;
}
}
</script>
<% end sub
Sub edit()
If Action ="edit" Then
Dim Rs,ID,A
id = ACTCMS.ChkNumeric(Request.QueryString("id"))
Set Rs=actcms.actexe("select * from Sitelink_ACT Where id="&id&"")
If rs.eof Then
Call actcms.alert("未知错误","")
Else
Title=Rs("Title")
url=Rs("url")
ifs=Rs("ifs")
Id=Rs("Id")
OpenType=Rs("OpenType")
End If
A="EditSave"
Else
ifs=1
A="AddSave"
End If
%>
<table width="100%" border="0" cellpadding="1" cellspacing="1" class="table">
<form name="form1" method="post" action="?action=<%= A %>&ID=<%= ID %>">
<tr>
<td width="37%" height="35" align="right">关键字名称：</td>
<td width="63%" height="35"><input name="Title" type="text" value="<%= Title %>" size=40>
<span class="h" style="cursor:help;" onclick="Help('ACTDiyArticle_Title',this)">帮助</span></td>
</tr>
<tr>
<td height="35" align="right">关键字链接：</td>
<td height="35"><input name="url" type="text" value="<%= url %>" size=40>
<span class="h" style="cursor:help;" onclick="Help('ACTDiyArticle_url',this)">帮助</span></td>
</tr>
<tr>
<td height="35" colspan="2" align="right"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="30%"> </td>
<td width="71%"><div style="position:relative;">链接目标<span style="margin-left:175px;width:18px;overflow:hidden;">
<select style="width:185px;margin-left:-167px" onChange="this.parentNode.nextSibling.value=this.value">
<option value=""></option>
<option value="_blank"> _blank </option>
<option value="_parent"> _parent </option>
<option value="_self"> _self </option>
<option value="_top"> _top </option>
</select>
</span>
<input name="OpenType" style="width:175px;position:absolute;left:55px;" value="<%= OpenType %>">
<span class="h" style="cursor:help;" onclick="Help('ACTDiyArticle_OpenType',this)">帮助</span>
</div>
</td>
</tr>
</table></td>
</tr>
<tr>
<td height="35" align="right">是否开启：</td>
<td height="35">
<input type="radio" id="ifs1" name="ifs" value="1" <%If ifs=1 Then response.write "checked"%>><label for="ifs1">开启</label>
<input type="radio" id="ifs2" name="ifs" value="0"<%If ifs=0 Then response.write "checked"%>><label for="ifs2">关闭</label>
<span class="h" style="cursor:help;" onclick="Help('ACTDiyArticle_ifs',this)">帮助</span></td>
</tr>
<tr>
<td height="35" colspan="2" align="center"><input type=button onclick=CheckForm() class="ACT_btn" name=Submit1 value=" 保存 " />
<input name="Submit2" type="reset" class="ACT_btn" value=" 重置 ">
</td>
</tr>
</form>
</table>
<%end sub
sub saves()
dim Rs,RsSql
url=ACTCMS.S("url")
Title=ACTCMS.S("Title")
ifs=ACTCMS.ChkNumeric(ACTCMS.S("ifs"))
ID=ACTCMS.ChkNumeric(ACTCMS.S("ID"))
OpenType=ACTCMS.S("OpenType")
IF ACTCMS.S("url") = "" Then
Call ACTCMS.Alert("关键字链接",""):Exit Sub
End if
IF ACTCMS.S("Title") = "" Then
Call ACTCMS.Alert("关键字名称",""):Exit Sub
End If
If Action="AddSave" Then
If Not ACTCMS.ACTEXE("SELECT Title FROM Sitelink_ACT Where Title='" & Title & "' order by ID desc").eof Then
Call ACTCMS.Alert("系统已存在该关键字名称称!",""):Exit Sub
End if
Set Rs = Server.CreateObject("adodb.recordset")
RsSql = "select * from Sitelink_ACT"
Rs.Open RsSql, Conn, 1, 3
Rs.AddNew
Rs("Title") = Title
Rs("url") = url
Rs("ifs") =ifs
Rs("OpenType") =OpenType
Rs.Update
Rs.Close:Set Rs = Nothing
Call Actcms.ActErr("添加成功 <a href=include/ACT.SiteLink.ASP>点击这里返回管理首页</a>","")
Else
If Not ACTCMS.ACTEXE("SELECT Title FROM Sitelink_ACT Where ID <>" & ID & " AND Title='" & Title & "' order by ID desc").eof Then
Call ACTCMS.Alert("系统已存在该关键字名称!",""):Exit Sub
End if
Set Rs = Server.CreateObject("adodb.recordset")
RsSql = "select * from Sitelink_ACT Where ID="&ID
Rs.Open RsSql, Conn, 1, 3
Rs("Title") = Title
Rs("url") = url
Rs("ifs") =ifs
Rs("OpenType") =OpenType
Rs.Update
Rs.Close:Set Rs = Nothing
Call Actcms.ActErr("修改成功 <a href=include/ACT.SiteLink.ASP>点击这里返回管理首页</a>","")
End If
end sub
CloseConn %>
<script language="javascript">
function CheckForm()
{ var form=document.form1;
if (form.url.value=='')
{ alert("请输入关键字!");
form.url.focus();
return false;
}
form.Submit1.value="正在提交数据,请稍等...";
form.Submit1.disabled=true;
form.Submit2.disabled=true;
form.submit();
return true;
}</script>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -