Question

asp上传图片，路径保存到数据库中

想使用asp写一个图片上传程序
目的：图片上传到指定的文件夹uploadimg中，图片路径保存到access数据库中
---------------
望朋友们指点思路，或者给个带示例的源文件下载地址好借鉴。（无惧、风声的原版不要）
小友先谢过。。

Answer 1

'================================================================
'过程作用：打开数据库连接
'================================================================
Dim Conn,Auto_DataBaseName,Auto_HostName,Auto_DataBaseUrl
Sub ConnOpen()
If Auto_DataBaseKind = "0" Then
Auto_DataBaseName = "DataBaseName" '数据库名称
Auto_HostName = "localhost" '服务器名称或IP
Auto_UserId = "sa" '登陆数据库用户ID
Auto_LogoPassWord = "" '登陆数据库密码
Auto_OaClassConnStr = "Provider = Sqloledb; User ID = " & Auto_UserId & "; Password = " & Auto_LogoPassWord & "; Initial Catalog = " & Auto_DataBaseName & "; Data Source = " & Auto_HostName & ";"
ElseIf Auto_DataBaseKind = "1" Then
Auto_DataBaseName = "Data.mdb" '数据库名称
Auto_DataForder = "" 'Access数据库存放目录，请务必以“\”结尾
Auto_DataBaseUrl = Server.MapPath(Auto_DataForder & Auto_DataBaseName)
Auto_OaClassConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Auto_DataBaseUrl
Else
Response.Write("数据库类型定义错误，请检查文件DbConn.asp中数据库类型定义是否正确！")
Response.End()
End If
On Error Resume Next
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open Auto_OaClassConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write ("数据库连接出错，请检查文件Conn.asp中连接字符串。")
Response.End()
End If
End Sub

'================================================================
'过程作用：关闭数据库连接
'================================================================
Sub ConnClose()
Conn.close()
Set Conn = Nothing
End Sub

%>

Answer 2

在添加页面做一个文件域
产品小图：文本域 文件域
示例:
<tr>
<td>产品图:</td>
<td> <input name="DefaultPicUrl" type="text" id="DefaultPicUrl" size="30" maxlength="50"></td>
<td><iframe ID="UploadFiles" src="../upload_Photo.asp?PhotoUrlID=6" frameborder=0 scrolling=no width="300" height="25"></iframe></td>
</tr>

建立两个页面:
Upfile_Photo.asp Upload_Photo.asp
这两个页面加我QQ,我传可给你!

Answer 3

给你提取了一个,我自己做的时候经常用到的,已经上传到我自己的站上,下载地址是: http://www.wypz.com/pic.rar