截取字符参考代码

萧遥 · 发表于 2006-1-4 04:13:16

<

><% function calc(num1,num2) num3=num1+num2 calc=num3 end function 'a=1 'b=2 'c=a+b 'response.Write(a&"+"&b&"="&c) a=1 b=3 response.Write(a&"+") response.Write(b&"=") response.Write(calc(a,b)) %>

<

> <script language="JavaScript" type="text/JavaScript"> <!-- function del() { var bigbird = window.confirm("删除管理员之后不可恢复,确定删除请按“确认”键!"); if ( false == bigbird ) { return false; } }

<

> <% ' ============================================ ' 取实际字符长度 ' ============================================ Function GetLen(str,num1) Dim l, t, c, i,num2 num2=num1 str2=str l = Len(str) t = l For i = 1 To l c = Asc(Mid(str, i, 1)) If c < 0 Then c = c + 65536 If c > 255 Then t = t + 1 Next If t>num2 then GetLen=left(str2,num2) Else GetLen=str2 End If End Function
<

>t1="一二三四五六七八九十" t2="1234567890" %>
<

><table border="1" cellspacing="0" cellpadding="0"> <tr> <td height="20">名</td> <td>内容</td> <td>len()</td> <td>lenB()</td> <td>GetLen()</td> </tr> <tr> <td width="31">t1</td> <td width="186"> <% response.Write(t1) %> </td> <td width="105"><%=len(t1)%></td> <td width="105"><%=lenB(t1)%></td> <td width="105"><%=GetLen(t1,10)%></td> </tr> <tr> <td height="20">t2</td> <td> <% response.Write(t2) %></td> <td><%=len(t2)%></td> <td><%=lenB(t2)%></td> <td><%=GetLen(t2)%></td> </tr> </table>

☆心蓝 · 发表于 2006-1-28 01:14:39

请问站长ASP.NET好还是ASP好

梦幻想 · 发表于 2006-4-8 06:50:50

<

>当然 .NET 好了因为ASP 首先ASP 是明文显示的也就是说我只要给你源代码 ,你用记事本就可以看, NET 可以封装成DEL文件安全性高, 其次 NET开发容易.好处还很多 ,自己学的时候慢慢在体会把.

[此贴子已经被作者于2006-4-7 23:08:53编辑过]

香耐儿 · 发表于 2009-4-10 09:13:16

不错,顶楼主..........

古之立大事者，不惟有超世之才，亦必有坚忍不拔之志。---魔兽剑圣异界纵横
小游戏极品家丁龙蛇演义恶魔法则飞升之后异界枪神凡人修仙传魔兽领主超级农民成人小游戏极品公子

账号		自动登录	找回密码
密码			入学

截取字符参考代码

不错,顶楼主..........

浏览过的版块