admin_link.asp

主要功能是为大家提供一个免费的校园平台网站,有新闻发布、会员及管理、论坛

  response.end
else
  if not isinteger(request.querystring("id")) then
    Response.Write("<script language=javascript>alert('非法的分类ID参数！');history.back(1);</script>")
	response.end
  end if
end if
sql="select * from friendlink where fl_id="&cint(request.querystring("id"))
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1%>
	  <table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
        <form name="form1" method="post" action="">
          <tr class=lanyuss> 
            <td colspan="2">
            链接通过</td>
          </tr>
<tr class=lanyuds><td align="right" width="30%">选择类别 </td><td width="70%">
              <select name="flcat_id" id="flcat_id">
                <%sql="select * from flcat"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%>
                <option value="<%=rs("flcat_id")%>" <%if rs("flcat_id")=rs2("flcat_id") then response.write "selected" end if%>><%=rs("flcat_name")%></option>
                <%rs.movenext
loop%>
              </select>
<tr class=lanyuds><td align="right" width="30%">站点名称</td><td width="70%"><input type="text" name="fl_name" size="40" class="textarea" value="<%=rs2("fl_name")%>"></td></tr>
<tr class=lanyuds><td align="right" width="30%">站点地址</td><td width="70%"><input type="text" name="fl_url" size="40" class="textarea" value="<%=rs2("fl_url")%>"></td></tr>
<tr class=lanyuds><td align="right" width="30%">Logo地址</td><td width="70%"><input type="text" name="fl_logo" size="40" class="textarea" value="<%=rs2("fl_logo")%>">
            </td>
          </tr>
<tr class=lanyuds> 
              <td align="right">上传LOGO： </td>
              <td align="left" height="25"><iframe frameborder=0 width=290 height=25 scrolling=no src="upload.asp?action=link"></iframe></td>
            </tr>
          <tr class=lanyuqs> 
            <td colspan="2" align="center"> 
              <input type="submit" name="Submit" value="确定通过" class="button">
 <input type="button" value="返回"  onClick="location.href='<%=request.serverVariables("Http_REFERER")%>'" class="button">
            </td>
          </tr>
		  <input type="hidden" name="id" value="<%=rs2("fl_id")%>">
		  <input type="hidden" name="flcatid" value="<%=rs2("flcat_id")%>">
		  <input type="hidden" name="action" value="pass">
		  <input type="hidden" name="MM_insert" value="true">
        </form>
      </table>
	  <%end if
if request.querystring("action")="lkpass" then
	  if request.querystring("id")="" then
  Response.Write("<script language=javascript>alert('请指定操作的对象！');history.back(1);</script>")
  response.end
else
  if not isinteger(request.querystring("id")) then
    Response.Write("<script language=javascript>alert('非法的分类ID参数！');history.back(1);</script>")
	response.end
  end if
end if
sql="select * from friendlink where fl_id="&cint(request.querystring("id"))
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1%>
	  <table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
        <form name="form1" method="post" action="">
          <tr class=lanyuss> 
            <td colspan="2">
            取消黑名单</td>
          </tr>
<tr class=lanyuds><td align="right" width="30%">所属类别 </td><td width="70%">
<%sql="select * from flcat where flcat_id="&rs2("flcat_id")
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
%><%=rs("flcat_name")%>
<tr class=lanyuds><td align="right" width="30%">站点名称</td><td width="70%"><%=rs2("fl_name")%></td></tr>
<tr class=lanyuds><td align="right" width="30%">站点地址</td><td width="70%"><%=rs2("fl_url")%></td></tr>
<tr class=lanyuds><td align="right" width="30%">Logo地址</td><td width="70%"><%=rs2("fl_logo")%>
            </td>
          </tr>
          <tr class=lanyuqs> 
            <td colspan="2" align="center"> 
              <input type="submit" name="Submit" value="确定取消" class="button">
 <input type="button" value="返回"  onClick="location.href='<%=request.serverVariables("Http_REFERER")%>'" class="button">
            </td>
          </tr>
		  <input type="hidden" name="id" value="<%=rs2("fl_id")%>">
		  <input type="hidden" name="flcatid" value="<%=rs2("flcat_id")%>">
		  <input type="hidden" name="action" value="lkpass">
		  <input type="hidden" name="MM_insert" value="true">
        </form>
      </table>
	  <%end if
if request.querystring("action")="lklk" then
	  if request.querystring("id")="" then
  Response.Write("<script language=javascript>alert('请指定操作的对象！');history.back(1);</script>")
  response.end
else
  if not isinteger(request.querystring("id")) then
    Response.Write("<script language=javascript>alert('非法的分类ID参数！');history.back(1);</script>")
	response.end
  end if
end if
sql="select * from friendlink where fl_id="&cint(request.querystring("id"))
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1%>
	  <table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
        <form name="form1" method="post" action="">
          <tr class=lanyuss> 
            <td colspan="2">
            拉入黑名单</td>
          </tr>
<tr class=lanyuds><td align="right" width="30%">所属类别 </td><td width="70%">
<%sql="select * from flcat where flcat_id="&rs2("flcat_id")
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
%><%=rs("flcat_name")%>
<tr class=lanyuds><td align="right" width="30%">站点名称</td><td width="70%"><%=rs2("fl_name")%></td></tr>
<tr class=lanyuds><td align="right" width="30%">站点地址</td><td width="70%"><%=rs2("fl_url")%></td></tr>
<tr class=lanyuds><td align="right" width="30%">Logo地址</td><td width="70%"><%=rs2("fl_logo")%>
            </td>
          </tr>
          <tr class=lanyuqs> 
            <td colspan="2" align="center"> 
              <input type="submit" name="Submit" value="确定拉入" class="button">
 <input type="button" value="返回"  onClick="location.href='<%=request.serverVariables("Http_REFERER")%>'" class="button">
            </td>
          </tr>
		  <input type="hidden" name="id" value="<%=rs2("fl_id")%>">
		  <input type="hidden" name="flcatid" value="<%=rs2("flcat_id")%>">
		  <input type="hidden" name="action" value="lklk">
		  <input type="hidden" name="MM_insert" value="true">
        </form>
      </table>
	  <%end if
	  if request.querystring("action")="delfl" then
	  if request.querystring("id")="" then
  Response.Write("<script language=javascript>alert('请指定操作的对象！');history.back(1);</script>")
  response.end
else
  if not isinteger(request.querystring("id")) then
    Response.Write("<script language=javascript>alert('非法的分类ID参数！');history.back(1);</script>")
	response.end
  end if
end if
sql="select * from friendlink where fl_id="&cint(request.querystring("id"))
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1%>
      <table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
        <form name="form1" method="post" action="">
          <tr class=lanyuss> 
            <td colspan="2">
            删除链接</font></td>
          </tr>
<tr class=lanyuds><td align="right" width="30%">所属类别 </td><td width="70%">
                <%sql="select * from flcat where flcat_id="&rs2("flcat_id")
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
%><%=rs("flcat_name")%>
<tr class=lanyuds><td align="right" width="30%">站点名称: </td><td width="70%"><%=rs2("fl_name")%></td></tr>
<tr class=lanyuds><td align="right" width="30%">站点地址: </td><td width="70%"><%=rs2("fl_url")%></td></tr>
<tr class=lanyuds><td align="right" width="30%">Logo地址: </td><td width="70%"><%=rs2("fl_logo")%>
            </td>
          </tr>
          <tr class=lanyuqs> 
            <td colspan="2" align="center"> 
              <input type="submit" name="Submit" value="确定删除" class="button">
 <input type="button" value="返回"  onClick="location.href='<%=request.serverVariables("Http_REFERER")%>'" class="button">
            </td>
          </tr>
          <input type="hidden" name="id" value="<%=rs2("fl_id")%>">
          <input type="hidden" name="action" value="delfl">
          <input type="hidden" name="MM_insert" value="true">
        </form>
      </table>
      <%
end if
	  if request.querystring("action")="lkdel" then
	  if request.querystring("id")="" then
  Response.Write("<script language=javascript>alert('请指定操作的对象！');history.back(1);</script>")
  response.end
else
  if not isinteger(request.querystring("id")) then
    Response.Write("<script language=javascript>alert('非法的分类ID参数！');history.back(1);</script>")
	response.end
  end if
end if
sql="select * from friendlink where fl_id="&cint(request.querystring("id"))
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1%>
      <table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
        <form name="form1" method="post" action="">
          <tr class=lanyuss> 
            <td colspan="2">
            删除黑名单链接</font></td>
          </tr>
<tr class=lanyuds><td align="right" width="30%">所属类别 </td><td width="70%">
                <%sql="select * from flcat where flcat_id="&rs2("flcat_id")
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
%><%=rs("flcat_name")%>
<tr class=lanyuds><td align="right" width="30%">站点名称: </td><td width="70%"><%=rs2("fl_name")%></td></tr>
<tr class=lanyuds><td align="right" width="30%">站点地址: </td><td width="70%"><%=rs2("fl_url")%></td></tr>
<tr class=lanyuds><td align="right" width="30%">Logo地址: </td><td width="70%"><%=rs2("fl_logo")%>
            </td>
          </tr>
          <tr class=lanyuqs> 
            <td colspan="2" align="center"> 
              <input type="submit" name="Submit" value="确定删除" class="button">
              <input type="button" value="返回"  onClick="location.href='<%=request.serverVariables("Http_REFERER")%>'" class="button">
            </td>
          </tr>
          <input type="hidden" name="id" value="<%=rs2("fl_id")%>">
          <input type="hidden" name="action" value="lkdel">
          <input type="hidden" name="MM_insert" value="true">
        </form>
      </table>
      <%
end if
if request.querystring("action")="delnopass" then
	  if request.querystring("id")="" then
  Response.Write("<script language=javascript>alert('请指定操作的对象！');history.back(1);</script>")
  response.end
