<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<title>丁丁熊留言本</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);

function MM_goToURL() { //v3.0
  var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
  for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</script>
</head>

<body>
<table width="100%" border="0">
  <tr> 
    <td><table width="100%" border="0">
        <tr> 
          <td width="75%"><div align="center"><strong><font color="#996699" size="+7">留 
              言 本</font></strong></div></td>
          <td width="25%"><img src="minibook/TEDDY.GIF" width="117" height="109"></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td><div align="center"><img src="minibook/Barcool.gif" width="90%" height="2"></div></td>
  </tr>
  <tr>
    <td align="center" valign="top"><p>
        <!-- #include file="ADOFunctions.asp" -->
        <%
    '调用GetRecordset函数库连接并读取数据表的记录
    Dim objRS
    Set objRS = GetRecordset("guestbook.mdb", "guestbook") 
    %>
      <table width="100%" border="1" bordercolor="#663366">
        <tr> 
          <th width="64">姓名</th>
          <th width="71">地址</th>
          <th width="59">电话</th>
          <th width="111">Email</th>
          <th width="435">留言内容</th>
        </tr>
        <%
    Do While Not objRS.EOF
        Response.Write "<TR><TD>" & objRS("name") & "</TD>"
        Response.Write "<TD>" & objRS("adress") & "</TD>"
        Response.Write "<TD>" & objRS("tel") & "</TD>"
        Response.Write "<TD>" & objRS("email") & "</TD>"
        Response.Write "<TD>" & objRS("content") & "</TD></TR>"
        objRS.MoveNext
    Loop
       
    '关闭数据库连接并释放对象
    objRS.Close         
    Set objRS = Nothing 
    objConn.Close         
    Set objConn = Nothing 
    
    %>
      </table>
      <p></p>
</td>
  </tr>
  <tr> 
    <td height="27" align="center" valign="top"><div align="center"> 
        <p>
          <input name="Button" type="button" onClick="MM_goToURL('parent','L35.asp');return document.MM_returnValue" value="返回留言本">
      </div></td>
  </tr>
</table>
</body>
</html>
