📄 main.asp
字号:
<!--#include file="ConnDB.asp"-->
<html>
<head>
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>旅游在线报名系统</title>
<link href="style.css" rel="stylesheet">
<script language="javascript">
function AreaWin(url) {
var oth="toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,left=200,top=200";
oth = oth+",width=600,height=400";
var AreaWin=window.open(url,"AreaWin",oth);
AreaWin.focus();
return false;
}
</script>
</head>
<body topmargin="0">
<%
Dim rs,rsLine
'定义记录集对象
Set rs = Server.CreateObject("ADODB.RecordSet")
Set rsLine = Server.CreateObject("ADODB.RecordSet")
'读取推荐线路类型
sql = "SELECT * FROM Category ORDER BY CateId"
rs.Open sql, Conn, 1, 1
%>
<table border="0" cellspacing="3" width="712" align=center bordercolorlight="#4DA6FF" bordercolordark="#ECF5FF" height="188">
<tr>
<td colspan="5" width="700" height="102"><img src="pic/main.gif" border=0></td>
</tr>
<%
'依次显示推荐线路类型
Do While Not rs.EOF
%>
<tr><td bgcolor="#CEE7FF" width="360" height="14"> <%=rs("CateName")%></td>
<td bgcolor="#CEE7FF" width="75" height="14"><p align="center"><font color="#800080"><b>经济报价</b></font></td>
<td bgcolor="#CEE7FF" width="75" height="14"><p align="center"><font color="#800080"><b>标准报价</b></font></td>
<td bgcolor="#CEE7FF" width="75" height="14"><p align="center"><font color="#800080"><b>豪华报价</b></font></td>
<td bgcolor="#CEE7FF" width="75" height="14"><p align="center"><font color="#800080"><b>儿童报价</b></font></td></tr>
<%
'读取此线路类型中的所有线路
sql = "SELECT * FROM Line WHERE CateId=" & rs("CateId") & " ORDER BY LineName"
SEt rsLine = Conn.Execute(sql)
If rsLine.EOF Then
%>
<tr><td width="360" height="14">==暂时没有此类线路==</td>
<td width="75" height="14" align="center"></td>
<td width="75" height="14" align="center"></td>
<td width="75" height="14" align="center"></td>
<td width="75" height="14" align="center"></td></tr>
<%
End If
'依次显示线路信息
Do While Not rsLine.EOF
%>
<tr><td width="360" height="14"><a href="LineView.asp?lid=<%=rsLine("LineId")%>" target="_blank"><%=rsLine("LineName")%></a></td>
<td width="75" height="14" align="center"><%=rsLine("EcoPrice")%></td>
<td width="75" height="14" align="center"><%=rsLine("StdPrice")%></td>
<td width="75" height="14" align="center"><%=rsLine("ExpPrice")%></td>
<td width="75" height="14" align="center"><%=rsLine("CldPrice")%></td></tr>
<%
rsLine.MoveNext
Loop
rs.MoveNext
Loop
%>
<tr>
<td bgcolor="#CEE7FF" colspan="5" width="692" height="14">
<p align="center"><a href="LineSearch.asp" onclick="return AreaWin(this.href)" target="_blank">
<font color="#000000">旅游线路查询</font></a></p>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -