📄 changemenu.asp
字号:
<%@ Language=VBScript %>
<!--#include file="../include/odbc.asp" -->
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<body bgcolor="#FFFFE0">
<P align=center><b><u><font color="#0000FF" size="3">财经栏目轮换</font></u></b></P>
<%set rsSelect=server.CreateObject("adodb.recordset")%>
<form method=POST action=<%=request.servervariables("path_info")%> >
<%Response.Write request("changeid")&request("changeid2")%>
<%if trim(request("changeid"))<>"" and trim(request("changeid2"))<>"" then
if trim(request("changeid2"))=trim(request("changeid")) then
sql="select * from news2_menu where menuid='"&request("changeid3")&"'"
rsselect.Open sql,conn,3,3
if not rsselect.EOF then
rsselect("visible")="F"
rsselect.Update
end if
rsselect.Close
sql="select * from news2_menu where menuid='"&request("changeid2")&"'"
rsselect.Open sql,conn,3,3
if not rsselect.EOF then
rsselect("visible")="T"
rsselect.Update
end if
rsselect.Close
end if
Response.Write "更新成功"
Response.Redirect "../user/loginProcess.asp"
else
%><P align=center>现在WEB上栏目：
<select size=1 name=changeid>
<%sqlSelect ="select menuId,menuName,visible from news2_menu where visible='T' or visible='F' "
rsSelect.open sqlSelect,conn,3,1
while not rsSelect.eof
if rsselect("visible")="T" then
%><option value=<%=rsSelect("menuId")%> selected><%=rsSelect("menuName")%>
<%menuid3=rsSelect("menuId")
else%>
<option value=<%=rsSelect("menuId")%>><%=rsSelect("menuName")%>
<%menuid=rsSelect("menuId")
end if
rsSelect.movenext
wend
rsSelect.close%>
</select><input type=hidden value=<%=menuid%> name=changeid2><input type=hidden value=<%=menuid3%> name=changeid3></p><P align=center>
<INPUT type="submit" NAME=submit value=确定></p>
<%end if%></BODY>
</form></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -