📄 page_admin_link_manage.html.asp
字号:
<!-- #include file="page_admin_site_header.html.asp" -->
<!-- ##### 主栏目开始 ##### --->
<%Call ActionView(CONST_ACTION_FUNC)%>
<div id="main_menu">
<table id="main_menu_title" width="100%" border="0" cellspacing="2" cellpadding="0">
<tr>
<td class="main_menu_img">
<a><div id="menu_img_show" name="menu_img_show" class="img_show"><span class="alt">[ +/- img ]</span></div></a></td>
<td class="main_menu_active" id="main_menu_buttom" name="main_menu_buttom">
<a href="admin_link_manage.asp">查看</a></td>
<td class="main_menu_buttom" id="main_menu_buttom" name="main_menu_buttom">
<a href="admin_link_add_form.asp">创建</a></td>
<td> </td>
</tr>
</table>
</div>
<div id="main_content">
<div id="main_content_title">
<div class="note">友情链接列表</div>
</div>
<div id="main_content_list">
<table class="main" width="100%" border="0" cellspacing="1" cellpadding="0">
<form name="vbfrom" id="vbform" action="admin_link_del.asp" method="post">
<tr id="main_list_index">
<td width="2%" align="center">
<input class="checkbox" onclick="CheckAll(this.form,this)" id="topcheckall" name="topcheckall" type="checkbox" value="" /></td>
<td width="8%">序号</td>
<td width="18%">名称</td>
<td width="20%">描述</td>
<td width="25%">链接地址</td>
<td width="15%">显示方式</td>
<td>Logo</td>
<!-- <td>详细</td> -->
</tr>
<%
If IsObject(TAG_objRS) Then
Dim i : i = 0
Do While Not TAG_objRS.Eof %>
<tr onmouseover="LineMouseOver(this)" onmouseout="LineMouseOut(this,<%=i+1%>)" onmousedown="LineMouseDown(this,<%=i+1%>)" class="<%=TrStyleSet(i)%>">
<td align="center">
<input name="selId" type="checkbox" class="form_checkbox" id="selId" value="<%=TAG_objRS("LINK_ID")%>" /></td>
<td><%=i+1%></td>
<td><%=TAG_objRS("LINK_NAME")%></td>
<td><%=TAG_objRS("LINK_DESC")%></td>
<td><a href="<%=TAG_objRS("LINK_URL")%>" target="_blank"><%=TAG_objRS("LINK_URL")%></a></td>
<td><%
If TAG_objRS("LINK_LOGO_SET") = 0 Then
Response.Write "文本显示"
Else
Response.Write "Logo显示"
End If
%></td>
<td><%
If TAG_objRS("LINK_LOGO_SET") = 1 Then
Response.Write "<img src='" & TAG_objRS("LINK_LOGO_IMG") & "'>"
Else
Response.Write "--"
End If
%></td>
</tr>
<%
i = i + 1
If i >= TAG_intPerPage Then Exit Do
TAG_objRS.MoveNext
Loop
If IsObject(TAG_objRS) Then
TAG_objRS.Close()
Set TAG_objRS = Nothing
End If
End If
%>
<input type="hidden" name="intPageNow" value="<%=TAG_intPageNow%>" />
<tr class="selectall">
<td colspan="10">
<input class="checkbox" onclick="CheckAll(this.form,this)" id="bottomcheckall" name="bottomcheckall" type="checkbox" value="" /> 全选
<input type="button" value="删除友情链接" class="submit" onclick="return CheckSelChkBox(this.form,'你确认删除所选友情链接?');">
</td>
</tr>
</form>
</table>
</div>
<div id="main_content_foot">
<div class="pagination"><%=TAG_strPageNav%></div>
</div>
</div>
<!-- ##### 主栏目结束 ##### -->
<!-- #include file="page_admin_footer.html.asp" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -