Mar
9
文件名:Download.asp
<%
Dim Stream
Dim Contents
Dim FileName
Dim FileExt
Const adTypeBinary = 1
FileName = Request.QueryString("FileName")
if FileName = "" Then
Response.Write "无效文件名."
<%
Dim Stream
Dim Contents
Dim FileName
Dim FileExt
Const adTypeBinary = 1
FileName = Request.QueryString("FileName")
if FileName = "" Then
Response.Write "无效文件名."
Mar
9
在网上有无数的 DATE PICKER，我也不能说哪个好，那个不好。我就觉得这个用得顺手些，也用了很久了，很方便的说。
你可以在 http://dynarch.com/mishoo/calendar.epl 下载它。
如果你已经下载，而且已经用上了，看了帮助文件，没有什么问题了，那不用看下文了，因为它只是一些个人使用收获。
在一个表单中支持多个文本框的日期输入：
在<head></head>插入下面的代码：
<link rel="stylesheet"
Mar
9
如何开启程序当中要用的FSO功能
windows98系统
在DOS命令行状态输入以下命令：
关闭命令：RegSvr32 /u C:\WINDOWS\SYSTEM\scrrun.dll
打开命令：RegSvr32 C:\WINDOWS\SYSTEM\scrrun.dll
win2000系统：
在CMD命令行状态输入以下命令：
关闭命令：RegSvr32 /u C:\WINNT\SYSTEM32\scrrun.dll
打开命令：R
windows98系统
在DOS命令行状态输入以下命令：
关闭命令：RegSvr32 /u C:\WINDOWS\SYSTEM\scrrun.dll
打开命令：RegSvr32 C:\WINDOWS\SYSTEM\scrrun.dll
win2000系统：
在CMD命令行状态输入以下命令：
关闭命令：RegSvr32 /u C:\WINNT\SYSTEM32\scrrun.dll
打开命令：R
Mar
9
使用the Request object方法
strBrowser=Request.ServerVariables("HTTP_USER_AGENT")
If Instr(strBrowser,"MSIE") ＜＞ 0 Then
Response.redirect("ForMSIEOnly.htm")
Else
Response.redirect("ForAll.htm")
End If
strBrowser=Request.ServerVariables("HTTP_USER_AGENT")
If Instr(strBrowser,"MSIE") ＜＞ 0 Then
Response.redirect("ForMSIEOnly.htm")
Else
Response.redirect("ForAll.htm")
End If
Mar
9
使用类来进行模块化
写在前面的话：
所有写程序的人都知道，当你逐渐对您要实现的功能展开的时候，很大的时候，第一天写的东西第二天就忘了写到那里了，很多的时候，不得不写上详细的程序开发笔记，这在ASP的系统开发中感觉尤其文件、函数复杂的时候，当我们打算对网站的一部分功能进行修改的时候，感觉无从下手或者感觉要修改的地方。这时候，如果您学过任何一门面向对象的编程的语言的话，自然想到怎么能把代码功能实现模块话，asp本质上不是面向对象的编程，但VBSCRPIT6.0提供了类，我们可以通过类实现代码的封装，实现模块话。
首先，我要在这里写上一些很官方的
写在前面的话：
所有写程序的人都知道，当你逐渐对您要实现的功能展开的时候，很大的时候，第一天写的东西第二天就忘了写到那里了，很多的时候，不得不写上详细的程序开发笔记，这在ASP的系统开发中感觉尤其文件、函数复杂的时候，当我们打算对网站的一部分功能进行修改的时候，感觉无从下手或者感觉要修改的地方。这时候，如果您学过任何一门面向对象的编程的语言的话，自然想到怎么能把代码功能实现模块话，asp本质上不是面向对象的编程，但VBSCRPIT6.0提供了类，我们可以通过类实现代码的封装，实现模块话。
首先，我要在这里写上一些很官方的
Mar
9
1、数据库连接。
ASP与Access数据库连接：
<%@ language=VBscript%>
<%
dim conn,mdbfile
mdbfile=server.mappath("数据库名称.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile <br/
ASP与Access数据库连接：
<%@ language=VBscript%>
<%
dim conn,mdbfile
mdbfile=server.mappath("数据库名称.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile <br/
Mar
9
无论你相不相信，通过 asp，可能可以很方便地入侵 web server、窃取服务器上的文件、捕获 web 数据库等系统的用户口令，甚至恶意删除服务器上的的文件，直至造成系统损坏，这些都决非耸人听闻，而且都确确实实发生过，本文将向你一一揭示这些 asp 存在的漏洞，并提出一些防范意见。
上一篇中给大家着重谈了“ADO 存取数据库时如何分页显示”的问题，有位朋友来信给我指出我在计算页面总数时忽略了 Recordset 对象的一个重要参数“PageCount”，它能在给 Pagesize 赋值后自动得出页面的总数，而无须用“INT(RS.r
上一篇中给大家着重谈了“ADO 存取数据库时如何分页显示”的问题，有位朋友来信给我指出我在计算页面总数时忽略了 Recordset 对象的一个重要参数“PageCount”，它能在给 Pagesize 赋值后自动得出页面的总数，而无须用“INT(RS.r
Mar
9
测试电脑上所有盘信息的源码
主要检测信息：SYSINFO v1.0.0.0
Server Name: localhost:80 Local Addr: 127.0.0.1 Remote Addr: 127.0.0.1:4614
DriveLetter(盘符): C
DriveType(盘符型号): 2 (Local Drive)
IsReady(是否准备): True
FileSystem(文件系统格式): FAT32
SerialNumber(序列号): -16617973
主要检测信息：SYSINFO v1.0.0.0
Server Name: localhost:80 Local Addr: 127.0.0.1 Remote Addr: 127.0.0.1:4614
DriveLetter(盘符): C
DriveType(盘符型号): 2 (Local Drive)
IsReady(是否准备): True
FileSystem(文件系统格式): FAT32
SerialNumber(序列号): -16617973
