Servlet with Scheme: Say Hello- -
(require (lib "unitsig.ss")
(lib "servlet-sig.ss" "web-server"))
;; return value of a servlet unig/sig will be displayed as a web page
(unit/sig () (import servlet^)
(define the-text "Hello, Web!")
;; x-expression, will generate XML as following:
;; <html><head><title>"Hello, Web!"</title></head>
;; <body bgcolor="white"><p>"Hello, Web!"</p></body></html>
`(html (head (title ,the-text))
(body ([bgcolor "white"])
(p ,the-text)))
)
- 作者： 透明 2005年08月5日, 星期五 12:34
Trackback
你可以使用这个链接引用该篇日志 http://publishblog.blogdriver.com/blog/tb.b?diaryID=870414
回复
- 评论人：bpowrtpb
Thu May 17 01:25:27 CST 2007
pzxwxwmevq[url=http://zvore.yi.org/82177478.html]brazilian pussy[/url][url=http://xenggi.66ghz.com/46330167.html]gun games[/url][url=http://wxaxw.22web.net/34298878.html]tatoo designs[/url][url=http://www32.websamba.com/viora/94041272.html]model com[/url][url=http://uenvc.22web.net/16709694.html]football games[/url][url=http://ninfrb.yi.org/20352297.html]blades glory cam xvid mvs[/url]
