📄 lineadd.asp
字号:
<!--#include file="../ConnDB.asp"-->
<!--#include file="isAdmin.asp"-->
<html>
<head>
<title>旅游线路介绍</title>
<link rel="stylesheet" href="../style.css">
<Script Language="JavaScript">
function ChkFields()
{
if (document.form1.linename.value==""){
alert("请输入旅游线路名称!");
form1.linename.focus();
return false;
}
if (document.form1.days.value==""){
alert("请输入行程天数!");
form1.days.focus();
return false;
}
if (document.form1.type.value==""){
alert("请输入适合人群!");
form1.type.focus();
return false;
}
if (document.form1.ecoprc.value=="")
form1.ecoprc.value = 0 ;
if (document.form1.stdprc.value=="")
form1.stdprc.value = 0 ;
if (document.form1.expprc.value=="")
form1.expprc.value = 0;
if (document.form1.linename.value=="")
form1.cldprc.value = 0;
return true;
}
function ChangeItem(){
var tindex,tid
tindex = document.form1.slt.selectedIndex;
tid = document.form1.slt.options[tindex].value;
location.href = "LineAdd.asp?tid="+tid;
}
</Script>
</head>
<body>
<%
'读取地域数据
Dim rs
Set rs = Server.CreateObject("ADODB.RecordSet")
Dim TypeId
'读取地域类型参数
TypeId = Request.QueryString("tid")
If TypeId <> "" Then
sqlType = "SELECT * FROM Area WHERE TypeId=" & CInt(TypeId) & " ORDER BY AreaId"
Else
TypeId = "0"
sqlType = "SELECT * FROM Area WHERE TypeId=0 ORDER BY AreaId"
End If
'将指定地域类型中的所有地域数据读取到记录集rs中
rs.Open sqlType, Conn, 1, 1
%>
<form name="form1" method="POST" action="LineSave.asp?action=add" onSubmit="return ChkFields()">
<table align="center" width="100%" border="1" cellspacing="0" width="100%" bordercolorlight="#4DA6FF" bordercolordark="#ECF5FF" height="284">
<tr><td align=center colspan=2 height="16"><font color=red size=3><b>旅游线路介绍</b></font></td></tr>
<tr><td align=center bgcolor="ECF5FF" width="15%" height="12">指定地域</td><td height="12">地域类型
<SELECT name="slt" onchange="ChangeItem()">
<option value="0" <%If TypeId="0" Then%>selected<%End If%>>本市</option>
<option value="1" <%If TypeId="1" Then%>selected<%End If%>>外埠</option></SELECT>
地域名称 <SELECT name="area">
<% '将地域数据写入下拉菜单area中
i = 0
Do While Not rs.EOF
%>
<option value="<%=rs("AreaId")%>"
<% If i = 0 Then %>
selected
<% End If %>
><%=rs("AreaName")%></option>
<%
rs.MoveNext
Loop
%>
</SELECT></td></tr>
<%
'读取推荐线路数据
Dim rs1
Set rs1 = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT * FROM Category ORDER BY CateId"
rs1.Open sql, Conn, 1, 1
%>
<tr><td align=center bgcolor="ECF5FF" height="1">推荐线路</td><td height="1">
<SELECT name="Cate"><option value="0" selected>不是推荐线路</option>
<% '将推荐线路数据写入下拉菜单cate中
Do While Not rs1.EOF
%>
<option value="<%=rs1("CateId")%>"><%=rs1("CateName")%></option>
<%
rs1.MoveNext
Loop
%>
</SELECT></td></tr>
<tr><td align=center bgcolor="ECF5FF" height="1">线路名称</td><td height="1"><input type="text" name="linename" size="60"></td></tr>
<tr><td align=center bgcolor="ECF5FF" height="1">行程时间</td><td height="1"><input type="text" name="days" size="5">天
适合人群<input type="text" name="type" size="20"></td></tr>
<tr><td align=center bgcolor="ECF5FF" height="9">线路特色</td><td height="9"><textarea rows="2" name="special" cols="60"></textarea></td></tr>
<tr><td align=center bgcolor="ECF5FF" height="11">友情提示</td><td height="11"><textarea rows="2" name="tips" cols="60"></textarea></td></tr>
<tr><td align=center bgcolor="ECF5FF" height="22">安全提示</td><td height="22"><textarea rows="2" name="safetips" cols="60"></textarea></td></tr>
<tr><td align=center bgcolor="ECF5FF" height="44">行程参考</td><td height="44"><textarea rows="2" name="lineref" cols="60"></textarea></td></tr>
<tr><td align=center bgcolor="ECF5FF" height="21">交通信息</td><td height="21"><textarea rows="2" name="traffic" cols="60"></textarea></td></tr>
<tr><td align=center bgcolor="ECF5FF" height="19">住宿信息</td><td height="19"><textarea rows="2" name="hotel" cols="60"></textarea></td></tr>
<tr><td align=center bgcolor="ECF5FF" height="1">用餐信息</td><td height="1"><textarea rows="2" name="dinner" cols="60"></textarea></td></tr>
<tr><td align=center bgcolor="ECF5FF" height="11">娱乐信息</td><td height="11"><textarea rows="2" name="entertmt" cols="60"></textarea></td></tr>
<tr><td align=center bgcolor="ECF5FF" height="1">景点信息</td><td height="1"><textarea rows="2" name="place" cols="60"></textarea></td></tr>
<tr><td align=center bgcolor="ECF5FF" height="2">购物信息</td><td height="2"><textarea rows="2" name="shopping" cols="60"></textarea></td></tr>
<tr><td align=center bgcolor="ECF5FF" height="23">线路价格</td><td height="23">经济报价<input type="text" name="ecoprc" size="6" value="0">
标准报价<input type="text" name="stdprc" size="6" value="0">
豪华报价<input type="text" name="expprc" size="6" value="0">
儿童报价<input type="text" name="cldprc" size="6" value="0"></td></tr>
<tr><td colspan=2 align=center height="25"><input type="submit" value=" 保存文本 " name="B1">
<input type="reset" value=" 重 写 " name="B2"></td></tr>
<tr><td colspan=2 align=center height="12">保存线路内容后才可以上传图片（每个旅游线路可以上传4个图片文件）</td></tr>
</table>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -