用asp写个火车时刻表查询的网页,表格的表头有车次,始发站,终点站,发车站,发车时间,到达站,到达时间,里程(公里),历时,表头为蓝色,表身为白色
时间: 2024-05-06 15:17:19 浏览: 153
以下是一个简单的 ASP 火车时刻表查询网页示例,其中使用了 HTML 表格标签和 ASP 数据库查询语句:
```
<!DOCTYPE html>
<html>
<head>
<title>火车时刻表查询</title>
<style>
table {
border-collapse: collapse;
width: 100%;
}
th, td {
text-align: left;
padding: 8px;
border-bottom: 1px solid #ddd;
}
th {
background-color: #0074D9;
color: #fff;
}
tr:hover {background-color: #f5f5f5;}
</style>
</head>
<body>
<%
' 连接数据库
Dim conn, rs
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("train_schedule.mdb")
' 查询数据
Set rs = conn.Execute("SELECT * FROM train_schedule")
' 输出表格
Response.Write "<table>"
Response.Write "<tr><th>车次</th><th>始发站</th><th>终点站</th><th>发车站</th><th>发车时间</th><th>到达站</th><th>到达时间</th><th>里程(公里)</th><th>历时</th></tr>"
Do Until rs.EOF
Response.Write "<tr><td>" & rs("train_no") & "</td><td>" & rs("start_station") & "</td><td>" & rs("end_station") & "</td><td>" & rs("departure_station") & "</td><td>" & rs("departure_time") & "</td><td>" & rs("arrival_station") & "</td><td>" & rs("arrival_time") & "</td><td>" & rs("distance") & "</td><td>" & rs("duration") & "</td></tr>"
rs.MoveNext
Loop
Response.Write "</table>"
' 关闭连接
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>
</body>
</html>
```
注意,以上示例假设已经创建了名为 `train_schedule.mdb` 的 Access 数据库,并在其中创建了名为 `train_schedule` 的表格,包含以下字段:
- `train_no`:车次
- `start_station`:始发站
- `end_station`:终点站
- `departure_station`:发车站
- `departure_time`:发车时间
- `arrival_station`:到达站
- `arrival_time`:到达时间
- `distance`:里程(公里)
- `duration`:历时
实际应用中,需要根据具体情况进行修改和优化。
阅读全文