Posts tagged ASP - 木公博客

ASP常用自定义函数--IsValidEmail()

No Comments, Learning, by 木公.

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

Tags: ASP

No Comments, Learning, by 木公.

1

2

3

No Comments, Learning, by 木公.

Function CutStr(byVal Str,byVal StrLen)

Dim l,t,c,i

l=Len(str)

No Comments, Learning, by 木公.

Sub ShowMsg(byval msg,byval url)

Response.Write("")

IF url="" Then

No Comments, Learning, by 木公.

Function GetURL()

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