忆风主机管理系统 忆风主机管理系统 忆风主机管理系统

源代码在线查看: function.asp

软件大小: 1848 K
上传用户: jc6629402
关键词: 主机 管理系统
下载地址: 免注册下载 普通下载 VIP

相关代码

								Function CheckStringLength(txt)
				txt=trim(txt)
				x = len(txt)
				y = 0
				for ii = 1 to x
				  if asc(mid(txt,ii,1))255 then
				    y = y + 2
				  else
				    y = y + 1
				  end if
				next
				CheckStringLength = y
				End Function
				
				'"************* 截取字符串 **************
				Function InterceptString(txt,length)
				txt=trim(txt)
				x = len(txt)
				y = 0
				if x >= 1 then
				for ii = 1 to x
				if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then
				   y = y + 2
				else
				   y = y + 1
				end if
				  if y >= length then
				     txt = left(trim(txt),ii)+"..." '"字符串限长
				  exit for
				end if
				next
				   InterceptString = txt
				else
				   InterceptString = ""
				end if
				End Function 
				'"=InterceptString("盛大大撒旦撒大苏打实打实",10)
				%>
							

相关资源