如何创建WML电话薄(二)

<%@ Language=VBScript %>

<%

Response.ContentType = "text/vnd.wap.wml"

Response.Expires = -1

Dim rs, conn

Set conn = Server.CreateObject("ADODB.Connection")

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &

Server.MapPath("../test.mdb") & ";User Id=;Password=;"

Set rs = Server.CreateObject("ADODB.Recordset")

Set rs.ActiveConnection = conn

%>

<?xml version="1.0"?>

<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN"

"http://www.wapforum.org/DTD/wml_1.1.xml">

<wml>

<card id="main" title="Select">

<do type="prev">

<go href="wap1.asp"/>

</do>

<p>

<%

rs.Open "SELECT tblPhone.first_name, " & _

"tblPhone.last_name, " & _

"tblPhone.phone, " & _

"tblDepartment.dept, " & _

"tblLocation.location " & _

"FROM (" & _

"tblPhone " & _

"LEFT JOIN tblDepartment " & _

"ON tblDepartment.deptid = tblPhone.deptid " & _

") LEFT JOIN tblLocation " & _

"ON tblLocation.location_id = tblPhone.location_id " & _

"WHERE tblPhone.phone_id = " & Request("pid")

If Not rs.EOF Then

Response.Write "<b>" & rs.Fields("last_name")

& ", " &

rs.Fields("first_name") & "</b><br/>" &

_

"Phone: <input name=""phone"" size=""9""

value=""" &

rs.Fields("phone") & """/>" & _

"Department: " & rs.Fields("dept") & "<br/>"

& _

"Location: " & rs.Fields("location") & "<br/><br/>"

End If

%>

</p>

</card>

</wml>

<%

On Error Resume Next

rs.Close

Set rs = Nothing

conn.Close

Set conn = Nothing

%>