📄 add_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
action=my_request("action",0)
if action="save" then
call save()
end if
sql3="select max(zm_flagx) as maxflagx from ssort_lines"
set rs3=conn.execute (sql3)
if (rs3.eof) then
nums=1
else
nums=rs3("maxflagx")+1
rs3.close
set rs3=nothing
end if
%>
<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 width="98%" id="table1" cellpadding="4">
<form action=add_line.asp method=post>
<tr>
<td colspan="2" class="top_td" height="26">旅游线路添加</td>
</tr>
<tr>
<td width="16%" align="right" class="left_td">线路名称：</td>
<td width="82%">
<input type="text" name="ssort_linename" size="62" maxlength="150"></td>
</tr>
<tr>
<td width="16%" align="right" class="left_td">线路报价：</td>
<td width="82%">
<input type="text" name="ssort_lineprice" size="13" maxlength="20">请用统一简结格式：XXXRMB/人、XXX人民币/人</td>
</tr>
<tr>
<td width="16%" align="right" class="left_td">线路类型：</td>
<td width="82%">
<input type="text" name="ssort_linetype" size="35" maxlength="100">如：常规线、精品线
等</td>
</tr>
<tr>
<td width="16%" 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
response.write "<option value="&rs(0)&">"&rs(1)&"</option>"
rs.movenext
loop
rs.close
set rs=nothing
end if
%>
</select>请先择。如没有类型，请先建立类别后再添加线路</td>
</tr>
<tr>
<td width="16%" align="right" class="left_td">是否置顶：</td>
<td width="82%">
<input type="radio" value="0" name="ssort_istop" checked>正常<input type="radio" value="1" name="ssort_istop">置顶
置顶后，此线路总是显示在最前面</td>
</tr>
<tr>
<td width="16%" align="right" class="left_td">时间描述：</td>
<td width="82%">
<input type="text" name="ssort_linetime" size="35" maxlength="50">请用统一简结格式：三天二晚游、四日五晚游
等</td>
</tr>
<tr>
<td width="16%" align="right" class="left_td">行程安排：</td>
<td width="82%"><textarea rows="6" name="ssort_plane" cols="54"></textarea></td>
</tr>
<tr>
<td width="16%" align="right" class="left_td">线路途径景点：</td>
<td width="82%"><textarea rows="6" name="ssort_sing" cols="54"></textarea></td>
</tr>
<tr>
<td width="16%" align="right" class="left_td">线路、行程说明：</td>
<td width="82%"><textarea rows="6" name="ssort_introduce" cols="54"></textarea></td>
</tr>
<tr>
<td width="16%" align="right" class="left_td">其他备注：</td>
<td width="82%"><textarea rows="6" name="ssort_other" cols="54"></textarea></td>
</tr>
<tr>
<td width="16%" align="right" rowspan="2" class="left_td">线路景点图片：</td>
<td width="82%">
<input type="text" name="ssort_pic" size="25" readonly maxlength="50"><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"></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" name="ssort_isok" value="0" checked>启用<input type="radio" 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="<%=nums%>">(建议采用默认)</td>
</tr>
<tr>
<td colspan="2" bgcolor="#6699FF">
<p align="center"><input type="submit" value="确定递交" name="B1"></td>
</tr></form>
</table>
</body>
</html>
<%
sub save()
dim arrlist(12),rs1,sql1
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_addtime,zm_isok,zm_flagx from ssort_lines"
set rs1=server.CreateObject("adodb.recordset")
rs1.open sql1,conn,1,3
rs1.addnew
rs1(0)=arrlist(0)
rs1(1)=arrlist(1)
rs1(2)=arrlist(2)
rs1(3)=arrlist(3)
rs1(4)=arrlist(4)
rs1(5)=arrlist(5)
rs1(6)=arrlist(6)
rs1(7)=arrlist(7)
rs1(8)=arrlist(8)
rs1(9)=arrlist(9)
rs1(10)=arrlist(10)
rs1(11)=now()
rs1(12)=arrlist(11)
rs1(13)=arrlist(12)
rs1.update
rs1.close
set rs1=nothing
response.redirect "manage_line.asp"
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -