|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
Access是一种桌面数据库,只适合数据量少的应用,在处理少量数据和单机访问的数据库时是很好的,效率也很高。但是它的同时访问客户端不能多于4个。access数据库有一定的极限,如果数据达到100M左右,很容易造成服务器iis假死,或者消耗掉服务器的内存导致服务器崩溃。上传|上传图片|缩略图Subupimages()
DiminameAsString
IfNot(fileup.PostedFileIsNothing)Then
Dimnamestr1AsString=(fileup.PostedFile.FileName)
IfLCase(fileup.PostedFile.ContentType.ToString())="image/pjpeg"OrLCase(fileup.PostedFile.ContentType.ToString())="image/jpg"Then
DimjAsInteger=namestr1.LastIndexOf(".")
DimnewnameAsString=namestr1.Substring(j)D片失掉後z名
iname=CStr(Now.ToFileTimeUtc)SC的文件名(不)
DimnewnamesAsString=iname+newname从头M合文件名
DimiAsInteger=namestr1.LastIndexOf("")+1
DimnamestrAsString=namestr1.Substring(i)
fileup.PostedFile.SaveAs(Server.MapPath(imagelocal)+""+newnames)保留文件到imagelocal文件A
天生s略D()
Dimimage,sImageAsSystem.Drawing.Image
image=System.Drawing.Image.FromStream(fileup.PostedFile.InputStream)失掉原始图片
DimwidthAsDecimal=image.Width过且过失掉原始图片的宽
DimheightAsDecimal=image.Height失掉原始图片的高
Dimnewwidth,newheightAsInteger
设置缩略图的高和宽
If(width>height)Then
newwidth=150
newheight=CInt(height/width*150)
Else
newheight=150
newwidth=CInt(width/height*150)
EndIf
sImage=image.GetThumbnailImage(newwidth,newheight,Nothing,IntPtr.Zero)
DimxAsInteger=sImage.Width/2-30
DimyAsInteger=sImage.Height-20
DimoutputAsBitmap=NewBitmap(sImage)
DimgAsGraphics=Graphics.FromImage(output)
os略D加上版嘈畔()
DimfontsAsNewFont("CourierNew",9)
g.DrawString("版嘈畔",fonts,NewSolidBrush(Color.Red),x,y)
output.Save(Server.MapPath("Simagelocal")+"s_"+newnames,System.Drawing.Imaging.ImageFormat.Jpeg)
保留s略D到Simagelocal文件A
Image1.Visible=true;
Image1.ImageUrl="Simagelocal"+"s_"+newnames
Else
Label1.Text="xjpg型的D片"
EndIf
EndIf
EndSub
</p>由于ASP提供的是一对多的服务,所以用户的一些特殊需求很难得到满足。 |
|