⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_link.asp

📁 本系统是一套开源WEB的网站管理系统
💻 ASP
字号:
🔍 
<!--#include file="admin_conn.asp"-->
<!--#include file="../include/admin_setting.asp"-->
<!--#include file="admin_function.asp"-->
<%
'==============================================================
'程序名称：茂盛网站管理系统(Maoin CSM)
'当前版本：Maosin CMS Version 1.1   Powered by maosin.com
'程序作者：阿茂（李胜茂）
'网站地址：www.maosin.com   www.maosin.net
'      QQ：57861417  
'电子邮箱：maosin@163.com  maosin@maosin.com
'--------------------------------------------------------------
'Copyright (C) 2006 maosin.com All Rights Reserved.
'免费版本请在程序首页保留(Powered by：Maosin CMS)版权链接信息；
'您可以对此版本进行修改，美化，但请保留此ASP文件内的版权信息；
'茂盛设计网保留此软件的法律追究权利
'==============================================================
Call admin_top()
Call navMenu()
Select Case LCase(Request.QueryString("action"))
	Case LCase("adminadminlink")
		Call adminlink()
	Case Lcase("maosin_dellink")
		Call DeleteLink()
	Case Lcase("maosin_applink")
		Call addLink()
	Case Lcase("modifylink")
		Call modifyLink()
	Case Lcase("pass")'审核
		bool=Request.QueryString("bool")
		Call pass(bool)
	Case Lcase("commend")
		Call iscommend()
	Case else
		Call adminlink()
End Select
Call admin_foot()

Sub navMenu()%>
<table width="100%" border="0" cellpadding="4" cellspacing="1" class="text table_border mainTable">
  <tr><td colspan="2" class="td_titleT">链接管理</td></tr>
  <tr><td width="95" height="30" class="td_bgcolor">管理快捷导航：</td><td class="td_bgcolor"> 
  <a href="admin_link.asp">全部链接</a>&nbsp;|&nbsp;
  <a href="admin_link.asp?action=noPassList">等待审核的链接</a>&nbsp;|&nbsp;
  <a href="admin_link.asp?action=passList">通过审核的链接</a>&nbsp;|&nbsp;
  <a href="admin_link.asp?action=maosin_applink">添加链接</a></td></tr>
</table>
<%table(5)
End Sub
Sub adminLink()
if getPopedom("linkAdmin")=false then
	popedomMsg
	exit sub
end if
select case request.querystring("action")
	case "noPassList"
		sql="select * from ms_link where pass=false"
		titlemsg="等待审核的链接"
	case "passList"
		sql="select * from ms_link where pass=true"
		titlemsg="已通过审核的链接"
	case else
		sql="select * from ms_link"
		titlemsg="全部链接"
end select
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,connstr,1,1
n=20
url="admin_link.asp?"
pages=pagetitle(rs,n,URL,"个友情链接")
%>
<table width="100%" border="0" cellpadding="4" cellspacing="1" class="text table_border mainTable">
  <tr>
    <td height="22" colspan="6" valign="middle" class="td_titleT"><%=titlemsg%> (共有<font color="#ff0000"><%=rs.recordcount%></font>个)</td>
  </tr>
  <tr valign="middle" align="center" class="td_topT">
    <td width="38" height="21">ID</td>
    <td width="70">链接分类</td>
    <td width="*">链接简介</td>
    <td width="120">加入时间</td>
    <td width="50">链接状态</td>
    <td width="100">操作选项</td>
  </tr>
 <%line=0
if not rs.eof and not rs.bof then
 Do While Not rs.Eof and line<rs.PageSize%>
  <tr class="td_bgcolor"  valign="middle" align="center"  onmouseover="mouseOver(this)" onmouseout="mouseOut(this)">
    <td height="21"><%=rs("id")%></td>
    <td>
	<%if rs("linkmode")=1 then%>
	<a href="<%=rs("weburl")%>" title="LOGO链接"><img src="<%=rs("weblogo")%>" width="88" height="31" border="0"></a>
	<%elseif rs("linkmode")=0 then%>
	<a href="<%=rs("weburl")%>" title="文字链接"><%=rs("webname")%></a>
	<%end if%>
	</td>
    <td align="left"><%=rs("info")%></td>
    <td><%=rs("link_date")%></td>
    <td>
	<%if rs("pass")=false then%>
	<a href=?action=pass&bool=true&id=<%=rs("id")%>>审核(<font color="#ff0000">×</font>)</a>
	<%elseif rs("pass")=true then%>
	<a href=?action=pass&bool=false&id=<%=rs("id")%>>审核(<font color="#ff0000">√</font>)</a>
	<%end if%>
	<br>
	<%if rs("commend")=false then%>
	<a href=?action=commend&bool=true&id=<%=rs("id")%>>推荐(<font color="#ff0000">×</font>)</a>
	<%elseif rs("commend")=true then%>
	<a href=?action=commend&bool=false&id=<%=rs("id")%>>推荐(<font color="#ff0000">√</font>)</a>
	<%end if%>
	</td>
    <td>
	<button onclick="window.location.href='?action=modifylink&id=<%=rs("id")%>';">修改</button>&nbsp;
	<button onclick="{if(confirm('您确定要删除此链接吗?')){window.location.href='?action=maosin_dellink&id=<%=rs("id")%>';}return false;}">删除</button>
	</td>
  </tr>
 <%rs.MoveNext
 line=line+1
 Loop
%>
 <tr><td colspan="6" class="td_titleB">
<%=pages%>
 </td></tr>
<%else%>
<tr><td height="40" align="center" class="td_bgcolor" colspan="6">
当前没有链接！
</td></tr>
<%end if%>
</table>
<%rs.close
set rs=nothing
End Sub
Sub deleteLink()
if getPopedom("linkAdmin")=false then
	popedomMsg
	exit sub
end if
sql="delete from ms_link where id="&Request.QueryString("id")
conn.Execute(sql)
Response.Redirect("admin_link.asp")
End Sub
Sub addLink()
if getPopedom("linkAdmin")=false then
	popedomMsg
	exit sub
end if
If Request.form("addlink")<>"" Then
webname=Request.form("webname")
weburl=Request.form("weburl")
weblogo=Request.form("logourl")
username=Request.form("username")
linkmode=Request.form("linkmode")
if chkIsOut=false then
	showmsg "<font color=""#ff0000"">茂盛系统返回如下信息：</font><br><br>对不起，本站不允许从外部提交数据","系统出错信息"
	exit sub
end if
if weblogo="" then
linkmode=0
end if
info=Request.form("info")
	sql="insert into ms_link(webname,weburl,info,weblogo,username,linkmode,pass,commend,link_date) "
	sql=sql&"values('"&webname&"','"&weburl&"','"&info&"','"&weblogo&"','"&username&"',"&linkmode&","&request.form("pass")&","&request.form("commend")&",#"&Now()&"#)"
	conn.Execute(sql)
End if
%>
<table width="100%" border="0" cellpadding="4" cellspacing="1" class="text table_border mainTable">
	<tr><td height="23" colspan="2" class="td_titleT">添加新的链接</td></tr>
<form action="?action=maosin_applink" name="linkform" method="post">
   <tr class="td_bgcolor">
    <td width="30%" height="25" valign="middle" align="right">链接方式：</td>
    <td width="*" valign="middle">
		<select name="linkmode" id="linkmode">
		  <option value=0 selected>文字链接</option>
		  <option value=1>LOGO链接</option>
		</select></td>
  </tr>
  <tr class="td_bgcolor">
    <td height="22" valign="middle" align="right">网站名称：</td>
    <td valign="middle"><input name="webname" type="text" id="webname" size="40"></td>
  </tr>
  <tr class="td_bgcolor">
    <td height="22" valign="middle" align="right">站长姓名：</td>
    <td valign="middle"><input name="username" type="text" id="uername" size="40"></td>
  </tr>
  <tr class="td_bgcolor">
    <td height="22" valign="middle" align="right">网站地址：</td>
    <td valign="middle"><input name="weburl" type="text" id="weburl" size="40"></td>
  </tr>
  <tr class="td_bgcolor">
     <td height="22" valign="middle" align="right">LOGO地址：</td>
     <td valign="middle"><input name="logourl" type="text" id="logourl" size="40"></td>
  </tr>
  <tr class="td_bgcolor">
     <td height="22" valign="middle" align="right">是否通过：</td>
     <td valign="middle">
		  <input name="pass" type="radio" id="pass" value="true">通过审核&nbsp;
		  <input name="pass" type="radio" id="pass" value="false" checked>等待审核</td>
   </tr>
   <tr class="td_bgcolor">
      <td height="22" valign="middle" align="right">是否推荐：</td>
      <td valign="middle">
		  <input name="commend" type="radio" id="commend" value="true">推荐&nbsp;
		  <input name="commend" type="radio" id="commend" value="false" checked>不推荐</td>
   </tr>
   <tr class="td_bgcolor">
      <td height="22" valign="middle" align="right">网站简介：</td>
      <td valign="middle"><textarea name="info" cols="50" rows="5" id="info"></textarea></td>
   </tr>
   <tr align="center" valign="middle">
      <td height="22" colspan="2" class="td_titleB"><input name="addlink" type="submit" id="addlink" value="确定新增"> &nbsp;&nbsp;
          <input type="reset" name="Submit2" value="清除重填"></td>
   </tr>
	   </form>
</table>
<%End Sub
Sub modifyLink()
if getPopedom("linkAdmin")=false then
	popedomMsg
	exit sub
