多形式的选择（所在）

来源：互联网发布：linux电子书下载编辑：程序博客网时间：2024/06/06 03:19

允许数据观察的多样选择能够让人们定制数据视图和添加值到应用上去。下面的例子会利用到Hammerin’ Hank Greenberg.的我们的事业数据信息。它是有助于选择下拉菜单的。当多重年份被选择的时候，他们会选择用逗号分隔。利用附加在sql语句上的sql逗号分隔语句选项来显示选择的那些年份。因为我们会寻找没有修改的必要的逗号分隔输入的数字值，当字符输入被用来替换能用作把适当的引号放在你的语句里面的语句。在这个例子中也能提供，但是一定是作为未注释来使用。

<html><title>www.ttasp.net(Multiple Form Selection (Where In) )</title><body bgcolor="#FFFFFF"><%' Check to see if there is any input如果不显示输入表单u_input=request.form("u_input")if u_input = "" then %><form action="<%= request.servervariables("script_name")%>" method="post">Select one, many, or all years to display<br><select size="5" name="u_input" multiple><option value="1930">1930</option><option value="1933">1933</option><option value="1934">1934</option><option value="1935">1935</option><option value="1936">1936</option><option value="1937">1937</option><option value="1938">1938</option><option value="1939">1939</option><option value="1940">1940</option><option value="1941">1941</option><option value="1942">1942</option><option value="1943">1943</option><option value="1944">1944</option><option value="1945">1945</option><option value="1946">1946</option><option value="1947">1947</option></select><input type="submit" value="Submit"></form><%' When there is input display the dataelse

数据库名称

accessdb="greenberg"

连接到db

cn="DRIVER={Microsoft Access Driver (*.mdb)};"cn=cn & "DBQ=" & server.mappath(accessdb)

创建一个服务器记录设置对象

set rs = server.createobject("ADODB.Recordset")

创建一个能选择所有表格元件的sql语句
一个单项选择会简单地查询那个年份
多选项会通过已经分隔的逗号。
对于数字来说哪个是适合的？
然而下面是文本查询未注释的两行
以u输入开头和最初的sql查询未注释语句
对于文本查询u输入，需要分隔逗号，并且要使用单引号
我们用’,’替换逗号,并且改变包括单引号周围的u输入的sql
u输入="Detroit,Pittsburgh"
u输入= replace(u_input,",","','")
Sql语句会被写入到浏览器来显示这个内容

sql = "select * from hammerin_hank where year in("& u_input &")" 'sql for numericssql= "select *来自最初的('"& u_input &"')" 'sql hammerin_hank 执行这个sqlrs.Open sql, cn%><table border=3 align=center><caption><%= sql%></caption><tr><% ' Write out all the elements requested in the 对于rs.fields%>的每个元件，sql语句作为表格标题<th><%= element.name %></th><% next

结束表格标题%>

</tr><tr><% ' Write out all the values in the record do while not rs.eof for each element in rs.fields %><td align=right><%= rs(element.name) %></td><% next记录结束%></tr><% ' Move to the next recordrs.movenext

循环到开始

loop%></table><p><center>* In Military Service</center><% end if 'End check for user input %></body></html>

人生最精彩的不是实现梦想的瞬间，而是坚持梦想的过程。胜利不是战胜敌人，而是提高自己。我们只要每天进步百分之一，那就是成功。您如果觉得此分享对你有用，那将是我们天天ASP家园对你成功路上的一点帮助！

0 0