在线用户    站点地图 技术论坛 文档中心 站点导航 资源下载 语言参考 教程专题 站点统计 业务项目 使用帮助
您的位置
MSDN参考新加了CSS2参考,全中文,制作精良。245k下载。           新加了sxf_sxf推荐的"动态网页专家指导" 下载!          新加了lsg2002lsg推荐的"ASP.NET高级编程(PDF)" 下载!          新加了DHTML代码预览!!,功能强大哦!欢迎试用          新加了网友lincong为大家提供的SQL Server 2000 程序员指南,有点大,但同时也就说明内容全咯!           新加了网友ibra为大家提供的北大的JAVA课件,很适合初学者入门           新加了一个java的连接缓冲池代码示例           新加了人月神话电子版下载!软件工程巨著哦~~           更新了评分标准,引入了“专家分”概念,相信可以更好的激励大家的学习!详情请看“使用帮助”           新加了由网友GGG提供的“IIS超级管理手册”,值得一看哦!(虽然我没看过 :P )           新加了“英雄榜”,欢迎测试!           “无组件上传·从原理剖析到实践”已经全部完成,源码全部开放,有兴趣的朋友请到文档中心一探究竟。  您的位置  首页>技术论坛>ASP>F0050520 在同一窗口中打开页面中的链接 在新窗口中打开页面中的链接 将ASPCHINA设为首页 将ASPCHINA加入书签    
 LOGIN HERE
用户:
密码: 忘记密码
记住密码 用户注册 游客进入

论坛首页
|--web开发
   |--ASP
   |--JSP
   |--ASP.net
   |--DHTML
   |--RUBY
|--软件开发
   |--C++
      |--Code here
   |--JAVA
   |--VB
   |--Delphi
   |--XML
|--.net技术
   |--C#
   |--VB.net
|--Yup开发组
|--站务&投诉
   |--站长专区
|--硬件&网络
|--休息室
|--数据库技术
 进入精华区 我要发言



 取得字符串前几个字符back to ASP forum  
作者:xmxoxo,9级分数:0
日期:2003/3/3 6:51:00类别:ASP, 技术问题
回复:1次浏览:1774次
状态:无分贴

这是以前写的一个函数,改了一下:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>

<BODY>
<FORM METHOD=POST ACTION="getfirstno.asp">
内容:<INPUT TYPE="text" NAME="txt"><BR>
位数:<INPUT TYPE="text" NAME="no"><BR>
说明:中文按2位计算,其它按1位计算。不足补"."<BR>
<INPUT TYPE="submit" value="提交">
</FORM>
<%
br="<br>"&vbcrlf
txt=request.form("txt")
no=request.form("no")
if txt<>"" and IsNumeric(no) then
  no=cint(no)
  response.write "原内容是:"&txt & br
  txt=getfirstno(txt,no)
  response.write "取前"&no&"位是:"&txt&br
end if

function getfirstno(txt,l)
dim midchr,i,j
getfirstno=""
i=0
j=1
if len(txt)<=l then
  getfirstno=txt
else
  do while i<l
    midchr=asc(mid(txt,j,1))
    if midchr<0 then
      i=i+2
      if i>l then
        getfirstno=getfirstno&"."
        exit do
      else
        getfirstno=getfirstno&chr(midchr)
      end if
    else
      getfirstno=getfirstno&chr(midchr)
      i=i+1
    end if
    j=j+1
  loop
end if
end function
%>
</BODY>
</HTML>

实例:http://hexi.vicp.net/getfirstno.asp

reply[F0050520]
 



 
 re [1] 取得字符串前几个字符ASP forum  
- ggg03-03-03 17:00  

看不到啊--一片白

reply[F0050659]
 



您的位置
  (c)2000-2021 Yup Studio, all rights reserved.  
97.65625