图片上传到文件夹，名字存入数据库，asp代码，谢谢
先建两个文件夹file和upfile（上传的图片会放在file文件夹里，upfile文件夹里放的是asp等4个文件）
upfile文件夹里的4个文件分别是： p（上传页）、sub_ p（反馈页）、 c、style。 css。
★ p代码如下：
诡e浮魔 网友文件上传点
注意：本功能是基于WEB方式的上传文件，比使用FTP方便!文件上传在站点的根目录file/目录下。
支持上传的文件格式有：图片文件（*。 gif、*。jpg、*。png、*。bmp），动画FLASH文件（*。swf）
调用图片请用绝对路径也就是如例：http://你的网址/img/ f，这样就调用了 f这张图片
当您填加...全部
先建两个文件夹file和upfile（上传的图片会放在file文件夹里，upfile文件夹里放的是asp等4个文件）
upfile文件夹里的4个文件分别是： p（上传页）、sub_ p（反馈页）、 c、style。
css。
★ p代码如下：
诡e浮魔 网友文件上传点
注意：本功能是基于WEB方式的上传文件，比使用FTP方便!文件上传在站点的根目录file/目录下。
支持上传的文件格式有：图片文件（*。
gif、*。jpg、*。png、*。bmp），动画FLASH文件（*。swf）
调用图片请用绝对路径也就是如例：http://你的网址/img/ f，这样就调用了 f这张图片
当您填加的一个栏目需要图片的时候,请先上传该图片,并复制该图片地址,粘贴到相应栏目的需求图片位置上即可
注意：请不要用此功能上传大于2M的文件。
如果你要上传的文件大于2M，请用FTP上传！
1M等于1024K，1K等于1024个字节
文件
★sub_ p代码如下：
"gif" or fileformat<>"jpg" or fileformat<>"png" or fileformat<>"jpeg" or fileformat<>"bmp" or fileformat<>"swf" then
'response。
write "alert('您上传的文件是不符合格式的的文件！\n支持上传的文件格式有：*。gif、*。jpg、*。jpeg、*。png、*。bmp、*。swf'); ck()"
'response。
end
'end if
dim upload,file,formName,formPath,iCount
set upload=new upload_F
function MakedownName()
dim fname
fname = now()
fname = replace(fname,"-","")
fname = replace(fname," ","")
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
fname = int(fname) + int((10-1+1)*Rnd + 1)
MakedownName=fname
end function
formPath="。
。/file/"
iCount=0
for each formName in le ''列出所有上传了的文件
set file= le(formName) ''生成一个文件对象
if file。
FileSize>0 then ''如果 FileSize > 0 说明有文件数据
newname=MakedownName()&"。"&mid(file。FileName,InStrRev(file。
FileName, "。")+1)
file。SaveAs ppath(formPath&newname) ''保存文件
iCount=iCount+1
else
response。
write "未找到文件 返回"
response。end
end if
next
%>
文件：
http://"&Request。ServerVariables("SERVER_NAME")&"/file/"&newname&" ("&cint(file。
FileSize/1024)&"K) 上传 成功!"
%>
请复制红底黑字的文件地址，不要有空格。
继续上传
下面是您上传的文件予览
" quality=high WIDTH=300 HEIGHT=280 TYPE='application/x-shockwave-flash'>
">
★ c代码如下：
dim upfile_Stream
Class upload_F
dim Form,File,Version
Private Sub Class_Initialize
dim iStart,iFileNameStart,iFileNameEnd,iEnd,vbEnter,iFormStart,iFormEnd,theFile
dim strDiv,mFormName,mFormValue,mFileName,mFileSize,mFilePath,iDivLen,mStr
Version="upload Version 1。
0"
if Request。TotalBytes0 and iFileNameStartiStart then
mFileSize=iEnd-iStart-4
else
mFileSize=0
end if
set theFile=new FileInfo
theFile。
FileName=getFileName(mFileName)
theFile。FilePath=getFilePath(mFileName)
theFile。FileSize=mFileSize
theFile。
FileStart=iStart+4
theFile。FormName=FormName
d mFormName,theFile
else
iStart=inString(iEnd+1,vbEnter&vbEnter)
iEnd=inString(iStart+4,vbEnter&strDiv)
if iEnd>iStart then
mFormValue=subString(iStart+4,iEnd-iStart-4)
else
mFormValue=""
end if
form。
Add mFormName,mFormValue
end if
iFormStart=iformEnd+iDivLen
iFormEnd=inString(iformStart,strDiv)-1
wend
End Sub
Private Function subString(theStart,theLen)
dim i,c,stemp
upfile_Stream。
Position=theStart-1
stemp=""
for i=1 to theLen
if upfile_Stream。EOS then Exit for
c=ascB(upfile_Stream。
Read(1))
If c > 127 Then
if upfile_Stream。EOS then Exit for
stemp=stemp&Chr(AscW(ChrB(AscB(upfile_Stream。
Read(1)))&ChrB(c)))
i=i+1
else
stemp=stemp&Chr(c)
End If
Next
subString=stemp
End function
Private Function inString(theStart,varStr)
dim i,j,bt,theLen,str
InString=0
Str=toByte(varStr)
theLen=LenB(Str)
for i=theStart to upfile_Stream。
Size-theLen
if i>upfile_ ze then exit Function
upfile_Stream。Position=i-1
if AscB(upfile_Stream。
Read(1))=AscB(midB(Str,1)) then
InString=i
for j=2 to theLen
if upfile_Stream。EOS then
inString=0
Exit for
end if
if AscB(upfile_Stream。
Read(1))<>AscB(MidB(Str,j,1)) then
InString=0
Exit For
end if
next
if InString<>0 then Exit Function
end if
next
End Function
Private Sub Class_Terminate
form。
RemoveAll
file。RemoveAll
set form=nothing
set file=nothing
upfile_ ose
set upfile_Stream=nothing
End Sub
Private function GetFilePath(FullPath)
If FullPath <> "" Then
GetFilePath = left(FullPath,InStrRev(FullPath, "\"))
Else
GetFilePath = ""
End If
End function
Private function GetFileName(FullPath)
If FullPath <> "" Then
GetFileName = mid(FullPath,InStrRev(FullPath, "\")+1)
Else
GetFileName = ""
End If
End function
Private function toByte(Str)
dim i,iCode,c,iLow,iHigh
toByte=""
For i=1 To Len(Str)
c=mid(Str,i,1)
iCode =Asc(c)
If iCode255 Then
iLow = Left(Hex(Asc(c)),2)
iHigh =Right(Hex(Asc(c)),2)
toByte = toByte & chrB("&H"&iLow) & chrB("&H"&iHigh)
Else
toByte = toByte & chrB(AscB(c))
End If
Next
End function
End Class
Class FileInfo
dim FormName,FileName,FilePath,FileSize,FileStart
Private Sub Class_Initialize
FileName = ""
FilePath = ""
FileSize = 0
FileStart= 0
FormName = ""
End Sub
Public function SaveAs(FullPath)
dim dr,ErrorChar,i
SaveAs=1
if trim(fullpath)="" or FileSize=0 or FileStart=0 or FileName="" then exit function
if FileStart=0 or right(fullpath,1)="/" then exit function
set dr=CreateObject("Adodb。
Stream")
dr。Mode=3
dr。Type=1
dr。Open
upfile_Stream。position=FileStart-1
upfile_ pyto dr,FileSize
dr。
SaveToFile FullPath,2
dr。Close
set dr=nothing
SaveAs=0
end function
End Class
★style。
css代码如下：
A:visited {
TEXT-DECORATION: none
; color: #000000
}
A:active {
TEXT-DECORATION: none
; color: #000000
}
A:hover {
TEXT-DECORATION: underline overline
; color: #ff0000
}
A:link {
TEXT-DECORATION: none
; color: #000000
}
TD {
FONT-SIZE: 9pt; FONT-FAMILY: 宋体
}
DIV {
FONT-SIZE: 9pt; FONT-FAMILY: 宋体
}
FORM {
FONT-SIZE: 9pt; FONT-FAMILY: 宋体
}
OPTION {
FONT-SIZE: 9pt; FONT-FAMILY: 宋体
}
P {
FONT-SIZE: 9pt; FONT-FAMILY: 宋体
}
TD {
FONT-SIZE: 9pt; FONT-FAMILY: 宋体
}
BR {
FONT-SIZE: 9pt; FONT-FAMILY: 宋体
}
BODY {
FONT-SIZE: 9pt; SCROLLBAR-HIGHLIGHT-COLOR: buttonface; SCROLLBAR-SHADOW-COLOR: buttonface; COLOR: #000000; SCROLLBAR-3DLIGHT-COLOR: buttonhighlight; SCROLLBAR-TRACK-COLOR: #eeeeee; FONT-FAMILY: "宋体"; SCROLLBAR-DARKSHADOW-COLOR: buttonshadow
}
。
botton {
BORDER-RIGHT: #cfcfcf 1px solid; BORDER-TOP: #cfcfcf 1px solid; FONT-SIZE: 9pt; BORDER-LEFT: #cfcfcf 1px solid; COLOR: #FFFFFF; BORDER-BOTTOM: #cfcfcf 1px solid; FONT-FAMILY: "宋体"; BACKGROUND-COLOR: #383838
}
。
input {
BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid
}
。
show1 {
FONT-SIZE: 9pt; FILTER: DropShadow(Color=#000000, OffX=1。2, OffY=1。
2, Positive=1)
}
llow:visited {
TEXT-DECORATION: underline
; color: #000000
}
llow:active {
TEXT-DECORATION: none
; color: #000000
}
llow:hover {
TEXT-DECORATION: none
; color: #000000
}
llow:link {
TEXT-DECORATION: underline
; color: #000000
}
Ok，我已经说了 p是上传页面，至于页面显示内容你自己根据需要改吧
打包给你!。收起
