Question

用aspupload组件，文件不传数据库，而是传到文件夹里。如何把表单其他信息和文件路径插入access数据库？

静态页面表单：
<form action="action1.asp" method="post" enctype="multipart/form-data" name="form1" id="form1">
username:<input name="username" type="text" id="username" /><br />
userphoto:<input name="file1" type="file" id="file1" /><br />
<input type="submit" name="Submit" value="提交" />
<br />
</form>

action1.asp：
<%
On error resume Next
Dim Upload
Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = True
Upload.SetMaxsize 10*1024*1024,True
Upload.save Server.mappath("./uploads/") '保存文件，改为count=Upload.save(path)可返回上传文件数量
If err.number=8 Then
Response.write "文件大小超过限制!"
Response.End()
End if

Response.Write("username:" & Upload.Form("username").value & "<br/>")
Response.Write(" 已上传文件:" & Upload.Files("file1").path & "<br/>")
Response.Write(" 文件名字:" & Upload.Files("file1").filename & "<br/>")
Response.Write(" 文件大小:" & Upload.Files("file1").size & "字节<br/>")
Response.Write(" 扩展名:" & Upload.Files("file1").Ext & "<br/>")
Set Upload = nothing
%>

如上，我想把username和文件的路径存入数据库，以便以后读取。求众位大神帮助！！

Answer 1

Upload.Files("file1").path这个参数是否已经带文件名？如果没有下面要加入文件名字。
filesname=Upload.Files("file1").path&"/"&Upload.Files("file1").filename''变量filesname为完整的路径。如果Upload.Files("file1").path不是非以网站根目录，那么需要转化。

然后就是打开数据库，插入数据库。代码很多我就不再重复。

追问

完全没懂你的意思。我就是想要插入数据库的代码。比如file.ToDatabase...或者dsn=**;insert into photo(name) values()...这一类的代码。能成功把文件名路径插入数据库的。

追答

插入数据库代码，本人以MSSQL数据库为例：
Const SqlDatabaseName = "数据库名"'数据库名
Const SqlPassword = "登录密码"'数据登录密码
Const SqlUsername = "登录 名"'数据登录名
Const SqlLocalName = "(local)"'连接名（本地用local，外地用IP）

ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr

Conn.Execute("Insert Into [photo] (username,filespath,filesname,filesize,fileext) values('"&Upload.Form("username").value&"','"&Upload.Files("file1").path&"','"&Upload.Files("file1").filename&"','"&Upload.Files("file1").size&"','"&Upload.Files("file1").Ext&"')")

追问

？感谢你的回答。但我用的不是SQL，而是Microsoft Access 2003数据库，请问有如何插入Access数据库的完整代码吗？

追答

一样的只是链接代码不同而已！
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("数据库路径/db.mdb")
'On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr

其它的一样！

追问

对不起，数据库里还是没有更新。可能我哪里写错了。这样，我把所有的信息都给你，你直接帮我写个完整的action1.asp给我试吧。如果成功，我加25分。

追问里写不下了。你能给我下qq或邮箱吗？我把详细信息发给你。

我毕业设计真的很急，麻烦你帮忙了。如果成功了，我再加25分。

追答

98bar@163.com