幫心找一下錯誤!!!!(页 1) - ASP.NET技术论坛

xunmi_love 发表于 2008-6-26 17:44

幫心找一下錯誤!!!!

<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="big5" %>
<[email=%@Import]%@Import[/email] Namespace =Namespace="System.Data"%>
<[email=%@Import]%@Import[/email] Namespace="System.Data.OleDb"%>
<script runat="server">
Sub UploadFile(sender As Object, e As EventArgs)
Dim FileExt
FileExt = LCase(Right(Trim(FileUp.Value),3))
If FileExt = "gif" Or FileExt = "jpg" Or FileExt = "bmp" Or FileExt = "png" Or FileExt = "tif" Or LCase(Right(Trim(FileUp.Value),4)) = "jpeg" Then
      If FileUp.PostedFile.ContentLength = 0 Then
      FileInfo.Visible = False
      Exit Sub
      Else
      FileInfo.Visible = True
      End If
      FSize.Text = CStr(FileUp.PostedFile.ContentLength)
      FName.Text = FileUp.PostedFile.FileName
      Dim FileSplit() As String = Split( FileUp.PostedFile.FileName, "/" )
      Dim FileName As String = FileSplit(FileSplit.Length-1)
      FileUp.PostedFile.SaveAs( Server.MapPath(".") & "/Upload/" & FileName )
      Dim objCommand As OleDbCommand
      Dim objConnection As OleDbConnection
      objConnection = New OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source="+Server.MapPath("Upload.mdb"))
      objCommand = New OleDbCommand("Insert Into Upload (FilePath) Values ('Upload/"+FileName+"')" , objConnection)
      Dim Exts() As String = Split( FileName, "." )
      Dim Ext As String = LCase(Exts(Exts.Length-1))
      If Ext <> "jpg" And Ext <> "jpeg" And Ext <> "gif" And Ext <> "txt" And Ext <> "htm" And Ext <> "html" Then
      FDisplay.Visible = False
      Else
      FDisplay.Text = "<A Target='_blank' HREF='Upload/" & _
      FileName & "'>上传文件</A>"
      End If
      Response.Write("上传成功！")
Else
'       Msgbox("对不起，只能上传扩展名为gif、jpg、bmp、png、tif或jpeg等图片文件！",65,"a")
      Response.Write("对不起，只能上传扩展名为gif、jpg、bmp、png、tif或jpeg等图片文件！")
End If
End Sub
</script>
<Html>
<head>
<title>文件上传</title>
</head>
<Body BgColor=White>
<H3>上传文件<Hr></H3>
<Form Name="Form1" Enctype="multipart/form-data" runat="server">
上传文件
<Input Type="File" id="FileUp" runat="server"><P>
<Asp:button id="Upload" Text="Upload"
runat="server"/>
</form><Hr>
<Div id="FileInfo" Visible="False" runat="server">
上传文件名 <Asp:Label id="FName" runat="server"/><br>
上传文件大小 <Asp:Label id="FSize" runat="server"/><br>
<Asp:Label id="FDisplay" runat="server"/>
</Div>
</Body>
</Html>

[i]編譯錯誤[/i] [font=Arial, Helvetica, Geneva, SunSans-Regular, sans-serif][b]描述: [/b]資源編譯無法完成 (錯誤發生於服務要求)。請檢閱下列的特定錯誤詳細資料，並視情況修改您的原始程式碼。

[b]編譯器錯誤訊息: [/b]BC30183: 關鍵字做為識別項無效。

[b]原始程式錯誤:[/b]

[table=98%,#ffffcc][tr][td][/td][/tr][tr][td][沒有相關的原始程式碼][/td][/tr][/table]
[b][font=Verdana]原始程式檔:[/font][/b] C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\67a5b378\2db99554\App_Web_uploadfile.aspx.cdcab7d2.tauisay6.0.vb [b][font=Verdana]行:[/font][/b] 15 [/font]

tomtory 发表于 2008-6-26 17:49

晕晕 VB语言的好像是

贝蕾发表于 2008-6-26 18:58

看vb的代码头疼

twtdd 发表于 2008-6-27 14:54

用这个比较简单

<HTML>
<HEAD>
<Title>刘友生应用程序集--单文件上传</Title><Script Language="VB" Runat="Server">
Sub FileUpload(sender As Object, e As Eventargs)
If myFile.PostedFile.ContentLength = 0 Then
Result.Text = "<Font Color='Red'>上传失败或指定的文件不存在。</Font><Hr>"
FileInfo.Visible = False
Else
Dim Route() As String = Split(myFile.PostedFile.FileName, "\")
Dim FileName As String = Route(Route.Length - 1)
myFile.PostedFile.SaveAs(Server.MapPath(".") & "\TempFile\" & FileName)
FileInfo.Visible = True
Result.Text = "<Font Color='Red'><B>文件上传成功！</B></Font>"
FName.Text = FileName
FSize.Text = Math.Round(myFile.PostedFile.ContentLength / 1024, 2) & "KB"
FType.Text = myFile.PostedFile.ContentType
End If
End Sub
</Script>
</HEAD>
<Body BgColor="#fff2cc">
<Center><H3><Font>文件上传</Font></H3>
</Center>
<Form Runat="Server" Enctype="multipart/form-data" ID="Form1">
<Center>
选择上传文件： <Input Type="file" Runat="Server" Id="myFile" Size="36" NAME="myFile"><Br>
<Br>
<Asp:Button Runat="Server" Text="上传文件" OnClick="FileUpload" ID="Button1" />
<Input Type="reset" Value="重新设置">
<Hr Size="1" Color="green">
<Asp:Label Runat="Server" Id="Result" />
</Center>
</Form>
<Asp:Panel Runat="Server" Id="FileInfo" Visible="False" Height="40px">
你的文件将上传在服务器当前文件夹下的TempFile夹下<BR>文件名称：
<Asp:Label id="FName" Runat="Server"></Asp:Label><BR>文件大小：
<Asp:Label id="FSize" Runat="Server"></Asp:Label><BR>文件类型：
<Asp:Label id="FType" Runat="Server"></Asp:Label><BR>
</Asp:Panel>
</Body>
</HTML>

雪雨星风 发表于 2008-6-27 17:59

[em14]

页: [1]