我的index.asp文件
<!--#Include file="conn.asp"-->
<html>
<head>
<title>校园BBS论坛</title>
<style> <!-- a:link {
color:blue;
text-decoration: none;
} a:visited {
color:black;
text-decoration: none;
} a:active {
color:red;
text-decoration: none;
} a:hover {
color:green;
text-decoration: underline;
} --> </style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body background="image/main_bg.gif">
<center>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC">
<tr><td height="20"><img src="image/top.png"></td></tr>
<%If Session("user")="" Then%>
<td ><img src="image/weizhi.gif">&nbsp;游客身份&nbsp;|&nbsp;<a href="regester.asp" >用户注册</a></div></td></table>
<table width="98%" border="0" align="center" cellspacing="0">
<form method="post" action="login.asp">
<tr bgcolor="#FFFFFF">
<td valign="bottom"><div align="left">&nbsp;用户名:<input name="user" type="text" size="12">密&nbsp;&nbsp;码:<input name="mima" type="password" size="12">
<input name="Submit" type="submit" value="登录"></div></td></tr>
</form>
<%else%>
<td><div align="right">尊敬的&nbsp;<%=Session("user")%>&nbsp;&nbsp;<a href="log_out.asp">注销</a>&nbsp;&nbsp;<a href="grindex.asp?user=<%=Session("user")%>">个人主页</a></div></td>
<%end if%>
</table>
<table width="98%" border="0" align="center" cellpadding="5" cellspacing="0" bordercolor="#FFFFFF" bgcolor="#80BCFF">
  <tr bgcolor="#FFEAE5"> 
     <td width="18%"> 
      <div align="center">&nbsp;</div>
    </td>
    <td width="20%"> 
      <div align="center">版块</div>
    </td>
    <td width="42%" bgcolor="#FFEAE5"> 
      <div align="center">简介</div>
    </td>
    <td width="20%"> 
      <div align="center">帖子数</div>
    </td>
  </tr>
</table>
<%
set rs=conn.execute("select * from bankuai")
Dim num
num=0
if rs.bof and rs.eof then
%>
<table width="98%" border="0" align="center" cellpadding="20" cellspacing="1" bordercolor="0" bgcolor="#F5CCCC">
  <tr>
<td bordercolor="#EFEFEF" bgcolor="#F4F4F4"><div align="center">还没有论坛板块</div></td></tr></table>
<%
else
do while not rs.eof
num=num+1
%>
<table cellspacing=0 cellpadding=0 width="98%" border=0 bgcolor="#FFFFFF" align="center">
  <tbody> 
  <tr> 
    <td height=16>
      <table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#FFFFFF">
          <tr bordercolor="#EFEFEF" bgcolor="#80BCFF"> 
  <td width="118" align="center"><img src="image/<%=num%>.gif" border="0"></td>  
            <td width="145" bordercolor="#80BCFF"> 
              <div align="center"><a href="tiezi.asp?bankuai=<%=rs("mz")%>">『 <%=server.HTMLEncode(rs("mz"))%> 』</a></div>  </td>
            <td width="291" bordercolor="#F9F9F9"><%=rs("intro")%></td>
<td width="136" bordercolor="#F9F9F9"> 
              <div align="center"> 
        <%
set tiezi=conn.execute("select count(*) as tiezi from tiezi where bankuai='"&rs("mz") &"'")
response.Write(tiezi("tiezi"))
%>
      </div>
    </td>
  </tr>
</table>
</td>
  </tr>
  </tbody> 
</table>
<%
rs.movenext
loop
end if
%>
<table width="98%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="60" colspan="3"><div align="center">湖南工学院BBS <a href="admin/admin_log.asp"><font color="#0033FF">『后台登陆』</font></a><BR>
@2011 徐鹏 All Rights Reserved<BR>
制作维护:软件0802班徐鹏</div></td>
</tr>
</table>
</center>
</body>
</html>
                  数据库连接为
<%
Set conn=Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("bbs.mdb")
conn.Open connstr
%>
出现下面这个问题
<%Response.Buffer=True%>
<!--#include FILE="conn.asp"-->
<%
user=request.Form("user")
mima=request.Form("mima")
'查看有无该用户
strSql="Select user From user Where user='"&user&"' and mima='"&mima&"'"
Set rs=conn.Execute(strSql)
If not rs.eof and not rs.bof Then
'如果有记录,表示有该用户,则将用户名和用户类型保存到Session中
Session("user")=rs("user")
    Response.Redirect "index.asp"
Else
'如果没有记录,表示没有该用户,请给出提示信息
Response.Write "对不起,用户名或密码有误,请<a href='index.asp'>返回首页</a>重新登录"
End If
%>