📄 busstate.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<% option explicit %>
<!--#include file="function.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>站点查询结果</title>
<%
function Statesearch()
Dim station,busInfo,busId
Dim IdList,Wstr,tem
Dim i,j,k,number,ii,n,tag
tag = 0
Wstr="<td height=""44"" align=""center"" width=""100"">"
station = trim(request("text"))
busId=getBusidList
For i = 0 To UBound(busId)
busInfo = getInfoByBusID(busId(i))
For j = 3 To UBound(busInfo)
If station = busInfo(j) Then
tag = 1
end if
next
next
if tag = 0 then
response.write("<table border=""1"" width=""400"" cellspacing=""0"" cellpadding=""0"" background=""image/2.gif"" style=""border-collapse: collapse; font-family: Arial Black; font-size: 10pt; color: #666699"" bordercolordark=""#E5E5E5"">")
response.write("<tr>")
response.write("<td height=""44"" align=""center"">对不起！您所查的车站不存在，请重新输入！</td>")
response.write("</tr>")
response.write("</table>")
else
' 输出表格
response.write("<table border=""1"" width=""300"" cellspacing=""0"" cellpadding=""0"" background=""image/2.gif"" style=""border-collapse: collapse; font-family: Arial Black; font-size: 10pt; color: #666699"" bordercolordark=""#E5E5E5"">")
response.write("<tr>")
response.write("<td height=""44"" width=""300"" align=""center"">经过"&station&"的车次有</td>")
response.write("</tr>")
response.write("</table>")
response.write("<p>")
IdList = getBusIDInfoByStation(station)
k = Ubound(IdList)
number = k\7+1
response.write("<table border=""1"" width=""700"" cellspacing=""0"" cellpadding=""0"" background=""image/2.gif"" style=""border-collapse: collapse; font-family: Arial Black; font-size: 10pt; color: #666699"" bordercolordark=""#E5E5E5"">")
for n = 1 to number
response.write("<tr>")
for ii = 0 to 6
if (n-1)*7+ii<=k then
response.write(Wstr&IdList(n*0+ii)&"</td>")
else
response.write(Wstr&" "&"</td>")
end if
next
response.write("</tr>")
next
response.write("</table>")
end if
end function
%>
</head>
<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0">
<div align="center">
<table border="0" width="100%" height="101%" cellspacing="0" cellpadding="0" style="font-size: 0">
<tr>
<td align="center" height="146" background="image/top1.jpg">
</td>
</tr>
<tr>
<td align="center" height="14">
</td>
</tr>
<tr>
<td align="center" height="260" style="font-family: Arial Black; font-size: 10pt; color:#666699"">
<%Statesearch()%>
</td>
</tr>
<tr>
<td align="center" height="156" background="image/buttom1.jpg">
</td>
</tr>
<tr>
<td align="center" bgcolor="#f3f2ef" style="font-size: 8" width="100%" height="8">
</td>
</tr>
</table>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -