web学习吧　2006-12-16　来源:　收藏本文

应一网友要求，特帖出

rem 显示左边的n个字符(自动识别汉字)
Function LeftTrue(str,n)

If len(str)<=n/2 Then
LeftTrue=str
Else
Dim TStr
Dim l,t,c
Dim i
l=len(str)
t=l
TStr=""
t=0
for i=1 to l
c=asc(mid(str,i,1))
If c<0 then c=c+65536
If c>255 then
t=t+2
Else
t=t+1
End If
If t>n Then exit for
TStr=TStr&(mid(str,i,1))
next
LeftTrue = TStr
End If

End Function

bye 探索者 2001-5-25

• ·介绍两种调试程序的方法
• ·如何插入Access库记录后马上得到自动编号值
• ·老外的代码分离办法
• ·如何Response.Redirect新的页面到指定的框
• ·关于页面和代码分离的
• ·限制只能中文输入的方法
• ·请问什么函数能判断一个数是奇数还是偶数？
• ·如何更好更快的debug
• ·关于密码校验
• ·实现支持逻辑搜索/单词搜索/词组搜索+支持O
• ·控制弹出窗口---用file access组件技巧实例
• ·排序方式解决“上下主题”问题（一）
• ·不用正则表达式来实现非大小写替换
• ·排序方式解决“上下主题”问题（二）
• ·动态Include文件的讨论
• ·排序方式解决“上下主题”问题（三）