关于上传图片 上传图片地址提交入数据库的问题

yuanja 2007-12-08 01:24:24
我在做一个音乐网站，每个专辑都需要一张专辑封面图

我在专辑表 alblist 里面建立了一个 pic 的字段用来存放上传后的图片地址

建立表的语句我已经导出来了

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[alblist]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)

drop table [dbo].[alblist]

GO



CREATE TABLE [dbo].[alblist] (

	[id] [int] IDENTITY (1, 1) NOT NULL ,

	[sin_id] [int] NULL ,

	[sin_name] [nvarchar] (255) COLLATE Chinese_PRC_CI_AS NULL ,

	[alb_name] [nvarchar] (255) COLLATE Chinese_PRC_CI_AS NULL ,

	[languages] [nvarchar] (255) COLLATE Chinese_PRC_CI_AS NULL ,

	[pic] [nvarchar] (255) COLLATE Chinese_PRC_CI_AS NULL ,

	[pub_company] [nvarchar] (255) COLLATE Chinese_PRC_CI_AS NULL ,

	[pub_date] [nvarchar] (255) COLLATE Chinese_PRC_CI_AS NULL ,

	[hit] [numeric](18, 0) NULL ,

	[orders] [nvarchar] (255) COLLATE Chinese_PRC_CI_AS NULL ,

	[ordersjs] [nvarchar] (255) COLLATE Chinese_PRC_CI_AS NULL 

) ON [PRIMARY]

GO






然后我手上有一个上传图片的代码
分别有4个文件

picon.asp picon2.asp Style.asp upload.inc
显示上传的页面 上传功能的功能代码页面 定义了一些CSS 这个嘛～内核

...全文
171 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
yuanja 2007-12-08
  • 打赏
  • 举报
 回复
我想问题就是

怎么能把在专辑提交页面里面 把专辑的资料跟上传的封面图一齐传到 alblist 专辑表 里面去
专辑资料提交的部分已经做好了，就是不知道怎么把图上传后的地址添加到 pic 字段里面去
yuanja 2007-12-08
  • 打赏
  • 举报
 回复
不好意思…………
上面重复发了一次 ＝。＝

现在补充最后一个文件的代码


upload.inc


<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>



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="ECard Ads"

if Request.TotalBytes<1 then Exit Sub

set Form=CreateObject("Scripting.Dictionary")

set File=CreateObject("Scripting.Dictionary")

set upfile_Stream=CreateObject("Adodb.Stream")

upfile_Stream.mode=3

upfile_Stream.type=1

upfile_Stream.open

upfile_Stream.write Request.BinaryRead(Request.TotalBytes)



vbEnter=Chr(13)&Chr(10)

iDivLen=inString(1,vbEnter)+1

strDiv=subString(1,iDivLen)

iFormStart=iDivLen

iFormEnd=inString(iformStart,strDiv)-1

