📄 unite_line_sort.asp

📁 漂亮的欧美旅游模板

💻 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,i,action
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">
<form action=unite_line_sort.asp method=post>
	<tr>
		<td class="top_td">线路类别合并(谨慎操作)</td>
	</tr>
	<tr>
		<td><input type=hidden name=action value=save>
		<%
		for i=1 to 2
		response.write "<select size=1 name=ssort"&i&">"
		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
		response.write "</select>"
		if i=1 then
		response.write "→"
		end if
		next
		%><input type="submit" value="确定" name="B1">(从左合并到右)</td>
	</tr>
</form>
</table>

</body>

</html>
<%
sub save()
dim ssort(1)
ssort(0)=my_request("ssort1",0)
ssort(1)=my_request("ssort2",0)
if ssort(0)="" or (isNumeric(ssort(0))=false) or ssort(1)="" or (isNumeric(ssort(1))=false) or (ssort(0)=ssort(1)) then
call wnourl("参数错误")
else
conn.execute ("update ssort_lines set zm_linesort="&ssort(1)&" where zm_linesort="&ssort(0))
conn.execute ("delete from ssort_line where sort_id="&ssort(0))
conn.close
set conn=nothing
call wurl("合并成功","unite_line_sort.asp")
end if
end sub
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -