manage_link.asp

BOB人才招聘系统

<!--#include file="admin.asp"-->
<!--#include file="conn.asp"-->
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.ActiveConnection = Conn
Rs.Open "SELECT * FROM links Order BY id"

if Request.QueryString("no")="yes" then
id= Trim(Request("id"))
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.ActiveConnection = Conn
Rs.Open "DELETE FROM links Where id="&id,Conn,2,3,1


Set Rs= Nothing
Set Conn = Nothing
Response.Redirect "Manage_Link.asp"
end if



if Request.QueryString("no")="eshop" then
note=request.form("note")
link=request.form("link")
name=request.form("name")

If name=""  or note="http://"Then
Response.Write("<script language=""JavaScript"">alert(""错误：您没输入网站名称，请返回检查！！"");history.go(-1);</script>")
response.end
end if

If note=""  or note="http://"Then
Response.Write("<script language=""JavaScript"">alert(""错误：您没输入图标连接，请返回检查！！"");history.go(-1);</script>")
response.end
end if

If link="" or link="http://" Then
Response.Write("<script language=""JavaScript"">alert(""错误：您没有输入超连接，请返回检查！！"");history.go(-1);</script>")
response.end
end if

Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from links "
rs.open sql,conn,1,3
rs.addnew
rs("name")=name
rs("note")=note
rs("link")=link
rs.update
Response.Redirect "Manage_Link.asp"
end if
%>
<!-- #include file="Head.asp" -->
<table width="100%" height="93%" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="180" align="center" valign="top"><!-- #include file="left.asp" --></td>
    <td align="center" valign="top">
	<br>
	 <table border="0" cellpadding="0" cellspacing="0"  class=tableBorder>
        <tr>
          <td background=images/top_bg.gif height="25">
		  <div align="center" style="color: #ffffFF; font-weight: bold;">添加友情链接</div></td>
        </tr>
        <tr> 
          <form method="post" action="Manage_Link.asp?no=eshop">
            <td >
      <table width="100%" height="157" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" bgcolor="#f1f3f5">
                <tr> 
                  <td width="24%" height="30"> <div align="center">网站名称</div></td>
                  <td width="76%"><input type="text" name="name" size="35" maxlength="40"></td>
                </tr>
                <tr> 
                  <td height="30"><div align="center">网站说明</div></td>
                  <td><input type="text" name="note" size="50" maxlength="120"></td>
                </tr>
                <tr> 
                  <td height="30"> <div align="center">连接地址</div></td>
                  <td><input type="text" name="link" size="35" maxlength="50" value="http://"></td>
                </tr>
                <tr> 
                  <td height="30" colspan="2"> <div align="center"> 
                      <input type="submit" name="Submit" value=" 提 交 ">
                      &nbsp;&nbsp;
                      <input type="reset" name="Submit2" value=" 重 置 ">
                    </div></td>
                </tr>
            </table>            </td>
          </form>
        </tr>
      </table>
      
     <br>
     	 <table height="116" border="0" cellpadding="0" cellspacing="0"  class=tableBorder>
        <tr>
          <td background=images/top_bg.gif height="25">
		  <div align="center" style="color: #ffffFF; font-weight: bold;">友情链接管理</div></td>
        </tr>
<tr><td>
      <table width="100%" height="90" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" bgcolor="#f1f3f5">
       <tr>
         <td width="22%" height="25"><div align="center">网站名称</div></td>
         <td width="49%"><div align="center">网站说明</div></td>
         <td width="17%"><div align="center">加入时间</div></td>
         <td width="12%"><div align="center">操作</div></td>
       </tr>
       <% do while not Rs.eof %>
       <tr>
         <td height="22"><div align="center"><a href="<%=Rs("link")%>" target="_blank"><%=rs("name")%></a></div></td>
         <td><div align="center"><%=Rs("note")%></div></td>
         <td><div align="center"><%= FormatDateTime(rs("time"),2) %></div></td>
         <td><div align="center"><a href="Manage_Link.asp?id=<%=Rs("id")%>&amp;no=yes">删除</a></div></td>
       </tr>
       <%Rs.MoveNext 
loop 
 Set Rs = Nothing 
Set Conn = Nothing 
%>
        <tr>
          <td height="22" colspan="2">首页最多可显示10条友情链接</td>
        </tr>
     </table></td></tr></table></td>
  </tr>
</table>
<!-- #include file="Foot.asp" -->