<%@Import Namespace =Namespace="System.Data"%> <%''''@Import Namespace="System.Data.OleDb"%> <!--Access数据库用这个--> <%@Import Namespace =Namespace="System.Data.SqlClient"%> <!--SQL Server数据库用这个--> <script language="VB" runat="server"> Sub UploadFile()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 ) ''''把文件路径写入数据库 By Dicky 2005-7-12 9:26:29 '''' Access数据库用这个 '''' 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) '''' Access数据库用这个 '''' SQL Server数据库用这个 Dim objCommand As SqlCommand Dim objConnection As SqlConnection objConnection = New SqlConnection("Server=localhost;Uid=sa;Pwd=;Database=Shat_edg") objCommand = New SqlCommand("Insert Into Upload (FilePath) Values (''''Upload/"+FileName+"'''')" , objConnection) '''' SQL Server数据库用这个 objConnection.Open() objCommand.ExecuteNonQuery() objConnection.Close() ''''把文件路径写入数据库 By Dicky 2005-7-12 9:26:29 Dim Exts() As String = Split( FileName, "." ) Dim Ext As String = LCase(Exts(Exts.L
<%@Import Namespace =Namespace="System.Data"%>
<%''''@Import Namespace="System.Data.OleDb"%> <!--Access数据库用这个-->
<%@Import Namespace =Namespace="System.Data.SqlClient"%> <!--SQL Server数据库用这个-->
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
