- 博客(3)
- 资源 (2)
- 收藏
- 关注
RSS订阅转载 http://blog.csdn.net/yuanqingfei/category/19131.aspx
http://blog.csdn.net/yuanqingfei/category/19131.aspx
2004-07-29 12:55:00
536
转载 http://www.dohao.org/blog/
http://www.dohao.org/blog/ http://newedit.tigris.org/ http://blog.csdn.net/dreamingk/archive/2004/07/26/51671.aspx
2004-07-28 16:33:00
671
原创 1
函数源代码：Function IsValidEmail(Email)ValidFlag = FalseIf (Email 0) And (InStr(1, Email, ".") > 0) ThenatCount = 0SpecialFlag = FalseFor atLoop = 1 To Len(Email)atChr = Mid(Email, atLoop, 1)If atChr = "@
2004-07-25 19:17:00
1012
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人