else
  if not isinteger(request.querystring("id")) then
    Response.Write("<script language=javascript>alert('非法的分类ID参数！');history.back(1);</script>")
	response.end
  end if
end if
sql="select * from friendlink where fl_id="&cint(request.querystring("id"))
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1%>
      <table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
        <form name="form1" method="post" action="">
          <tr class=lanyuss> 
            <td colspan="2">
            删除链接</font></td>
          </tr>
<tr class=lanyuds><td align="right" width="30%">所属类别 </td><td width="70%">
                <%sql="select * from flcat where flcat_id="&rs2("flcat_id")
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
%><%=rs("flcat_name")%>
<tr class=lanyuds><td align="right" width="30%">站点名称: </td><td width="70%"><%=rs2("fl_name")%></td></tr>
<tr class=lanyuds><td align="right" width="30%">站点地址: </td><td width="70%"><%=rs2("fl_url")%></td></tr>
<tr class=lanyuds><td align="right" width="30%">Logo地址: </td><td width="70%"><%=rs2("fl_logo")%></td></tr>
          <tr class=lanyuqs> 
            <td colspan="2" align="center"> 
              <input type="submit" name="Submit" value="确定删除" class="button">
 <input type="button" value="返回"  onClick="location.href='<%=request.serverVariables("Http_REFERER")%>'" class="button">
            </td>
          </tr>
          <input type="hidden" name="id" value="<%=rs2("fl_id")%>">
          <input type="hidden" name="action" value="delnopass">
          <input type="hidden" name="MM_insert" value="true">
        </form>
      </table>
      <%end if
if request.querystring("action")="check" then
sql="select * from friendlink where passed=1"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
      <table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
        <form name="form2" method="post" action="checklink.asp">
          <tr class=lanyuss> 
            <td colspan="5">
            链接审核</td>
          </tr>
          <tr class=lanyuqs align="center"> 
          <td width="50">编号</td>
          <td width="100">LOGO</td>
          <td width="*">链接名称</td>
          <td width="100">分类</td>
          <td width="100">操作</td>
          </tr>
          <%for i=1 to rs.recordcount
sql="select flcat_name from flcat where flcat_id="&rs("flcat_id")
set rs2=conn.execute(sql)%>
          <tr class=lanyuds> 
            <td align="center"><%=rs("fl_id")%></td><td width="100" align="center"><%if rs("fl_logo")<>"" then response.write "<img src='"&rs("fl_logo")&"'>" else response.write "<font color='#cccccc'>无</font>" end if%></td>
            <td><a href="<%=rs("fl_url")%>" title="<%=rs("fl_url")%>" target="_blank"><%=rs("fl_name")%></a></td><td width="100" align="center"><%=rs2("flcat_name")%></td>
            <td align="center"> <a href="admin_link.asp?id=<%=rs("fl_id")%>&action=pass">通过</a> <a href="admin_link.asp?id=<%=rs("fl_id")%>&action=delnopass">删除</a></td>
          </tr>
          <%rs.movenext
next
if rs.bof and rs.eof then%>
          <tr class=lanyuds align="center"> 
            <td colspan="5">当前没有待审核的链接！</td>
          </tr>
          <%end if%>
          <input type="hidden" name="action" value="check">
          <input type="hidden" name="MM_insert" value="true">
        </form>
      </table>
      <%end if

if request.querystring("action")="lk" then
sql="select * from friendlink where lk=1"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
      <table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
          <tr class=lanyuss> 
            <td colspan="5">
            黑名单管理</td>
          </tr>
          <tr class=lanyuqs align="center"> 
          <td width="50">编号</td>
          <td width="100">LOGO</td>
          <td width="*">链接名称</td>
          <td width="100">分类</td>
          <td width="100">操作</td>
          </tr>
          <%for i=1 to rs.recordcount
sql="select flcat_name from flcat where flcat_id="&rs("flcat_id")
set rs2=conn.execute(sql)%>
          <tr class=lanyuds> 
            <td align="center"><%=rs("fl_id")%></td><td width="100" align="center"><%if rs("fl_logo")<>"" then response.write "<img src='"&rs("fl_logo")&"'>" else response.write "<font color='#cccccc'>无</font>" end if%></td>
            <td><a href="<%=rs("fl_url")%>" title="<%=rs("fl_url")%>" target="_blank"><%=rs("fl_name")%></a></td><td width="100" align="center"><%=rs2("flcat_name")%></td>
            <td align="center"> <a href="admin_link.asp?id=<%=rs("fl_id")%>&action=lkpass">取消</a> <a href="admin_link.asp?id=<%=rs("fl_id")%>&action=lkdel">删除</a></td>
          </tr>
          <%rs.movenext
next
if rs.bof and rs.eof then%>
          <tr class=lanyuds align="center"> 
            <td colspan="5">当前没有黑名单链接！</td>
          </tr>
          <%end if%>
          <input type="hidden" name="action" value="check">
          <input type="hidden" name="MM_insert" value="true">
        </form>
      </table>
      <%end if
rs.close
set rs=nothing
end if
%>