问一个我不明了的技术问题，因为不懂，所以无法把问题的关键字放在标题，请大家看看就知道了

[kevinzzy]

我想这个应该可以归到防盗链的问题里面吧！！

我现在看很多音乐，电影，图片站，他们都用了类似于这个的技术
<img src="aa.asp?id=505">
我想问一下，他们这样编写来源是如何让图片（音乐，电影）正常显示的？
一般aa.asp的页面代码怎么写啊？
请大家给出部分核心代码（最好加解释），
让我这只小小菜鸟多学点东西！！
谢谢，各位大大

[kevinzzy]

我要的不是图片上传功能
而是要如何可以隐藏真实地址又可以把批量的图片显示出来

我看过很多网站，都是用我说的那种方法
但我不知道显示图片的那个页面怎么编写，
所以才问各位大大

[icehouse]

看来楼主没有看ASP书！但是还要写ASP的数据库调用的程序！建议楼主看看网上的电影网代码
或者是新闻发布的代码1
以下是我写的一个例子
注意开头需要连接头文件（还是我写出来吧！）
<%
dim conn
dim connstr
db="data/#lvshizhe.asa" '数据库文件位置
'on error resume next
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
set conn=server.createobject("ADODB.CONNECTION")

if err then
err.clear
response.Write(err)
else
conn.open connstr
end if
function decrypt(dcode)
dim texts
dim i
for i=1 to len(dcode)
texts=texts & chr(asc(mid(dcode,i,2))-i)
next
decrypt=texts
end function
function encrypt(ecode)
Dim texts
dim i
for i=1 to len(ecode)
texts=texts & chr(asc(mid(ecode,i,2))+i)
next
encrypt = texts
end function

%>
----------------------------------
<%reid=request("id")'这里就是上面所谓的505
if isnumeric(reid)=false then response.Redirect("error.asp")
rs=server.CreateObject("adodb.recordset")
sql="select * from news where new_ID="&reid
set rs=conn.execute(sql)
if rs.eof=true then response.Redirect("error.asp")%>
以上是从数据库取数据，要显示数据库的时候用这样的语句
<%=rs("在这里写你的表字段")%>
他的用法和你在网页上面写的东西效果是一样的

[baisun]

aa.asp诸如此类
id=Request("id")
dim SQL
dim Rs
Dim FileData
if SNO<>Empty then
SQL=" Select pic from tab where id="&id

rs=query(SQL)
FileData=Rs("PIC")
'Response.Write UBound(FileData)
Response.ContentType = "image/Jpeg"

Response.BinaryWrite FileData
else
Response.End
end if

[dotnet东哥]

<img src="aa.asp?id=505">
应该是把图片直接存进数据库里面了
如果是放在文件夹中，数据库只是个连接地址的这种形式
--〉
<img src="<%=rs("连接地址的字段")%>">

[dotnet东哥]

如何利用ASP把图片上传到数据库及显示

　　ASP（Active Server Pages）是Microsoft很早就推出的一种WEB应用程序解决方案，也是绝大多数从事网站开发人员很熟悉的一个比较简单的编程环境。通过ASP我们可以创建功能强大的动态的WEB应用程序。ASP虽然功能很强大，但有些功能用纯ASP代码完成不了，为了能保证开发出功能更加强大的WEB应用程序，我们可以借助调用COM组件。

　　在日常工作中，例如开发一个“商品网上销售系统”吧，为了使顾客对商品的外观有所了解，也就是顾客在看商品的文字介绍的同时在文字的旁边有该商品的图片加以说明，这样顾客就可以对该商品有个系统的了解，对推销商品有很大的帮助。所以我们在开发系统时当然就要加入图片处理模块，即如何把图片上传到服务器（图片可以放在WEB服务器上某一个文件夹里也可以放在SQL Server服务器里）和如何让上传的图片在浏览器端显示出来，这都是开发人员要考虑到的问题。

　　上传图片到服务器有多种方法，可以使用文件上传组件也可以使用纯ASP代码来实现。在CSDN的WEB版ASP上经常有网友问这样的问题“如何利用ASP把图片上传到数据库里”，为了方便CSDN需要了解这方面的知识，这篇文章将详细讲解使用ASP上传图片的做法并给出代码，以飨读者。

　　首先了解一下在程序中用到的各种对象及其语法：

　　1） Request.BinaryRead()方法

　　● 使用Request.BinaryRead()方法可以获取提交的文件数据

　　● 语法

　　VarReValue= Request.BinaryRead(number)

　　变量VarReValue返回值保存从客户端读取到的二进制数据；

　　参数number指明要从客户端读取的二进制数据量的大小。

　　2） Response.BinaryWrite()方法

　　● 使用Response.BinaryWrite()方法可以从数据库中获取图片数据并显示到客户端的浏览器中。

　　● 语法

　　Response.BinaryWrite data

　　参数data是要写进客户端浏览器中的二进制数据包。

　　3） AppendChunk方法

　　● AppendChunk方法的作用是将二进制数据追加到Field或Parameter对象。

　　● 语法

　　object.AppendChunk data

　　参数data为要追加到Field或Parameter对象中的数据包。

　　4） GetChunk方法

　　● GetChunk方法返回二进制数据的内容。

　　● 语法

　　object. GetChunk(size)

　　参数size指明要返回二进制数据的长度，可以是长整型表达式。

　　5） Request.TotalBytes方法

　　● Request.TotalBytes方法返回从客户端读取到的数据的字节数，这个值跟上面所提到的number相对应，可以大于或等于number值。

　　● 语法

　　number= Request.TotalBytes

　　大体了解了一些方法及其使用方法后，接下来我们就开始设计数据库和相关编写代码了。

　　第一步：数据库的设计（以Ms SQL Server7为例）：

　　Create table img --创建用来存储图片的表，命名为img

　　(

　　id int identity(1,1) not null,

　　img image

　　)
　　第二步：程序编写，其中省略了用户输入界面，这里只给出很重要的两个文件即图片上传处理(processimg.asp)和显示图片(ShowImg.asp)文件。

　　1） processimg.asp文件代码：

　　〈%

　　Response.Buffer=True

　　ImageSize=Request.TotalBytes ‘获取提交数据量的总字节数

　　ImageData=Request.BinaryRead(ImageSize) ‘保存从客户端读取到的数据

　　‘优化读取到的二进制数据

　　BnCrLf=chrB(13)&chrB(10)

　　Divider=LeftB(ImageData,Clng(InstrB(ImageData, BnCrLf))-1)

　　Dstart=InstrB(ImageData, BnCrLf& BnCrLf)+4

　　Dend=InstrB(Dstart+1, ImageData, Divider)- Dstart

　　MyData=MidB(ImageData, Dstart, Dend)

　　‘创建对象实例

　　Set imgConn=Server.CreateObject(“ADODB.Connection”)

　　StrConn=”Driver={SQL Server};Server=ServerName;”& _

“Uid=xxxx;Pwd=xxxx;DataBase=DataBaseName”

　　imgConn.open strConn

　　Set Rs= Server.CreateObject(“ADODB.RecordSet”)

　　Sql=”Select * From img Where id is null”
　
　　Rs.open sql,imgConn,1,3

　　‘追加数据到数据库

　　Rs.AddNew

　　Rs(“img”).AppendChunk myData

　　Rs.Update

　　‘关闭和释放对象

　　Rs.close

　　ImgConn.close

　　Set Rs=Nothing

　　Set ImgConn=Nothing

　　%〉

　　2) ShowImg.asp文件代码：

　　〈%

　　Response.Expires = 0

　　Response.buffer=True

　　Response.clear

　　‘创建对象实例

　　Set imgConn=Server.CreateObject(“ADODB.Connection”)

　　StrConn=”Driver={SQL Server};Server=ServerName;”& _

“Uid=xxxx;Pwd=xxxx;DataBase=DataBaseName”

　　imgConn.open strConn

　　Set Rs= Server.CreateObject(“ADODB.RecordSet”)

　　Sql=”Select img From img Where id=1” 这里的id可以使用Request(“id”)获得

　　Rs.open sql,imgConn,1,1

　　Response.ContentType=”image/*”

　　Response.BinaryWrite Rs(“img”).GetChunk(7500000)

　　‘关闭和释放对象

　　Rs.close

　　ImgConn.close

　　Set Rs=Nothing

　　Set ImgConn=Nothing

　　%〉

　　至此，本文对如何使用ASP上传图片的原理和示例都讲完了，有什么不妥的地方请各位指正，谢谢！同时希望本文能够确实能为需要这方面帮助的网友提供实质性的帮助。（csdn）

[smallyear]

不管怎么做﹐總會有個真實地址的﹐簡單的就是﹕
aa.asp?id=505
數據庫中id為505的記錄﹐有一字段值就是真實地址﹐取出來鏈接﹐播放。。。

[skyboy0720]

楼上所是！

[baisun]

aa.asp是真正显示或者播放的页面，id是数据库某条记录的序号，得到id从而读取这个记录的其他信息，比如存放路径等

[qhyan23]

真是高手呀.可是绝对地址怎么找呀!

[lansheyuyan]

sheng9hhd(无形)强悍啊！

[kevinzzy]

其实我也知道aa.asp就是真正显示和播放的页面，只是不太懂得要怎么编写代码
才可以让之前（假设）的页面可以正常显示出aa.asp要显示的图片

例如：
bb.asp中有<img src="aa.asp?id=505">
aa.asp是显示图片的页面
那应该要怎么写才可以让图片在bb.asp中正常显示呢？？


to：sheng9hhd(无形) ( )
按你的回帖，是要把图片直接存进数据库里面？？如果是放在文件夹中，数据库只是个连接地址的这种形式那要怎么读啊？如果把图片放进数据库，那运行起来会很慢啊！！！

[skyboy0720]

“图片上传”本版搜索一下，很多内容的！

[kevinzzy]

无语，还是没人可以真正解决我的问题，算了，结掉了！