conn.asp

他是一个asp+access的多用户留言板！

<%
Response.Buffer=true
otime=timer()
'On Error Resume Next
Set conn=Server.CreateObject("ADODB.Connection")
connstr="provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("data.asp\data.mdb")
conn.Open connstr
 


If Err Then
err.Clear
Set Conn = Nothing
%>
<form method="POST" action="err.asp" name="errform"  type="hidden">
<textarea rows="1" name="errneirong" cols="1"  >

<p align="left"><span style="font-style: 12px"><font color="#000000">&nbsp;出错拉！！</font></span></p>
<p align="left">&nbsp;好像<span style="font-style: 12px"><font color="#000000">数据库有点问题，请联系管理员解决呀。</font></span></p>

<p align="left">&nbsp;E<span style="font-style: 12px"><font color="#000000">-mail：<a href="mailto:[e-mail]">[e-mail]</a><br>
</font></span></p>



</textarea>
<script language=vbscript>
 self.document.forms("errform").submit
</script>

</form>

<%
Response.End
End If
%>