下面有一些有趣的事情:
< select name='show' >
< ％
Do while not rsShows.eof
response.write("< option value='" & rsShows("show_id") & "' >" & Left(rsShows("name"),cutter) & " (" & rsShows("time") & ")" & "< /option >" &vbcrlf)
rsShows.MoveNext
loop ％ >
< /select >
如果你对cutter变量感到疑惑，那么就有一些事让你哭笑不得
Dim cutter
if InStr(Request.ServerVariables("HTTP_USER_AGENT"), "Nokia7110") then
cutter = 12
else
cutter = 7
end if
这段代码根据不同的设备来显示选项。我们有充足的理由的这样做，Nokia Toolit 1.2仿真器喜欢把砍掉我的的选项到只有几个字符，而我们要显示电影名字和上映时间，所以我们就不得不减少电影名字的字符。在真的手机中不会出现这种问题，所以我们就必须先判断设备的类型.
一旦我有机会（飞刀我很穷，没有钱，这是仅仅是遥远的梦想.......)在真的Nokia 7110上测试我的代码，我们会立即感到我们有比我们想像更大的屏幕。实际上,有些电影院的名字很古怪，而且这些长名字会占用很大屏幕空间，我们没有必要浪费这些显示空间,尽量把这些名字简化。
|