⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 len(),lift(),right()不能正常识别中文的解决方法.htm

📁 较为详细的介绍了asp自定义的各种函数,方便asp的各种开发.
💻 HTM
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0047)http://www.abc800.com/news/artdetail.asp?id=282 -->
<HTML><HEAD><TITLE>len(),lift(),right()不能正常识别中文的解决方法</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<META content="MSHTML 5.00.3315.2870" name=GENERATOR><LINK 
href="len(),lift(),right()不能正常识别中文的解决方法.files/putong_1t" rel=StyleSheet 
type=text/css>
<SCRIPT language=javascript 
src="len(),lift(),right()不能正常识别中文的解决方法.files/fun_Script.js"></SCRIPT>
</HEAD>
<BODY background=len(),lift(),right()不能正常识别中文的解决方法.files/r_bg.gif>
<P align=center><BR></P>
<TABLE align=center class=tableFrame height=311 width="90%">
  <TBODY>
  <TR align=middle>
    <TD align=right bgColor=#decbad class=listcelltitle height=274 vAlign=top 
    width=717>
      <P align=center><BR><FONT color=#000000 
      style="FONT-SIZE: 14px"></FONT><FONT color=#000080 
      style="FONT-SIZE: 14px"><B>len(),lift(),right()不能正常识别中文的解决方法</B></FONT><FONT 
      color=#000000 style="FONT-SIZE: 14px"><BR></P>
      <P align=right>更新日期:2002-9-25 阅读次数:282</FONT></P>
      <P align=left 
      style="FONT-SIZE: 14px">以下用法和len(),lift(),right()一样。<BR><BR>Function 
      Strlength(Str)<BR>Temp_Str=Len(Str)<BR>For I=1 To 
      Temp_Str<BR>Test_Str=(Mid(Str,I,1))<BR>If Asc(Test_Str)&gt;0 
      Then<BR>Strlength=Strlength+1<BR>Else<BR>Strlength=Strlength+2<BR>End 
      If<BR>Next<BR>End Function<BR>Function 
      Strleft(Str,L)<BR>Temp_Str=Len(Str)<BR>For I=1 To 
      Temp_Str<BR>Test_Str=(Mid(Str,I,1))<BR>Strleft=Strleft&amp;Test_Str<BR>If 
      Asc(Test_Str)&gt;0 Then<BR>lens=lens+1<BR>Else<BR>lens=lens+2<BR>End 
      If<BR>If lens&gt;=L Then Exit For<BR>Next<BR>End Function<BR>Function 
      Strright(Str,L)<BR>Temp_Str=Len(Str)<BR>For i = Temp_Str to 1 step 
      -1<BR>Test_Str=(Mid(Str,I,1))<BR>Strright=Test_Str&amp;Strright<BR>If 
      Asc(Test_Str)&gt;0 Then<BR>lens=lens+1<BR>Else<BR>lens=lens+2<BR>End 
      If<BR>If lens&gt;=L Then Exit For<BR>Next<BR>End Function 
      <BR><BR><BR><BR>原作者:vifo<BR>来 源:开发者俱乐部<BR><BR></P></TD></TR>
  <TR>
    <TD align=right bgColor=#decbad class=listcelltitle height=29 vAlign=top 
    width=717><INPUT class=button name=Submit2 onclick=javascript:window.close() style="FONT-SIZE: 9pt" type=button value=关闭窗口> 
      &nbsp; </TD></TR></TBODY></TABLE><BR></BODY></HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -