If loFile.Value = "" Then Exit Sub
Dim lstrFileName As String
Dim lstrFileNamePath As String
Dim lstrFileFolder As String
Dim fywname As String
' 如果上传目录为空,就使用" c:\ "作为缺省上传目录
' 获得上传到服务器的目录名称
lstrFileFolder = "c:\"
'lstrFileFolder="e:\"
Dim upto As String = uploadto.SelectedItem.Value
lstrFileFolder = Server.MapPath(upto)