makehtmfile.asp

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

<!-- #include file=../change.asp -->
<!-- #include file=makedirect.asp -->
<%
function getfenleidirecttrue(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&"不存在!"
		getfenleidirecttrue="NULL"
		tempRs.close
		set tempRs=nothing
		set tempRs1=nothing
		exit function
	end if
	expediency=tempRs("expediency")
	tempDir=server.mapPath(dirstring&"navigate/")
	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&"不存在!"
			getfenleidirecttrue="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
		'response.write "<br>"&tempDir
    		tempRs1.close
    	next
    	tempRs.close
    	set tempRs=nothing
    	set tempRs1=nothing
    	set tempFs=nothing
    	rem 得到分类所在目录
    	getfenleidirecttrue=tempDir
end function



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
		'response.write "<br>"&tempDir
    		tempRs1.close
    	next
    	tempRs.close
    	set tempRs=nothing
    	set tempRs1=nothing
    	set tempFs=nothing
    	rem 得到分类所在目录
    	getfenleidirectrel=tempDir
end function

function writeHead(outfile,outempStrtemp)

	rem -------------head.inc的翻版开始------------------
	outempStrtemp=outempStrtemp& chr(10)&"<center>"
	outempStrtemp=outempStrtemp& chr(10)&"<table width="&chr(34)&"700"&chr(34)&" border="&chr(34)&"0"&chr(34)&" cellspacing="&chr(34)&"0"&chr(34)&" cellpadding="&chr(34)&"0"&chr(34)&" align=center>"
  	outempStrtemp=outempStrtemp& chr(10)&"<tr>"
    	outempStrtemp=outempStrtemp& chr(10)&"<td><img src="&baseurl&"images/flag60.gif width=244 height=60></td>"
    	outempStrtemp=outempStrtemp& chr(10)&"<td rowspan="&chr(34)&"2"&chr(34)&" valign=bottom align=right>"
    	outempStrtemp=outempStrtemp& chr(10)&"<table cellspacing=0 cellpadding=0><tr><td align=center bgcolor=009900>"
    	randomize()
	n = int(rnd*adsnum)
    	if rndshu>29 then
    		outempStrtemp=outempStrtemp& chr(13)&adsstring1
    	else
    		outempStrtemp=outempStrtemp& chr(13)&adsstring2
    	end if
    	outempStrtemp=outempStrtemp& chr(10)&"</td></tr></table></td></tr>"
  	outempStrtemp=outempStrtemp& chr(10)&"<tr>"
  	outempStrtemp=outempStrtemp& chr(10)&"<td><img src="&baseurl&"images/url.gif width=241 height=19><script>document.write("&chr(34)&"<img src=http://top2.263.net/count/top.dll?Type=Img2&add=1&id=B9860&refer="&chr(34)&"+escape(top.document.referrer)+"&chr(34)&" border=0 width=1 height=1>"&chr(34)&");document.write("&chr(34)&"<img src=http://ad.t2t2.com/stat.asp?user=aspage&refer="&chr(34)&"+escape(document.referrer)+"&chr(34)&"&cur="&chr(34)&"+escape(document.URL)+"&chr(34)&" border=0 width=1 height=1>"&chr(34)&");</script><img src="&chr(34)&"http://grwy.online.ha.cn/count/count.exe?ft=0&df=explorer.dat&dd=001&md=7"&chr(34)&" width=1 height=1></td>"
  	outempStrtemp=outempStrtemp& chr(10)&"</tr>"
	outempStrtemp=outempStrtemp& chr(10)&"</table>"
	outempStrtemp=outempStrtemp& chr(10)&"</center>"
	rem -------------head.inc的翻版结束------------------
	
end function

function writeEnd(outfile,outempStrtemp)

	rem --------------end.inc的翻版开始------------------
	outempStrtemp=outempStrtemp& chr(10)&"<p align=center class=p9>Copy right(C) ASPAGE.YEAH.NET</p>"
	rem --------------end.inc的翻版结束------------------

end function

function writeSearch(outfile,outempStrtemp)
	outempStrtemp=outempStrtemp& "<TABLE border=0 cellPadding=0 cellSpacing=0 width=700 align=center>"
	outempStrtemp=outempStrtemp& "<TBODY>"
	outempStrtemp=outempStrtemp& "<TR>"
	outempStrtemp=outempStrtemp& "<TD>"
	outempStrtemp=outempStrtemp& "<FORM action="&baseurl&"search.asp method=post name=form><INPUT name=T1 size=10>"
	outempStrtemp=outempStrtemp& "<INPUT name=B1 type=submit value=' 搜索 ' style='height:22px'></TD>"
	outempStrtemp=outempStrtemp& "</TR>"
	outempStrtemp=outempStrtemp& "</TBODY></FORM>"
	outempStrtemp=outempStrtemp& "</TABLE>"
end function

function writeFenleiFiles(tempDir,fid)
	
	rem 就是navigate.asp的翻版
	Set fs = CreateObject("Scripting.FileSystemObject")
	if fs.FolderExists(tempDir) then
    	else
		response.write "<br>要更新的文件所在的目录"&tempDir&"还未建立!<br>"
		if makeonefenlei(fid)=1 then
			response.write "<br>目录建立成功 <br>"
		else
			response.write "<br>目录建立失败 <br>"
		end if
    	end if
    	response.write tempDir&"\index.htm"
	Set outfile=fs.CreateTextFile(tempDir&"\index.htm",true)
	outempStrtemp=""
	outempStrtemp=outempStrtemp& chr(10)&"<!-- Design and Edit By QianFengyun 2000-5-20 -->"
 	outempStrtemp=outempStrtemp& chr(10)&"<!DOCTYPE HTML PUBLIC "&chr(34)&"-//W3C//DTD HTML 4.0 Transitional//EN"&chr(34)&">"
	outempStrtemp=outempStrtemp& chr(10)&"<!-- saved from url=(0041)http://findlink.yeah.net -->"
	outempStrtemp=outempStrtemp& chr(10)&"<html>"
	outempStrtemp=outempStrtemp& chr(10)&"<head>"
	outempStrtemp=outempStrtemp& chr(10)&"<title>"&titlename&"</title>"
	outempStrtemp=outempStrtemp& chr(10)&"<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>"
	outempStrtemp=outempStrtemp& chr(10)&"<link rel="&chr(34)&"stylesheet"&chr(34)&" type="&chr(34)&"text/css"&chr(34)&" href="&chr(34)&baseurl&"html/style.css"&chr(34)&">"
	outempStrtemp=outempStrtemp& chr(10)&"</head>"
	if isNumeric(fid)=0 or fid="" then fid=0
	if fid<0 then fid=0

	Set makeRs = Server.CreateObject("ADODB.Recordset")
	sql="select * from fenlei where id="&fid
	makeRs.open sql,conn,1,1

	if makeRs.eof or makeRs.bof then
  		rem 没有这个分类!"
  		makeRs.close