makedirect.asp

中国114网搜索系统 版 本： 文件大小：580 KB 软件语言：简体中文 授权方式：免费版 相关链接：程序演示 开 发 商： 运行环境：ASP源码

<%
function makeonefenlei(tempid)
	on error resume next
	dim tempN,tempDir,tempFs
	dim fenleidirect
	Set makeoneRs = Server.CreateObject("ADODB.Recordset")
	Set makeoneRs1 = Server.CreateObject("ADODB.Recordset")
	sql="select * from fenlei where id="&tempid
	tesponse.write sql
	makeoneRs.open sql,conn,1,1
	if makeoneRs.eof or makeoneRs.bof then
		Response.Write "错误: 分类"&temp&"不存在!"
		makeonefenlei=0
		makeoneRs.close
		set makeoneRs=nothing
		set makeoneRs1=nothing
		exit function
	end if
	expediency=makeoneRs("expediency")
	tempDir=server.mapPath(dirstring&"navigate/")
	Set tempFs=Server.CreateObject("Scripting.FileSystemObject")
	for tempN=1 to expediency
		sql="select * from fenlei where id="&makeoneRs(10+tempN)
		makeoneRs1.open sql,conn,1,1
		if makeoneRs1.eof or makeoneRs1.bof then
			Response.Write "错误: 分类"&temp&"不存在!"
			makeonefenlei=0
			makeoneRs.close
			set makeoneRs=nothing
			makeoneRs1.close
			set makeoneRs1=nothing
			Set tempFs=nothing
			exit function
		end if
		fenleidirect=trim(makeoneRs1("fenleidirect"))
		if fenleidirect="" or isNull(fenleidirect) then	fenleidirect=Cstr(makeoneRs(10+tempN))
				
		tempDir=tempDir&"\"&fenleidirect
		'response.write "<br>"&tempDir
		    
    		if tempFs.FolderExists(tempDir) then
       			rem 目标目录已存在!"
       		else
       			rem 目标目录不存在-建立
       			tempFs.CreateFolder(tempDir)
    		end if
    		makeoneRs1.close
    	next
    	makeoneRs.close
    	set makeoneRs1=nothing
    	set tempFs=nothing
    	rem 得到分类所在目录
    	strFenleiDirect=tempDir
    	makeonefenlei=1
end function
%>