PaulLeder--程序部落 - ASP

全角转半角原来这样就可以了

paulleder@msn.com(PaulLeder) — Tue,07 Oct 2008 11:21:44 +0800

引用内容

Function DBC2SBC(str)
    If isNull(trim(str)) or isEmpty(trim(str)) or str="" Then
        DBC2SBC=""
        exit function
    else
        Dim i,ret,dbc
        for i=1  to len(str)
            select case asc(mid(str,i,1))
                case 48
                    dbc=0
                case 49
                    dbc=1
                case 50
                    dbc=2
                case 51
                    dbc=3
                case 52
                    dbc=4
                case 53
                    dbc=5
                case 54
                    dbc=6
                case 55
                    dbc=7
                case 56
                    dbc=8
                case 57
                    dbc=9
                case else
                    dbc=mid(str,i,1)
            end select
            ret=ret&dbc
        next
        DBC2SBC=ret
    end if
End Function

使用

引用内容

<%
Response.Write DBC2SBC("３２１３２１２发达哦发放大发对方１３发生大幅４１２３２１")
%>

IE=EmulateIE7?

paulleder@msn.com(PaulLeder) — Fri,26 Sep 2008 20:54:52 +0800

是打开使用IE8的EmulateIE7开关？

。。。call or argument: 'MidB'

paulleder@msn.com(PaulLeder) — Tue,25 Mar 2008 12:56:28 +0800

刚才写好一发出错了，郁闷，还是直接把作者的解决办法抄过来吧
http://forums.aspfree.com/asp-development-5/shadowuploader-invalid-procedure-call-or-argument-midb-error-when-uploading-154802.html

If you're using that code and getting this error:

Code:
Microsoft VBScript runtime (0x800A0005)
Invalid procedure call or argument: 'MidB'
then most chances are that you simply did not add the
proper HTML to your form.

ordinary HTML form looks like this:

Code:

使用GetString()加速ASP脚本

paulleder@msn.com(PaulLeder) — Sun,07 Oct 2007 15:39:12 +0800

一、多个Response.Write。
下面的例子演示了如何在一个HTML表格中显示一个数据库的查询的一种方法：

<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"

set rs = Server.CreateObject("ADODB.recordset")
rs.Open "Select Companyname, Contactname FROM Customers", conn
%>

<%do until rs.EOF%>




<%rs.MoveNext
loop%>

<%Response.Write(rs.fields("Companyname"))%>

<%Response.Write(rs.fields("Contactname"))%>

<%
rs.close
conn.close
set rs = Nothing
set conn = Nothing
%>

对于一个大的查询，这将增加脚本的处理时间，因为许多的Response.Write命令必须被服务器处理。
解决的方法是仅用Response.Write 一次创建从 to

的整个字符串。

二、GetString()方法。
GetString()方法允许你仅用Response.Write一次来显示整个字符串。它也消除了 do...loop 代码和检查记录集是否到最后的条件测试。

1、语法
str = rs.GetString(format,rows,coldel,rowdel,nullexpr)
要创建一个包含记录集中数据的HTML表格，我们仅需要使用上面的三个参数，它们是：
coldel：列分隔符。
rowde：行分隔符。
nullexpr：空格。

2、例子
下面的例子中我们使用GetString()方法来获得这个记录集以作为字符串：

<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"

set rs = Server.CreateObject("ADODB.recordset")
rs.Open "Select Companyname, Contactname FROM Customers", conn

str=rs.GetString(,,"",""," ")
%>

<%Response.Write(str)%>

<%
rs.close
conn.close
set rs = Nothing
set conn = Nothing
%>

上面的str变量包含了由SQL Select语句返回的所有列和行所构成的字符串。在每列之间将出现，在每行之间将出现。这样我们只使用Response.Write一次就实现了开始多个Response.Write实现的HTML。

ASP日期函数

paulleder@msn.com(PaulLeder) — Mon,10 Sep 2007 08:57:55 +0800

