<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 data
else
数据库名称
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 numerics
sql= "select *来自最初的('"& u_input &"')" 'sql hammerin_hank
执行这个sql
rs.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 record
rs.movenext
循环到开始
loop%>
</table>
<p>
<center>* In Military Service</center>
<% end if 'End check for user input %>
</body>
</html>
热门信息
阅读 (198)
1 独特的随机字母阅读 (172)
2 检查和设置IIS服务器正确的权限阅读 (164)
3 ASP-对象阅读 (164)
4 asp网站伪静态化URL Rewrite中的httpd.ini伪静态化规则编写方法阅读 (163)
5 asp取access数据库里本周、本月、本季度的记录~