makelist_my.asp

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

ASP
132 行
字号 
 <% data_path="../../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
 <%
If Session("globalecmaster")=""   OR Session("adminid")="" Then

              Response.write "<script language='javascript'>"
              Response.write"alert('对不起！请重新登陆！');parent.location.href='"&HOPE_InstallDir&"';</SCRIPT>" 
              Response.End
 End If
'权限限制^^^^^^^^^^^^^^^^^^^^
 Dim ishavegant
 ishavegant=False
 in_str=Split(Session("masterflag"),",")
 For Each ins In in_str
 If Trim(ins)="101" Then 
 ishavegant=True
 End If
 Next 
 If ishavegant=False Then
 Response.Redirect "../err.asp"
 Response.End
 End If
 %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>按需生成详细内容页</title>
<LINK href="../css/style.css" rel=stylesheet type=text/css>
</head>
<body>
  <table border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder">
    <tr>
      <th height=25 colspan="2" class="tableHeaderText">批量生成二级分类</th>
    </tr>
    <tr>
      <td width="12%" height=40 class="forumRowHighlight"><strong>生成采购:</strong></td>
      <td width="88%" class="forumRowHighlight"><form name='form1' method='post' action='../../manage/makehtml/tradeinfo/makelist.asp?all=update' target="_blank">
  开始ID：
      <label>
      <input name="id1" type="text" id="id1" value="1" size="10" maxlength="10">
      </label>
  结束ID：
  <input name="id2" type="text" id="id2" value="1000" size="10" maxlength="10">
  <input name="schtml2" type="submit" id="schtml2" value="开始生成>>">
<%
mV=0
nV=0
Set  rsmin=Server.CreateObject("ADODB.Recordset")
minsql="select min(TypeID)as minV,max(TypeID)as maxV from Yixiang_class_2"
rsmin.Open minsql,conn,1,1
If rsmin.Eof Then
 Response.Write("无任何要生成的记录")
End If
If Not rsmin.Eof Then
mV=rsmin("minV")
nV=rsmin("maxV")
 rsmin.Close
End If
 %>
 <br>
<label>提示:该栏目网站数据中最小的信息id值为<font color="red"><%=mV%></font> , 最大的信息id值为<font color="red"><%=nV%></font><br> </label>
      </form></td>
    </tr>
    <tr>
      <td width="12%" height=40 class="forumRowHighlight"><strong>生成销售:</strong></td>
      <td width="88%" class="forumRowHighlight">
	  <form name='form1' method='post' action='../../manage/makehtml/seller/makelist.asp?all=update' target="_blank">
  开始ID：
      <label>
      <input name="id1" type="text" id="id1" value="1" size="10" maxlength="10">
      </label>
  结束ID：
  <input name="id2" type="text" id="id2" value="1000" size="10" maxlength="10">
  <input name="schtml3" type="submit" id="schtml3" value="开始生成>>">
<%
mV1=0
nV1=0
Set  rsmin1=Server.CreateObject("ADODB.Recordset")
minsql1="select min(TypeID)as minV,max(TypeID)as maxV from Yixiang_class_2"
rsmin1.Open minsql1,conn,1,1
If rsmin1.Eof Then
 response.Write("无任何要生成的记录")
End If
If Not rsmin1.Eof Then
mV1=rsmin1("minV")
nV1=rsmin1("maxV")
 rsmin1.Close
End If
 %>
 <br>
<label>提示:该栏目网站数据中最小的信息id值为<font color="red"><%=mV1%></font> , 最大的信息id值为<font color="red"><%=nV1%></font><br> </label>
      </form>
          </td>
    </tr>
    <tr>
      <td width="12%" height=40 class="forumRowHighlight"><strong>生成产品:</strong></td>
      <td width="88%" class="forumRowHighlight"><form name='form1' method='post' action='../../manage/makehtml/productshow/makelist.asp?all=update' target="_blank">
  开始ID：
      <label>
      <input name="id1" type="text" id="id1" value="1" size="10" maxlength="10">
      </label>
  结束ID：
  <input name="id2" type="text" id="id2" value="1000" size="10" maxlength="10">
  <input name="schtml4" type="submit" id="schtml4" value="开始生成>>">
 
  <label>  </label>
      </form>
         </td>
    </tr>
    <tr>
      <td width="12%" height=40 class="forumRowHighlight"><strong>生成公司:</strong></td>
      <td width="88%" class="forumRowHighlight"><form name='form1' method='post' action='../../manage/makehtml/corporation/makelist.asp?all=update' target="_blank">
  开始ID：
      <label>
      <input name="id1" type="text" id="id1" value="1" size="10" maxlength="10">
      </label>
  结束ID：
  <input name="id2" type="text" id="id2" value="1000" size="10" maxlength="10">
  <input name="schtml5" type="submit" id="schtml5" value="开始生成>>">
 
  <label>  </label>
      </form>
          </td>
    </tr>
	<tr><td colspan="2" align="center" bgcolor="#E4EDF9"><br>
	  <a href="#" onClick="javascript:history.back(-1);">返回</a><br></td></tr>
  </table>
<br>
<!--#include file="../copy.asp"-->
</body>
</html>

makelist_my.asp - 源码说明

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

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

⌨️ 快捷键说明

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