华海暖通好不好:求一段去掉中文和日期的asp代码,高手帮忙写一个

来源:百度文库 编辑:高校问答 时间:2024/04/29 05:02:31
我现在手上有这样的一堆数据:
小狗 s3jkfd@sina.com 2006-3-16 16:10:15
小猫 vj38s@163.com 2001-5-19 14:50:12
等等一大堆,
请问如何将中文字符和日期去掉,只要邮箱地址,用啥函数的?最好能把代码写出来,要asp的代码

a="小狗 s3jkfd@sina.com 2006-3-16 16:10:15 "
for i=1 to len(a)
if mid(a,i,1)="@" then
k=i
while(mid(a,k,1)<>chr(32))
k=k-1
wend
l=i
while(mid(a,l,1)<>"chr(32)")
l=l+1
wend
abc=mid(a,k+1,l-1)
end if
next

ABC就是你要的,你也可以把这段做成个函数!!!