十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
Dim strPath As String = Server.MapPath("xxx/xxx.xxx") '这里是你的文件路径以及名称后缀名,使用相对路径即可,不过记得路径最好是英文,用中文是否连接不到我就不知道了,记得是"/"哦! Page.Response.Clear() Page.Response.AddHeader("Content-Type", "text/xml") Page.Response.AddHeader("Content-Disposition", "attachment;filename=") Page.Response.WriteFile(strPath) Page.Response.End() 路径的话你可以使用变量的 所以这样一来需要下载的文件就会相当灵活 顺便附送一个删除文件的方法 System.IO.File.Delete(Server.MapPath("xxx/xxx.xxx")) 不过删除文件跟写文件是一样的 需要WEB服务器开启可写功能!、 好用的话记得给分哦 嘿嘿!
网站建设公司,为您提供网站建设,网站制作,网页设计及定制网站建设服务,专注于企业网站建设,高端网页制作,对成都假山制作等多个行业拥有丰富的网站建设经验的网站建设公司。专业网站设计,网站优化推广哪家好,专业成都网站推广优化,H5建站,响应式网站。
imports System.IO
读取指定文件
'
'读取指定文本文件
Public Function readtext(ByVal path As String)
If path = "" Then
readtext = "操作失败!"
Exit Function
End If
Try
If File.Exists(path) = True Then
Dim fs As New FileStream(path, FileMode.Open)
Dim sr As New StreamReader(fs)
Dim str As String
str = sr.ReadToEnd.ToString
sr.Close()
fs.Close()
readtext = str
Else
readtext = "操作失败!"
End If
Catch ex As Exception
readtext = "操作失败!"
End Try
End Function
'向指定文件写入数据
Public Function writetext(ByVal path As String, ByVal opi As Integer, ByVal msg As String)
If path = "" Then
writetext = "操作失败!"
Exit Function
End If
Dim op As FileMode
Select Case opi
Case 1
op = FileMode.Append
Case 2
op = FileMode.Create
Case Else
op = FileMode.Create
End Select
Try
If File.Exists(path) = True Then
Dim fs As New FileStream(path, op)
Dim sr As New StreamWriter(fs)
sr.WriteLine(msg)
sr.Close()
fs.Close()
writetext = "操作完成!"
Else
writetext = "操作失败!"
End If
Catch ex As Exception
writetext = "操作失败!"
End Try
End Function
参考这个吧
'
'vb.net源代码来自
'
用webBrowser可以设置代理IP吗?
如果用webBrowser查看wap网页的源文件,那代码应该怎么写啊
Cookie丢了
登陆的时候,把CookieContainer保存下来,可以设置一个全局变量,然后再getBody的时候,
request.Cookiecontainer设置为这个CookieContainer即可
Dim CtrlRange As Object
On Error Resume Next
Do
Err.Clear()
CtrlRange = Ie.Document.Body.DomElement.createControlRange()
CtrlRange.Add(Ie.Document.DomDocument.GetElementById("verifypic"))
CtrlRange.execCommand("Copy") '获取验证码
If Clipboard.ContainsData(DataFormats.Bitmap) Then
PictureBox1.Image = Clipboard.GetData(DataFormats.Bitmap) '在Picture1控件上显示
End If
If Err.Number 0 Then WaitingMS(100) ‘延时
Loop While Err.Number 0
以前找的 vbnet里也可以用
没有比这个更简单的了
Richtextbox1.text = Regex.Replace(Richtextbox1.text, " (\/\s*)?((\w+:)?\w+)(\w+(\s*=\s*(([ " " '])(\\[ " " ' 'tbnr]|[^\7])*?\7|\w+)|.{0})|\s)*?(\/\s*)? ", String.Empty)