8.2.5 ASP编程示例

1.Hello,world!

2.显示时间

3.留言本

1.Hello,world!

<%@ Language=JScript %>

<%

var strGreeting;

strGreeting = "Hello World!";

%>

<%=strGreeting%>

返回

2.显示时间

用JavaScript:

  <%

  var months;

  var hours;

  today = new Date();

  months = today.getMonth()+1;

  hours =today.getHours();

  if (hours <12){

  %>

  <%= "早上好！" %>

  <%

  }else if (hours < 18) {

  %>

  <%= "下午好！"%>

  <%

  }else if (hours < 24) {

  %>

  <%= "晚上好！" %>

  <%

  }

  %>

今天         是 <%=months +"月" +today.getDate()+"日" %>，时间 <%=today.getHours() +":"   +today.getMinutes() %>

用VBScript:

<%

Dim dtmHour

dtmHour = Hour(Now())

If dtmHour < 12 Then

strGreeting = "早上好！"

Else    

strGreeting = "您好！"

End If  

%>

<%= strGreeting %>

返回

3.留言本(单击这里下载一个可以显示留言的简单留言本）

文件form.asp:

<form method="GET" name="guestbook" action ="gresult.asp">

  <p>请输入您的姓名：<input type="text" name="name" size="20"></p>

  <p>请输入您的留言：</p>

<textarea rows="18" name="content" cols="60"></textarea></p>

<p><input type="submit" value="提交" name="B1"> <input type="reset" value="重置" name="B2"></p>

gresult.asp页面:

<%

dim strTB1, strTB2, strCommand

strTB1 =Server.HTMLEncode(Request.QueryString("name"))

strTB2 =Server.HTMLEncode(Request.QueryString("content"))

strProvider = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=D:\InetPub\Wwwroot\fpdb\guestbook.mdb;"

Set objConn = server.createobject("ADODB.Connection")

 objConn.Open strProvider

 strCommand = "INSERT INTO guest(姓名,留言) VALUES ('"

 strCommand = strCommand & strTB1 & "','" & strTB2

 strCommand = strCommand & "')"

 objConn.Execute strCommand

 Response.Write("谢谢！ 留言添加成功。")

%>

返回