📄 admin_demovssort.asp

📁 完整的网址站
💻 ASP
字号:
<!--#include file="config.asp"-->
<%
dim founderr,errmsg
founderr=false
errmsg=""
if session("adminlogin")<>sessionvar then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你尚未登录，或者超时了！请<a href='index.asp'>重新登录</a>！"
  call diserror()
  response.end
end if
if session("flag")>1 then
  errmsg=errmsg+"<br>"+"<li>你的管理权限不够！！</a>！"
  call diserror()
  response.end
  end if%>
<TITLE>管理中心--模版管理</TITLE><LINK REL="stylesheet" HREF="css.css" TYPE="text/css"><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<BODY LEFTMARGIN="0" TOPMARGIN="0" MARGINWIDTH="0" MARGINHEIGHT="0"><script>if(top==self)top.location="index.asp" </script>
<TABLE WIDTH="100%" BORDER="0" CELLPADDING="2" CELLSPACING="0" CLASS="HeaderTdStyle" > 
<TR> 
    <TD HEIGHT="26" 
COLSPAN="2" ALIGN="center"><b>静态页面模版管理</b></TD>
  </TR> <TR> 
<TD WIDTH="85" HEIGHT="30" BGCOLOR=""#0099CF""><B>管理导航</B></TD><TD 
HEIGHT="30" BGCOLOR="#ffffff"><A HREF=admin_demo.asp?action=adddemo>添加模版</A></TD></TR> 
</TABLE><TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="40"><TR><TD>&nbsp;</TD></TR></TABLE>
<%if  session("admin_name")="" and session("flag")>1 then
response.write"错误：您无权进行模版管理！" 
else
call main()
end if
sub main()
dim action
action=trim(Request("action"))
select case action
   case "savevs"
	call savevs()
    case "saveindex"
	call saveindex()
   case ""
	call demolist()
end select
end sub
sub demolist()%>
<table width="99%" cellspacing="1" cellpadding="3" bgcolor="#0099CF" ALIGN="CENTER">
  <tr bgcolor=""#0099CF""> 
    <td height="26" bgcolor=""#0099CF""><b>分类模版捆绑</b></td>
  </tr><form name="form1" method="post" action="?action=savevs">
  <tr bgcolor="#ffffff"> 
    <td BGCOLOR="#ffffff"> 将模版 
      <select name="demoid">
        <%
set rs = server.CreateObject ("Adodb.recordset")
sql = "select * from happywz_DEMO order by demoid desc"
rs.open sql,conn,1,1
do while not rs.eof
%>
        <option value="<%=rs("demoid")%>"> <%=rs("demoname")%></option>
        <%
rs.movenext
loop
rs.Close()
set rs=nothing
%>
      </select>
      捆绑到分类 
      <select name="sortid">
        <%
sql="select * from happywz_SORT order by bigid,orders"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
do while not rs.eof
%>
        <option value="<%=rs("sortid")%>"> 
        <%if rs("sortstep")>0 then
for i=1 to rs("sortstep")%>
        　→ 
        <%next
end if%>
        <%=rs("sort")%></option>
        <%
rs.movenext
loop
rs.Close()
set rs=nothing
%>
      </select>
      上 &nbsp;&nbsp;&nbsp;&nbsp;</td>
  </tr>
  <tr bgcolor="#ffffff">
      <td BGCOLOR="#ffffff"> 
        <input type="submit" name="Submit" value="捆绑确定">
      </td>
  </tr> </form>
</table>
<table width="99%" cellspacing="1" cellpadding="3" bgcolor="#0099CF" ALIGN="CENTER">
  <tr bgcolor=""#0099CF"">
    <td height="26" bgcolor=""#0099CF""><b>首页模版捆绑</b></td>
  </tr>
  <form name="form1" method="post" action="?action=saveindex">
    <tr bgcolor="#ffffff">
      <td BGCOLOR="#ffffff"> 将模版
        <select name="demoiid">
            <%
set rs = server.CreateObject ("Adodb.recordset")
sql = "select * from happywz_DEMO order by demoid desc"
rs.open sql,conn,1,1
do while not rs.eof
%>
            <option value="<%=rs("demoid")%>"> <%=rs("demoname")%></option>
            <%
rs.movenext
loop
rs.Close()
set rs=nothing
%>
          </select>
        捆绑到首页上 &nbsp;&nbsp;&nbsp;&nbsp;</td>
    </tr>
    <tr bgcolor="#ffffff">
      <td BGCOLOR="#ffffff"><input type="submit" name="Submit2" value="捆绑确定">
      </td>
    </tr>
  </form>
</table>
<%end sub
sub savevs
sql="select demoid from happywz_SORT where sortid="&Request("sortid")
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,2
rs("demoid")=Request("demoid")
rs.update

rs.Close()
set rs=nothing
response.redirect "admin_demo.asp"
end sub
sub saveindex
sql="select v from happywz_Config"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,2
rs("v")=Request("demoiid")
rs.update

rs.Close()
set rs=nothing
response.redirect "admin_demo.asp"
end sub%>
<BR><BR><BR><TABLE WIDTH="99%" BORDER="0" CELLPADDING="2" CELLSPACING="1" BGCOLOR="#0099CF" ALIGN="CENTER" > 
<TR BGCOLOR="#0099CF"> 
    <TD HEIGHT="22" 
COLSPAN="2" ALIGN="center"><B>操作说明 </B></TD>
  </TR> <TR BGCOLOR="#ffffff"> 
    <TD WIDTH="87" HEIGHT="30"><B>操作说明＼</B></TD>
    <TD 
HEIGHT="30">
      <LI>
    </TD></TR> </TABLE>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -