欢迎来到我的网站

这是一个使用ASP技术创建的index.ASP页面。

<%

' 定义一个变量并赋值

Dim today

today = Now()

' 输出当前日期和时间

Response.Write("今天是：" & today & "
")

%>

<%

' 检查是否存在查询字符串参数

Dim name

name = Request.QueryString("name")

If Not IsEmpty(name) Then

' 如果存在，则输出欢迎信息

Response.Write("欢迎，" & name & "！
")

Else

' 如果不存在，则输出默认欢迎信息

Response.Write("欢迎，访客！
")

End If

%>

请输入你的名字：

<%

' 定义一个函数来生成随机问候语

Function GetRandomGreeting()

Dim greetings

greetings = Array("早上好！", "下午好！", "晚上好！", "你好！")

' 生成一个随机数

Dim randomIndex

Randomize

randomIndex = Int((UBound(greetings) + 1) * Rnd + 1)

' 返回随机问候语

GetRandomGreeting = greetings(randomIndex)

End Function

' 输出随机问候语

Response.Write(GetRandomGreeting() & "
")

%>