• ASP计数器设计详解-2

    (三)与页面分离的图象计数器 人们的追求是永无止境的,也许你需要一个更有个性的图形数字计数器,而不是简单的文本数字计数器。没问题,现在我们就来看看用ASP是怎样来实现图形计数器功能的。要实现图形计数器,关键点在于如何实现把计数器文件中的数据值转变为对应...

    2008-02-23 09:27:42

  • ASP计数器设计详解-1

    Active Server Pager(动态服务器主页,简称ASP),通过读写服务器的文件,结合script语言(VBscript或Jscript)和html码可以方便地实现页面计数器功能。现流行的ASP教材和网络上的ASP教程都谈到过ASP计数器的设计问题,但是都过于简单,比如没有提到怎样实现计数器脚本...

    2008-02-23 09:27:40

  • ASP链接MYSQL并读取数据的程序

    % 'ASP链接MYSQL的程序 '需要装MYSQLODBC驱动 下载地址 http://www.mysql.com/downloads/api-myodbc-2.50.html 'E-MAIL:Kaxue@Hotmail.com QQ:484110 HOMEPAGE:www.Flyday.net '整理时间:Thursday, May 23, 2002 5:54 PM WIN2000SERVER IIS5 测式通过 strConnection =...

    2008-02-23 09:27:38

  • 实现网页密码验证的两个基本方法

    我们在访问一些网站时,经常会碰到需要输入“用户名和密码”的网页,用户名和密码的验证给网站的安全带来保障,一般网页的安全设置以目录为单位,通过设置目录的属性可以保证网站的安全,这样的网页是如何制作出来的呢? 下面笔者将介绍在网页设计中密码验证的两种方法...

    2008-02-23 09:27:37

  • 计算文件的下载时间

    % Function DownloadTime(intFileSize, strModemType) Dim TimeInSeconds, ModemSpeed, strDownloadTime, AppendString Dim intYears, intWeeks, intDays Dim intHours, intMinutes, intSeconds intYears = 0 intWeeks = 0 intDays = 0 intHours = 0 intMinutes = 0 in...

    2008-02-23 09:27:38

  • 随机产生用户密码

    说明:通过随机产生密码,然后将密码EMail给注册用户,你可以确认用户的EMail填写是否正确。自动产生的密码往往安全性更高,同时,你可以过滤那些无效的用户。 把下面的代码保存为random.asp文件: % Sub StrRandomize(strSeed) Dim i, nSeed nSeed = CLng(0) For i =...

    2008-02-23 09:27:35

  • 插入Access记录后马上得到自动编号值的方法

    如何插入Access库记录后马上得到自动编号值? 首先须保证获得记录集的方式支持bookmark属性,如1,3。 插入一条带自动编号字段的记录后,获取该记录的bookmark属性值: temp = rs.bookmark 然后: rs.bookmark = temp 试试: Response.write rs.Fields("ID")...

    2008-02-23 09:27:33

  • 利用SMTP和ASP发送CDONTS电子邮件

    IIS中有一个组件CDONTS(Collaboration Data Objects for Windows NT server)可以用来发送邮件。Asp编写程序如下: 1 %@language=vbscript% 2 %option explicit% 3 html 4 head 5 title发邮件/title 6 /head 7 body bgcolor=#ffffff 8 % 9 dim strname,strsubject,str...

    2008-02-23 09:27:32

  • CDONTS.NewMail组件介绍

    CDONTS支持如下的方法: % Set Mymail = CreateObject("CDONTS.NewMail") Mymail.From = *** '信件发送者信箱 Mymail.To = *** ‘信件接收者信箱 Mymail.CC = *** '抄送 Mymail.BCC = *** ’密件发送 Mymail.Subject = *** ‘信件主题 Mymail.Body = *** ’信件正文 '...

    2008-02-23 09:27:31

  • 用CDONTS.NewMail实现发送Email

    % dim cdo set cdo=server.createobject("cdonts.newmail") cdo.From=fromwho "发件人信箱 cdo.To = towho "收件人信箱 cdo.Subject =subject "主题 cdo.Body =body "邮件正文 cdo.MailFormat=0 "说明是以MIME发送 cdo.BodyFormat=0 "可以包含html代码 cdo.Importance=...

    2008-02-23 09:27:31

2