变量如何保存
city这个变量如何保存
请高手指教
<!--#include file="adovbs.inc"-->
<!-- #include file="cnn.asp" -->
<%
dim city
city=request.form("city")
city=request.querystring("city")
Session("city")=city
set rst=cnn.execute("selectreccoach3 "&Session("city")&" ",,adcmdtext)
set rst1=cnn.execute("fare",,adcmdtable)
set rst2=cnn.execute("Report_fare",,adcmdtable)
%>
<html>
<body>
<div align="left">
<form name="form1" method="post" action="http://localhost/zh/index.asp">
<p>时间查询:
<select size="1" name="lstfld">
<option selected value="jt">今天</option>
<option value="mt">明天</option>
<option value="zt">昨天</option>
</select>
<input name="btnsubmit" type="submit" value="查询"></p>
</form>
<%
dim field
field=request.form("lstfld")
if field="jt" then
set rst=cnn.execute("selectreccoach3 " & Session("city")& "",,adcmdtext)
end if
if field="mt" then
set rst=cnn.execute("selectreccoach",,adcmdtext)
end if
if field="zt" then
set rst=cnn.execute("selectreccoach2",,adcmdtext)
end if
%>
<%if rst.eof then%>
<p><font color="red">当前没有您所要的数据!</font></p>
<%else%>
<table cellspacing="3" cellpadding="3" width="100%" border="1" align="center">
<tr align="center" bgcolor="">
<td><font color="#">车次</td>
<td><font color="#">发车时间</td>
<td><font color="#">车型</td>
<td><font color="#">终点</td>
<td><font color="#">价格</td>
<td><font color="#">有无票</td>
<td><font color="#">途经站点</td>
</tr>
<%while not rst.eof%>
<tr bgcolor="">
<td align="center"><%=rst("coach")%></td>
<td><%=rst("run_time")%></td>
<td align="center"><%=rst("typename")%></td>
<td align="center"><%=rst("terminal")%></td>
<td align="center"><%=rst1("price")%></td>
<td align="center"><%if rst("leaves")>0 then %>有
<%else%>无
<%end if%></td>
<td><%=rst2("station")%></td>
</tr>
<%
rst.movenext
wend
%>
</table>
<%end if%>
</div>
</body>
</html>