1,图片上传功能 aspx:
<FrameWorkWebControls:HeadMenuButtonItem ButtonName="@保存" ButtonPopedom="Edit" ButtonUrlType="JavaScript"
ButtonVisible="True" ButtonUrl="SaveItem();" />
..
..
..
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td>
<dx:ASPxImage ID="imgU_PhotoUrl" runat="server" ClientInstanceName="imgU_PhotoUrl"
ToolTip="点击查看原图" Cursor="pointer" Height="16" Width="16">
<ClientSideEvents Click="function(s,e){
window.open(imgU_PhotoUrl.GetImageUrl());
}" />
</dx:ASPxImage>
</td>
</tr>
<tr>
<td>
<dx:ASPxUploadControl ID="uplImage" runat="server" ClientInstanceName="uploader"
Size="15" BrowseButton-Text="浏览" Width="86%">
<ClientSideEvents FileUploadComplete="function(s, e) {Uploader_OnUploadComplete(e); }" />
<ValidationSettings AllowedFileExtensions=".jpeg,.gif,.pjpeg,.bmp"
GeneralErrorText="请确保图片文件格式正确!" MaxFileSize="1224000" MaxFileSizeErrorText="图片超过允许大小1M!"
NotAllowedFileExtensionErrorText="只能上传图片,其格式包括(.jpeg,.gif,.pjpeg,.bmp)!">
</ValidationSettings>
</dx:ASPxUploadControl>
</td>
</tr>
</table>
JS:
//上传完图片后调用保存按钮
function Uploader_OnUploadComplete(args) {
if (args.isValid) {
cbSave.PerformCallback();
}
}
//保存记录
function SaveItem() {
//验证必填项
if (ASPxClientEdit.ValidateEditorsInContainerById("tblMain")) {
//上传完图片后调用保存按钮
if (uploader.GetText() != '') {
uploader.UploadFile();
}
else {
//执行保存过程
cbSave.PerformCallback();
}
}
else {
alert("输入有误,无法保存,请根据提示信息填写完整!");
}
}
aspx.cs:
Protected Sub uplImage_FileUploadComplete(ByVal sender As Object, ByVal e As FileUploadCompleteEventArgs) Handles uplImage.FileUploadCompleteDim uploadedFile As UploadedFile = e.UploadedFile
If uploadedFile.IsValid Then
Dim fileInfo As New FileInfo(uploadedFile.FileName)
Dim fName As String = fileInfo.Name.Substring(0, fileInfo.Name.Length - 4)
Dim fileType As String = fileInfo.Extension
fileName = fName + "_" + Now.ToShortTimeString.Replace(":", "") + Now.Millisecond.ToString + fileType
Dim fullName As String = basePath + "\" + fileName
If Not Directory.Exists(basePath) Then
Directory.CreateDirectory(basePath)
End If
uploadedFile.SaveAs(fullName)
End If
End Sub