Question

急！关于asp上传文件路径到数据库后，如何显示文件的问题

文件路径可以上传到指定目录下，并且文件路径已经保存到access数据库中。如何写代码Show.asp显示图片文件。这个页面出错信息好像链接不到数据库，请问如何写Show.asp，并把图片文件显示出来。小弟刚学asp，请各位帮忙解惑！Data.mdb在同级目录下，文件放在img/文件夹下。
链接数据库用的Conn.Asp代码如下
<%
'================================================================
'系统数据库类型定义
'0: SQL 2000 数据库
'1: Access 数据库
'================================================================
Auto_DataBaseKind = "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 1

Show.asp
如果要显示全部图片就这样写
<!--#include file="conn.asp"-->
<%
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from 保存图片路径表名",conn,1,1
i=1
do while not rs.eof
Response.Write"<img src="&rs("图片路径字段名")&" border=0>"
if (i mod 4)=0 then '一行超过4个图片就换行,根据实际情况自己修改
Response.Write"<br/>"
end if
i=i+1
rs.movenext
loop
rs.Close
set rs=nothing
Call ConnClose()
%>

这里没有分页,你自己加个分页,有不懂的地方Q我:313736627

Answer 2

在数据库中要有个字段纪录图片地址如picUrl
打开数据库,定位到一条纪录,直接显示picUrl的值就可以了

response.write "<img src='"&rs("picUrl")&"' >"
rs 是你起的RecordSet名字