UC知道那个高手可以帮我解释这个ASP代码
来源：百度知道 编辑：UC知道 时间：2024/05/30 05:39:38
Function GetFileName(ByVal strFile)
If strFile <> "" Then
GetFileName = mid(strFile,InStrRev(strFile, "\")+1)
Else
GetFileName = ""
End If
End function
strFileName = Request.Form("file1")
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 ' adTypeBinary
objStream.Open
k=GetFileName(strFileName)
objStream.SaveToFile Server.MapPath(k),2
objStream.Close
Response.Redirect("read.asp?name="&k)
上传图片的代码...小弟看不明白...望高手解释...
If strFile <> "" Then
GetFileName = mid(strFile,InStrRev(strFile, "\")+1)
Else
GetFileName = ""
End If
End function
strFileName = Request.Form("file1")
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 ' adTypeBinary
objStream.Open
k=GetFileName(strFileName)
objStream.SaveToFile Server.MapPath(k),2
objStream.Close
Response.Redirect("read.asp?name="&k)
上传图片的代码...小弟看不明白...望高手解释...
GetFileName方法返回得到图片文件的文件名，并赋给变量K，然后将objStream的内容保存到文件，文件名也是K。至于objStream，它是一个流对象，你可以把它想象成图片文件的具体数据。最后，关闭objStream，并将页面跳转到read.asp
就是上传图片了.很简单的.你是哪一句不明白?可以找一些无组件上传的代码看看.