admin_link.asp

这是作的一个网站,修改很方便,可以做网站设计.管理登陆：admin.asp 帐号和密码：admin/admin

  '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" style="border-collapse: collapse">
        <form name="form1" method="post" action="">
          <tr> 
            <td colspan="2">
            取消黑名单</td>
          </tr>
<tr><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><td align="right" width="30%">站点名称</td><td width="70%"><%=rs2("fl_name")%></td></tr>
<tr><td align="right" width="30%">站点地址</td><td width="70%"><%=rs2("fl_url")%></td></tr>
<tr><td align="right" width="30%">Logo地址</td><td width="70%"><%=rs2("fl_logo")%>
            </td>
          </tr>
          <tr> 
            <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" style="border-collapse: collapse">
        <form name="form1" method="post" action="">
          <tr> 
            <td colspan="2">
            拉入黑名单</td>
          </tr>
<tr><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><td align="right" width="30%">站点名称</td><td width="70%"><%=rs2("fl_name")%></td></tr>
<tr><td align="right" width="30%">站点地址</td><td width="70%"><%=rs2("fl_url")%></td></tr>
<tr><td align="right" width="30%">Logo地址</td><td width="70%"><%=rs2("fl_logo")%>
            </td>
          </tr>
          <tr> 
            <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" style="border-collapse: collapse">
        <form name="form1" method="post" action="">
          <tr> 
            <td colspan="2">
            删除链接</font></td>
          </tr>
<tr><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><td align="right" width="30%">站点名称: </td><td width="70%"><%=rs2("fl_name")%></td></tr>
<tr><td align="right" width="30%">站点地址: </td><td width="70%"><%=rs2("fl_url")%></td></tr>
<tr><td align="right" width="30%">Logo地址: </td><td width="70%"><%=rs2("fl_logo")%>
            </td>
          </tr>
          <tr> 
            <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" style="border-collapse: collapse">
        <form name="form1" method="post" action="">
          <tr> 
            <td colspan="2">
            删除黑名单链接</font></td>
          </tr>
<tr><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><td align="right" width="30%">站点名称: </td><td width="70%"><%=rs2("fl_name")%></td></tr>
<tr><td align="right" width="30%">站点地址: </td><td width="70%"><%=rs2("fl_url")%></td></tr>
<tr><td align="right" width="30%">Logo地址: </td><td width="70%"><%=rs2("fl_logo")%>
            </td>
          </tr>
          <tr> 
            <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" style="border-collapse: collapse">
        <form name="form1" method="post" action="">
          <tr> 
            <td colspan="2">
            删除链接</font></td>
          </tr>
<tr><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><td align="right" width="30%">站点名称: </td><td width="70%"><%=rs2("fl_name")%></td></tr>
<tr><td align="right" width="30%">站点地址: </td><td width="70%"><%=rs2("fl_url")%></td></tr>
<tr><td align="right" width="30%">Logo地址: </td><td width="70%"><%=rs2("fl_logo")%></td></tr>
          <tr> 
            <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" style="border-collapse: collapse">
        <form name="form2" method="post" action="checklink.asp">
          <tr> 
            <td colspan="5">
            链接审核</td>
          </tr>
          <tr 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> 
            <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 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" style="border-collapse: collapse">
          <tr> 
            <td colspan="5">
            黑名单管理</td>
          </tr>
          <tr 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> 
            <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 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
%>



<% if request.querystring("action")="addlink" then %>

<form name="form" method="post" action="admin_link.asp?action=addlinks" onsubmit="return link()">
&nbsp;类别:<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")%>"><%=rs("flcat_name")%></option><%rs.movenext
loop
if rs.bof and rs.eof then%><option value="0">暂无分类</option><%end if%></select>
&nbsp;名称:<input type="text" name="fl_name" size="20" autocomplete="off">
&nbsp;地址:<input type="text" name="fl_url" size="20" value="http://" autocomplete="off">
&nbsp;图标:<input type="text" name="fl_logo" size="20" autocomplete="off">
<div style="padding-top:5px;padding-bottom:5px;"><center><input type="submit" name="Submit" value="提交" onmouseover="this.className='boton'" onmouseout="this.className='botoff'" class="botoff">&nbsp;<input type="reset" name="reset" value="清空"  onmouseover="this.className='boton'" onmouseout="this.className='botoff'" class="botoff"></div></center>
</form>
<% end if %>



<%
if request.querystring("action")="addlinks" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select fl_name,fl_name from friendlink where fl_name='"&trim(request.form("fl_name"))&"' or fl_url='"&trim(request.form("fl_url"))&"'",conn,1,1
if not rs.eof and not rs.bof then
	   	   Response.Write("<script language=javascript>alert('错误提示：\n\n① 此站点已经提交过');</script>")
		   Response.End
rs.close
end if
dim isimage
isimage=true
sql="select * from friendlink"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
if trim(request.form("fl_name"))="" then
   founderr=true
   Response.Write("<script language=javascript>alert('站点名称未填写！');</script>")
else
  if strLength(trim(request.form("fl_name")))>50 then
      founderr=true
	Response.Write("<script language=javascript>alert('站点名称太长，不可以超过50个字符！');</script>")
  else
      rs("fl_name")=trim(request.form("fl_name"))
  end if
end if
if trim(request.form("fl_url"))="" then
   founderr=true
   Response.Write("<script language=javascript>alert('站点地址未填写！');</script>")
else
  if strLength(trim(request.form("fl_url")))>150 then
      founderr=true
	  Response.Write("<script language=javascript>alert('站点地址太长，不可以超过150个字符！');</script>")
  else
      rs("fl_url")=trim(request.form("fl_url"))
  end if
end if
if cint(request.Form("flcat_id"))<1 then
      founderr=true
	  Response.Write("<script language=javascript>alert('请选择分类！');</script>")
else
   sql="select isimage from flcat where flcat_id="&cint(request.Form("flcat_id"))
   set rs2=server.createobject("adodb.recordset")
   rs2.open sql,conn,1,1
   if rs2("isimage")=1 then
     isimage=false
   end if
   rs2.close
   set rs2=nothing
   rs("flcat_id")=cint(request.Form("flcat_id"))
end if
if trim(request.form("fl_logo"))<>"" then
if strLength(trim(request.form("fl_logo")))>100 then
      founderr=true
	  Response.Write("<script language=javascript>alert('站点logo地址太长，不可以超过150个字符！');</script>")
  else
      rs("fl_logo")=trim(request.form("fl_logo"))
end if
end if
rs("passed")=0
rs("lk")=0
rs.update
rs.close
set rs=nothing
response.redirect "admin_link.asp?action=link"

end if
%>