goassort.asp

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

<!-- #include file=database.asp -->
s<!-- #include file=change.asp -->
<%
function getfenleidirectrel(tempid)
	on error resume next
	dim tempN,tempDir,tempFs
	dim fenleidirect
	Set tempRs = Server.CreateObject("ADODB.Recordset")
	Set tempRs1 = Server.CreateObject("ADODB.Recordset")
	sql="select * from fenlei where id="&tempid
	tempRs.open sql,conn,1,1
	if tempRs.eof or tempRs.bof then
		Response.Write "错误: 分类"&temp&"不存在!"
		getfenleidirectrel="NULL"
		tempRs.close
		set tempRs=nothing
		set tempRs1=nothing
		exit function
	end if
	expediency=tempRs("expediency")
	tempDir=""
	for tempN=1 to expediency
		sql="select * from fenlei where id="&tempRs(10+tempN)
		tempRs1.open sql,conn,1,1
		if tempRs1.eof or tempRs1.bof then
			Response.Write "错误: 分类"&temp&"不存在!"
			getfenleidirectrel="NULL"
			tempRs.close
			set tempRs=nothing
			tempRs1.close
			set tempRs1=nothing
			Set tempFs=nothing
			exit function
		end if
		fenleidirect=trim(tempRs1("fenleidirect"))
		if fenleidirect="" or isNull(fenleidirect) then	fenleidirect=Cstr(tempRs(10+tempN))
				
		tempDir=tempDir&"\"&fenleidirect
    		tempRs1.close
    	next
    	tempRs.close
    	set tempRs=nothing
    	set tempRs1=nothing
    	set tempFs=nothing
    	rem 得到分类所在目录
    	getfenleidirectrel=tempDir
end function

id=request("id")
if isNumeric(id)=0 then	response.end
if id<1 or id>199999999 then response.end

temp=getfenleidirectrel(id)
if temp<>"NULL" then
	url=baseurl&"navigate"&temp&"/index.htm"
	response.redirect url
else
	response.end
end if
%>