📄 lv_set.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,arrlist(9),i,action
sql="select zm_lvname,zm_lvaddress,zm_lvpostal,zm_lvlinkman,zm_lvphone,zm_lvfax,zm_lvemail,zm_lvurl,zm_lvqq,zm_lvstyle from ssort_lvset"
set rs=conn.execute (sql)
for i=0 to 9
arrlist(i)=rs(i)
next
rs.close
set rs=nothing
action=my_request("action",0)
if action="save" then
call save()
end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新建网页 1</title>
<link rel="stylesheet" type="text/css" href="style_admin.css" />
</head>
<body>
<table border="1" width="100%" id="table1" cellpadding="4">
<form action=lv_set.asp method=post>
<input type="hidden" name="action" value="save">
<tr>
<td width="976" colspan="2" class="top_td">旅行社设置</td>
</tr>
<tr>
<td width="22%" align="right" class="left_td">旅行社名称：</td>
<td width="76%">
<input type="text" name="ssort_lvname" size="43" maxlength="100" value="<%=arrlist(0)%>"></td>
</tr>
<tr>
<td width="22%" align="right" class="left_td">地址：</td>
<td width="76%">
<input type="text" name="ssort_lvaddress" size="43" maxlength="150" value="<%=arrlist(1)%>"></td>
</tr>
<tr>
<td width="22%" align="right" class="left_td">邮政编码：</td>
<td width="76%">
<input type="text" name="ssort_lvpostal" size="20" maxlength="6" value="<%=arrlist(2)%>"></td>
</tr>
<tr>
<td width="22%" align="right" class="left_td">联系人：</td>
<td width="76%">
<input type="text" name="ssort_lvlinkman" size="20" maxlength="12" value="<%=arrlist(3)%>"></td>
</tr>
<tr>
<td width="22%" align="right" class="left_td">联系电话：</td>
<td width="76%">
<input type="text" name="ssort_lvphone" size="20" maxlength="30" value="<%=arrlist(4)%>"></td>
</tr>
<tr>
<td width="22%" align="right" class="left_td">传真：</td>
<td width="76%">
<input type="text" name="ssort_lvfax" size="20" maxlength="30" value="<%=arrlist(5)%>"></td>
</tr>
<tr>
<td width="22%" align="right" class="left_td">电子邮件地址：</td>
<td width="76%">
<input type="text" name="ssort_lvemail" size="34" maxlength="100" value="<%=arrlist(6)%>"></td>
</tr>
<tr>
<td width="22%" align="right" class="left_td">网站地址：</td>
<td width="76%">
<input type="text" name="ssort_lvurl" size="20" maxlength="100" value="<%=arrlist(7)%>">
<font color="#FF0000">注意：</font>一定加“http://”</td>
</tr>
<tr>
<td width="22%" align="right" class="left_td">联系QQ号码：</td>
<td width="76%">
<input type="text" name="ssort_lvqq" size="20" maxlength="20" value="<%=arrlist(8)%>">
</td>
</tr>
<tr>
<td width="22%" align="right" class="left_td">网站前台风格样式：</td>
<td width="76%">
<select size="1" name="ssort_lvstyle">
<option value="1" <%if arrlist(9)=1 then%>selected<%end if%>>样式1</option>
<option value="1" <%if arrlist(9)=2 then%>selected<%end if%>>样式2</option>
<option value="1" <%if arrlist(9)=3 then%>selected<%end if%>>样式3</option>
</select><table border="1" width="100%" id="table2">
<tr>
<td width="135" bgcolor="#E8EDF9" align="right">样式1：</td>
<td bgcolor="#FF6600"> </td>
</tr>
<tr>
<td width="135" bgcolor="#E8EDF9" align="right">样式2：</td>
<td bgcolor="#2E5AB6"> </td>
</tr>
<tr>
<td width="135" bgcolor="#E8EDF9" align="right">样式3：</td>
<td bgcolor="#008000"> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="970" align="right" colspan="2" class="left_td">
<p align="center"><input type="submit" value="修 改" name="B1">
<input type="reset" value="重 写" name="B2"></td>
</tr></form>
</table>
</body>
</html>
<%
sub save()
dim arr(9),sql1
arr(0)=my_request("ssort_lvname",0)
arr(1)=my_request("ssort_lvaddress",0)
arr(2)=my_request("ssort_lvpostal",0)
arr(3)=my_request("ssort_lvlinkman",0)
arr(4)=my_request("ssort_lvphone",0)
arr(5)=my_request("ssort_lvfax",0)
arr(6)=my_request("ssort_lvemail",0)
arr(7)=my_request("ssort_lvurl",0)
arr(8)=my_request("ssort_lvqq",0)
arr(9)=my_request("ssort_lvstyle",0)
sql1="update ssort_lvset set zm_lvname='"&arr(0)&"',zm_lvaddress='"&arr(1)&"',zm_lvpostal='"&arr(2)&"',zm_lvlinkman='"&arr(3)&"',zm_lvphone='"&arr(4)&"',zm_lvfax='"&arr(5)&"',zm_lvemail='"&arr(6)&"',zm_lvurl='"&arr(7)&"',zm_lvqq='"&arr(8)&"',zm_lvstyle='"&arr(9)&"'"
conn.execute (sql1)
call wurl("修改成功，请确定","lv_set.asp")
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -