📄 admin_link.asp
字号:
<form name="form1" method="post" action="">
<tr class="tablebody">
<td class="td_title">删除链接分类</td>
</tr>
<tr class="tablebody">
<td>分类名称：<%=rs("cat_name")%><br>
分类类型：<%if rs("isimage")=0 then response.write "[文本链接]" else response.write"[图片链接]" end if%></td>
</tr>
<tr class="tablebody">
<td height="30" align="center">
<input type="submit" name="Submit" value="确定删除" onclick="{if(confirm('您再次确定要删除『<%=rs("cat_name")%>』这个链接分类吗?\n\n注意：删除后不可恢复！')){return true;}return false;}">
<input type="hidden" name="id" value="<%=rs("cat_id")%>">
<input type="hidden" name="delcat" value="true">
</td>
</tr>
</form>
</table>
<%
rs.close
set rs=nothing
end sub
'==================================
'=过 程 名：addlink()
'=功 能：后台添加链接（不需要审核）
'==================================
sub addlink()
if request.form("addlink")="true" then
link_name=checksql("站点名称",request.form("link_name"),1,30)
link_url=checksql("站点地址",request.form("link_url"),1,150)
if left(linkurl,7)<>"http://" then
linkurl="http://"&linkurl
end if
cat_id=checksql("链接分类ID",request.Form("cat_id"),0,8)
linkcontent=checksql("链接介绍",request.form("content"),1,100)
sql="select * from wapls_link"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("link_name")=link_name
rs("link_url")=link_url
rs("cat_id")=cat_id
rs("passed")=0
rs("link_content")=linkcontent
sql="select isimage from wapls_link_cat where cat_id="&cat_id
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
if rs2("isimage")=0 then
rs("link_logo")=""
else
link_logo=checksql("站点LOGO",request.form("link_logo"),1,50)
rs("link_logo")=link_logo
end if
rs2.close
set rs2=nothing
rs.update
rs.close
set rs=nothing
response.redirect"?action=list"
end if
%>
<script>
function insertvalue(linkcontent){
document.form1.content.value=linkcontent;
}
</script>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
<form name="form1" method="post" action="">
<tr class="tablebody">
<td class="td_title">新增链接</td>
</tr>
<tr class="tablebody" style="line-height:150%">
<td> 选择类别：<select name="cat_id" id="cat_id">
<%
sql3="select * from wapls_link_cat"
set rs3=server.CreateObject("adodb.recordset")
rs3.open sql3,conn,1,1
do while not rs3.eof
%>
<option value="<%=rs3("cat_id")%>"><%=rs3("cat_name")%><%if rs3("isimage")=0 then response.write " [文本链接]" end if%></option>
<%
rs3.movenext
loop
%>
</select>
<%
if rs3.eof and rs3.bof then
response.write"<script>alert('请先添加分类');location.href='?action=addcat';</script>"
end if
rs3.close:set rs3=nothing
%>
<br>
站点名称：<input type="text" name="link_name" size="20" maxlength="20" onchange="insertvalue(document.form1.link_name.value)"> <span class="disable_font"> <span class="disable_font">[最多20字符]</span>
<br>站点地址：<input type="text" name="link_url" size="50" maxlength="50" title="[最多50字符]"> <button onClick="link_url.value='http://'">http://</button>
<br>Logo地址：<input type="text" name="link_logo" size="50" maxlength="50" title="[最多50字符]"> <button onClick="link_logo.value='http://'">http://</button>
<br>链接介绍： <span class="disable_font">[少于100字]</span><textarea name="content" style="width:90%;font-size:12px;" rows="4"></textarea>
</td>
</tr>
<tr class="tablebody">
<td align="center">
<input type="submit" name="Submit" value="确定新增">
<input type="reset" name="reset" value="清空重填">
<input type="hidden" name="addlink" value="true">
</td>
</tr>
</form>
</table>
<%end sub
'==================================
'=过 程 名：editlink()
'=功 能：编辑链接
'==================================
sub editlink()
if request.form("editlink")="true" then
if request.querystring("page")<>"" then
curpage=cint(request.querystring("page"))
else
curpage=1
end if
link_id=checksql("链接ID",request.Form("id"),0,8)
cat_id=checksql("链接分类ID",request.Form("cat_id"),0,8)
link_name=checksql("站点名称",request.form("link_name"),1,20)
link_url=checksql("站点地址",request.form("link_url"),1,50)
passed=checksql("链接审核参数",request.Form("passed"),0,1)
linkcontent=checksql("链接介绍",request.form("content"),1,100)
sql="select * from wapls_link where link_id="&link_id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
sql="select isimage from wapls_link_cat where cat_id="&cat_id
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
if rs2("isimage")=0 then
rs("link_logo")=""
else
link_logo=checksql("站点LOGO",request.form("link_logo"),1,50)
rs("link_logo")=link_logo
end if
rs2.close
set rs2=nothing
rs("cat_id")=cat_id
rs("link_name")=link_name
rs("link_url")=link_url
rs("link_content")=linkcontent
if passed=0 then
rs("passed")=0
else
rs("passed")=1
end if
rs.update
rs.close
set rs=nothing
response.redirect "?action=list&page="&curpage&""
end if
link_id=checksql("链接ID",request.querystring("id"),0,8)
sql="select * from wapls_link where link_id="&link_id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
<form name="form1" method="post" action="">
<tr class="tablebody">
<td class="td_title" colspan="2">修改链接</td>
</tr>
<tr class="tablebody">
<td align="center" width="13%">站点名称</td>
<td width="87%"><input type="text" name="link_name" size="21" value="<%=rs("link_name")%>" maxlength="20"> <span class="disable_font">[最多20字符]</span></td>
</tr>
<tr class="tablebody">
<td align="center">站点状态</td>
<td><input type="radio" name="passed" value="0" <%if rs("passed")=0 then%>checked<%end if%>>通过审核 <input type="radio" name="passed" value="1" <%if rs("passed")=1 then%>checked<%end if%>>等待审核或转入审核状态</td>
</tr>
<tr class="tablebody">
<td align="center">选择类别</td>
<td><select name="cat_id" id="cat_id">
<%
sql="select * from wapls_link_cat"
set rs3=server.CreateObject("adodb.recordset")
rs3.open sql,conn,1,1
do while not rs3.eof
%>
<option value="<%=rs3("cat_id")%>" <%if rs3("cat_id")=rs("cat_id") then response.write "selected" end if%>><%=rs3("cat_name")%><%if rs3("isimage")=0 then response.write " [文本链接]" end if%></option>
<%
rs3.movenext
loop
rs3.close
set rs3=nothing
%>
</select></td>
</tr>
<tr class="tablebody">
<td align="center">站点地址</td>
<td><input type="text" name="link_url" size="40" value="<%=rs("link_url")%>"> <span class="disable_font">[最多50字符]</span></td>
</tr>
<tr class="tablebody">
<td align="center"> Logo地址</td>
<td><input type="text" name="link_logo" size="40" value="<%=rs("link_logo")%>"> <span class="disable_font">[最多50字符]</span>
</td>
</tr>
<tr class="tablebody">
<td align="center">链接介绍</td>
<td><textarea name="content" style="width:90%;font-size:12px;" rows="4" title="少于100字"><%=rs("link_content")%></textarea>
</td>
</tr>
<tr class="tablebody">
<td align="center" colspan="2">
<input type="submit" name="Submit" value="确定修改">
<input type="reset" name="reset" value="清空重填">
<input type="hidden" name="id" value="<%=rs("link_id")%>">
<input type="hidden" name="flcatid" value="<%=rs("cat_id")%>">
<input type="hidden" name="editlink" value="true">
</td>
</tr>
</form>
</table>
<%
rs.close
set rs=nothing
end sub
'==================================
'=过 程 名：dellink()
'=功 能：删除链接
'==================================
sub dellink()
if request.form("dellink")="true" then
if request.querystring("page")<>"" then
curpage=cint(request.querystring("page"))
else
curpage=1
end if
link_id=checksql("链接ID",request.Form("id"),0,8)
sql="select * from wapls_link where link_id="&link_id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.delete
rs.update
rs.close
set rs=nothing
response.redirect "?action=list&page="&curpage&""
end if
link_id=checksql("链接ID",request.querystring("id"),0,8)
sql="select * from wapls_link where link_id="&link_id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
sql="select * from wapls_link_cat where cat_id="&rs("cat_id")
set rs3=server.CreateObject("adodb.recordset")
rs3.open sql,conn,1,1
dim flcatname
flcatname=rs3("cat_name")
rs3.close
set rs3=nothing
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
<form name="form1" method="post" action="">
<tr class="tablebody">
<td class="td_title">删除链接</td>
</tr>
<tr class="tablebody">
<td style="line-height:150%">
所属类别：<%=flcatname%><br>
站点名称：<%=rs("link_name")%> <span class="disable_font">[<%if rs("passed")=1 then%>等待审核<%else%>通过审核<%end if%>]</span><br>
站点地址：<%=rs("link_url")%><br>
Logo地址：<% if rs("link_logo")="" then response.write"文字链接" else response.write""&rs("link_logo")&""%><br>
链接简介：<%=rs("link_content")%>
</td>
</tr>
<tr class="tablebody">
<td align="center">
<input type="submit" name="Submit" value="确定删除" onclick="{if(confirm('您再次确定要删除『<%=rs("link_name")%>』这个友情链接吗?\n\n注意：删除后不可恢复！对于想暂时封锁显示的，可在链接编辑中设置其为待审核状态！')){return true;}return false;}">
<input type="hidden" name="id" value="<%=rs("link_id")%>">
<input type="hidden" name="dellink" value="true">
</td>
</tr>
</form>
</table>
<%
rs.close
set rs=nothing
end sub
'==================================
'=过 程 名：checklist()
'=功 能：待审核链接列表
'==================================
sub checklist()
sql="select * from wapls_link where passed=1"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
<form name="form2" method="post" action="checklink.asp">
<tr class="tablebody">
<td colspan="5" class="td_title">链接审核(待审核数:<%=passing%>)</td>
</tr>
<tr align="center" class="tablebody">
<td width="8%">编号</td>
<td width="*">链接名称</td>
<td width="20%">链接分类</td>
<td width="100">链接图片</td>
<td width="20%">操 作</td>
</tr>
<%
for i=1 to rs.recordcount
sql="select cat_name,isimage from wapls_link_cat where cat_id="&rs("cat_id")
set rs2=conn.execute(sql)
%>
<tr class="tablebody">
<td align="center"><%=rs("link_id")%> </td>
<td><a href="<%=rs("link_url")%>" title="网站名称：<%=rs("link_name")%> 网站地址：<%=rs("link_url")%> 网站简介：<%=rs("link_content")%> 加入时间：<%=rs("link_date")%>" target="_blank"><%=rs("link_name")%></a></td>
<td align="center"><font color="#ff6600"><%=rs2("cat_name")%><%if rs2("isimage")=0 then%><span class="disable_font">[文]</span><%end if%></td>
<td width="100" align="center"><%if rs("link_logo")<>"" then response.write "<img src='"&rs("link_logo")&"'>" else response.write "<span class=""disable_font"">无Logo</span>" end if%></font></td>
<td align="center"><button onclick="{if(confirm('您再次确定同意『<%=rs("link_name")%>』这个待审链接吗?\n\n注意：错误操作可通过编辑链接功能进行恢复！')){window.location='?action=checkpass&id=<%=rs("link_id")%>'}return false;}">通过</button> <button onclick="{if(confirm('您再次确定要删除『<%=rs("link_name")%>』这个待审链接吗?\n\n注意：删除后不可恢复！')){window.location='?action=checkdel&id=<%=rs("link_id")%>'}return false;}">删除</button></td>
</tr>
<%
rs.movenext
next
if rs.bof and rs.eof then
%>
<tr align="center" class="tablebody">
<td colspan="6" height="70" class="disable_font">当前没有待审核的链接！</td>
</tr>
<%end if%>
</form>
</table>
<%
rs2.close
set rs2=nothing
rs.close
set rs=nothing
end sub
'==================================
'=过 程 名：checkpass()
'=功 能：待审核链接通过
'==================================
sub checkpass()
link_id=checksql("链接ID",request.querystring("id"),0,8)
sql="select * from wapls_link where link_id="&link_id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs("passed")=0
rs.update
rs.close
set rs=nothing
response.redirect "?action=checklist"
end sub
'==================================
'=过 程 名：checkdel()
'=功 能：待审核链接未通过，删除处理
'==================================
sub checkdel()
link_id=checksql("链接ID",request.querystring("id"),0,8)
sql="select * from wapls_link where link_id="&link_id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.delete
rs.update
rs.close
set rs=nothing
response.redirect "?action=checklist"
end sub
%>
<!--#include file="wapls_admin_bottom.asp"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -