admin_editlink.asp

适适合做个人、学校、公司、政府等站点 一个灵活性很好的网站原代码

<!--#include file="Conn.asp"-->
<!--#include file="include/char.asp" -->
<!--#include file="Include/check.asp"-->
<!--#include FILE="Include/Admin_Function.asp"-->
<% CheckAdmin1%>
<%
    if Request.QueryString("no")="edit" then
    id=request("id")
    Style=request("Style")
    note=request("note")
    name=Request("name")
    link=request("link")
    If name="" Then
    response.write "SORRY <br>"
    response.write "请输入更新网站名"
    response.end
    end if
    If link="" Then
    response.write "SORRY <br>"
    response.write "连接地址不能为空"
    response.end
    end if
    Set rs = Server.CreateObject("ADODB.Recordset")
    sql="select * from links where id="&id
    rs.open sql,conn,1,3
    rs("Style")=Style
    rs("note")=note
    rs("name")=name
    rs("link")=link
    rs.update
    rs.close
    response.redirect "Admin_link.asp"
    end if
%>
<%
    id=request.querystring("id")
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open "Select * From links where id="&id, conn,3,3
%>
<link href="other/Admin.css" rel="stylesheet" type="text/css">
<table width="550" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
          <form method="post" action="Admin_EditLink.asp?no=edit">
            <td> <table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
          <tr> 
                  <td height="28" colspan="2" bgcolor="#EAEAEA">
<div align="center"><strong>链接管理
  <input type=hidden name=id value=<%=rs("id")%>>
                </strong></div></td>
              </tr>                
          <tr bgcolor="#FFFFFF"> 
            <td height="23"> 
              <div align="center">链接分类：</div></td>
            <td height="23"> 
              <select name="Style" id="Style" >
<%
    Sql2 = "Select * from Link_sort"
    Set Rs2= Conn.Execute(Sql2 )
    do while not Rs2.eof
%>
<option value="<%=Rs2("types")%>"<%if Rs2("types")=rs("Style") then%> selected<%end if%>><%=Rs2("name")%></option>
<%
    Rs2.movenext
    loop
    Rs2.close
    set Rs2=nothing
%>
              </select></td>
              </tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="20%" height="23"> 
              <div align="center">网站名称：</div></td>
            <td width="80%" height="23"> 
              <input name="name" type="text" value="<%=rs("name")%>" size="40" maxlength="40"></td>
              </tr>
          <tr bgcolor="#FFFFFF">
            <td height="23"> 
              <div align="center">网站说明：</div></td>
            <td height="23"> 
              <input name="note" type="text" value="<%=Rs("note")%>" size="40" maxlength="120"></td>
              </tr>
          <tr bgcolor="#FFFFFF">
            <td height="23">
              <div align="center">连接地址：</div></td>
            <td height="23">
              <input type="text" name="link" size="40" maxlength="50" value="<%=rs("link")%>"></td>
              </tr>
                <tr bgcolor="#EAEAEA"> 
                  <td height="22" colspan="2"> <div align="center">
                      <input type="submit" name="Submit" value=" 提交 ">
                      <input type="reset" name="Submit2" value=" 重置 ">
                    </div></td>
                </tr>
              </table>
      </td>
          </form>
  </tr>
        <tr> 
          <td height="22"><div align="right"></div></td>
        </tr>
</table>

<%
    Set Rs = Nothing 
    Set Conn = Nothing 
%>