id intIdentity 主键值 img image 用来保存图片数据 现在开始正式编写的纯ASP代码上传部分了，首先，有一个提供给用户的上传界面，可以让用户选择要上传的图片代码如下 uploadhtm。

upfileasplt%OPTION EXPLICIT%lt%ServerScriptTimeOut=5000%lt！#include FILE=quotupload_5xsoftincquot文件上传化境文件上传！lt%dim upload，file，formName，formPath，iCountset upload=new upload_5xsoft #39#39建立上传对象response。

upload_fileasp此页面作为弹出窗口，代码如下lt！#include file=quotUploadClassaspquot 文件上传 lt Dim Admin_Flag，action Dim File_ext，UploadSize，Uploadpath Dim Filepath，Filename。

这简单，不用代码了吧call savetofilemydata，pathresponsewrite quotalertquotquot上传成功quotquotlocationhref=quotquotindexaspquotquotquotresponseendend if%lt！这些文件夹都在你的虚拟主机上，你先创建好，然后循环读取出来你不会说要用户。

quotnamequotvalue = tcreateTextRangetext 这里的 name 值为你的上传文本框的name值名称 windowclose lt ExtName = quotjpg，gif，png，txt，rar，zip，d。

p_MaxSize = 000000#390设定上传图片大小 p_FileType = quotjpggifquot p_SavePath = quotquot p_AutoSave = 0 strDate = replacecstrDate，quotquot，quotquot strDate = replacecstrDate，quotquot，quotquot lngTime = clngtime。

我需要最简单的ASP图片上传代码，那位大虾能帮下忙~~谢谢 我需要最简单的ASP图片上传代码，那位大虾能帮下忙~~谢谢 展开 #xE768 我来答 4个回答 #热议# 已婚女性就应该承担家里大部分家务吗。

加我Q，我能给你完整无组建上传代码， 答案flower。

uploadinc页面 ltSCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT dim upfileStream Class upload dim Form，File Private Sub Class_Initialize dim iStart，iFileNameStart，iFileNameEnd，iEnd，vbEnter，iFormStart，iFormEnd，theFile dim。

Upasp代码lt！#include file=quotUploadaspquot lt%ServerScriptTimeOut = 9999Dim PicSize， PicTypePicSize = 100 #39图片大小，单位KPicType = quotgifjpgbmpquot #39图片格式%ltHTMLltHEADltTITLE图片上。

三个页选择页，上传页subasp，调用的代码页uploadinc， 我自己就在用这个，LZ给分吧 1浏览上传 subasp 执行上传并返回地址，同时保存文件名在sessionccc中 lt！#include FILE=quotuploadincquot lt% dim upload。

保存至数据库只需要在上传之后执行写入数据库的操作，便是我代码中注释掉的那行#39ConnExecute quotInsert Into uploadfilename，filesize，update，cnstr values#39quotformPathFileFileNamequot#39，quot。

thisGetType， quotquot， quotalert#39上传的图片太大！#39quot else Image1ImageUrl = strBaseLocation + Temp1 + rightNameTextBox16Text = Image1ImageUrl。

End Function #39=== #39以上内容若放在AASP页面，在上传页面加上lt！#include file=quotAASPquot #39AASP获取服务端相对图片路径，上传图片。

aspjpeg本身不能上传图片，可以使用无惧上传等文件上传类生成缩略图的代码如下 lt #39 Create instance of AspJpeg Set Jpeg = ServerCreateObjectquotPersitsJpegquot#39 Open source image JpegOpen quotc\path\myimagejpgquot#39。

ltaspImage ID=quotImage1quot runat=quotserverquot 后台protected void Button1_Clickobject sender， EventArgs e FileUpload1SaveAsServerMapPathquotimgquot+FileUpload1FileName上传图片 Image1ImageUrl =。

ASP无组件上传图片源代码 lt #39上传方法，0＝无组件，1＝chinaaspupload dim upload_type upload_type=upload dim uploadsuc dim Forumupload dim ranNum dim uploadfiletype dim upload，file，formName，formPath，iCount，file。