1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
<!-- Presentation generated by Internet Assistant for Microsoft PowerPoint 97 -->
<HTML>
<HEAD>
<meta name="GENERATOR" content="Microsoft Internet Assistant for Microsoft PowerPoint 97">
<TITLE>Example: Database Access</TITLE>
</HEAD>
<BODY >
<CENTER>
<TABLE WIDTH=100%>
<TR> <TD WIDTH=100% ALIGN=CENTER>
<A HREF="sld001.htm">First</A>
<A HREF="sld010.htm">Previous</A>
<A HREF="sld012.htm">Next</A>
<A HREF="sld077.htm">Last</A>
<A HREF="index.htm">Index</A>
<A HREF="tsld011.htm">Text</A>
</TD> </TR>
<TR> <TD WIDTH=100% ALIGN=CENTER>
<IMG SRC="img011.gif" usemap="#Objmap" WIDTH=600 HEIGHT=450 BORDER=0>
</TD> </TR>
</TABLE>
<P>Slide 11 of 77</P>
</CENTER>
<!-- <UL>
ns_register_proc GET /demo/movies getMovies
</UL><UL>
</UL><UL>
proc getMovies {} {
</UL><UL>
set page <html><body>\nCurrent Movies:\n
</UL><UL>
set db [ns_db gethandle moviedb]
</UL><UL>
set row [ns_db select $db select * from movies]
</UL><UL>
while {[ns_db getrow $db $row]} {
</UL><UL>
append page [ns_set get $row movie]<br>\n
</UL><UL>
}
</UL><UL>
append page </body></html>
</UL><UL>
ns_set free $row
</UL><UL>
ns_db releasehandle $db
</UL><UL>
ns_return 200 text/html $page
</UL><UL>
}</UL></P>
<P><UL>
<H2>Example: Database Access</H2>
</UL></P>
<P><UL>
<LI><H2>ns_db can be used to access an SQL database:</H2>
</UL></P>
<P> -->
</Body>
</HTML>
|
