VB代码区：
Imports System.Data.OleDb
Public Class createimg
Inherits System.Web.UI.Page
#Region " Web 窗体设计器生成的代码 "
'该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Protected WithEvents FSize As System.Web.UI.WebControls.Label
Protected WithEvents FName As System.Web.UI.WebControls.Label
Protected WithEvents FDisplay As System.Web.UI.WebControls.Label
Protected WithEvents FDisplay1 As System.Web.UI.WebControls.Label
Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
Protected WithEvents RequiredFieldValidator1 As System.Web.UI.WebControls.RequiredFieldValidator
Protected WithEvents Upload As System.Web.UI.WebControls.Button
Protected WithEvents FileInfo As System.Web.UI.HtmlControls.HtmlGenericControl
Protected WithEvents FileUp As System.Web.UI.HtmlControls.HtmlInputFile
'注意: 以下占位符声明是 Web 窗体设计器所必需的。
'不要删除或移动它。
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub
#End Region
Dim conset As ConfigurationSettings
Dim abc As String = "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & HttpContext.Current.Server.MapPath(conset.AppSettings("connstr"))
Dim cn As New OleDbConnection(abc)
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
End Sub
Sub UploadFile(ByVal sender As Object, ByVal e As EventArgs)
Dim filename As String = DateTime.Now.ToString("yyyyMMddhhmmss")
If FileUp.PostedFile.ContentLength = 0 Then
FileInfo.Visible = False
Exit Sub
Else
FileInfo.Visible = True
FDisplay1.Visible = True
End If
FSize.Text = "上传文件大小" + CStr(FileUp.PostedFile.ContentLength / 1024) + "KB"
FName.Text = "已上传文件名:" + FileUp.PostedFile.FileName + "<br>" + FName.Text
On Error Resume Next
Dim image, anewimage As System.Drawing.Image
Dim width, height, newwidth, newheight As Integer
Dim callb As System.Drawing.Image.GetThumbnailImageAbort
FileUp.PostedFile.SaveAs(Server.MapPath(".") & "/images/" & filename & ".jpg")
'生成缩略图
image = System.Drawing.Image.FromFile(Server.MapPath(".") & "/images/" + filename + ".jpg")
width = image.Width
height = image.Height
'If width > height Then
' newwidth = 250
' newheight = image.Height / image.Width * newwidth
'Else
' newheight = 250
' newwidth = image.Width / image.Height * newheight
'End If
''固定大小
newheight = 200
newwidth = 200
Response.Write("id=" + CStr(ID) + "width=" + CStr(width) + ";height=" + CStr(height) + " ")
Response.Write("newwidth=" + CStr(newwidth) + ";newheight=" + CStr(newheight) + "<br>")
anewimage = image.GetThumbnailImage(newwidth, newheight, callb, New System.IntPtr)
anewimage.Save(Server.MapPath(".") & "/smallpic/" + filename + ".jpg")
image.Dispose()
Dim FileSplit() As String = Split(FileUp.PostedFile.FileName, "\")
Dim FileName1 As String = FileSplit(FileSplit.Length - 1)
Dim Exts() As String = Split(FileName1, ".")
Dim Ext As String = LCase(Exts(Exts.Length - 1))
FDisplay.Text = "<A Target='_blank' HREF='/images/" & filename & ".jpg" & "'>查看上传文件</A>"
FDisplay1.Text = "<a href='/picture/default.asp?bj=" & CStr(Request.Cookies("dgxyl").Values("dgxylbj")) & "'>返回</a>"
End Sub
End Class
#######################################
切换到HTML代码区
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebForm3.aspx.vb" Inherits="eweb.createimg"%>
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebForm3.aspx.vb" Inherits="eweb.createimg"%>
<HTML>
<HEAD>
<SCRIPT language="javascript">
<!--
var requestsubmitted=false;
function guestbook_Validator(theForm)
{
file://检查是否从新提交
if (requestsubmitted==true){
alert("你已经提交了留言，请等待服务器应答！");
return(false);
}
requestsubmitted=true;
return (true);
}
file://-->
</SCRIPT>
</HEAD>
<BODY bgColor="white">
<H3 align="center">请正确填写下面各项</H3>
<Hr>
<H3></H3>
<Div id="FileInfo" runat="server">
<Asp:Label id="FSize" runat="server" /><br>
<Asp:Label id="FName" runat="server" /><br>
<Asp:Label id="FDisplay" runat="server" />
<Asp:Label id="FDisplay1" runat="server" />
</Div>
<Form Enctype="multipart/form-data" onsubmit="return guestbook_Validator(this)" runat="server"
ID="Form1">
上传文件 <Input Type="file" id="FileUp" runat="server" size="20" NAME="FileUp"><br>
图片属性：<input type="radio" name="R1" checked>本班<input type="radio" value="全" name="R1" >
全校(本班则只在本班显示，全校则在全校显示)<br>
图片说明：<br>
<asp:TextBox id="TextBox1" runat="server" Width="233px" Height="141px"></asp:TextBox>
<asp:RequiredFieldValidator id="RequiredFieldValidator1" runat="server" ControlToValidate="TextBox1" ErrorMessage="请输入图片说明"></asp:RequiredFieldValidator><br>
<Asp:button id="Upload" onClick="UploadFile" Text="上传图片" runat="server" />
</Form>
<Hr>
<p>注意：</p>
<ol>
<li>
<b>严禁上传污染环境的照片，否则账号将被删除！</b>
<li>
<font color="#808000"><b>请详细填写照片说明，图片说明不详细将会被视为乱传图片，将会被删除！</b></font>
</li>
</ol>
</BODY>
</HTML>
浙公网安备 33010602011771号