存图片服务器，服务器照片
VB怎样上传图片到服务器
<%
'****************************************************
'这是类文件，用来保存有关文件上传的类
'****************************************************
'----------------------------------------------------------------------------------
Class jjUpload
'定义几个私有变量，在类内部都可以使用
Private formData,formSize,bncrlf,divider
'下面是初始化类的方法
Private Sub Class_Initialize()
formsize=Request.TotalBytes'获取传上来的二进制数据的大小
formdata=Request.BinaryRead(formsize)'获取传上来的二进制数据
bncrlf=ChrB(13)& ChrB(10)'回车换行标记
divider=LeftB(formData,CInt(InstrB(formdata,bncrlf))-1)'分隔符
End Sub
'下面的函数用来返回上传文件对象
Public Function GetFiles(FormName)
Dim objGetFiles
Set objGetFiles=New MyGetFiles
Call objGetFiles.GetProperty(formData,FormName)
Set GetFiles=objGetFiles
End Function
'下面的函数用来返回上传表单对象
Public Function GetForms(FormName)
Dim objGetForms
Set objGetForms=New MyGetForms
Call objGetForms.GetValue(formdata,FormName)
Set GetForms=objGetForms
End Function
End Class
'----------------------------------------------------------------------------------
Class MyGetFiles
'定义几个私有变量
Dim theFilePath,theFileName,theExt,theSize,theMIME,theformData
'定义几个只读属性，用来返回有关信息
Public Property Get FilePath
FilePath=theFilePath
End Property
Public Property Get FileName
FileName=theFileName
End Property
Public Property Get Ext
Ext=theExt
End Property
Public Property Get Size
Size=theSize
End Property
Public Property Get MIME
MIME=theMIME
End Property
'下面是初始化类的方法
Private Sub Class_Initialize()
End Sub
'下面是返回各个类的属性
Public Sub GetProperty(formData,FormName)
Dim bncrlf,divider
bncrlf=ChrB(13)& ChrB(10)'回车换行标记
divider=LeftB(formData,CInt(InstrB(formdata,bncrlf))-1)'分隔符
'下面开始查找该FormName对应的内容，strTemp变量用来保存一个二进制字符串
'dataStart为开始位置，dataEnd为结束位置，dataLen为要取信息的长度,temp为临时使用。
Dim strTemp,dataStart,dataEnd,dataLen,temp,intFlag
'因为发生引号嵌套，这里的内层引号用""代替。
strTemp=StringToBinary("Content-Disposition: form-data; name="""& FormName&"""; filename=""")
'在formData中查找二进制字符串strTemp,如果找到了就继续处理，如果找不到返回错误信息。
intFlag=InstrB(formData,Divider& bncrlf& strTemp)
Dim arrayTemp()
If intFlag>0 Then
'重定义数组长度
Redim arrayTemp(4)
'首先返回文件在客户端的路径
dataStart=intFlag+LenB(Divider& bncrlf& strTemp)'定位到第1个字符
dataend=InstrB(datastart,formdata,bncrlf)-2'定位到最后1个字符
dataLen=dataend-datastart+1'返回要取信息的长度
theFilePath=BinaryToString(MidB(formdata,datastart,datalen))'返回文件路径
'返回文件的名称，其实只要从客户端路径中分析出文件名称即可
theFileName=Mid(theFilePath,InstrRev(theFilePath,"\")+1)
'返回文件的扩展名，其实只要从文件名称中分析出文件扩展名即可
theExt=Mid(theFileName,InstrRev(theFileName,".")+1)
'下面获取文件的MIME类型
temp=dataend'记住当前位置
datastart=temp+18'定位到第1个字符
dataend=InstrB(datastart,formdata,bncrlf& bncrlf)-1'定位到最后1个字符
dataLen=dataend-datastart+1'返回要取信息的长度
theMIME=BinaryToString(MidB(formdata,datastart,datalen))'返回MIME类型
'下面获取文件大小
temp=dataend
datastart=dataend+5'定位到第1个字符
dataend=InstrB(datastart,formdata,divider)-3'定位到最后1个字符
theSize=dataend-datastart+1'返回文件大小
End If
'将formData保存在本类的私有变量中，以备使用
theformData=formData
End Sub
'----------------------------------------------------------------------------------
'下面定义一个保存文件的方法
Public Function SaveToFile(FormName,SaveFilePath,OverWriteFlag)
Dim bncrlf,divider
bncrlf=ChrB(13)& ChrB(10)'回车换行标记
divider=LeftB(theformData,CInt(InstrB(theformdata,bncrlf))-1)'分隔符
'下面开始查找该FormName对应的内容，strTemp变量用来保存一个二进制字符串
'dataStart为开始位置，dataEnd为结束位置，dataLen为要取信息的长度,temp为临时使用。
Dim strTemp,dataStart,dataEnd,dataLen,temp,intFlag,filepath,filename
'因为发生引号嵌套，这里的内层引号用""代替。
strTemp=StringToBinary("Content-Disposition: form-data; name="""& FormName&"""; filename=""")
'在formData中查找二进制字符串strTemp,如果找到了就继续处理，如果找不到返回错误信息。
intFlag=InstrB(theformData,Divider& bncrlf& strTemp)
Dim arrayTemp()
If intFlag>0 Then
'因为后面要用到文件的名字，所以首先返回文件的名字
dataStart=intFlag+LenB(Divider& bncrlf& strTemp)'定位到第1个字符
dataend=InstrB(datastart,theformData,bncrlf)-2'定位到最后1个字符
dataLen=dataend-datastart+1'返回要取信息的长度
filepath=BinaryToString(MidB(theformData,datastart,datalen))'返回文件路径
filename=Mid(filepath,InstrRev(filepath,"\")+1)
'从当前位置找到两个回车换行符，也就是文件内容开头的地方
dataStart=InstrB(intFlag,theformData,bncrlf& bncrlf)+4'定位到文件内容所在的第1个字符
dataEnd=InstrB(datastart,theformData,divider)-3'定位到文件内容的最后一个字符
dataLen=dataend-datastart+1'返回文件内容的长度
If dataLen<=0 Then
SaveToFile=3
Exit Function
End If
'下面建立了两个Stream对象，objStream1将整个theformData读取到对象中，然后将其中的文件内容部分复制到
'objStream2对象中，然后再利用SaveToFile方法保存到指定文件夹下。
Dim objStream1
Set objStream1=Server.CreateObject("Adodb.Stream")
objStream1.Type= 1'设置二进制方式
objStream1.Open'打开对象
objStream1.Write theformData'写出文件内容到对象中
Dim objStream2
Set objStream2=Server.CreateObject("Adodb.Stream")
objStream2.Type= 1'设置二进制方式
objStream2.Open'打开对象
objStream1.Position=datastart-1'设定起始位置，这里索引从0开始，所以减1
objStream1.CopyTo objStream2,dataLen'写出文件内容到对象中
'如果允许覆盖，才覆盖，否则给出提示信息，提示客户更改名字
If OverWriteFlag=True Then
objStream2.SaveToFile SaveFilePath&"\"& filename,2'保存文件,2表示可以覆盖
Else
Set fso=Server.CreateObject("Scripting.FileSystemObject")
IF fso.FileExists(SaveFilePath&"\"& filename)=True Then
SaveToFile=2'返回函数值，1表示已经存在同名文件
Exit Function
Else
objStream2.SaveToFile SaveFilePath&"\"& filename,1'1表示不可以覆盖
End If
End IF
'关闭对象
objStream1.Close
Set objStream1=Nothing
objStream2.Close
Set objStream2=Nothing
SaveToFile=1'下面返回函数值，0表示正常
Else
SaveToFile=0'下面返回函数值，2表示找不到，发生错误
End If
End Function
'下面定义保存文件到数据库的方法
Public Function SaveToDataBase(FormName,strConn,strSql)
Dim bncrlf,divider
bncrlf=ChrB(13)& ChrB(10)'回车换行标记
divider=LeftB(theformData,CInt(InstrB(theformdata,bncrlf))-1)'分隔符
'下面开始查找该FormName对应的内容，strTemp变量用来保存一个二进制字符串
'dataStart为开始位置，dataEnd为结束位置，dataLen为要取信息的长度,temp为临时使用。
Dim strTemp,dataStart,dataEnd,dataLen,temp,intFlag,fileimage
'因为发生引号嵌套，这里的内层引号用""代替。
strTemp=StringToBinary("Content-Disposition: form-data; name="""& FormName&"""; filename=""")
'在formData中查找二进制字符串strTemp,如果找到了就继续处理，如果找不到返回错误信息。
intFlag=InstrB(theformData,Divider& bncrlf& strTemp)
Dim arrayTemp()
If intFlag>0 Then
'从当前位置找到两个回车换行符，也就是文件内容开头的地方
dataStart=InstrB(intFlag,theformData,bncrlf& bncrlf)+4'定位到文件内容所在的第1个字符
dataEnd=InstrB(datastart,theformData,divider)-3'定位到文件内容的最后一个字符
dataLen=dataend-datastart+1'返回文件内容的长度
fileimage=MidB(theformData,datastart,datalen)'返回二进制文件内容
If dataLen<=0 Then
SaveToFile=3'3表示根本没有选择文件
Exit Function
End If
'！！！因为当文件大小为奇数字符时，在往数据库中保存时有一些小问题，会少一个字节，所以这里先给它加一个二进制空格
If dataLen Mod 2= 1 Then
fileimage=fileimage& Chrb(32)
datalen=datalen+1
End If
'下面将文件保存到数据库中
Dim db,cmd,rs
Set db=Server.CreateObject("ADODB.Connection")
db.Open strConn
Set cmd= Server.CreateObject("ADODB.Command")
cmd.ActiveConnection=db
cmd.CommandText=strSql
'下面建立一个参数对象prm，并将该对象加入到参数集合中,204表示是二进制值
Dim prm
Set prm=cmd.CreateParameter("fileimage",204,1,datalen,fileimage)
cmd.Parameters.Append prm
set rs=cmd.Execute
SaveToDatabase=1'返回函数值，0表示正常
Else
SaveToDatabase=0'返回函数值，2表示错误
End If
End Function
'下面是注销该类的方法
Private Sub Class_Terminate()
'theformData=Nothing
End Sub
End Class
'----------------------------------------------------------------------------------
Class MyGetForms
'定义1个私有变量
Dim theValue
'定义几个只读属性，用来返回有关信息
Public Property Get Value
Value=theValue
End Property
'下面是初始化类的方法
Private Sub Class_Initialize()
End Sub
'该方法给属性赋值
Public Sub GetValue(formData,FormName)
Dim bncrlf,divider
bncrlf=ChrB(13)& ChrB(10)'回车换行标记
divider=LeftB(formData,CInt(InstrB(formdata,bncrlf))-1)'分隔符
'下面开始查找该FormName对应的内容，下面会首先定义几个变量,strTemp为一个字符串变量，临时保存二进制字符串
'dataStart为开始位置，dataEnd为结束位置，dataLen为要取信息的长度,temp为临时使用，为了记住当前位置。
Dim strTemp,dataStart,dataEnd,dataLen,temp,intFlag
strTemp=StringToBinary("Content-Disposition: form-data; name="""& FormName&"""")
'在整个二进制字符串中查找下面这一个二进制字符串
intFlag=InstrB(formData,Divider& bncrlf& strTemp& bncrlf& bncrlf)
'如果找到了，就依次返回有关信息,如果找不到，就返回一个错误信息
If intFlag>0 Then
datastart=intFlag+LenB(Divider& bncrlf& strTemp& bncrlf& bncrlf)'定位到第1个字符
dataend=InstrB(datastart,formdata,divider)-3'定位到最后1个字符
dataLen=dataend-datastart+1'返回要取信息的长度
theValue=BinaryToString(MidB(formdata,datastart,datalen))'返回出表单内容信息
Else
theValue=""
End If
End Sub
End Class
'------------------------------------------------------------------------------------------------
'该函数可以将二进制字符串转换成文本字符串
Function BinaryToString(thedata)
'变量strNow表示正在处理的字符，strTemp用来保存已经处理完毕的字符串
'变量flag是一个标志，False表示前一个字符不是中文，True表示前一个字符是中文
Dim strNow,strTemp,flag,I
flag=False
'利用循环依次转换每一个字符
For I=1 To LenB(thedata)
'因为一个中文字符包括两个字节，如果flag=True，表示前一个字符是中文，所以
'要跳过该字符，需要令标志flag=False。否则表示不是中文，就需要将其转换
If flag=True Then
flag=False
Else
'取出当前二进制字符
strNow=MidB(thedata,I,1)
'如果AscB(strNow)>127，表示这是一个中文字符，AscB(tsrNow)<127，表示不是中文字符
If AscB(strNow)> 127 Then
'如果是中文，首先需要把当前字符和下一个字符调换位置，然后用AscW
'返回对应的ASCII码。随之，用Chr函数返回该ASCII码对应的文本
'最后，还要把中文标志设为True
strTemp=strTemp& Chr(AscW(MidB(thedata,I+1,1)& strNow))
flag=True
Else
'这表示是英文，AscB返回对应的ASCII码，Chr返回对应的文本字符
strTemp=strTemp& Chr(AscB(strNow))
End If
End If
Next
BinaryToString=strTemp'返回函数值
End Function
'该函数可以将文本字符串转换成二进制字符串
Function StringToBinary(thedata)
'变量strNow表示正在处理的字符，strTemp用来保存已经处理完毕的字符串
'变量intNow用来表示当前字符的ASCII码
'变量ascLow和ascHigh用来保存中文字符的第1个和第2个字节
Dim strNow,intNow,strTemp,I,binLow,binHigh
'利用循环依次转换每一个字符
For I=1 To Len(thedata)
'取出当前文本字符，并返回ASCII码
strNow=Mid(thedata,I,1)
intNow=Asc(strNow)
'如果Asc(strNow)<0，则表示是中文字符，则需要加上65535返回它的无符号数值
If intNow<0 Then
intNow=intNow+65535
End If
'如果加上65535后ASCII码大于255，则表示是中文，中文是用两个字节表示的，必须分开处理。当然，如果是英文字符就简单了
If intNow>255 Then
'这里binLow返回低字节，binHigh返回高字节其中Hex函数返回一个字符串，表示一个数字的十六进制数
binLow="&H"& Left(Hex(Asc(strNow)),2)
binHigh="&H"& Right(Hex(Asc(strNow)),2)
strTemp=strTemp& ChrB(binLow)& ChrB(binHigh)
Else
'这表示是英文，Asc函数返回ASCII码，ChrB返回对应的二进制字符。
strTemp=strTemp& ChrB(Asc(strNow))
End If
Next
StringToBinary=strTemp'返回函数值
End Function
%>
数据库能存图片吗
问题一：数据库怎样可以将图片放到里面首先肯定一点，数据库中是可以放图片数据的！但是这样的话，数据体积会很庞大，当然最好还是把图片放到文件夹中，数据只用来存放图片路径，不过最好是存放相对路径，应该以后可能设计到图片单独放在另一台服务器上，或换了文件夹。
问题二：SQL数据库中能存照片吗？图片完全可以存放，但是在数据库中不能以select* from a进行查询
但是在相对应得c#、Java中可以查询
是以二进制保存的。
数据库，只要是抽象出来的数据，都可以保存。
而已不能保存的，就是实体，像处啊、鞋子啊、男朋友啊都不姓
问题三：mysql数据库可以存图片吗？可以。存图片的列需要设置成BLOB、MEDIUMBLOB或LONGBLOB等数据类型。
但是以前基本上不会把图片直接存在数据库里，因为数据库里的数据是为了用来快速分析、快速存取的，图片数据在mysql里既不能建立索引也不能和其他数据一起分析，存取速度和读写磁盘也没什么区别，每次备份、导入导出数据库时还增加了数据量，降低了效率。所以一般都是把图片存在系统里，然后把图片的存放路径放在数据库里。
问题四：图片如何存入数据库第一种方式：保存图片路径至数据库中
第二种方式：数据插入相应表中，参数类型为byte[]
例如：
sql:insert into table(imageColumn) values(@image);
其中@image参数值为byte[]类型的变量
问题五：图片如何存放在oracle数据库测试可行。这只是核心Class文件代码，你要是弄不出来，就再联系我，我再把整个项目给你。这是把图片真个放到数据库
package.dao;
import java.io.FileInputStream;
import java.io.OutputStream;
import java.sql.Blob;
import java.sql.Connection;
import java.sql.PreparedStatement;
import java.sql.ResultSet;
import java.util.Scanner;
import oracle.sql.BLOB;
public class Insert{
Scanner sc=new Scanner(System.in);
@SuppressWarnings(deprecation)
public int insertbinary(String pname,String src1){
Connection con= null;
String sql= insert into test values(?,?);
String sql1=update test set image=? where pname=?;
int res= 0;
try{
con=BaseDAO.getConnection();
con.setAutomit(false);
PreparedStatement pstm= con.prepareStatement(sql);
pstm.setString(1, pname);
EMPTY_BLOB和EMPTY_CLOB返回一个空的LOB定位器，
可以用来初始化一个LOB变量，或在INSERT或UPDATE语句，
初始化LOB列或属性为空。 EMPTY表示LOB初始化，但不填充数据。
pstm.setBlob(2, oracle.sql.BLOB.empty_lob());
pstm.executeUpdate();
pstm.close();
pstm= con.prepareStatement(select* from test where pname=?);
pstm.setString(1, pname);
ResultSet rs= pstm.executeQuery();
rs.next();
BLOB blob=(BLOB) rs.getBlob(2);
OutputStream os= blob.getBinaryOutputStream();
FileInputStream fi= new FileInputStream(src1);
byte[] buff= new byte[1024];
int len= fi.read(buff);
while(len!=-1){
os.write(buff);
len= fi.read(buff);
}
pstm= con.prepareStatement(sql1);
pstm.setBlob(1,......>>
问题六：如何将图片储存在MySQL数据库里通常对用户上传的图片需要保存到数据库中。解决方法一般有两种：一种是将图片保存的路径存储到数据库；另一种是将图片以二进制数据流的形式直接写入数据库字段中。以下为具体方法：
一、保存图片的上传路径到数据库：
string uppath=;用于保存图片上传路径
获取上传图片的文件名
string fileFullname= this.FileUpload1.FileName;
获取图片上传的时间，以时间作为图片的名字可以防止图片重名
string dataName= DateTime.Now.ToString(yyyyMMddhhmmss);
获取图片的文件名（不含扩展名）
string fileName= fileFullname.Substring(fileFullname.LastIndexOf(\\)+ 1);
获取图片扩展名
string type= fileFullname.Substring(fileFullname.LastIndexOf(.)+ 1);
判断是否为要求的格式
if(type== bmp|| type== jpg|| type== jpeg|| type== gif|| type== JPG|| type== JPEG|| type== BMP|| type== GIF)
{
将图片上传到指定路径的文件夹
this.FileUpload1.SaveAs(Server.MapPath(~/upload)+\\+ dataName+.+ type);
将路径保存到变量，将该变量的值保存到数据库相应字段即可
uppath=~/upload/+ dataName+.+ type;
}
二、将图片以二进制数据流直接保存到数据库：
引用如下命名空间：
using System.Drawing;
using System.IO;
using System.Data.SqlClient;
设计数据库时，表中相应的字段类型为iamge
保存：
图片路径
string strPath= this.FileUpload1.PostedFile.FileName.ToString();
读取图片
FileStream fs= new System.IO.FileStream(strPath, FileMode.Open, FileAccess.Read);
BinaryReader br= new BinaryReader(fs);
byte[] photo= br.ReadBytes((int......>>
问题七：如何在数据库中存储图片文件解决方法一般有两种：
一种是将图片保存的路径存储到数据库；
另一种是将图片以二进制数据流的形式直接写入数据库字段中。
问题八：如何将图片存到数据库通常对用户上传的图片需要保存到数据库中。解决方法一般有两种：一种是将图片保存的路径存储到数据库；另一种是将图片以二进制数据流的形式直接写入数据库字段中。以下为具体方法：
一、保存图片的上传路径到数据库：
string uppath=;用于保存图片上传路径
获取上传图片的文件名
string fileFullname= this.FileUpload1.FileName;
获取图片上传的时间，以时间作为图片的名字可以防止图片重名
string dataName= DateTime.Now.ToString(yyyyMMddhhmmss);
获取图片的文件名（不含扩展名）
string fileName= fileFullname.Substring(fileFullname.LastIndexOf(\\)+ 1);
获取图片扩展名
string type= fileFullname.Substring(fileFullname.LastIndexOf(.)+ 1);
判断是否为要求的格式
if(type== bmp|| type== jpg|| type== jpeg|| type== gif|| type== JPG|| type== JPEG|| type== BMP|| type== GIF)
{
将图片上传到指定路径的文件夹
this.FileUpload1.SaveAs(Server.MapPath(~/upload)+\\+ dataName+.+ type);
将路径保存到变量，将该变量的值保存到数据库相应字段即可
uppath=~/upload/+ dataName+.+ type;
}
二、将图片以二进制数据流直接保存到数据库：
引用如下命名空间：
using System.Drawing;
using System.IO;
using System.Data.SqlClient;
设计数据库时，表中相应的字段类型为iamge
保存：
图片路径
string strPath= this.FileUpload1.PostedFile.FileName.ToString();
读取图片
FileStream fs= new System.IO.FileStream(strPath, FileMode.Open, FileAccess.Read);
BinaryReader br= new BinaryReader(fs);
byte[] photo= br......>>
问题九：怎样数据库access保存jpg图片只有两种方法
1.存图片地址，图片放服务器的一个文件夹里
2.存图片的数据，也就是二进制流
既然第一种你说不行那只能第二种了。
我只说一下思路，代码网上找一下，多的很，也不麻烦1.数据库字段类型为image（sqlserver的是image，不知道access的是不是）
2.把图片文件序列化放到一个byte[]数组里，然后存到数据库
显示的时候：
1.单独在一个页面读出图片的内容到一个byte[]数组
2.用response把这段二进制输出
3.在要引用的地方，比如你的image控件，把引用的地址指向这个页面就行了
问题十：如何像数据库中保存图片？一般图像是不保存在数据库的.而是先将图片放在工程下的某个文件夹中,将图片所在的工程文件路径存在数据库中,当程序加载图片的时候,从数据库中读取图片的路径,然后根据路径在工程的文件夹中读取图片文件
图片网站 需要什么配置的服务器
这种的话考虑2核4G内存5M带宽的云服务器。因为图片体积不小，又是一个图片网站，对带宽要求就挺高的了。
还要求打开速度快，图片加载快，所以说2核4G内存是最起码的要求了。
帮助你理解这个答案，请看图片网站服务器配置，这样能让你对这个配置理解的更深刻了。
我说的够清楚了吧，还有什么要问的就问吧，看到就回答你。
