ASP显示问题
大家帮忙看看我这个程序问题出现在哪呢？？？？？
asp登陆 界面.zip
(46.07 KB)
asp登陆 界面.zip
(46.07 KB)
asp登陆 界面.zip
(46.07 KB)
2010-06-09 16:48
2010-06-09 17:31
2010-06-09 20:58
程序代码：<%@language=vbscript%>
<%if not session("checked")="yes" then
response.Redirect "login.asp"
else
if request("act")="search" then
se_key=request("VehicleNum")
%>
<html>
<title>查询界面</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#ffffff" text="#000000" topmargin="20" class="title">
<%
dim exec,conn,rs
exec="select * from mytab where VehicleNum='" & se_key &"'"
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("test.mdb")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn
%>
<table width="100%" border="1" cellspacing="0" cellpadding="0">
<%do while not rs.eof%><tr>
<td><%=rs("serverID")%></td>
<td><%=rs("AreaCode")%></td>
<td><%=rs("VehicleType")%></td>
<td><%=rs("VehicleNum")%></td>
<td><%=rs("AlarmSpeed")%></td>
<td><%=rs("OverSpeedTime")%></td>
<td><%=rs("Latitude")%></td>
<td><%=rs("Longitude")%></td>
<td><%=rs("Speed")%></td>
<td><%=rs("Altitude")%></td>
<%
rs.movenext
loop
%>
</table>
</body>
</html>
<%
else
%>
<form action="right.asp?action=search name=form1>
<form method="POST" action="right.asp?">
<p><font size="2" color=blue>请输入VehicleNum：</font><input type="text" name="VehicleNum" size="20"></p>
<input type="hidden" name="act" value="search">
<p><input type="Submit" value="search" name=""></p>
</form>
<%
end if
end if%>
2010-06-10 12:16
2010-06-11 15:15
2010-06-12 12:50
很好！