makefenlei.asp

来自「中国114网搜索系统 版　　本： 文件大小：580 KB 软件语言：简体中文 授」· ASP 代码 · 共 76 行

ASP
76 行
字号 
<%id=1
%>
<!-- #include file=../database.asp -->
<body  bgcolor=ccbbaa>
<%
Set rs = Server.CreateObject("ADODB.Recordset")

sql="select * from ourusers where Ltrim(Rtrim(username))='supervisor'"
rs.open sql,conn,1,1
if not rs.eof then
	if trim(rs("pass"))<>session("pass") then
		response.write "<br>错误的密码!"
		rs.close
		set rs=nothing
		conn.close
		set conn=nothing
		response.end
	else
		rs.close
	end if
else
	response.write "错误:用户不存在!"
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
	response.end
end if

dim strFenleiDirect
%>
<!-- #include file=makedirect.asp -->
<!-- #include file=makehtmfile.asp -->
<%

fid=request("fid")
if isNumeric(fid)=0 or fid="" then 
	response.write "操作失败!!"
	conn.close
	set conn=nothing
	response.end
end if
if fid<0 then
	response.write "操作失败!!"
	conn.close
	set conn=nothing
	response.end
end if

if int(fid)=0 then
	response.write "<br>正在建总分类......<br>"
	strFenleiDirect=server.mapPath(dirstring&"navigate/")
	response.write strFenleiDirect
	if writeFenleiFiles(strFenleiDirect,0)=0 then
		response.write "<br>建立分类HTM文件失败!"
	else
		response.write "<br>建立分类HTM文件成功!"
	end if
else
	response.write "<br>正在总分类目录......<br>"
	if makeonefenlei(fid)=0 then
		response.write "<br>建立分类目录失败!"
	else
		response.write "<br>建立分类目录成功!"
	end if

	if writeFenleiFiles(strFenleiDirect,fid)=0 then
		response.write "<br>建立分类HTM文件失败!"
	else
		response.write "<br>建立分类HTM文件成功!"
	end if
end if

conn.close
set conn=nothing
%>

makefenlei.asp - 源码说明

本页面展示了「中国114网搜索系统 版　　本： 文件大小：580 KB 软件语言：简体中文 授权方式：免费版 相关链接：程序演示 开 发 商： 运行环境：ASP源码」中的 makefenlei.asp 源码文件，采用 ASP 编程语言编写，共 76 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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