大家好,我有vb代碼下面,我打電話時,有人點擊鏈接。呼叫功能<a>標籤
Private Sub DownloadFile(ByVal fname As String, ByVal forcedownload As Boolean)
Dim flpth As String
Dim fnm As String
Dim ext As String
Dim tp As String
flpth = System.IO.Path.GetFullPath(Server.MapPath(fname))
fnm = System.IO.Path.GetFileName(flpth)
ext = System.IO.Path.GetExtension(fnm)
tp = ""
If Not IsDBNull(ext) Then
ext = LCase(ext)
End If
Select Case ext
Case ".doc", ".rtf"
tp = "application/msword"
Case ".pdf"
tp = "application/pdf"
Case ".zip"
tp = "application/zip"
End Select
If (forcedownload) Then
Response.Clear()
Response.ClearContent()
Response.ClearHeaders()
Response.ContentType = tp
Response.AppendHeader("Content-Disposition", "attachment; filename=" + fnm + ext)
Response.TransmitFile(flpth)
Response.Flush()
Response.End()
End If
End Sub
我打算在下面的代碼中調用上面的代碼,但它不工作。請任何身體幫助。
<a id="Click" runat="server" href="#" onclick="DownloadFile('files/Notes.doc',True)">Click here</a>
太好了。謝謝 – kami