Lisong's Blog

Public Function IsValidEmail(email)
Dim names, name, i, c
IsValidEmail = True
names = Split(email...

1

2

3

阅读全文——共879字

Function CutStr(byVal Str,byVal StrLen)

Dim l,t,c,i

l=Len(str)

阅读全文——共252字

Sub ShowMsg(byval msg,byval url)

Response.Write("")

IF url="" Then

阅读全文——共232字

Function GetURL()

Dim Get_HOST : Get_HOST=Request.ServerVariables("HTTP_HOST")

阅读全文——共265字