📄 modi_line.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit%>
<!--#include file="chk.asp"-->
<!--#include file="db_conn.asp"-->
<!--#include file="../my_libs/my_request.asp"-->
<!--#include file="../my_libs/my_lib.asp"-->
<%
dim sql,rs,action,rs3,sql3,nums,id,ar(12),i
action=my_request("action",0)
if action="save" then
call save()
end if
id=my_request("id",1)
if id="" or isnull(id) or (isNumeric(id)=false) then
call wnourl("参数错误")
end if
sql3="select zm_linename,zm_lineprice,zm_linetype,zm_linesort,zm_istop,zm_linetime,zm_plane,zm_sing,zm_introduce,zm_other,zm_pic,zm_isok,zm_flagx from ssort_lines where id="&id
set rs3=conn.execute (sql3)
for i=0 to 12
ar(i)=rs3(i)
next
rs3.close
set rs3=nothing
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script src="js/edit.js" type="text/javascript"></script>
<title>新建网页 1</title>
<link rel="stylesheet" type="text/css" href="style_admin.css" />
</head>
<body>
<table border="1" width="100%" id="table1">
<form action=modi_line.asp method=post>
<tr>
<td colspan="2" class="top_td">旅游线路添加</td>
</tr>
<tr>
<td width="17%" align="right" class="left_td">线路名称：</td>
<td width="82%">
<input type="text" name="ssort_linename" size="62" maxlength="150" value="<%=ar(0)%>"></td>
</tr>
<tr>
<td width="17%" align="right" class="left_td">线路报价：</td>
<td width="82%">
<input type="text" name="ssort_lineprice" size="13" maxlength="20" value="<%=ar(1)%>">请用统一简结格式：XXXRMB/人、XXX人民币/人</td>
</tr>
<tr>
<td width="17%" align="right" class="left_td">线路类型：</td>
<td width="82%">
<input type="text" name="ssort_linetype" size="35" maxlength="100" value="<%=ar(2)%>">如：常规线、精品线
等</td>
</tr>
<tr>
<td width="17%" align="right" class="left_td">线路所属类别：</td>
<td width="82%">
<select size="1" name="ssort_linesort">
<%
response.write "<option selected value="""">---请选择---</option>"
sql="select sort_id,zm_linesort from ssort_line order by zm_flag"
set rs=conn.execute (sql)
if rs.eof then
else
do while not rs.eof%>
<option <%if ar(3)=rs(0) then response.write "selected"%> value=<%=rs(0)%>><%=rs(1)%></option>
<%
rs.movenext
loop
rs.close
set rs=nothing
end if
%>
</select>请先择。如没有类型，请先建立类别后再添加线路</td>
</tr>
<tr>
<td width="17%" align="right" class="left_td">是否置顶：</td>
<td width="82%">
<input type="radio" value="0" <%if ar(4)=0 then response.write "checked"%> name="ssort_istop">不置顶<input type="radio" <%if ar(4)=1 then response.write "checked"%> value="1" name="ssort_istop">置顶
置顶后，此线路总是显示在最前面</td>
</tr>
<tr>
<td width="17%" align="right" class="left_td">时间描述：</td>
<td width="82%">
<input type="text" name="ssort_linetime" size="35" maxlength="50" value="<%=ar(5)%>">请用统一简结格式：三天二晚游、四日五晚游
等</td>
</tr>
<tr>
<td width="17%" align="right" class="left_td">行程安排：</td>
<td width="82%"><textarea rows="6" name="ssort_plane" cols="78"><%=Outleach(ar(6))%></textarea>(支持UBB语法)UBB帮助</td>
</tr>
<tr>
<td width="17%" align="right" class="left_td">线路途径景点：</td>
<td width="82%"><textarea rows="6" name="ssort_sing" cols="78"><%=Outleach(ar(7))%></textarea>(支持UBB语法)</td>
</tr>
<tr>
<td width="17%" align="right" class="left_td">线路、行程说明：</td>
<td width="82%"><textarea rows="6" name="ssort_introduce" cols="78"><%=Outleach(ar(8))%></textarea>(支持UBB语法)</td>
</tr>
<tr>
<td width="17%" align="right" class="left_td">其他备注：</td>
<td width="82%"><textarea rows="6" name="ssort_other" cols="78"><%=Outleach(ar(9))%></textarea>(支持UBB语法)</td>
</tr>
<tr>
<td width="17%" align="right" rowspan="2" class="left_td">线路景点图片：</td>
<td width="82%">
<input type="text" name="ssort_pic" size="25" readonly maxlength="50" value="<%=ar(10)%>"><font color="#330000" size="2"><a href="javascript:openWin('upload.asp','upload','toolbar=0,location=0,status=0,menubar=0,scrollbars=0,resizable=0,width=450,height=250')"><img src="images/upload.gif" alt="上传图片" width="60" height="18" border="0" align="middle" style="cursor: hand;" onMouseOver="window.status='使用系统自带的上传程序上传图片';return true;" onMouseOut="window.status='';return true;"></a></font>
<input type="hidden" name="action" value="save">
<input type="hidden" name="id" value="<%=id%>"></td>
</tr>
<tr>
<td width="82%">说明：图片为gif、jpg、jpge、bmp格式</td>
</tr>
<tr>
<td class="left_td">
<p align="right">是否启用：</td>
<td>
<input type="radio" <%if ar(11)=0 then response.write "checked"%> name="ssort_isok" value="0">启用<input type="radio" <%if ar(11)=1 then response.write "checked"%> name="ssort_isok" value="1">暂存</td>
</tr>
<tr>
<td class="left_td">
<p align="right">排序：</td>
<td>
<input type="text" name="ssort_flag" size="4" maxlength="10" value="<%=ar(12)%>">(建议采用默认)</td>
</tr>
<tr>
<td colspan="2">
<p align="center"><input type="submit" value="确定递交" name="B1"></td>
</tr></form>
</table>
</body>
</html>
<%
sub save()
dim arrlist(12),rs1,sql1,sid,p
sid=my_request("id",1)
if sid="" or isnull(sid) or (isNumeric(sid)=false) then
call wnourl("参数错误")
end if
arrlist(0)=my_request("ssort_linename",0)
arrlist(1)=my_request("ssort_lineprice",0)
arrlist(2)=my_request("ssort_linetype",0)
arrlist(3)=my_request("ssort_linesort",1)
arrlist(4)=my_request("ssort_istop",1)
arrlist(5)=my_request("ssort_linetime",0)
arrlist(6)=leach(my_request("ssort_plane",0))
arrlist(7)=leach(my_request("ssort_sing",0))
arrlist(8)=leach(my_request("ssort_introduce",0))
arrlist(9)=leach(my_request("ssort_other",0))
arrlist(10)=my_request("ssort_pic",0)
arrlist(11)=my_request("ssort_isok",0)
arrlist(12)=my_request("ssort_flag",0)
sql1="select zm_linename,zm_lineprice,zm_linetype,zm_linesort,zm_istop,zm_linetime,zm_plane,zm_sing,zm_introduce,zm_other,zm_pic,zm_isok,zm_flagx from ssort_lines where id="&sid
set rs1=server.CreateObject("adodb.recordset")
rs1.open sql1,conn,1,3
for p=0 to 12
rs1(p)=arrlist(p)
next
rs1.update
rs1.close
set rs1=nothing
call wurl("修改成功","manage_line.asp")
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -