?? 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("參數(shù)錯誤")
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>新建網(wǎng)頁 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)%>">請用統(tǒng)一簡結(jié)格式：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)%>">如：常規(guī)線、精品線
等</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)%>">請用統(tǒng)一簡結(jié)格式：三天二晚游、四日五晚游
等</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='使用系統(tǒng)自帶的上傳程序上傳圖片';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)%>">(建議采用默認(rèn))</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("參數(shù)錯誤")
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
%>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -