数据库通过日期显示

通过日期值显示数据库就像显示你的所有数据子集一样容易。当你在比较你的sql和数据库的数量目录时，这对于划定被通过的值

(example: sql="select * from table where number = " &input value )不是那么必要。需要划定的字符目录需要被划定（example: sql="select * from table where text ='" &input value &"'"）。为了能让日期值和其他区分(example: sql="select * from table where date = #" & input value &"#" )，日期值需要一个定界符。
<%
u_date=request.form("u_date")
u_exp=request.form("u_exp")

 ‘检查看用户是否输入了u日期的值
‘如果是无效值，跳转到查询数据库，只显示输入表单

 if u_date<>"" then
accessdb="stocks" 
cn="DRIVER={Microsoft Access Driver (*.mdb)};"
cn=cn & "DBQ=" & server.mappath(accessdb)
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select date,close,volume from epos where date "& u_exp& " #" & u_date & "# " 
rs.Open sql, cn
%>
<title>EPOS Daily Stock Info where the trading date is 
<%= server.htmlencode(u_exp) %> <%= u_date %> </title> 
<table border="0" align="center" width="100%">
<tr><td align="center">
EPOS Daily Stock Info where<br> the trading date is 
<%= server.htmlencode(u_exp) %> <%= u_date %> <br> 
<table border="5" cellpadding="3" cellspacing="3" align="center">
<tr><td>
Date
</td> 
<td>
Close
</td> 
<td>
Volume
</td> 
</tr>
<%
rs.movefirst
do while not rs.eof
%>
<tr><td>
<%= rs("date") %>
</td>
<td>
<%= "$ "& formatnumber(rs("close"),2,0) %>
</td>
<td>
<%= formatnumber(rs("volume"),0) %>
</td>
</tr>
<%
rs.movenext
loop
%>
</table>
<% 
end if
%>
<form action="<%= request.servervariables("script_name") %>"
method="post">
<%
if u_date = "" then %>
Please make a selection<br>
<% end if %>
<select name="u_exp" size="1">
<%

 
‘检查看这是否有u.exp值
‘如果有那么就把它当做下拉菜单的选项值来写


i

f u_exp <> "" then %>
<option selected value="<%= u_exp %>"><%= server.htmlencode(u_exp) %></option>
<% end if %>
<option value="=">=</option>
<option value=">">></option>
<option value="<"><</option>
<option value=">=">>=</option>
<option value="<="><=</option>
<option value="<>"><></option>
</select>
 
<select name="u_date" size="1">
<% 

‘检查看看这是否有u_date值
‘如果有那么就把它当做下拉菜单的选项值来写
 通过日期值显示数据库就像显示你的所有数据子集一样容易。当你在比较你的sql和数据库的数量目录时，这对于划定被通过的值

(example: sql="select * from table where number = " &input value )不是那么必要。需要划定的字符目录需要被划定（example: sql="select * from table where text ='" &input value &"'"）。为了能让日期值和其他区分(example: sql="select * from table where date = #" & input value &"#" )，日期值需要一个定界符。
<%
u_date=request.form("u_date")
u_exp=request.form("u_exp")

 ‘检查看用户是否输入了u日期的值
‘如果是无效值，跳转到查询数据库，只显示输入表单

if u_date<>"" then
accessdb="stocks" 
cn="DRIVER={Microsoft Access Driver (*.mdb)};"
cn=cn & "DBQ=" & server.mappath(accessdb)
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select date,close,volume from epos where date "& u_exp& " #" & u_date & "# " 
rs.Open sql, cn
%>
<title>EPOS Daily Stock Info where the trading date is 
<%= server.htmlencode(u_exp) %> <%= u_date %> </title> 
<table border="0" align="center" width="100%">
<tr><td align="center">
EPOS Daily Stock Info where<br> the trading date is 
<%= server.htmlencode(u_exp) %> <%= u_date %> <br> 
<table border="5" cellpadding="3" cellspacing="3" align="center">
<tr><td>
Date
</td> 
<td>
Close
</td> 
<td>
Volume
</td> 
</tr>
<%
rs.movefirst
do while not rs.eof
%>
<tr><td>
<%= rs("date") %>
</td>
<td>
<%= "$ "& formatnumber(rs("close"),2,0) %>
</td>
<td>
<%= formatnumber(rs("volume"),0) %>
</td>
</tr>
<%
rs.movenext
loop
%>
</table>
<% 
end if
%>
<form action="<%= request.servervariables("script_name") %>"
method="post">
<%
if u_date = "" then %>
Please make a selection<br>
<% end if %>
<select name="u_exp" size="1">
<% 

‘检查看这是否有u.exp值
‘如果有那么就把它当做下拉菜单的选项值来写

if u_exp <> "" then %>
<option selected value="<%= u_exp %>"><%= server.htmlencode(u_exp) %></option>
<% end if %>
<option value="=">=</option>
<option value=">">></option>
<option value="<"><</option>
<option value=">=">>=</option>
<option value="<="><=</option>
<option value="<>"><></option>
</select>
 
<select name="u_date" size="1">
<% 

‘检查看看这是否有u_date值
‘如果有那么就把它当做下拉菜单的选项值来写

if u_date <> "" then %>
<option selected value="<%= u_date %>"><%= u_date %></option>
<% end if %>
<option value="10/19/1999">10/19/1999</option>
<option value="10/26/1999">10/26/1999</option>
<option value="11/03/1999">11/03/1999</option>
<option value="11/10/1999">11/10/1999</option>
<option value="11/17/1999">11/17/1999</option>
<option value="11/24/1999">11/24/1999</option>
<option value="12/01/1999">12/01/1999</option>
<option value="12/08/1999">12/08/1999</option>
<option value="12/15/1999">12/15/1999</option>
<option value="12/22/1999">11/22/1999</option>
<option value="12/29/1999">11/29/1999</option>
<option value="01/05/2000">01/05/2000</option>
<option value="01/12/2000">01/12/2000</option>
<option value="01/19/2000">01/19/2000</option>
</select>
<input type="submit" value="Submit">
</form>
</td></tr></table>

简单生活，希望对大家有用!要觉得本文有价值请分享给您的朋友，生活就是人来人往，分享越多!收获越多!作者：天天ASP家园