makeallclass.asp

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

ASP

97 行

<% data_path="../../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/filesystem.asp"--> 

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>生成网站行业分类JS文件</title>
</head>

<body>
<%

	if session("globalecmaster")="" or session("masterflag")="" then
	response.write "<script language='javascript'>"
	response.write"parent.location.href='../login.asp';</SCRIPT>" 
	response.end
	end if
	if instr(session("masterflag"),"71")=0 then
	response.redirect "../err.asp"
	response.end
	end if
	Dim classall

'查出种类的一级分类：^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	set rs=server.CreateObject("adodb.recordset")
	sql="select * from Yixiang_class_1"
	rs.open sql,conn,1,1
	 if not rs.eof then
	 i=1
	do while not rs.eof
	 
	classall = classall & "cur = new Category('"&rs("sortid")&"','"&rs("sort")&"');"&vbCrlf
	classall = classall & ""&vbCrlf
	classall = classall & "catArr = catArr.concat(cur);"&vbCrlf
	classall = classall & ""&vbCrlf

'查出种类的二级分类：=============================================================
		set rs3=server.CreateObject("adodb.recordset")
		sql3="select * from Yixiang_class_2 where sortid="&rs("sortid")
		rs3.open sql3,conn,1,1
		if not rs3.eof then
		do while not rs3.eof

'查出种类的三级分类：三三三三三三三三三三三三三三三三三三三三三三三三三三三三三三
			set rs4=server.CreateObject("adodb.recordset")
			sql4="select * from Yixiang_class_3 where typeid="&rs3("typeid")
			rs4.open sql4,conn,1,1
			if rs4.eof then
			classall = classall & "cur.addBoard(new Board('"&rs("sortid")&"','"&rs3("typeid")&",0','"&rs3("typename")&"'))"&vbCrlf
			classall = classall & ""&vbCrlf
			end if
			if not rs4.eof then
			do while not rs4.eof
			classall = classall & "cur.addBoard(new Board('"&rs("sortid")&"','"&rs3("typeid")&","&rs4("typeid_2")&"','"&rs3("typename")&"/"&rs4("typename_2")&"'))"&vbCrlf
			classall = classall & ""&vbCrlf
			rs4.movenext
			loop
			rs4.close
			set rs4=nothing

'三三三三三三三三三三三三三三三三三三三三三三三三三三三三三三三三三三三三三三三三

	end if
	rs3.movenext
	loop
	rs3.close
	set rs3=nothing
	end if

'===================================================================================

	rs.movenext
	 loop
	rs.close
	set rs=nothing
	end if

 '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

'生成js文件以便添加修改信息时调用
	filename=HOPE_InstallDir&"js/allCategorys.js"
	set fso = YXFSO
	set fout = fso.CreateTextFile(server.mappath(""&filename&""),true)
	fout.write classall
	fout.close
	set fout=nothing
	set fso=nothing
	response.write"<SCRIPT language=JavaScript>alert('生成行业分类JS成功！');"
	response.write"javascript:history.back(-1)</script> "
	response.end
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
%>
</body>
</html>

makeallclass.asp - 源码说明

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

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

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?