Date 函数
描述:返回当前系统日期。
语法:Date

DateAdd 函数
描述:返回已添加指定时间间隔的日期。
语法:DateAdd(interval, number, date)
interval: 必选。字符串表达式，表示要添加的时间间隔。有关数值，请参阅“设置”部分。
number: 必选。数值表达式，表示要添加的时间间隔的个数。数值表达式可以是正数（得到未来的日期）或负数（得到过去的日期）。
date: 必选。Variant 或要添加 interval 的表示日期的文字。
interval 参数可以有以下值：
yyyy (年) 、q (季度) 、m (月) 、y (一年的日数) 、d (日) 、w (一周的日数) 、ww (周) 、h (小时) 、n (分钟) 、s (秒)
说明:可用 DateAdd 函数从日期中添加或减去指定时间间隔。例如可以使用 DateAdd 从当天算起 30 天以后的日期或从现在算起 45 分钟以后的时间。要向 date 添加以“日”为单位的时间间隔，可以使用“一年的日数”（“y”）、“日”（“d”）或“一周的日数”（“w”）。
DateAdd 函数不会返回无效日期。如下示例将 95 年 1 月 31 日加上一个月：
NewDate = DateAdd("m", 1, "31-Jan-95")
在这个例子中，DateAdd 返回 95 年 2 月 28 日，而不是 95 年 2 月 31 日。如果 date 为 96 年 1 月 31 日，则返回 96 年 2 月 29 日，这是因为 1996 是闰年。
如果计算的日期是在公元 100 年之前则会产生错误。
如果 number 不是 Long 型值，则在计算前四舍五入为最接近的整数。

DateDiff 函数
NewDate = DateAdd("m", 1, "31-Jan-95")
在这个例子中，DateAdd 返回 95 年 2 月 28 日，而不是 95 年 2 月 31 日。如果 date 为 96 年 1 月 31 日，则返回 96 年 2 月 29 日，这是因为 1996 是闰年。
如果计算的日期是在公元 100 年之前则会产生错误。
如果 number 不是 Long 型值，则在计算前四舍五入为最接近的整数。

DateDiff 函数
描述:返回两个日期之间的时间间隔。
语法:DateDiff(interval, date1, date2 [,firstdayofweek[, firstweekofyear>)
interval: 必选。字符串表达式，表示用于计算 date1 和 date2 之间的时间间隔。有关数值，请参阅“设置”部分。
date1, date2: 必选。日期表达式。用于计算的两个日期。
firstdayofweek: 可选。指定星期中第一天的常数。如果没有指定，则默认为星期日。有关数值，请参阅“设置”部分。
firstweekofyear: 可选。指定一年中第一周的常数。如果没有指定，则默认为 1 月 1 日所在的星期。有关数值，请参阅“设置”部分。
interval 参数可以有以下值：
yyyy (年) 、q (季度) 、m (月) 、y (一年的日数) 、d (日) 、w (一周的日数) 、ww (周) 、h (小时) 、n (分钟) 、s (秒)
firstdayofweek 参数可以有以下值：
(以下分别为：常数值描述)
vbUseSystem 0 使用区域语言支持 (NLS) API 设置。
vbSunday 1 星期日（默认）
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六
firstweekofyear 参数可以有以下值：
(以下分别为：常数值描述)
vbUseSystem 0 使用区域语言支持 (NLS) API 设置。
vbFirstJan1 1 由 1 月 1 日所在的星期开始（默认）。
vbFirstFourDays 2 由在新年中至少有四天的第一周开始。
vbFirstFullWeek 3 由在新的一年中第一个完整的周开始。
说明:DateDiff 函数用于判断在两个日期之间存在的指定时间间隔的数目。例如可以使用 DateDiff 计算两个日期相差的天数，或者当天到当年最后一天之间的星期数。
要计算 date1 和 date2 相差的天数，可以使用“一年的日数”（“y”）或“日”（“d”）。当 interval 为“一周的日数”（“w”）时，DateDiff 返回两个日期之间的星期数。如果 date1 是星期一，则 DateDiff 计算到 date2 之前星期一的数目。此结果包含 date2 而不包含 date1。如果 interval 是“周”（“ww”），则 DateDiff 函数返回日历表中两个日期之间的星期数。函数计算 date1 和 date2 之间星期日的数目。如果 date2 是星期日，DateDiff 将计算 date2，但即使 date1 是星期日，也不会计算 date1。
如果 date1 晚于 date2，则 DateDiff 函数返回负数。
firstdayofweek 参数会对使用“w”和“ww”间隔符号的计算产生影响。
如果 date1 或 date2 是日期文字，则指定的年度会成为日期的固定部分。但是如果 date1 或 date2 被包括在引号 (" ") 中并且省略年份，则在代码中每次计算 date1 或 date2 表达式时，将插入当前年份。这样就可以编写适用于不同年份的程序代码。
在 interval 为“年”（“yyyy”）时，比较 12 月 31 日和来年的 1 月 1 日，虽然实际上只相差一天，DateDiff 返回 1 表示相差一个年份。

DatePart 函数
描述:返回给定日期的指定部分。
语法:DatePart(interval, date[, firstdayofweek[, firstweekofyear>)
DatePart: 函数的语法有以下参数：
interval: 必选。字符串表达式，表示要返回的时间间隔。有关数值，请参阅“设置”部分。
date: 必选。要计算的日期表达式。
firstdayof week: 可选。指定星期中的第一天的常数。如果没有指定，则默认为星期日。有关数值，请参阅“设置”部分。
firstweekofyear: 可选。指定一年中第一周的常数。如果没有指定，则默认为 1 月 1 日所在的星期。有关数值，请参阅“设置”部分。
interval 参数可以有以下值：
yyyy (年) 、q (季度) 、m (月) 、y (一年的日数) 、d (日) 、w (一周的日数) 、ww (周) 、h (小时) 、n (分钟) 、s (秒)
firstdayofweek 参数可以有以下值：
(以下分别为：常数值描述)
vbUseSystem 0 使用区域语言支持 (NLS) API 设置。
vbSunday 1 星期日（默认）
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六
firstweekofyear 参数可以有以下值：
(以下分别为：常数值描述)
vbUseSystem 0 使用区域语言支持 (NLS) API 设置。
vbFirstJan1 1 由 1 月 1 日所在的星期开始（默认）。
vbFirstFourDays 2 由在新年中至少有四天的第一周开始。
vbFirstFullWeek 3 由在新的一年中第一个完整的周（不跨年度）开始。
说明:DatePart 函数用于计算日期并返回指定的时间间隔。例如使用 DatePart 计算某一天是星期几或当前的时间。
firstdayofweek 参数会影响使用“w”和“ww”间隔符号的计算。
如果 date 是日期文字，则指定的年度会成为日期的固定部分。但是如果 date 被包含在引号 (" ") 中，并且省略年份，则在代码中每次计算 date 表达式时，将插入当前年份。这样就可以编写适用于不同年份的程序代码

formatDateTime应用

paulleder@msn.com(PaulLeder) — Sat,18 Aug 2007 20:58:48 +0800

描述

返回一个日期或时间格式的表达式。

语法

FormatDateTime(Date[,NamedFormat])

FormatDateTime函数语法有如下几部分：

部分	描述
Date	必需的。要被格式化的日期表达式。
NamedFormat	可选的。数字值，表示日期/时间所使用的格式。如果忽略该值，则使用vbGeneralDate。

设置值

NamedFormat参数的设置值如下：

常数	值	描述
vbGeneralDate	0	显示日期和/或时间。如果有日期部分，则用短日期格式显示。如果有时间部分，则用长时间格式显示。如果都有，两部分都显示。
vbLongDate	1	用计算机区域设置值中指定的长日期格式显示日期。
vbShortDate	2	用计算机区域设置值中指定的短日期格式显示日期。
vbLongTime	3	用计算机区域设置值中指定的时间格式显示时间。
vbShortTime	4	用24小时格式（hh：mm）显示时间。

Windows中的时间格式还真不少，什么长日期、短日期，两位年份、四位年份等等，在Delphi中可用FormatDateTime函数输出这些格式，下面介绍它的用法：

function FormatDateTime(const Format: string; DateTime: TDateTime): string;

Format参数是一个格式化字符串。DateTime是时间类型。返回值是一种格式化后的字符串，重点来看Format参数中的指令字符：

c 以短时间格式显示时间，即全部是数字的表示
FormatdateTime('c',now);
输出为：2004-8-7 9:55:40

d 对应于时间中的日期，日期是一位则显示一位，两位则显示两位
FormatdateTime('d',now);
输出可能为1～31
dd 和d的意义一样，但它始终是以两位来显示的
FormatdateTime('dd',now);
输出可能为01～31
ddd 显示的是星期几
FormatdateTime('ddd',now);
输出为: 星期六
dddd 和ddd显示的是一样的。
但上面两个如果在其他国家可能不一样。
ddddd 以短时间格式显示年月日
FormatdateTime('ddddd',now);
输出为：2004-8-7
dddddd 以长时间格式显示年月日
FormatdateTime('dddddd',now);
输出为：2004年8月7日

e/ee/eee/eeee 以相应的位数显示年
FormatdateTime('ee',now);
输出为：04 （表示04年）

m/mm/mmm/mmmm 表示月
FormatdateTime('m',now);
输出为：8
FormatdateTime('mm',now);
输出为 08
FormatdateTime('mmm',now);
输出为八月
FormatdateTime('mmmm',now);
输出为八月
和ddd/dddd 一样，在其他国家可能不同

yy/yyyy 表示年
FormatdateTime('yy',now);
输出为 04
FormatdateTime('yyyy',now);
输出为 2004

h/hh,n/nn,s/ss,z/zzz 分别表示小时，分，秒,毫秒
t 以短时间格式显示时间
FormatdateTime('t',now);
输出为 10:17
tt 以长时间格式显示时间
FormatdateTime('tt',now);
输出为10:18:46

ampm 以长时间格式显示上午还是下午
FormatdateTime('ttampm',now);
输出为：10:22:57上午

如果要在Format中加普通的字符串，可以用双引号隔开那些特定义的字符，

这样普通字符串中如果含特殊的字符就不会被显示为时间格式啦：
FormatdateTime('"today is" c',now);
输出为：today is 2004-8-7 10:26:58

时间中也可以加"-"或"\"来分开日期：
FormatdateTime('"today is" yy-mm-dd',now);
FormatdateTime('"today is" yy\mm\dd',now);
输出为： today is 04-08-07

也可以用":"来分开时间
FormatdateTime('"today is" hh:nn:ss',now);
输出为：today is 10:32:23

还可以这样用

formatDateTime(rs("time"),vbShortDate)

recordset的getRows()应用

paulleder@msn.com(PaulLeder) — Fri,17 Aug 2007 12:43:26 +0800

引用内容

Dim sql,rs,
sql="select a0,a1,a2,a3 from [table]"
set rs=Conn.execute(sql)
'这里我们把rs的记录集保存成二纬数组，如下
sql=rs.getRows(-1)'可以查询recordset的getRows()方法,此时sql已经不是上面的存放字符串变量，而是一个二纬数组了
for i=0 to ubound(sql,2)'这里的2其实就是rs记录集里面的记录数所在纬．（这个数组的第一纬是字段名称，第二纬是记录）
response.write sql(0,i)'这里其实输出的就是上面sql查询语句中的所有a0的值
next

引用内容

GetRows 方法

将 Recordset 对象的多个记录恢复到数组中。

语法

array = recordset.GetRows( Rows, Start, Fields )

返回值

返回二维数组。

参数

Rows    可选，长整型表达式，指定要检索记录数。默认值为 adGetRowsRest (-1)。

Start    可选，字符串或长整型，计算得到在 GetRows 操作开始处的记录的书签。也可使用下列 BookmarkEnum 值。

常量说明 AdBookmarkCurrent 从当前记录开始。 AdBookmarkFirst 从首记录开始。 AdBookmarkLast 从尾记录开始。

Fields   可选，变体型，代表单个字段名、顺序位置、字段名数组或顺序位置号。ADO 仅返回这些字段中的数据。

说明

使用 GetRows 方法可将记录从 Recordset 复制到二维数组中。第一个下标标识字段，第二个则标识记录号。当 GetRows 方法返回数据时数组变量将自动调整到正确大小。

如果不指定 Rows 参数的值，GetRows 方法将自动检索 Recordset 对象中的所有记录。如果请求的记录比可用记录多，则 GetRows 仅返回可用记录数。

如果 Recordset 对象支持书签，则可以通过传送该记录的 Bookmark属性值，来指定 GetRows 方法将从哪个记录开始检索数据。

如要限制 GetRows 调用返回的字段，则可以在 Fields 参数中传送单个字段名/编号或者字段名/编号数组。

在调用 GetRows 后，下一个未读取的记录成为当前记录，或者如果没有更多的记录，则 EOF属性设置为 True。

Microsoft JET Database Engine (0x80004005)未指定的错误解决

paulleder@msn.com(PaulLeder) — Wed,15 Aug 2007 15:11:20 +0800

出现这个问题的原因都是因为权限问题:
可以从以下几个方面考虑和修改:

引用内容

1、系统可能没有注册msjetoledb40.dll，解决办法是
   点开始--->运行，输入 regsvr32 msjetoledb40.dll，回车即可；
2、数据库所在文件夹权限
   打开办法是：打开我的电脑，然后点菜单上的“文件夹选项”--->查看，然后把“使用简单文件夹共享(推荐)”前面的钩去掉，然后点“确认”；接下来回到需要打开权限的文件夹（数据库存放的文件夹），右键---> 属性--->安全,然后点“添加”--->"高级"--->立即查找--->然后在下面的地方选择“everyone”--->确定--->点刚才加入的"everyone"，然后在下面的大框编辑everyone权限为完全控制，保存即可。
3、需要打开guest用户
   打开方法:我的电脑--->控制面板--->管理工具---->计算机管理--->本地用户和组---用户---找到"guest"，双击，然后把弹出来的狂上的“帐户已停用”前的钩去掉，保存即可。
4、temp（临时文件夹）权限
   打开办法：windows--->temp，单击右键选择-属性，你就会看到一个叫做“安全”的选项，添加一个everyone,权限设置为完全控制，再将你正在使用windows的用户也设置为完全控制.(此修改步骤类似问题2。，可以参照修改)

以上为全部解决办法，希望对你有帮助。

文章内容分页函数(asp,javascript)

paulleder@msn.com(PaulLeder) — Sat,28 Jul 2007 17:46:12 +0800

引用内容

<%
'此程序修改于网上资源,版权归原作者所有
'使用此函数如
'ASP:ContentPagination(rs("GetContent"),4000,"cid="&cid&"&id="&id,"",false,"")
'UrlReWrite:ContentPagination(rs("GetContent"),4000,"cid="&cid&"&id="&id,"",true,"abc.html")
'参数列表
'hiwebstr=需分页的内容 perLength=每页显示的字数,preFix=前缀,suffix=后缀,IsURLRewrite=是否重写URL,fileExt=后缀名
'fileExt=后缀名只对IsURLRewrite为true有效
Function ContentPagination(hiwebstr,perLength,preFix,suffix,IsURLRewrite,fileExt)
    Dim ContentLen, maxperpage, Paginate
    Dim arrContent, strContent, i
    Dim m_strFileUrl,m_strFileExt,m_strFilesFix
    Dim CurrentPage,ArticleContent,UserArticle
    if IsURLRewrite="" or isEmpty(IsURLRewrite) or isNull(IsURLRewrite) or lcase(IsURLRewrite)="false" then
        IsURLRewrite=false
    else
        IsURLRewrite=true
    end if
    maxPagesize=perLength
    strContent = InsertPageBreak(hiwebstr)
    ContentLen = Len(strContent)
    CurrentPage=Request.QueryString("Page")
    If CurrentPage="" Then CurrentPage=0
    If InStr(strContent, "[hiweb_break]") <= 0 Then
        ArticleContent = "

" & strContent & "

"
    Else
        arrContent = Split(strContent, "[hiweb_break]")
        Paginate = UBound(arrContent) + 1
        If CurrentPage = 0 Then
            CurrentPage = 1
        Else
            CurrentPage = CLng(CurrentPage)
        End If
        If CurrentPage < 1 Then CurrentPage = 1
        If CurrentPage > Paginate Then CurrentPage = Paginate
        strContent = "

"& arrContent(CurrentPage - 1)
        ArticleContent = ArticleContent & strContent
        If UserArticle = True Then
            ArticleContent = ArticleContent & "

"
Else
ArticleContent = ArticleContent & "

"
        End If
        If IsURLRewrite Then
            Dim tmpA,tmpB
            tmpA=replace(preFix,"&","_")'在次可以修改静态页面URL样式
            tmpB=replace(sufFix,"&","_")'在次可以修改静态页面URL样式
            m_strFileUrl = tmpA&"_"&tmpB&"page="'在次可以修改静态页面URL样式
            m_strFileExt = fileExt
        Else
            m_strFileExt = ""
            if preFix<>"" then
                m_strFileUrl = "?"&preFix&"&Page="
            else
                m_strFileUrl = "?Page="
            end if
        End If
        If CurrentPage > 1 Then
            If IsURLRewrite And (CurrentPage-1) = 1 Then
                ArticleContent = ArticleContent & "上一页  "
            Else
                ArticleContent = ArticleContent & "上一页  "
            End If
        End If
        For i = 1 To Paginate
            If i = CurrentPage Then
                ArticleContent = ArticleContent & "[" & CStr(i) & "] "
            Else
                If IsURLRewrite And i = 1 Then
                    ArticleContent = ArticleContent & "[" & i & "] "
                Elseif IsURLRewrite And i <> 1 then
                    ArticleContent = ArticleContent & "[" & i & "] "
                Else
                    ArticleContent = ArticleContent & "[" & i & "] "
                End if
            End If
        Next
        If CurrentPage < Paginate Then
            If IsURLRewrite then
                ArticleContent = ArticleContent & " 下一页"
            else
                ArticleContent = ArticleContent & " 下一页"
            end if
        End If
        ArticleContent = ArticleContent & "

"
    End If
    Response.Write(ArticleContent)
End Function
Dim maxPagesize            '设置分页字数,全局变量
Function InsertPageBreak(strText)
    Dim strPagebreak,s,ss
    Dim i,IsCount,c,iCount,strTemp,Temp_String,Temp_Array
    strPagebreak="[hiweb_break]"
    s=strText
    'If Len(s)    If Len(s)        InsertPageBreak=s
    End If
    s=Replace(s, strPagebreak, "")
    s=Replace(s, " ", "< >")
    s=Replace(s, ">", "<>>")
    s=Replace(s, "<", "<<>")
    s=Replace(s, """, "<">")
    s=Replace(s, "'", "<'>")
    If s<>"" and maxPagesize<>0 and InStr(1,s,strPagebreak)=0 then
        IsCount=True
        Temp_String=""
        For i= 1 To Len(s)
            c=Mid(s,i,1)
            If c="<" Then
                IsCount=False
            ElseIf c=">" Then
                IsCount=True
            Else
                If IsCount=True Then
                    If Abs(Asc(c))>255 or Asc(c)<0 Then'需要加上Asc(c)<0部分，不然0~-254部分就检测不到了
                        iCount=iCount+2
                    Else
                        iCount=iCount+1
                    End If
                    If iCount>=maxPagesize And i                        strTemp=Left(s,i)
                        If CheckPagination(strTemp,"table|a|b>|i>|strong|div|span") then
                            Temp_String=Temp_String & Trim(CStr(i)) & ","
                            iCount=0
                        End If
                    End If
                End If
            End If
        Next
        If Len(Temp_String)>1 Then Temp_String=Left(Temp_String,Len(Temp_String)-1)
        Temp_Array=Split(Temp_String,",")
        For i = UBound(Temp_Array) To LBound(Temp_Array) Step -1
            ss = Mid(s,Temp_Array(i)+1)
            If Len(ss) > 380 Then
                s=Left(s,Temp_Array(i)) & strPagebreak & ss
            Else
                s=Left(s,Temp_Array(i)) & ss
            End If
        Next
    End If
    s=Replace(s, "< >", " ")
    s=Replace(s, "<>>", ">")
    s=Replace(s, "<<>", "<")
    s=Replace(s, "<">", """)
    s=Replace(s, "<'>", "'")
    InsertPageBreak=s
End Function
Function CheckPagination(strTemp,strFind)
    Dim i,n,m_ingBeginNum,m_intEndNum
    Dim m_strBegin,m_strEnd,FindArray
    strTemp=LCase(strTemp)
    strFind=LCase(strFind)
    If strTemp<>"" and strFind<>"" then
        FindArray=split(strFind,"|")
        For i = 0 to Ubound(FindArray)
            m_strBegin="<"&FindArray(i)
            m_strEnd  ="            n=0
            do while instr(n+1,strTemp,m_strBegin)<>0
                n=instr(n+1,strTemp,m_strBegin)
                m_ingBeginNum=m_ingBeginNum+1
            Loop
            n=0
            do while instr(n+1,strTemp,m_strEnd)<>0
                n=instr(n+1,strTemp,m_strEnd)
                m_intEndNum=m_intEndNum+1
            Loop
            If m_intEndNum=m_ingBeginNum then
                CheckPagination=True
            Else
                CheckPagination=False
                Exit Function
            End If
        Next
    Else
        CheckPagination=False
    End If
End Function
%>

//JS分页，不完整。
HTML代码
<style> * { font-size:10.2pt; font-family:tahoma; line-height:150%; } .divContent { border:1px solid red; background-color:#FFD2D3; width:500px; word-break:break-all; margin:10px 0px 10px; padding:10px; } </style> header <div id="divPagenation"></div> <div id="divContent"></div> footer <script language="jscript">  </script>

[Ctrl+A 全部选择提示：你可先修改部分代码，再按运行]

读取SQL数据库里TEXT和NTEXT类型字段内容的问题

paulleder@msn.com(PaulLeder) — Fri,20 Jul 2007 10:32:44 +0800
首先我们应该了解这两个类型的字段到底有什么不同:
虽然看起这他们是叫TEXT,但他不是用来保存文本的,实际上是用来保存文件,和IMAGE类型一样的,一般用来保存MIME类型的数据.
而我把它用来保存新闻的主体内容了,这样能存的更多.结果老是读取不出来......

我用的是ADO连接,在读取数据时,因为习惯了以前ASP的写法,用conn.execute()来读取,,,这种读取对存MIME类型的字段是无效的,,,
所以改成rs.open的方法来读取就好了....

记于此,以做学习.

那么这两种执行方法在本质上有什么不同?在处理MIME类型上有什么不同呢?
个人认为用conn.execute()方式得到的RS里对MIME类型应该只是得到了一个索引,而用rs.open()的方式得到的应该是MIME类型的内容吧!
对两种方式得到的RS的字节大小做个比较应该能说明结果.

那么在应用时,在仅列出索引,标题什么的时,用conn.execute(). 在要显示完整内容时用rs.open(),我想这样能提高不少性能吧!