listallxianlu.asp
来自「旅游管理系统 用ASP+SQL 2」· ASP 代码 · 共 42 行
ASP
42 行
<html>
<head>
<title>当前所有线路列表</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css/css1.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" style="background-color: #999999" text="#000000" topmargin="2">
<!--#include file="includefile/conn.asp" -->
<script language =vbscript >
sub mfk(a)
window.opener.form1.text.value=a
window.alert ("您选定了第"&a&"条线路,按确定后自动查询!"&chr(13)&"此窗口也自动关闭!")
window.opener.form1.submit
window.close
end sub
</script>
<%
sql="select * from xianlu"
rs.open sql,,1,2
%>
<table width="400" border="0" cellspacing="1" cellpadding="0" bgcolor="#CCCCCC">
<tr bgcolor="#EfEfEf" align="center">
<td width="22" height="22">ID</td>
<td width="375" height="22">线路名称(不需记住线路ID,只需点击线路名)</td>
</tr>
<%
while not rs.eof
%>
<tr bgcolor="#FFFFFF">
<td width="22" align =center height="18"><%=rs("id")%></td>
<td width="375" height="18"> <a href ="#" onclick =mfk(<%=rs("id")%>)><%=rs("x_name")%></a></td>
</tr>
<% rs.movenext
wend
rs.close
conn.close
%>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?