개발人

select case val case "1" server.execute("a.asp") case "2" server.execute("b.asp") end select

Function IsValidEmail(strEmail) Dim bIsValid bIsValid = True If Len(strEmail) < 5 Then bIsValid = False Else If Instr(1, strEmail, " ") 0 Then bIsValid = False Else If InStr(1, strEmail, "@", 1) < 2 Then bIsValid = False Else If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then bIsValid = False End If End If End If End If IsValidEmail = bIsValid End Function

url = "http://"a = Request.ServerVariables ("HTTP_HOST")b = Request.ServerVariables("script_name")response.write url&a&b%>

위의꺼는 익스플로러의 상태창에 시간을 표시하는 거니깐,달리 응용하실수 있을꺼예요..