📄 lineedit.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.form2.linename.value==""){
alert("请输入旅游线路名称!");
form2.linename.focus();
return false;
}
if (document.form2.days.value==""){
alert("请输入行程天数!");
form2.days.focus();
return false;
}
if (document.form2.type.value==""){
alert("请输入适合人群!");
form2.type.focus();
return false;
}
if (document.form2.ecoprc.value=="")
form2.ecoprc.value = 0 ;
if (document.form2.stdprc.value=="")
form2.stdprc.value = 0 ;
if (document.form2.expprc.value=="")
form2.expprc.value = 0;
if (document.form2.linename.value=="")
form2.cldprc.value = 0;
return true;
}
function ChangeItem(lid){
var tindex,tid
tindex = document.form2.slt.selectedIndex;
tid = document.form2.slt.options[tindex].value;
location.href = "LineEdit.asp?tid="+tid+"&lid="+lid;
}
</Script>
</head>
<%
Function ChangeChr(str)
ChangeChr = Replace(str," "," ")
ChangeChr = Replace(ChangeChr,"<br>",Chr(13))
End Function
Dim rs,rsLine
Set rs = Server.CreateObject("ADODB.RecordSet")
Set rsLine = Server.CreateObject("ADODB.RecordSet")
Dim LineId,TmpTypeId
LineId = Request.QueryString("lid")
If IsNull(LineId) Then
Response.Write "错误！"
End If
sql = "SELECT l.*,a.TypeId FROM Line l,Area a WHERE l.LineId="& LineId & " And l.AreaId = a.AreaId"
rsLine.Open sql,Conn,1,3
%>
<%
Dim TypeId,bTrue
TypeId = Request.QueryString("tid")
If TypeId<>"" Then
bTrue = True
sqlType = "Select * From Area Where TypeId="&CInt(TypeId)&" Order By AreaId"
Else
bTrue = False
If rsLine("TypeId") Then
TypeId = 1
Else
TypeId = 0
End If
sqlType = "Select * From Area Where TypeId="&TypeId&" Order By AreaId"
End If
rs.Open sqlType,Conn,1,1
%>
<body>
<form name="form2" method="POST" action="LineSave.asp?action=edit&id=<%=LineId%>" onSubmit="return ChkFields()">
<center><font color=red size=3><b>旅游线路介绍</b></font></center><br>
<table align="center" width="100%" border="1" cellspacing="0" width="100%" bordercolorlight="#4DA6FF" bordercolordark="#ECF5FF">
<tr><td align=center bgcolor="ECF5FF" width="15%">指定地域</td><td>地域类型 <select name="slt" onchange="ChangeItem(<%=LineId%>)">
<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">
<%If bTrue Then
Do While Not rs.EOF%>
<option value="<%=rs("AreaId")%>"><%=rs("AreaName")%></option>
<% rs.MoveNext
Loop
ELse
Do While Not rs.EOF
If rs("AreaId") = rsLine("AreaId") Then%>
<option value="<%=rs("AreaId")%>" selected><%=rs("AreaName")%></option>
<% Else %>
<option value="<%=rs("AreaId")%>"><%=rs("AreaName")%></option>
<% End If
rs.MoveNext
Loop
End If
%>
</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"
<% If rsLine("CateId")=0 Then %>
selected
<% End If %>
>不是推荐线路</option>
<% '将推荐线路数据写入下拉菜单cate中
Do While Not rs1.EOF
%>
<option value="<%=rs1("CateId")%>"
<% If rsLine("CateId")=rs1("CateId") Then %>
selected
<% End If %>
><%=rs1("CateName")%></option>
<%
rs1.MoveNext
Loop
%>
</select></td></tr>
<tr><td align=center bgcolor="ECF5FF">线路名称</td><td><input type="text" name="linename" size="60" value="<%=rsLine("LineName")%>"></td></tr>
<tr><td align=center bgcolor="ECF5FF">行程时间</td><td><input type="text" name="days" size="5" value="<%=rsLine("Days")%>">天
适合人群<input type="text" name="type" size="20" value="<%=rsLine("People")%>"></td></tr>
<tr><td align=center bgcolor="ECF5FF">线路特色</td><td><textarea rows="2" name="special" cols="60"><%=ChangeChr(rsLine("Special"))%></textarea></td></tr>
<tr><td align=center bgcolor="ECF5FF">友情提示</td><td><textarea rows="2" name="tips" cols="60"><%=ChangeChr(rsLine("Tips"))%></textarea></td></tr>
<tr><td align=center bgcolor="ECF5FF">安全提示</td><td><textarea rows="2" name="safetips" cols="60"><%=ChangeChr(rsLine("SafeTip"))%></textarea></td></tr>
<tr><td align=center bgcolor="ECF5FF">行程参考</td><td><textarea rows="3" name="lineref" cols="60"><%=ChangeChr(rsLine("LineRef"))%></textarea></td></tr>
<tr><td align=center bgcolor="ECF5FF">交通信息</td><td><textarea rows="2" name="traffic" cols="60"><%=ChangeChr(rsLine("Traffic"))%></textarea></td></tr>
<tr><td align=center bgcolor="ECF5FF">住宿信息</td><td><textarea rows="2" name="hotel" cols="60"><%=ChangeChr(rsLine("Hotel"))%></textarea></td></tr>
<tr><td align=center bgcolor="ECF5FF">用餐信息</td><td><textarea rows="2" name="dinner" cols="60"><%=ChangeChr(rsLine("Dinner"))%></textarea></td></tr>
<tr><td align=center bgcolor="ECF5FF">娱乐信息</td><td><textarea rows="2" name="entertmt" cols="60"><%=ChangeChr(rsLine("Entertainment"))%></textarea></td></tr>
<tr><td align=center bgcolor="ECF5FF">景点信息</td><td><textarea rows="2" name="place" cols="60"><%=ChangeChr(rsLine("Place"))%></textarea></td></tr>
<tr><td align=center bgcolor="ECF5FF">购物信息</td><td><textarea rows="2" name="shopping" cols="60"><%=ChangeChr(rsLine("Shopping"))%></textarea></td></tr>
<tr><td align=center bgcolor="ECF5FF">线路价格</td><td>经济报价<input type="text" name="ecoprc" size="6" value="<%=rsLine("EcoPrice")%>">
标准报价<input type="text" name="stdprc" size="6" value="<%=rsLine("StdPrice")%>">
豪华报价<input type="text" name="expprc" size="6" value="<%=rsLine("ExpPrice")%>">
儿童报价<input type="text" name="cldprc" size="6" value="<%=rsLine("CldPrice")%>"></td></tr>
<tr><td colspan=2 align=center><input type="submit" value=" 保存文本 " name="B1">
<input type="reset" value=" 重 写 " name="B2"></td></tr>
</table>
</form>
<form name="form1" method="POST" action="ImageSave.asp?lid=<%=LineId%>">
<table align="center" width="100%" border="1" cellspacing="0" width="100%" bordercolorlight="#4DA6FF" bordercolordark="#ECF5FF">
<tr><td colspan=2 align=center>图片上传（每个旅游线路可以上传4个图片文件）</td></tr>
<tr><td bgcolor="ECF5FF" align=center>图片1上传<input type="hidden" name="img1" value="<%=rsLine("Image1")%>"></td>
<td><% If rsLine("Image1")<>"" Then %>
<a href="images/<%=rsLine("Image1")%>" target="_blank"><%=rsLine("Image1")%></a>
<a href="ImageDelt.asp?lid=<%=LineId%>&no=1">删除</a><br>
<% End IF %>
<iframe frameborder="0" width="400" height="30" scrolling="no" src="upload.asp?no=1"></iframe><br>
图片题目 <input type="text" name="it1" size=30 value="<%=rsLine("ImageTitle1")%>"></td></tr>
<tr><td bgcolor="ECF5FF" align=center>图片2上传<input type="hidden" name="img2" value="<%=rsLine("Image2")%>"></td>
<td><% If rsLine("Image2")<>"" Then %>
<a href="images/<%=rsLine("Image2")%>" target="_blank"><%=rsLine("Image2")%></a>
<a href="ImageDelt.asp?lid=<%=LineId%>&no=2">删除</a><br>
<% End IF %>
<iframe frameborder="0" width="400" height="30" scrolling="no" src="upload.asp?no=2"></iframe><br>
图片题目 <input type="text" name="it2" size=30 value="<%=rsLine("ImageTitle2")%>"></td></tr>
<tr><td bgcolor="ECF5FF" align=center>图片3上传<input type="hidden" name="img3" value="<%=rsLine("Image3")%>"></td>
<td><% If rsLine("Image3")<>"" Then %>
<a href="images/<%=rsLine("Image3")%>" target="_blank"><%=rsLine("Image3")%></a>
<a href="ImageDelt.asp?lid=<%=LineId%>&no=3">删除</a><br>
<% End IF %>
<iframe frameborder="0" width="400" height="30" scrolling="no" src="upload.asp?no=3"></iframe><br>
图片题目 <input type="text" name="it3" size=30 value="<%=rsLine("ImageTitle3")%>"></td></tr>
<tr><td bgcolor="ECF5FF" align=center>图片4上传<input type="hidden" name="img4" value="<%=rsLine("Image4")%>"></td>
<td><% If rsLine("Image4")<>"" Then %>
<a href="images/<%=rsLine("Image4")%>" target="_blank"><%=rsLine("Image4")%></a>
<a href="ImageDelt.asp?lid=<%=LineId%>&no=4">删除</a><br>
<% End IF %>
<iframe frameborder="0" width="400" height="30" scrolling="no" src="upload.asp?no=4" ></iframe><br>
图片题目 <input type="text" name="it4" size=30 value="<%=rsLine("ImageTitle4")%>"></td></tr>
<tr><td colspan=2 align=center><input type="submit" value=" 保存图片信息 " name="BI1">
<input type="reset" value=" 重 写 " name="BI2"></td></tr>
</form>
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -