J
John
Dear,
We have 2 IIS server on win2000. we use the web server for upload file from
server1 IIS to server2 IIS. We can connect from IIS1 to IIS2 success but the
file unable to upload with below message. Would u help?
If FileUpload_TXT.PostedFile.ContentLength = 0 Then
Panel_FileInfo.Visible = False
Exit Sub
Else
Panel_FileInfo.Visible = True
str_UploadFilePath = GetUploadPath()
FileName_LAB.Text = FileUpload_TXT.PostedFile.FileName
FileSize_LAB.Text = CStr(FileUpload_TXT.PostedFile.ContentLength)
FileType_LAB.Text = FileUpload_TXT.PostedFile.ContentType
Dim str_Filename As String = GetUploadPath()
Dim FileSplit() As String =
Split(FileUpload_TXT.PostedFile.FileName, "\")
Dim FileName As String = FileSplit(FileSplit.Length - 1)
str_FilePathName = str_UploadFilePath + FileName
Dim str_xmlSpName As String
str_xmlSpName = Request.QueryString("str_SpName")
Response.Write("BEFORE - " & str_FilePathName & "<BR>" & "<BR>")
Response.Write("<a href=" & str_FilePathName & ">Name</a>)<BR>")
Response.Write("<a href=" & str_UploadFilePath & ">Path</a>)<BR>")
FileUpload_TXT.PostedFile.SaveAs(str_FilePathName)
<--------------------- Cant not upload file to destination location .
Response.Write("END ---- " & str_FilePathName & "<BR>")
If File.Exists(str_FilePathName) Then
If Request.QueryString("str_BtnKey") = "XLS" Then
Read_XLS(str_xmlSpName)
Message_LAB.Text = "æˆ åŠŸ 上 載 檔 案 。"
Else
'-- Read Xml data
Read_XML(str_xmlSpName, str_FilePathName)
End If
Else
Panel_FileInfo.Visible = False
Message_LAB.Text = "上 載 檔 案 失 敗, è«‹ é‡ å¾© 嘗 試。"
End If
End If
ManyThanks
We have 2 IIS server on win2000. we use the web server for upload file from
server1 IIS to server2 IIS. We can connect from IIS1 to IIS2 success but the
file unable to upload with below message. Would u help?
If FileUpload_TXT.PostedFile.ContentLength = 0 Then
Panel_FileInfo.Visible = False
Exit Sub
Else
Panel_FileInfo.Visible = True
str_UploadFilePath = GetUploadPath()
FileName_LAB.Text = FileUpload_TXT.PostedFile.FileName
FileSize_LAB.Text = CStr(FileUpload_TXT.PostedFile.ContentLength)
FileType_LAB.Text = FileUpload_TXT.PostedFile.ContentType
Dim str_Filename As String = GetUploadPath()
Dim FileSplit() As String =
Split(FileUpload_TXT.PostedFile.FileName, "\")
Dim FileName As String = FileSplit(FileSplit.Length - 1)
str_FilePathName = str_UploadFilePath + FileName
Dim str_xmlSpName As String
str_xmlSpName = Request.QueryString("str_SpName")
Response.Write("BEFORE - " & str_FilePathName & "<BR>" & "<BR>")
Response.Write("<a href=" & str_FilePathName & ">Name</a>)<BR>")
Response.Write("<a href=" & str_UploadFilePath & ">Path</a>)<BR>")
FileUpload_TXT.PostedFile.SaveAs(str_FilePathName)
<--------------------- Cant not upload file to destination location .
Response.Write("END ---- " & str_FilePathName & "<BR>")
If File.Exists(str_FilePathName) Then
If Request.QueryString("str_BtnKey") = "XLS" Then
Read_XLS(str_xmlSpName)
Message_LAB.Text = "æˆ åŠŸ 上 載 檔 案 。"
Else
'-- Read Xml data
Read_XML(str_xmlSpName, str_FilePathName)
End If
Else
Panel_FileInfo.Visible = False
Message_LAB.Text = "上 載 檔 案 失 敗, è«‹ é‡ å¾© 嘗 試。"
End If
End If
ManyThanks