while iFormStart < iFormEnd

  iStart=inString(iFormStart,"name=""")

  iEnd=inString(iStart+6,"""")

  mFormName=subString(iStart+6,iEnd-iStart-6)

  iFileNameStart=inString(iEnd+1,"filename=""")

  if iFileNameStart>0 and iFileNameStart<iFormEnd then

   iFileNameEnd=inString(iFileNameStart+10,"""")

   mFileName=subString(iFileNameStart+10,iFileNameEnd-iFileNameStart-10)

   iStart=inString(iFileNameEnd+1,vbEnter&vbEnter)

   iEnd=inString(iStart+4,vbEnter&strDiv)

   if iEnd>iStart 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

   file.add 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_Stream.size 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_Stream.close

  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 iCode<0 Then iCode = iCode + 65535

   If iCode>255 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_Stream.copyto dr,FileSize

    dr.SaveToFile FullPath,2

    dr.Close

    set dr=nothing 

    SaveAs=0

  end function

End Class

</SCRIPT>
yuanja 2007-12-08
  • 打赏
  • 举报
 回复
picon.asp 的代码



<html>

<head>

<!--#include file="style.asp"-->

<body leftmargin="0" marginwidth="0" topmargin="0" marginheight="0">

<Script Language="javaScript">

    function  validate()

    {

       

        if  (document.myform.src.value=="")

        {

            alert("地址不能为空");

            document.myform.src.focus();

            return false ;

        }

}

</Script><form method="post" action="picon2.asp" enctype="multipart/form-data" name=myform  onSubmit='return validate()'><input type="file" name="src" size="14" value="浏览"> <input type="submit" value="上传" name="B1" class="txt " IsShowProcessBar="True"></form>

  </body></html>






picon2.asp




<html>

<head>

<link rel="stylesheet" type="text/css" href="../images/css.css">

<title>添加文件</title>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

</head>

<body bgcolor="#FFFFFF" leftmargin="0" marginwidth="0" topmargin="0" marginheight="0">

<!--#include FILE="upload.inc"-->

<%

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=""

iCount=0

for each formName in upload.file ''列出所有上传了的文件

 set file=upload.file(formName)  ''生成一个文件对象

 if file.FileSize>0 then         ''如果 FileSize > 0 说明有文件数据

newname=MakedownName()&"."&mid(file.FileName,InStrRev(file.FileName, ".")+1)



  file.SaveAs Server.mappath(formPath&newname)   ''保存文件

  iCount=iCount+1

 else 

  response.write "未找到文件   <A HREF=javascript:history.back(1)>返回</A>"

  response.end

 end if

next

%>

<%

response.write "<script language='JavaScript'>parent.document.forms[0].pic.value='cdpic/"& newname &"'</script>"

%><div align="left">

<TABLE bordercolorlight='000000' bordercolordark=#ffffff cellspacing=0 cellpadding=0 width="100%" style="border-collapse:collapse;">

	  <TR> 

            <TD width="265">上传完毕: 

            <TD width="514"><%response.write "cdpic/"&newname&" ("&cint(file.FileSize/1024)&"K)"%></TD>

            

      </TR>

	  

      </table>

</div>




Style.asp

<style>

<!--

a:link  { text-decoration: none;color:#CC0066}

A:visited {text-decoration: none;color:#CC0066}

A:active {text-decoration: underline}

A:hover {text-decoration: underline;color: #000000 }

A.b:link {text-decoration: none; font-size:12px;color:#000000; font-family: 宋体}

A.b:visited {text-decoration: none; font-size:12px;color:#000000; font-family: 宋体}

A.b:active {text-decoration: underline;font-size:12px;color:#000000; font-family: 宋体}

A.b:hover {text-decoration: underline; color: #000000}

.p1          { font-size: 12px; font-family: 宋体; color: #CC0066 }

li           { color: #CC0066}

td           { font-size: 12px; font-family: 宋体; color: #CC0066 }

body { color: #000000; font-family: 宋体; font-size: 9pt; line-height: 150%; scrollbar-highlight-color: #CE0053; scrollbar-darkshadow-color: #FFEEF4; scrollbar-shadow-color: #CE0053; scrollbar-3dlight-color: #FFEEF4; scrollbar-track-color: #FFEEF4; scrollbar-arrow-color: #FFEEF4; scrollbar-base-color: #CE0053}

INPUT{BORDER-TOP-WIDTH: 1px; PADDING-RIGHT: 1px; PADDING-LEFT: 1px; BORDER-LEFT-WIDTH: 1px; FONT-SIZE: 9pt; BORDER-LEFT-COLOR: #cccccc; BORDER-BOTTOM-WIDTH: 1px; BORDER-BOTTOM-COLOR: #cccccc; PADDING-BOTTOM: 1px; BORDER-TOP-COLOR: #cccccc; PADDING-TOP: 1px; HEIGHT: 18px; BORDER-RIGHT-WIDTH: 1px; BORDER-RIGHT-COLOR: #cccccc}

textarea {border-width: 1; border-color: #000000; background-color: #efefef; font-family: 宋体; font-size: 9pt; font-style: bold;}

select {border-width: 1; border-color: #000000; background-color: #efefef; font-family: 宋体; font-size: 9pt; font-style: bold;}

-->

</style>




yuanja 2007-12-08
  • 打赏
  • 举报
 回复
picon.asp 的代码



<html>

<head>

<!--#include file="style.asp"-->

<body leftmargin="0" marginwidth="0" topmargin="0" marginheight="0">

<Script Language="javaScript">

    function  validate()

    {

       

        if  (document.myform.src.value=="")

        {

            alert("地址不能为空");

            document.myform.src.focus();

            return false ;

        }

}

</Script><form method="post" action="picon2.asp" enctype="multipart/form-data" name=myform  onSubmit='return validate()'><input type="file" name="src" size="14" value="浏览"> <input type="submit" value="上传" name="B1" class="txt " IsShowProcessBar="True"></form>

  </body></html>






picon2.asp




<html>

<head>

<link rel="stylesheet" type="text/css" href="../images/css.css">

<title>添加文件</title>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

</head>

<body bgcolor="#FFFFFF" leftmargin="0" marginwidth="0" topmargin="0" marginheight="0">

<!--#include FILE="upload.inc"-->

<%

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=""

iCount=0

for each formName in upload.file ''列出所有上传了的文件

 set file=upload.file(formName)  ''生成一个文件对象

 if file.FileSize>0 then         ''如果 FileSize > 0 说明有文件数据

newname=MakedownName()&"."&mid(file.FileName,InStrRev(file.FileName, ".")+1)



  file.SaveAs Server.mappath(formPath&newname)   ''保存文件

  iCount=iCount+1

 else 

  response.write "未找到文件   <A HREF=javascript:history.back(1)>返回</A>"

  response.end

 end if

next

%>

<%

response.write "<script language='JavaScript'>parent.document.forms[0].pic.value='cdpic/"& newname &"'</script>"

%><div align="left">

<TABLE bordercolorlight='000000' bordercolordark=#ffffff cellspacing=0 cellpadding=0 width="100%" style="border-collapse:collapse;">

	  <TR> 

            <TD width="265">上传完毕: 

            <TD width="514"><%response.write "cdpic/"&newname&" ("&cint(file.FileSize/1024)&"K)"%></TD>

            

      </TR>

	  

      </table>

</div>




Style.asp

<style>

<!--

a:link  { text-decoration: none;color:#CC0066}

A:visited {text-decoration: none;color:#CC0066}

A:active {text-decoration: underline}

A:hover {text-decoration: underline;color: #000000 }

A.b:link {text-decoration: none; font-size:12px;color:#000000; font-family: 宋体}

A.b:visited {text-decoration: none; font-size:12px;color:#000000; font-family: 宋体}

A.b:active {text-decoration: underline;font-size:12px;color:#000000; font-family: 宋体}

A.b:hover {text-decoration: underline; color: #000000}

.p1          { font-size: 12px; font-family: 宋体; color: #CC0066 }

li           { color: #CC0066}

td           { font-size: 12px; font-family: 宋体; color: #CC0066 }

body { color: #000000; font-family: 宋体; font-size: 9pt; line-height: 150%; scrollbar-highlight-color: #CE0053; scrollbar-darkshadow-color: #FFEEF4; scrollbar-shadow-color: #CE0053; scrollbar-3dlight-color: #FFEEF4; scrollbar-track-color: #FFEEF4; scrollbar-arrow-color: #FFEEF4; scrollbar-base-color: #CE0053}

INPUT{BORDER-TOP-WIDTH: 1px; PADDING-RIGHT: 1px; PADDING-LEFT: 1px; BORDER-LEFT-WIDTH: 1px; FONT-SIZE: 9pt; BORDER-LEFT-COLOR: #cccccc; BORDER-BOTTOM-WIDTH: 1px; BORDER-BOTTOM-COLOR: #cccccc; PADDING-BOTTOM: 1px; BORDER-TOP-COLOR: #cccccc; PADDING-TOP: 1px; HEIGHT: 18px; BORDER-RIGHT-WIDTH: 1px; BORDER-RIGHT-COLOR: #cccccc}

textarea {border-width: 1; border-color: #000000; background-color: #efefef; font-family: 宋体; font-size: 9pt; font-style: bold;}

select {border-width: 1; border-color: #000000; background-color: #efefef; font-family: 宋体; font-size: 9pt; font-style: bold;}

-->

</style>




图片上传系统 上传图片至数据库上传图片至数据库上传图片至数据库
上传图片至服务器，并将路径写入数据库上传图片至数据库上传图片至数据库
ASP批量上传图片,并提交图片地址保存在数据库(完整版)
今天下载了koumenglin网友分享的批量上传图片ASP代码,带缩略图的很好用，在此非常感谢他们的分享。由于源程序没有带数据库,看到有的网友留言说不会修改把图片地址保存到数据库，我就把这个自己修改过的带数据库的完整版，拿出来分享吧。ASP批量上传图片,并提交图片地址保存在数据库。
asp图片批量上传，并实现提交数据库
从网友hukaichina处下载的资源，感谢hukaichina的分享。 自己修改了一下JS和CSS样式，显示效果，增加了图片显示为缩略图，增加了提交到数据库步骤。提交处理页面请参考自行修改。 仅供学习参考！
使用Springboot上传图片并将URL保存到数据库中
使用Spring Boot上传文件的简单Demo
通过excel上传数据到数据库
通过excel上传数据到数据库,导出到EXCEL
疑难问题

22,209

社区成员

121,730

社区内容

发帖
与我相关
我的任务
社区描述
MS-SQL Server 疑难问题
社区管理员
  • 疑难问题社区
  • 尘觉
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章