📄 admin_links.asp
字号:
<tr align="center" height="22">
<td width="20%" class="tcat">连接类型</td>
<td width="20%" class="tcat">网站名称</td>
<td width="20%" class="tcat">网站LOGO</td>
<td width="20%" class="tcat">网站状态</td>
<td width="20%" class="tcat">网站操作</td>
</tr>
<%if rs.eof and rs.bof then%>
<tr align="center" height="22">
<td colspan="5" class="alt1"><span class="style1">暂无任何连接</span></td>
</tr>
<%else
Rs.PageSize=MaxPerPage
Allpage=Rs.PageCount
If Currentpage>Allpage Then Currentpage=1
Num=Rs.RecordCount
Rs.MoveFirst
Rs.AbsolutePage=CurrentPage
i=0
do while not rs.eof
%>
<tr align="center" height="22">
<td class="alt2"><%if rs("class_link")=1 then
response.write "<a href='admin_links.asp?info=list&cndb=logo'>LOGO链接</a>"
else
response.write "<a href='admin_links.asp?info=list&cndb=txt'>文字链接</a>"
end if
%> </td>
<td class="alt1">
<a href="admin_links.asp?info=edit&id=<%=rs("id_link")%>"><%=rs("name_link")%></a></td>
<td class="alt2"><%
if rs("logo_link")="" then
response.write " "
else
response.write "<a href='" & rs("web_link") & "' target='_blank' title='" & rs("content_link") & "'><img src='" & rs("logo_link") & "' width='88' height='31' border='0'></a>"
end if
%> </td>
<td class="alt1"><%
if rs("ok_link")=1 then
response.write "<input class=button type=button name=ok value=取消审核 onclick=javascript:window.open('admin_linkSave.asp?id="&rs("id_link")&"&act=ok','_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=550,height=300')>"
else
response.write "<input class=button type=button name=ok value=通过审核 onclick=javascript:window.open('admin_linkSave.asp?id="&rs("id_link")&"&act=ok','_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=550,height=300')>"
end if
if rs("Good_link")=1 then
response.write "<br><input class=button type=button name=Good value=取消推荐 onclick=javascript:window.open('admin_linkSave.asp?id="&rs("id_link")&"&act=Good','_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=550,height=300')>"
else
response.write "<br><input class=button type=button name=Good value=推荐 onclick=javascript:window.open('admin_linkSave.asp?id="&rs("id_link")&"&act=Good','_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=550,height=300')>"
end if
%></td>
<td class="alt2">
<a href="admin_Daily.asp?info=links_del&cndb=<%=cndb%>&id=<%=rs("id_link")%>&page=<%=Page1%>">
删除</a></td>
</tr>
<% i=i+1
If i>=MaxPerPage Then Exit Do
Rs.MoveNext
Loop
End If
Rs.Close
Set Rs=Nothing%> <tr align="center" height="25">
<td colspan="5" class="alt2"><%Response.Write ShowPage("admin_links.asp?info=list&cndb="&cndb&"",CurrentPage,Num,MaxPerPage,True,True," 个项目")%></td>
</form>
</tr>
</table>
<%end sub
Sub add()%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
<tr height="25">
<td colspan="4" class="thead">添加友情连接</td>
</tr>
<form action="admin_Daily.asp?info=links_add" method="post" id="form" name="form">
<tr>
<td colspan="4" class="alt3">
<div id=panx>
<table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class=panel>
<tr>
<td width="26%" height="22" align=right class=alt2>连接方式：<BR> </td>
<td width="74%" class=alt1>
<input name="radio" type="radio" value="1" checked> LOGO连接
<input type="radio" name="radio" value="2"> 文字连接
</td>
</tr>
<tr>
<td width="26%" height="22" align=right class=alt2>连接分类：</td>
<td width="74%" class=alt1>
<select name="link_class" size="1" class='form'>
<%set rs=server.createobject("adodb.recordset")
sql="select id,link_class from link_class"
rs.open sql,conn,1,1
Do while not rs.eof%>
<option value="<%=rs("id")%>"><%=rs("link_class")%></option>
<% rs.MoveNext
Loop
rs.close
set rs=nothing%>
</select> <a href="admin_links.asp?info=classadd">添加分类？</a></td>
</tr>
<tr>
<td width="26%" height="22" align=right class=alt2>网站名称：</td>
<td width="74%" class=alt1><input name="name" type="text" id="name" size="20" class='form'></td>
</tr>
<tr>
<td width="26%" height="22" align=right class=alt2>网站地址：<BR> </td>
<td width="74%" class=alt1>
<input name="web" type="text" id="web" size="25" class='form' value="http://">必须带“http://”</td>
</tr>
<tr>
<td width="26%" height="22" align=right class=alt2>网站LOGO：<BR> </td>
<td width="74%" class=alt1>
<input name="logo" type="text" id="logo" size="35" class='form' value="http://">必须带“http://”</td>
</tr>
<tr>
<td width="26%" height="22" align=right class=alt2>网站介绍：<BR> </td>
<td width="74%" class=alt1><textarea name="content" cols="50" rows="5" class="form" id="content"></textarea></td>
</tr>
<tr>
<td width="26%" height="22" align=right class=alt2>推荐站点：<BR> </td>
<td width="74%" class=alt1><input type="radio" name="good" value="1">
推荐
<input name="good" type="radio" value="0" checked>
不推荐</td>
</tr>
<tr>
<td width="26%" height="22" align=right class=alt2>审核站点：<BR> </td>
<td width="74%" class=alt1><input name="ok" type="radio" value="1" checked>
审核
<input type="radio" name="ok" value="0">
不审核</td>
</table></div>
<div style="MARGIN-TOP: 6px;MARGIN-bottom: 6px" align="center">
<input type="submit" class="button" value="提 交">
<input type="reset" class="button" value="重 置"></div>
</td>
</tr>
</form>
</table>
<%end sub
Sub edit()
id=CheckSql(request.querystring("id"))
CheckSqlnum(id)
id=int(id)
set rs=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
sql="select id_link,class_link,name_link,logo_link,web_link,content_link,ok_link,Good_link from link where id_link="&id
else
sql="select id_link,class_link,name_link,logo_link,web_link,content_link,ok_link,Good_link from [link] where id_link="&id
end if
rs.open sql,conn,1,1
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
<tr height="25">
<td colspan="4" class="thead">修改友情连接</td>
</tr>
<form action="admin_Daily.asp?info=links_edit&id=<%=id%>" method="post" id="form" name="form">
<tr>
<td colspan="4" class="alt3">
<div id=panx>
<table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class=panel>
<tr>
<td width="26%" height="22" align=right class=alt2>连接方式：<BR>
</td>
<td width="74%" class=alt1><input name="radio" type="radio" value="1" <%if rs("class_link")=1 then response.write "checked"%>>
LOGO连接
<input type="radio" name="radio" value="2" <%if rs("class_link")=2 then response.write "checked"%>>
文字连接</td>
</tr>
<tr>
<td width="26%" height="22" align=right class=alt2>连接分类：</td>
<td width="74%" class=alt1>
<select name="link_class" size="1" class='form'>
<%set rss=server.createobject("adodb.recordset")
if IsSqlDataBase = 2 then
sqls="select id,link_class from link_class"
else
sqls="select id,link_class from [link_class]"
end if
rss.open sqls,conn,1,1
Do while not rss.eof%>
<option value="<%=rss("id")%>"<%if CStr(rs("id_link"))=CStr(rss("id")) then response.write(" selected") end if%>><%=rss("link_class")%></option>
<% rss.MoveNext
Loop
rss.close
set rss=nothing%>
</select> <a href="admin_links.asp?info=classadd">添加分类？</a></td>
</tr>
<tr>
<td width="26%" height="22" align=right class=alt2>网站名称：</td>
<td width="74%" class=alt1><input name="name" type="text" class='form' id="name" value="<%=rs("name_link")%>" size="20"></td>
</tr>
<tr>
<td width="26%" height="22" align=right class=alt2>网站地址：<BR>
</td>
<td width="74%" class=alt1>
<input name="web" type="text" class='form' id="web" value="<%=rs("web_link")%>" size="25">必须带“http://”</td>
</tr>
<tr>
<td width="26%" height="22" align=right class=alt2>网站LOGO：<BR>
</td>
<td width="74%" class=alt1>
<input name="logo" type="text" class='form' id="logo" value="<%=rs("logo_link")%>" size="35">必须带“http://”</td>
</tr>
<tr>
<td width="26%" height="22" align=right class=alt2>网站介绍：<BR>
</td>
<td width="74%" class=alt1>
<textarea name="content" cols="50" rows="5" class="form" id="content"><%=rs("content_link")%></textarea></td>
</tr>
<tr>
<td width="26%" height="22" align=right class=alt2>推荐站点：<BR>
</td>
<td width="74%" class=alt1><input type="radio" name="good" value="1" <%if rs("good_link")=1 then response.write "checked"%>>
推荐
<input name="good" type="radio" value="0" <%if rs("good_link")=0 then response.write "checked"%>>
不推荐</td>
</tr>
<tr>
<td width="26%" height="22" align=right class=alt2>审核站点：<BR>
</td>
<td width="74%" class=alt1><input name="ok" type="radio" value="1" <%if rs("ok_link")=1 then response.write "checked"%>>
审核
<input type="radio" name="ok" value="0" <%if rs("ok_link")=0 then response.write "checked"%>>
不审核</td>
</tr>
</table></div>
<div style="MARGIN-TOP: 6px;MARGIN-bottom: 6px" align="center">
<input type="submit" class="button" value="提 交">
<input type="reset" class="button" value="重 置"></div>
</td>
</tr>
</form>
</table>
<%
rs.close
set rs=nothing
end sub%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -