"@")
  mainmidmailstr=mid(convertstr1,mailLocation+1,1)
  midmailstr=mainmidmailstr
  do while (asc(midmailstr)>=45) and (asc(midmailstr)<=126)
  loopint1=loopint1+1
  midmailstr=mid(convertstr1,mailLocation-loopint1,1)
  loop
  firstSTR=mid(convertstr1,mailLocation-loopint1+1,loopint1-1)
  finalstr=finalstr&left(convertstr1,mailLocation-loopint1)
  midmailstr1=mainmidmailstr
  do while (asc(midmailstr1)>=45) and (asc(midmailstr1)<=126)
  loopint2=loopint2+1
  midmailstr1=mid(convertstr1,mailLocation+loopint2,1)
  if midmailstr1="" then exit do
  loop
  secondSTR=mid(convertstr1,mailLocation,loopint2)
  endmailstr=firstSTR&secondSTR
  mailstr="<a href=mailto:"&endmailstr&">"&endmailstr&"</a>"
  finalstr=finalstr&mailstr
  convertstr1=mid(convertstr1,maillocation+loopint2)
  loopint1=1
  loopint2=1
  Loop
  end if
  finalstr=finalstr&convertstr1
  URLconvert=finalstr
  end function
  %>

上一页  [1] [2] 

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

	Web www.51ec.org

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

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