易截截图软件、单文件、免安装、纯绿色、仅160KB

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连接access2007注意事项

前几天在自己的笔记本上安装了OFFICE2007。今天做了一个百度友情链接检查的工具, 在连接ACCESS2007数据库的时候,使用的驱动代码为:"provider=microsoft.jet.oledb.4.0;data source="&server.mappath("queryrecord.mdb") 。确发现提示:
Microsoft JET Database Engine 错误 ''80004005''
不可识别的数据库格式
但 ......

asp中判断input标签输入是否为数字

<input name="total" type="text" value="<%=webcounter%>" size="12" onbeforepaste="clipboarddata.setdata('text',clipboarddata.getdata('text').replace(/[^\d]/g,''))"
   onkeydown="subOnKeyDown()"
   onkeyup="value=value.replace(/[^\d]/g,'')"/>
使用后 如果输入为非数字 ......

简单的ASP防刷新图标计数器代码

<%
    dim db
set db=Server.CreateObject("Adodb.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.Mappath("../mdb/count.mdb")
dim strSql,rs,visitNum
strSql="Select visitNum from counter "
SET rs=db.Execute(strSql)
   if session("agai ......

[VB]简单Timer

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 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号