<%
  function URLconvert(str)
  convertstr=str
  urlLocation=instr(convertstr,"http://")
  if (urlLocation=0) and (mailLocation=0) then
  URLconvert=convertstr
  exit function
  end if
  if urlLocation<>0 then
  rightstr=str
  Do while urlLocation<>urlLocationend
  urlLocation=instr(rightstr,"http://")
  urlLocationend=InStrRev(rightstr,"http://")
  finalstr=finalstr&left(rightstr,urlLocation-1)
  midurlstr=mid(rightstr,urlLocation+1,1)
  do while (asc(midurlstr)>=45) and (asc(midurlstr)<=126)
  loopint=loopint+1
  midurlstr=mid(rightstr,urlLocation+loopint,1)
  if midurlstr="" then exit do
  loop
  endURLstr=mid(rightstr,urllocation,loopint)
  URLstr="<a href="http://www.webjx.com/htmldata/2006-02-08/&endURLstr&">"&endURLstr&"</a>"
  rightstr=mid(rightstr,urllocation+loopint)
  finalstr=finalstr&URLstr
  loopint=1
  Loop
  end if
  finalstr=finalstr&rightstr
  convertstr1=finalstr
  finalstr=""
  mailLocation=instr(convertstr1,"@")
  if mailLocation<>0 then
  Do while mailLocation<>mailLocationend
  mailLocation=instr(convertstr1,"@")
  mailLocationend=InStrRev(convertstr1,

[1] [2] 下一页

在google里搜索更多ASP网址和邮件地址的转换函数

	Web www.51ec.org

上一篇信息学院： ASP读取数据库中数据到数组的类

下一篇信息学院： 在ASP网站设计中表单验证