del.asp

留言簿毕业设计用ASP和SQL2000开发的能够链接

<link href="css.css" rel="stylesheet" type="text/css">

	
<style type="text/css">
<!--
body {
	background-image: url(../images/backcolor.gif);
}
-->
</style><table width="200" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><IFRAME marginWidth=0 marginHeight=0 
      src="../pic.asp" frameBorder=0 width=690 scrolling=auto 
      height=35></IFRAME>&nbsp;</td>
  </tr>
  <tr>
    <td> <%
  Set Conn=Server.CreateObject("ADODB.Connection")
  Conn.ConnectionString="driver={SQL Server};server=(Local);UID=sa;PWD=13513343483;Database=学院人事管理系统"
  Conn.Open
  Set rs=Server.CreateObject("ADODB.Recordset")
  Set rs.ActiveConnection = Conn
 rs.CursorType = 3
  rs.Open "Select id,name,content,homepage,title,ti_me from book "
  Do While Not rs.EOF
%>&nbsp;</td>
  </tr>
  <tr>
    <td><table width="407" height="143" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td width="407"><table width="94%" height="162" border="1" align="center" cellspacing="0" bordercolor="#FF9900" class=thin>
            <tr>
              <td width="21%"><div align="center"><%=rs("name")%><br>
              给你留的言</div></td>
              <td width="79%"> 　<a href="<%=rs("homepage")%>" target="_blank">他的主页</a> [留言标题: <%=rs("title")%> ] </td>
            </tr>
            <tr>
              <td height="16" colspan="2">
                <div align="left">留言的时间:<%=rs("ti_me")%></div></td>
            </tr>
            <tr>
              <td height="87" colspan="2"><div align="center">
                  <table width="74%" height="60" border="0" cellpadding="0" cellspacing="0">
                    <tr>
                      <td><div align="center"><%=rs("content")%></div></td>
                    </tr>
                    <tr>
                      <td><div align="right"><a href="del1.asp?id=<%=rs("id")%>">删除留言</a></div></td>
                    </tr>
                  </table>
                  <div align="right"> </div>
              </div></td>
            </tr>
          </table>
            <%
    rs.MoveNext
  Loop
  
%></td>
      </tr>
    </table></td>
  </tr>
</table>
<p align="center">&nbsp;</p>