end if
If Request.form("modifylink")<>"" Then
webname=Request.form("webname")
weburl=Request.form("weburl")
weblogo=Request.form("logourl")
username=Request.form("username")
linkmode=cint(Request.form("linkmode"))
info=Request.form("info")
sql="update ms_link set webname='"&webname&"',weburl='"&weburl&"',weblogo='"&weblogo&"',"
sql=sql&"username='"&username&"',linkmode="&linkmode&",info='"&info&"',pass="&Request.form("pass")&",commend="&Request.form("commend")&" where id="&CInt(Request.form("id"))
conn.Execute(sql)
response.write("<script>alert('修改成功');window.location.href='admin_link.asp';</script>")
response.End()
End If
sql="select * from ms_link where id="&Cint(Request.QueryString("id"))
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,connstr,1,1
%>
<table width="100%" border="0" cellpadding="4" cellspacing="1" class="text table_border mainTable">
	<tr><td height="23" colspan="2" class="td_titleT">修改链接</td></tr>
	<form action="?action=modifylink" name="linkform" method="post">
   <tr class="td_bgcolor">
    <td width="30%" height="25" valign="middle" align="right">链接方式：</td>
    <td width="*" valign="middle">
		  <select name="linkmode" id="linkmode">
		  <%if rs("linkmode")=0 then%>
            <option value=0 selected>文字链接</option>
            <option value=1>LOGO链接</option>
		  <%elseif rs("linkmode")=1 then%>
            <option value=0>文字链接</option>
            <option value=1 selected>LOGO链接</option>
		  <%end if%>
		</select></td>
  </tr>
  <tr class="td_bgcolor">
    <td height="22" valign="middle" align="right">网站名称：</td>
    <td valign="middle"><input type="hidden" name="id" value=<%=Request.QueryString("id")%>>
		  <input name="webname" type="text" value="<%=rs("webname")%>" id="webname"></td>
  </tr>
  <tr class="td_bgcolor">
    <td height="22" valign="middle" align="right">站长姓名：</td>
    <td valign="middle"><input name="username" type="text" id="uername" value="<%=rs("username")%>" size="40"></td>
  </tr>
  <tr class="td_bgcolor">
    <td height="22" valign="middle" align="right">网站地址：</td>
    <td valign="middle"><input name="weburl" type="text" id="weburl" value="<%=rs("weburl")%>" size="40"></td>
  </tr>
  <tr class="td_bgcolor">
     <td height="22" valign="middle" align="right">LOGO地址：</td>
     <td valign="middle"><input name="logourl" type="text" id="logourl" value="<%=rs("weblogo")%>" size="40"></td>
  </tr>
  <tr class="td_bgcolor">
     <td height="22" valign="middle" align="right">是否通过：</td>
     <td valign="middle">
		  <%if rs("pass")=true then%>
		  <input name="pass" type="radio" value=true checked>通过
		  <input name="pass" type="radio" value=false>不通过<br>
		  <%else%>
		  <input name="pass" type="radio" value=true>通过
		  <input name="pass" type="radio" value=false checked>不通过<br>		  
		  <%end if%>
		  </td>
   </tr>
   <tr class="td_bgcolor">
      <td height="22" valign="middle" align="right">是否推荐：</td>
      <td valign="middle">
		  <%if rs("commend")=true then%>
		  <input name="commend" type="radio" value=true checked>推荐
		  <input name="commend" type="radio" value=false>不推荐
		  <%else%>
		  <input name="commend" type="radio" value=true>推荐
		  <input name="commend" type="radio" value=false checked>不推荐		  
		  <%end if%></td>
   </tr>
   <tr class="td_bgcolor">
      <td height="22" valign="middle" align="right">网站简介：</td>
      <td valign="middle"><textarea name="info" cols="50" rows="5" id="info"><%=rs("info")%></textarea></td>
   </tr>
   <tr align="center" valign="middle">
      <td height="22" colspan="2" class="td_titleB"><input name="modifylink" type="submit" id="modifylink" value="保存修改"> &nbsp;&nbsp;
          <input type="reset" name="Submit2" value="清除重填"></td>
   </tr>
	   </form>
</table>
<%rs.close
set rs=nothing
End Sub
Sub pass(bool)
if getPopedom("linkAdmin")=false then
	popedomMsg
	exit sub
end if
sql="update ms_link set pass="&bool&" where id="&CInt(Request.QueryString("id"))
conn.Execute(sql)
Response.Redirect("admin_link.asp")
End Sub
Sub iscommend()
if getPopedom("linkAdmin")=false then
	popedomMsg
	exit sub
end if
bool=Request.QueryString("bool")
sql="update ms_link set commend="&bool&" where id="&CInt(Request.QueryString("id"))
conn.Execute(sql)
Response.Redirect("admin_link.asp")
End Sub
'========================================================
'MaoSin CMS 1.1      Power by maosin.com
'Email: maosin@163.com , maosin@maosin.com
'Web: http://www.maosin.com  http://www.maosin.net
'Copyright (C) 2006 maosin.com All Rights Reserved.
'========================================================
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -