if isobject(rs) Then Set Rs = Nothing            '如果rs是连接数据库变量，则清除
    if Cls.isconn then                    '如果数据库仍保持连接，则关闭数据库，同时清除conn变量
        Conn.Close
        Set Conn = Nothing
    End If

查看更多...

页面执行时间：就是从这页的开始执行一直到这页执行完毕所用的时间。

许多网站的首页的页尾都会显示一个页面执行时间，下面说说如何实现：

首先在一个网页的开头定义一个变量：

dim startime

查看更多...

Class Cls_Cache
Rem ==================使用说明====================
Rem = 本类模块是动网先锋原创，作者：迷城浪子。如采用本类模块，请不要去掉这个说明。这段注释不会影响执行的速度。
Rem = 作用：缓存和缓存管理类
Rem = 公有变量：Reloadtime 过期时间（单位为分钟）缺省值为14400
Rem = MaxCount 缓存对象的最大值，超过则自动删除使用次数少的对象。缺省值为300
Rem = CacheName 缓存组的总名称，缺省值为"Dvbbs",如果一个站点中有超过一个缓存组，则需要外部改变这个值。

查看更多...

1、为图片制作缩略图

<% ' 建立实例
Dim Jpeg,Path
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' 图片所在位置
Path = Server.MapPath("images") & "\clock.jpg"

查看更多...

Body : String(v3.0)
信件体，正文，使用AppendText追加内容
如：JMail.Body = "Hello world"

Charset : String(v3.0)
字符集，缺省为"US-ASCII"
如：JMail.Charset = "US-ASCII"

查看更多...

RS.OPEN SQL,CONN,A,B
参数A为设定游标的类型，其取值为：
0 仅向前游标，只能向前浏览记录，不支持分页、Recordset、BookMark
1 键集游标，其他用户对记录说做的修改将反映到记录集中，但其他用户增加或删除记录不会反映到记录集中。支持分页、Recordset、BookMark
2 动态游标功能最强，但耗资源也最多。用户对记录说做的修改，增加或删除记录都将反映到记录集中。支持全功能浏览。
3 静态游标，只是数据的一个快照，用户对记录说做的修改，增加或删除记录都不会反映到记录集中。支持向前或向后移动

查看更多...

vbcrlf的意思常数           值                              描述
vbCr           Chr(13)                    回车符。
vbCrLf        Chr(13) & Chr(10)           回车符与换行符。
vbFormFeed    Chr(12)                      换页符；在 Microsoft Windows 中不适用。
vbLf         Chr(10)                      换行符。
vbNewLine    Chr(13) & Chr(10) 或 Chr(10)  平台指定的新行字符；适用于任何平台。
vbNullChar    Chr(0)                      值为 0 的字符。

查看更多...

<%
Option Explicit        ' 显示声明

Class Com_GifCode_Class
    '''''''''''''''''''''''''''''''''''''''''''''
    ' Author: Layen support@ssaw.net 84815733(QQ)
    ' Thanks: Laomi, Laomiao, NetRube

查看更多...

<select name="nage" style="width: 100px">
        <option  value="0" selected>-不限-</option>
<%
for i=18 to 99
response.write "<option valude="&i&">"&i&"</option>"
next
%>

查看更多...

'//* 文章浏览 *//
Public Function ShowChannelView(Vid,IsHtml)
    '初始载入
   'If Cls.Is_Null(vid)="" Then vid=Cls.Code_ID("id")
   '--------------伪静态--------------------------
   Dim rkurls
vid=Trim(Request.Querystring("id"))

查看更多...