asp取得字符长度函数

function gotTopic(str,strlen)
if str="" then
  gotTopic=""
  exit function
end if
dim l,t,c, i
str=replace(replace(replace(replace(str," "," "),""",chr(34)),">",">"),"<","<")
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
  if t>=strlen then
   gotTopic=left(str,i) & "…"
   exit for
  else
   gotTopic=str
  end if
next
gotTopic=replace(replace(replace(replace(gotTopic," "," "),chr(34),"""),">",">"),"<","<")
end function

时间： 2024-09-20 00:07:23

asp取得字符长度函数的相关文章

oracle 字符长度函数及实例教程

oracle 字符长度函数及实例教程 -- Oracle 里面使用 lengthb SQL> select lengthb('123456') from dual; LENGTHB('123456') ----------------- 6 SQL> select lengthb('123456天津') from dual; LENGTHB('123456天津') --------------------- mysql教程> select char_l

JavaScript Length 字符长度函数

JavaScript Length 字符长度函数,在很多时间我们会用length函数了,因为你得前台判断一个用户输入的用户名与密码长度是否是我想规定的就会用到length哦. 高级scripters往往需要知道如何长期一个JavaScript字符串.例如,如果一个webdeveloper是建立一个提交表单,要求用户将不再超过20个字符,那么她将需要检查的长度字符串之前,允许用户提交的数据. 字串长长度属性返回的字符数是在一个字符串,用一个整数.以下是基本的代码用于访问此属性. <scrip

判断字符长度函数strlen实例教程

定义和用法该strlen ( )函数返回的长度字符串. 他的作用是计算字字符长度的,中文一个字为2 语法 strlen(string) Parameter Description string Required. Specifies the string to check 来看个简单的例子吧. <?php echo strlen("Hello world!"); ?> 输出为 12 以上是小编为您精心准备的的内容,在的博客.问答.公众号.人物.课程等栏目也

asp 中英文字符长度检测判断函数

function strLength(str) ON ERROR RESUME NEXT dim WINNT_CHINESE WINNT_CHINESE = (len("论坛")=2) if WINNT_CHINESE then dim l,t,c dim i l=len(str) t=l for i=1 to l

mysql中length字符长度函数使用方法

mysql里面的length函数是一个用来获取字符串长度的内置函数.具体用法示例如下: (1)查看某字符串的长度(比如本站网址) SELECT LENGTH('www.111cn.net'); (2)查询文章表(article)中标题最长的10篇文章 SELECT id,title FROM article ORDER BY LENGTH(title) DESC; (3)查出用户名长度小于6个字符的用户列表 SELECT * FROM user WHERE LENGTH(username) <

mysql sql字符长度函数

LENGTH函数返回文本字段中值的长度. SQL LENGTH() 语法 SELECT LENGTH(column_name) FROM table_name select * from broker_info where LENGTH(avatar)=11 更新 update `broker_info` set cityid=2 WHERE LENGTH(avatar)=11 字段之间更新 update `broker_info` set `mobile`=`avatar` WHERE LEN

ASP 非法字符过滤函数_应用技巧

复制代码代码如下: <% '==============================================================检查提交数据合法性 Function CheckInput() '--------定义部份------------------ Dim Fy_Post,Fy_Get,Fy_In,Fy_Inf,Fy_Xh,Fy_db,Fy_dbstr,Kill_IP,WriteSql '自定义需要过滤的字串,用 "|" 分隔 Fy_In

asp非法字符过滤函数sql防注入

On Error Resume Next Fy_Url=Request.ServerVariables("QUERY_STRING") Fy_a=split(Fy_Url,"&") redim Fy_Cs(ubound(Fy_a)) On Error Resume Next for Fy_x=0 to ubound(Fy_a) Fy_Cs(Fy_x) = left(Fy_a(Fy_x),instr(Fy_a(Fy_x),"=")-1)