![](https://img-blog.csdnimg.cn/20201014180756928.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Asp
文章平均质量分 71
tao19801112
这个作者很懒,什么都没留下…
展开
-
FSO常用代码(删除、写、拷贝文件的Function)
-----------------删除文件------------------- |e.g.| Call Generic_FileDeletion(File path REQUIRED)| Call Generic_FileDeletion("myfile.txt")| Call Generic_FileDeletion("win95/myfile.txt原创 2004-10-10 18:36:00 · 821 阅读 · 0 评论 -
checkbox全选
checkbox全选var checkflag = "false";function check(field) {if (checkflag == "false") {for (i = 0; i field[i].checked = true;}checkflag = "true";return "false"; }else {for (i = 0; i field[i].checked原创 2004-11-16 21:05:00 · 1033 阅读 · 0 评论 -
按比例缩小图片(无组件)
Class possible dim aso Private Sub Class_Initialize set aso=CreateObject("Adodb.Stream") aso.Mode=3 aso.Type=1 aso.Open End Sub Private Sub Class_Terminate set aso=nothing End Sub Private Fu原创 2004-11-01 11:46:00 · 828 阅读 · 3 评论 -
计算文件下载时间
Function DownloadTime(intFileSize, strModemType) Dim TimeInSeconds, ModemSpeed, strDownloadTime, AppendString Dim intYears, intWeeks, intDays Dim intHours, intMinutes, intSeconds intYears = 0 intWeeks原创 2004-11-01 11:47:00 · 716 阅读 · 0 评论 -
无组件上传类的源代码
定义全局变量保存用户上传的内容dim strmUpload自定义class处理上传文件Class FileUpload dim Form,File Private Sub Class_Initialize dim iStart,iFileNameStart,iFileNameEnd,iEnd,vbEnter,iFormStart,iFormEnd,theFile dim strDiv原创 2004-11-01 11:42:00 · 677 阅读 · 0 评论 -
一个取图片尺寸的类,支持jpg,gif,png
Option ExplicitPublic WImg As LongPublic HImg As LongPublic Type ImageSizeWidth As LongHeight As LongEnd TypePublic Sub GetImageSize(sFileName As String)On Error Resume Next youll want to change t原创 2004-10-29 06:54:00 · 696 阅读 · 0 评论 -
图片验证系统
Response.Buffer = TrueWith Response.Expires = -1.AddHeader "Pragma","no-cache".AddHeader "cache-ctrol","no-cache"End WithDim a(10,10)a(0,1) = "0x3c" 数字0a(0,2) = "0x66"a(0,3) = "0xc3"a(0,4) = "0xc3"原创 2004-10-26 19:39:00 · 969 阅读 · 0 评论 -
经典的asp整理
1、关闭窗口在图片的连接上写javascript:window.close(); 提交的图片连接写javascript:document.Form1.submit(); 删除之前出现确认对话框: " ONCLICK="javascript:return confirm(真的要删除数据吗?)">删除2、用VBScript弹出提示框然后跳转到指定页面 Response.Write "alert原创 2004-10-13 10:33:00 · 1018 阅读 · 0 评论 -
正则表达式在网络编程中的运用
[前言:]在我们编写WEB程序时,经常会判断一个字符串的有效性,如;一个串是否是数字、是否是有效的Email地址等等。如果不使用正则表达式,那么判断的程序会很长,并且容易出错,如果使用正则表达式,这些判断就是一件很轻松的工作了。本文全面介绍正则表达式的慨念、格式。并以在PHP、ASP中的应用实例增加读者的感性认识。正则表达式的应用很广,需要大家在学习和实践中不断的总结。 正则表达式简介原创 2004-10-10 18:45:00 · 631 阅读 · 0 评论 -
MD5 源文件
Private Const BITS_TO_A_BYTE = 8Private Const BYTES_TO_A_WORD = 4Private Const BITS_TO_A_WORD = 32Private m_lOnBits(30)Private m_l2Power(30)Private Function LShift(lValue, iShiftBits)If iShiftBits = 0原创 2004-10-10 18:44:00 · 690 阅读 · 0 评论 -
6行代码实现无组件上传
目前有很多无组件上传类,我大概看了一下,大多写的相当复杂,有的居然还只能传文本最关键的是没有10行代码以下的 :)我花了一个晚上时间研究了一下ADODB.Stream,并且用了6行代码实现了无组件上传:strFileName = Request.QueryString("file1")Set objStream = Server.CreateObject("ADODB.Stream")objStr原创 2004-10-10 18:42:00 · 527 阅读 · 0 评论 -
Asp正则表达式在UBB论坛中的应用
一、读者指引 读者指引帮助你掌握本文的梗概。以免你看了大半才明白这编文章不适合你,给你造成视觉污染。 如果你正在用ASP写程序,或者你正在写一些诸如BBS、留言溥或表单数据检查之类的东东那就值得一看。 如果你对正则表达式已经了如指掌,那么你不必一行行的看,只要看看我写的模板,再比较一下,取其精华就行了。 如果你还是第一次接触正则表达式,那么你最好一行行的看,并逐条试验 当你熟练的掌握了正原创 2004-10-10 18:38:00 · 557 阅读 · 0 评论 -
用FSO获得图片文件的信息(大小,宽,高)
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: BMP, GIF, JPG and PNG ::::::::::::::::::::::::::原创 2004-10-10 18:35:00 · 470 阅读 · 0 评论 -
asp分页
asp分页 +日记 +心情日记 日期 标题 保密原创 2004-11-16 21:06:00 · 853 阅读 · 0 评论