ASP
dzmiao
这个作者很懒,什么都没留下…
展开
-
中英文字符串显示相等长度的函数
Public Function GetString(str, strlen) Dim l, t, c, i l = Len(str) t = 0 For i = 1 To l c = Abs(Asc(Mid(str, i, 1))) If c > 255 Then 字符为中文 t = t + 2 Else t = t + 1 End If原创 2004-12-27 22:08:00 · 696 阅读 · 0 评论 -
总结数据库连接与操作的问题
昨天在动网和CSDN的论坛问了两个问题,第一个是关于数据库连接的打开与关闭,第二个是两种对数据库进行操作的区别.按照大家的说法和我的测试后总结如下:数据库连接的打开与关闭采用以下哪种方式?为什么?1.打开应用程序后,每进行一个数据库的操作都打开数据库的连接,操作完毕后关闭连接,每个操作都是这样.2.打开应用程序后,打开数据库的连接进行相关操作,操作完后不马上关闭连接,继续下一个原创 2004-12-27 22:14:00 · 1195 阅读 · 0 评论 -
VBS中Space函数的应用
昨天看动网分类的时候看到他们是这样出的0 then%> 所以今天写个小文章很多时候我们需要生成 重复的 N 个字符一般人都会使用这样的方法Dim i, n, subStringn = 10For i = 0 TO n subString = subString & " "NextResponse.Write(subString)%>其实是忽略了 VBS原创 2004-12-27 22:21:00 · 1599 阅读 · 0 评论 -
用ASP写的一个转换程序
至于转换程序,这次是第二次写了,第一次是................(略) 比起第一次不同的是这次使用了动态数组(有点兴奋,BS我吧),用ASP写了不少程序,这是第一次用到数组.这次转换的条件是要根据原数据库中某字段的值进行判断,然后根据相关值进行替换,问题本来不难,不过要替换的记录实在是太多了,几千条记录中的同一需要进行替换的字段,差不多有100多种的类别,不可能人工进行筛选,这样原创 2004-12-27 22:17:00 · 887 阅读 · 0 评论 -
关于回车换行符
字符串常数因为这些常数在 VBScript中被建立, 您在使用之前不必定义它们。您可在代码中任意处使用它们以表示说明值。常数 值 描述 vbCr: Chr(13) 回车符。 vbCrLf: Chr(13) & Chr(10) 回车符与换行符。 vbFormFeed: Chr(12) 换页符;在 Microsoft Windows 中不适用。 vbLf: Chr(10) 换行符。 vbNew原创 2004-12-27 22:28:00 · 4019 阅读 · 0 评论