📄 getlinklist.asp
字号:
<!--#include file="../../ACT.Function.asp"-->
<!--#include file="../ACT.F.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>1</title>
<link href="../../Images/css1/css.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
Dim Action,ID,LabelRS,LabelName,Descript,LabelContent,LabelFlag,LabelContentArr,ClassID,Rs,pages
Dim ListNumber,TitleLen,ColNumber,LogoHeight,LogoWidth,LinkType,TypeStyle
If Not ACTCMS.ACTCMS_QXYZ(0,"bqxt","") Then Call Actcms.Alert("对不起，你没有操作权限！","")
Action = Request.QueryString("Action")
ID = Actcms.ChkNumeric(Request.QueryString("ID"))
IF Action = "Add" Then
ClassID = 0
ListNumber = 10
ColNumber = 7
TitleLen=30
LinkType=2:TypeStyle=1:LogoHeight=31:LogoWidth=88
pages = "新建友情链接列表标签"
Else
Set LabelRS = Server.CreateObject("Adodb.Recordset")
LabelRS.Open "Select * From Label_Act Where ID=" & ID & "", Conn, 1, 1
If LabelRS.EOF And LabelRS.BOF Then
LabelRS.Close
Conn.Close:Set Conn = Nothing
Set LabelRS = Nothing
Response.Write "参数传递出错!":Response.End
End If
LabelName = Replace(Replace(LabelRS("LabelName"), "{ACTCMS_", ""), "}", "")
Descript = LabelRS("Description")
LabelContent = LabelRS("LabelContent")
LabelFlag = Clng(LabelRS("LabelFlag"))
LabelRS.Close:Set LabelRS = Nothing
LabelContent = Replace(Replace(LabelContent, "{$GetLinkList(", ""), ")}", "")
LabelContent = Replace(LabelContent, """", "")
LabelContentArr = Split(LabelContent, "§")
ClassID = LabelContentArr(0)
LinkType = LabelContentArr(1)'是否包含子栏目
TypeStyle = LabelContentArr(2)'列出条数
LogoWidth = LabelContentArr(3)'链接目标
LogoHeight = LabelContentArr(4)
ListNumber= LabelContentArr(5)
TitleLen = LabelContentArr(6)
ColNumber= LabelContentArr(7)
pages = "修改友情链接列表标签"
End IF
%>
<form id="myform" name="myform" method="post" action="AddLabelSave.asp">
<input type="hidden" name="LabelContent">
<input type="hidden" name="Action" value="<%= Action %>">
<input type="hidden" name="ID" value="<%= ID %>">
<input type="hidden" name="FileUrl" value="GetLinkList.asp">
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
<tr>
<td colspan="2" align="center" class="bg_tr"><%= pages %> </td>
</tr>
<tr>
<td width="50%" >标签名称
<input name="LabelName" type="text" id="LabelName" value="<%= LabelName %>"></td>
<td width="50%" ><font color="red">* 调用格式"{ACTCMS_标签名称}"</font></td>
</tr>
<tr>
<td >标签目录
<select name="LabelFlag" id="select">
<option value="0">系统默认</option>
<%=AF.ACT_LabelFolder(CInt(LabelFlag))%>
</select> <a href="ACT.LabelFolder.asp"><font color=red><b>新建存放目录</b></font></a></td>
<td width="50%" height="24" ><font color=green>标签存放目录,日后方便管理标签</font></td>
</tr>
<tr>
<td >
链接类别 <Select Name="ClassID" >
<% response.Write ("<option Value=""0"">-列出所有分类的站点-</option>")
Dim LinkRs
Set LinkRs = Conn.Execute("Select id,ClassLinkName From ClassLink_Act")
Do While Not LinkRs.EOF
If ClassID = CStr(LinkRs(0)) Then
response.Write ("<Option value=" & LinkRs(0) & " selected>" & LinkRs(1) & "</OPTION>")
Else
response.Write ("<Option value=" & LinkRs(0) & ">" & LinkRs(1) & "</OPTION>")
End If
LinkRs.MoveNext
Loop
LinkRs.Close
Set LinkRs = Nothing
%></Select></td>
<td > </td>
</tr>
<tr>
<td >链接类型
<INPUT onClick="SetLogo(2)" <% IF LinkType = 2 Then Response.Write "Checked" %> type="radio" value="2" name="LinkType" id="LinkType1"><label for="LinkType1">全部链接</label>
<INPUT onClick="SetLogo(0)" <% IF LinkType = 0 Then Response.Write "Checked" %> type="radio" value="0" name="LinkType" id="LinkType2"><label for="LinkType2">文本链接</label>
<INPUT onClick="SetLogo(1)" <% IF LinkType = 1 Then Response.Write "Checked" %> type="radio" value="1" name="LinkType" id="LinkType3"><label for="LinkType3">LOGO链接</label>
</td>
<td >显示方式
<INPUT onClick="SetType(0)" <% IF TypeStyle = 0 Then Response.Write "Checked" %> type="radio" value="0" name="TypeStyle" id="TypeStyle1"><label for="TypeStyle1">向上滚动</label>
<INPUT onClick="SetType(1)" <% IF TypeStyle = 1 Then Response.Write "Checked" %> type="radio" value="1" name="TypeStyle" id="TypeStyle2"><label for="TypeStyle2">横向列表</label>
<INPUT onClick="SetType(2)" <% IF TypeStyle = 2 Then Response.Write "Checked" %> type="radio" value="2" name="TypeStyle" id="TypeStyle3"><label for="TypeStyle3">下拉列表</label>
</td>
</tr>
<tr>
<td >Logo宽度
<input name="LogoWidth" type="text" id="LogoWidth" value="<%= LogoWidth %>"></td>
<td >?Logo高度
<input name="LogoHeight" type="text" id="LogoHeight" value="<%= LogoHeight %>"> </td>
</tr>
<tr>
<td >显示数目
<input name="ListNumber" type="text" id="ListNumber" value="<%= ListNumber %>"></td>
<td ><font color="red">设置为0时将列出所有友情链接站点</font> </td>
</tr>
<tr>
<td >标题字数
<input name="TitleLen" type="text" id="TitleLen" value="<%= TitleLen %>"></td>
<td >显示列数
<input name="ColNumber" type="text" id="ColNumber" value="<%= ColNumber %>"></td>
</tr>
<tr>
<td colspan="2" align="center" >
<input name="SubmitBtn" class="ACT_btn" type="button" onClick="InsertScriptFun()" id="SubmitBtn" value=" 确 定 ">
<input type="reset" class="ACT_btn" name="Submit" value=" 重置 "></td>
</tr>
</table>
</form>
<script language="javascript" >
function OpenWindow(Url,Width,Height,WindowObj)
{
var ReturnStr=showModalDialog(Url,WindowObj,'dialogWidth:'+Width+'pt;dialogHeight:'+Height+'pt;status:no;help:no;scroll:no;');
return ReturnStr;
}
function SetLogo(Num)
{
if (Num==0)
{
document.myform.LogoWidth.disabled=true;
document.myform.LogoHeight.disabled=true;
}
else
{
document.myform.LogoWidth.disabled=false;
document.myform.LogoHeight.disabled=false;
}
}
function SetType(Num)
{
if (Num==0||Num==2)
{
document.myform.ColNumber.disabled=true;
}
else
{
document.myform.ColNumber.disabled=false;
}
} function OpenWindowAndSetValue(Url,Width,Height,WindowObj,SetObj)
{
var ReturnStr=showModalDialog(Url,WindowObj,'dialogWidth:'+Width+'pt;dialogHeight:'+Height+'pt;status:yes;help:no;scroll:yes;');
if (ReturnStr!='') SetObj.value=ReturnStr;
return ReturnStr;
}
function InsertScriptFun(Obj)
{ if (document.myform.LabelName.value=='')
{
alert('请输入标签名称');
document.myform.LabelName.focus();
return false
}
var LinkType,TypeStyle;
var ClassID=document.myform.ClassID.value;
var LogoWidth=document.myform.LogoWidth.value;
var LogoHeight=document.myform.LogoHeight.value;
var ListNumber=document.myform.ListNumber.value;
var TitleLen=document.myform.TitleLen.value;
var ColNumber=document.myform.ColNumber.value;
for (var i=0;i<document.myform.LinkType.length;i++){
var TCJ = document.myform.LinkType[i];
if (TCJ.checked==true)
LinkType = TCJ.value
}
for (var i=0;i<document.myform.TypeStyle.length;i++){
var TCJ = document.myform.TypeStyle[i];
if (TCJ.checked==true)
TypeStyle = TCJ.value
}
document.myform.LabelContent.value= '{$GetLinkList('+ClassID+'§'+LinkType+'§'+TypeStyle+'§'+LogoWidth+'§'+LogoHeight+'§'+ListNumber+'§'+TitleLen+'§'+ColNumber+')}';
document.myform.SubmitBtn.value="正在提交数据,请稍等...";
document.myform.SubmitBtn.disabled=true;
document.myform.Submit.disabled=true;
document.myform.submit();
}
</script>
</body>
</html>
<% response.Write "<script>"
response.Write "SetLogo(" & LinkType & ");"
response.Write "SetType(" & TypeStyle & ");"
response.Write "</script>"
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -