Public Function IsValidEmail(email)
Dim names, name, i, c
IsValidEmail = True
names = Split(email...
二月 2nd, 2009
ASP常用函数-GetLocalIP/获取真实客户端IP
No Comments, Learning, by 木公.1
2
3
一月 7th, 2009
ASP常用自定义函数--CutStr
2 Comments, Learning, by 木公.Function CutStr(byVal Str,byVal StrLen)
Dim l,t,c,i
l=Len(str)
一月 7th, 2009
ASP常用自定义函数--ShowMsg
No Comments, Learning, by 木公.Sub ShowMsg(byval msg,byval url)
Response.Write("")
IF url="" Then
十月 29th, 2008
ASP获取当前页面地址栏URL函数
No Comments, Learning, by 木公.Function GetURL()
Dim Get_HOST : Get_HOST=Request.ServerVariables("HTTP_HOST")
