sortshow.asp

来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 116 行

ASP

116 行

<%@ codepage ="936" %>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../css/style.css" rel=stylesheet type=text/css>
<% data_path="../../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->

<script language="javascript">
function istrue()
{
alert("请不要随便修改网站的行业类别栏目显示项，这将对网站造成不良影响，请选择与网站系系相关的核心项做行业栏目!");
var i=confirm("你确定要将这些项设置为网站的栏目显示项吗？请慎重修改?");
if(i)
{
return true;
}
else
{
 return false;
}
}
</script>
 </HEAD>
 <%
if session("globalecmaster")="" or session("masterflag")="" then
response.write "<script language='javascript'>"
response.write"parent.location.href='../login.asp';</SCRIPT>" 
response.end
end if
 

'权限限制^^^^^^^^^^^^^^^^^^^^
 dim ishavegant
 ishavegant=false
 in_str=split(session("masterflag"),",")
 for each ins in in_str
 if trim(ins)="71" then 
 ishavegant=true
 end if
 next 
 if ishavegant=false then
 response.redirect "../err.asp"
 response.end
 end if
 
 gos=Replace_Text(request("gos"))
 sortid=Replace_Text(request("sortid"))
 if gos<>"" then
 if sortid<>"" then
  conn.execute "update yixiang_Class_1 set isshow=0"
  conn.execute "update yixiang_Class_1 set isshow=1 where sortid in("&sortid&")"
    response.Write("<script>alert('修改成功！');location.href='sortshow.asp';</script>")
   end if
 end if

%>
 

<body>
<table width="98%" border="0" cellspacing="0" cellpadding="0"  align=center class="tableBorder"> 
  <tr> 
     <th height=25 colspan="2" class="tableHeaderText">网站全局栏目控制管理 </th> 
  </tr> 
  <tr> 
     <td colspan="2" class="forumRowHighlight"> <B>注意</B>：<BR>本操作用于控制网站页面头部中的大栏目（从网站所有行业的一级分类中选择出来）的显示
    <br><font color="blue">请选中选项后点击修改即可!</font>
	<br>建议：考虑页面的大小布局而定选择栏目的多少!</td> 
  </tr> 
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" class="tableBorder"  >
	<tr> 
	<th height="22" colspan="2">行业大类栏目列表</th>
	</tr>
	<tr><td height="40"></td></tr>
<TR> <td >
<form name="myform" method="post" action="sortshow.asp" onSubmit="return istrue();">
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="4">
  <tr>
<%
set rskind=server.CreateObject("adodb.recordset")
sqlkind="select * from yixiang_Class_1" 
rskind.open sqlkind,conn,1,1
if rskind.eof then
%>
<td>对不起！暂无一级栏目类别！</td>
<%
end if
 if not rskind.eof then
goi=1
 do while not rskind.eof 
 %>
 <td height="25"  bgcolor="#F1F3F5"><input type="checkbox" <%if rskind("isshow")=1 then response.Write("checked") end if%> value="<%=rskind("sortid")%>" name="sortid"><font  color="#6E92DB"><%=goi%></font>.<%=rskind("Sort")%></td>
 <%
 
 if goi mod  6 =0 then 
 response.Write("</tr><tr>")
 end if
 goi=goi+1
 rskind.movenext
 loop
 rskind.close
end if
 %>
 
</tr>
<tr><td colspan="6" align="center"  ><br><input type="submit" name="gos" value="我确定修改" style="background-color:#F0F0F0"></td></tr>
</table>
</form>
</td>
 </TR></table>
</body>
</html>

sortshow.asp - 源码说明

本页面展示了「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员通过登录该系统」中的 sortshow.asp 源码文件，采用 ASP 编程语言编写，共 116 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与JSP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?