?? 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 + -