ASP VB.NET 下载服务器文件到客户端
Try
Dim Path As String = Server.MapPath("~/Download/") '文件路径
Path = Path & "file.txt" '文件的名称
If Not System.IO.File.Exists(Path) Then
‘如果文件不存在
Exit Sub
Else
Response.ContentType = "application/x-zip-compressed"
Response.AddHeader("Content-Disposition", "attachment;filename=" + Server.UrlPathEncode(Path))
Response.TransmitFile(Path)
End If
Catch ex As Exception
'文件下载失败！
End Try
相关文档：
ASP的DES加密解密
2007-05-18 09:49
原文：http://hi.baidu.com/myfav/blog/item/3ebc58828edd79a30cf4d290.html
前两天学到对称密码DES算法，然后就自己亲手写了个实现程序出来，好多地方用得着呐。这里是用ASP实现，当然也就是可以移到VB啦。懂得怎样写后写成什么语言都行啦，只要懂得那门语言。如果有朋友想知道具体D ......
新建立一个ASP文件 把 以下代码复制进去
<%
ip=request.ServerVariables("REMOTE_ADDR") '获取来访的IP地址
dim conn
set conn=server.CreateObject("ADODB.connection")
conn.open "Dbq="&server.MapPath("yb/dat/data.mdb")&";Driver={Microsoft Access Driver (*.mdb)}" '建立数据库连接 这里你� ......
VBS里，超出Integer类型的取值范围，该类型的取值范围为-32,768 到 32,767 之间的整数。
出错的根源：
在ASP里，有时候为了仿止注入，所以在接收参数的时候直接使用Cint函数把接过来的参数转换为Integer（数字）类型，这就存在一个潜在问题，当页面接收的某个参数（Request("xxx")）超过取值范围时（可简单理解为5位数字� ......
1. 在VB的Form设计时，加入一个picturebox控件，这个控件作为OLE容器，MapInfo中的地图将在该控件上显示。
2. 执行VB的函数Createobject(“MapInfo.Application”),启动MapInfo。这时MapInfo在后台启动，对用户来说不可见，不会弹出sp ......
Public Class Form1
Dim x As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
x = 1
Timer1.Interval = 1000
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e ......
