📄 act.copyfrom.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,Field2,Field1
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 AC_ACT where ID in (" & ID & ")"
Else
Sql="delete from AC_ACT where ID=" & ACTCMS.ChkNumeric(ID) & ""
End if
Conn.Execute sql:Set Conn=nothing
Call Actcms.ActErr("来源删除成功 <a href=include/ACT.CopyFrom.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], [Field1], [Field2]" & _
" FROM [AC_ACT] where Types=0" & _
" ORDER BY [ID] DESC"
sqlCount = "SELECT Count([ID])" & _
" FROM [AC_ACT] where Types=0"
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 width="50" align="center" class="bg_tr">ID</td>
<td width="161" align="center" class="bg_tr">站点名称</td>
<td align="center" class="bg_tr">链接地址</td>
<td width="141" colspan="2" align="center" class="bg_tr">管理操作</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(0,i) %></td>
<td align="center" ><%= arrRecordInfo(1,i) %></td>
<td align="center" ><%= arrRecordInfo(2,i) %></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 AC_ACT Where id="&id&"")
If rs.eof Then
Call actcms.alert("未知错误","")
Else
Field2=Rs("Field2")
Field1=Rs("Field1")
Id=Rs("Id")
End If
A="EditSave"
Else
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%" align="right">站点名称：</td>
<td width="63%"><input name="Field1" type="text" value="<%= Field1 %>">
<span class="h" style="cursor:help;" onclick="Help('ACTCopyFrom_zd',this)">帮助</span></td>
</tr>
<tr>
<td align="right">链接地址：</td>
<td><input name="Field2" type="text" value="<%= Field2 %>" size="50">
<span class="h" style="cursor:help;" onclick="Help('ACTCopyFrom_lj',this)">帮助</span></td>
</tr>
<tr>
<td 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
Field1=ACTCMS.S("Field1")
Field2=ACTCMS.S("Field2")
ID=ACTCMS.ChkNumeric(ACTCMS.S("ID"))
IF ACTCMS.S("Field1") = "" Then
Call ACTCMS.Alert("请输入站点名称!",""):Exit Sub
End if
If Action="AddSave" Then
If Not ACTCMS.ACTEXE("SELECT Field2 FROM AC_ACT Where Field2='" & Field2 & "' order by ID desc").eof Then
Call ACTCMS.Alert("系统已存在该链接地址!",""):Exit Sub
End if
If Not ACTCMS.ACTEXE("SELECT Field1 FROM AC_ACT Where Field1='" & Field1 & "' order by ID desc").eof Then
Call ACTCMS.Alert("系统已存在该站点名称!",""):Exit Sub
End if
Set Rs = Server.CreateObject("adodb.recordset")
RsSql = "select * from AC_ACT"
Rs.Open RsSql, Conn, 1, 3
Rs.AddNew
Rs("Field2") = Field2
Rs("Field1") = Field1
Rs.Update
Rs.Close:Set Rs = Nothing
Call Actcms.ActErr("添加成功 <a href=include/ACT.CopyFrom.ASP>点击这里返回管理首页</a>","")
Else
If Not ACTCMS.ACTEXE("SELECT Field2 FROM AC_ACT Where ID <>" & ID & " AND Field2='" & Field2 & "' order by ID desc").eof Then
Call ACTCMS.Alert("系统已存在该链接地址!",""):Exit Sub
End if
Set Rs = Server.CreateObject("adodb.recordset")
RsSql = "select * from AC_ACT Where ID="&ID
Rs.Open RsSql, Conn, 1, 3
Rs("Field2") = Field2
Rs("Field1") = Field1
Rs.Update
Rs.Close:Set Rs = Nothing
Call Actcms.ActErr("修改成功 <a href=include/ACT.CopyFrom.ASP>点击这里返回管理首页</a>","")
End If
end sub
CloseConn %>
<script language="javascript">
function CheckForm()
{ var form=document.form1;
if (form.Field1.value=='')
{ alert("请输入站点名称!");
form.Field1.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 + -