access+asp上传文件到数据库!在线等!急!
请问各位,刚开始学习这个,现在有一个问题,想利用asp将文件上传到数据库中,但是始终数据库连接不成功,不知道什么问题,请各位看看要怎么改,不能改的话,我应该怎么写。
首先是浏览文件界面的代码(在这里我没有进行数据库连接,不知道对不对):
<html>
<head>
<link rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>上传文件</title>
</head>
<body background= ../3.jpg>
<br>
<br>
<center><table border="1" cellpadding="0" cellspacing="0" width="352"
bordercolor="#000000" bordercolorlight="#000000" bordercolordark="#FFFFFF" bgcolor="#EBEBEB"><tr><td align=center><font color=#006699>上传文件</font>
</td></tr>
<tr><td align=center height=200><form method ="post" name="form1"
action="upfile.asp" enctype="multipart/form-data">
<input type="file" name="file1" class ="tx1" value size="20"><br><br><br><br>
<input type="submit" name="Button" class="bt" value="上传" >
<input type = "reset" name="Button" class="bt" value="重置"></td></tr>
<tr> <td align=center><center> [ <a href="javascript:window.close()">
<font color=#006699>关闭窗口</font></a> ] </center> </td></tr></table>
</center>
</body>
</html>
其次是提交文件的代码:
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
dim co,rs,sql
Set co = Server.CreateObject("adodb.connection")
conn="provider=microsoft.jet.oledb.4.0;data Source="&Server.MapPath("datafile.mdb")
co.open conn
%>
<%
Set rs=Server.CreateObject("ADODB.recordset")
rs.open "select * from tx", co,1,3
tx=Request.Form("tx")
rs.addnew
rs("tx")=tx
Set rs= nothing
%>
<% Response.Write "<script>window.alert('it is ok !');window.location='index.asp';</script>"
Response.End %>
说明,数据库名为datafile,表和列的名字都为tx.谢谢各位了!比较急!