⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 makehtmfile.asp

📁 中国114网搜索系统 版　　本： 文件大小：580 KB 软件语言：简体中文 授权方式：免费版 相关链接：程序演示 开 发 商： 运行环境：ASP源码
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
  		fid=0
	else

		expediency=makeRs("expediency")
		tempNum=expediency+1
		outempStrtemp=outempStrtemp& chr(10)&"<BODY vlink=0000ff leftmargin="&chr(34)&"0"&chr(34)&" topmargin="&chr(34)&"10"&chr(34)&" marginwidth="&chr(34)&"0"&chr(34)&" marginheight="&chr(34)&"0"&chr(34)&" bgcolor="&chr(34)&"#FFFFFF"&chr(34)&">"
		
		writeHead outfile,outempStrtemp
	
		outempStrtemp=outempStrtemp& chr(10)&"<table width=700 border=0 cellspacing=0 cellpadding=0 align=center bgcolor="&tablebgcolor1&" height=20>"	
		outempStrtemp=outempStrtemp& chr(10)&"<TR align=center>"
		outempStrtemp=outempStrtemp& chr(10)&"<TD bgColor="&tablebgcolorbian&"><img src="&baseurl&"images/blank.gif height=1 width=1></TD>"
		outempStrtemp=outempStrtemp& chr(10)&"</TR>"
        	outempStrtemp=outempStrtemp& chr(10)&"<TR align=center>"
		outempStrtemp=outempStrtemp& chr(10)&"<TD height=3><img src="&baseurl&"images/blank.gif height=1 width=1></TD>"
		outempStrtemp=outempStrtemp& chr(10)&"</TR>"
		outempStrtemp=outempStrtemp& chr(10)&"<tr>"
		outempStrtemp=outempStrtemp& chr(10)&"<td>"
		outempStrtemp=outempStrtemp& chr(10)&"<a href="&baseurl&"index.htm class=com>首页</a> &gt; <a href="&baseurl&"navigate/index.htm class=com>分类导航</a>"
		
		for i=1 to expediency-1
    			outempStrtemp=outempStrtemp& chr(10)&" &gt; <a href="&baseurl&"navigate"&getfenleidirectrel(makeRs(10+i))&"/index.htm class=com>"&trim(makeRs(i))&"</a>"
		next
		
		outempStrtemp=outempStrtemp& chr(10)&" &gt; "&trim(makeRs(i))
  		makeRs.close
  		
		outempStrtemp=outempStrtemp& chr(10)&"</td>"
		outempStrtemp=outempStrtemp& chr(10)&"</tr>"
		outempStrtemp=outempStrtemp& chr(10)&"<TR align=center>"
		outempStrtemp=outempStrtemp& chr(10)&"<TD bgColor="&tablebgcolorbian&"><img src="&baseurl&"images/blank.gif height=1 width=1></TD>"
		outempStrtemp=outempStrtemp& chr(10)&"</table>"
		
		writeSearch outfile,outempStrtemp
		
		sql="select id,num,fenlei"&Cstr(tempNum)&" from fenlei where father="&fid
		
		makeRs.open sql,conn,1,1
		if not makeRs.eof then
  			outempStrtemp=outempStrtemp& chr(10)&"<table width=700 border=0 cellspacing=0 cellpadding=0 align=center><tr>"
  			outempStrtemp=outempStrtemp& chr(10)&"<br>"
  			tnum=makeRs.recordcount
  			num=int(tnum/3)
  		
  			if (tnum mod 3)<>0 then
    				num=num+1
  			end if
  		
			do while not makeRs.eof
    				outempStrtemp=outempStrtemp& chr(10)&"<td valign=top>"
    				if num<1 then
	      				outempStrtemp=outempStrtemp& chr(10)&"<li><a href="&baseurl&"navigate"&replace(getfenleidirectrel(makeRs("id")),"\","/")&"/index.htm>"&trim(makeRs(2))&"</a><i>("&makeRs("num")&")</i></li>"
      					makeRs.movenext
    				else
      					for nn=1 to num
        					if not makeRs.eof then
							outempStrtemp=outempStrtemp& chr(10)&"<li><a href="&baseurl&"navigate"&replace(getfenleidirectrel(makeRs("id")),"\","/")&"/index.htm>"&trim(makeRs(2))&"</a><i>("&makeRs("num")&")</i></li>"
							makeRs.movenext
						else
							exit for
						end if
					next
				end if
    				outempStrtemp=outempStrtemp& "<br><br></td>"
  			loop
			outempStrtemp=outempStrtemp& chr(10)&"</tr></table>"
		end if
		makeRs.close

	end if

	if fid=0 then
		writeHead outfile,outempStrtemp
		outempStrtemp=outempStrtemp& chr(10)&"<table width=700 border=0 cellspacing=0 cellpadding=0 align=center  bgcolor="&tablebgcolor1&" height=20>"
  		outempStrtemp=outempStrtemp& chr(10)&"<TR align=center>"
		outempStrtemp=outempStrtemp& chr(10)&"<TD bgColor="&tablebgcolorbian&"><img src="&baseurl&"images/blank.gif height=1 width=1></TD>"
		outempStrtemp=outempStrtemp& chr(10)&"</TR>"
        	outempStrtemp=outempStrtemp& chr(10)&"<TR align=center>"
      		outempStrtemp=outempStrtemp& chr(10)&"<TD height=3><img src="&baseurl&"images/blank.gif height=1 width=1></TD>"
    		outempStrtemp=outempStrtemp& chr(10)&"</TR>"
		outempStrtemp=outempStrtemp& chr(10)&"<tr>"
		outempStrtemp=outempStrtemp& chr(10)&"<td>"
    		outempStrtemp=outempStrtemp& chr(10)&"<a href="&baseurl&"index.htm class=com>首页</a> &gt; 分类导航"
		outempStrtemp=outempStrtemp& chr(10)&"</td>"
		outempStrtemp=outempStrtemp& chr(10)&"</tr>"
		outempStrtemp=outempStrtemp& chr(10)&"<TR align=center>"
		outempStrtemp=outempStrtemp& chr(10)&"<TD bgColor="&tablebgcolorbian&"><img src="&baseurl&"images/blank.gif height=1 width=1></TD>"
		outempStrtemp=outempStrtemp& chr(10)&"</TR>"
		outempStrtemp=outempStrtemp& chr(10)&"</table>"
		writeSearch outfile,outempStrtemp
		outempStrtemp=outempStrtemp& chr(10)&"<table width=700 border=0 cellspacing=0 cellpadding=0 align=center>"
		outempStrtemp=outempStrtemp& chr(10)&"<tr>"
		
		sql="select id,num,fenlei1 from fenlei where father=0 order by id"
		makeRs.open sql,conn,1,1
		if not makeRs.eof then 
  			outempStrtemp=outempStrtemp& chr(10)&"<br>"
  			tnum=makeRs.recordcount
  			num=int(tnum/3)
			if (tnum mod 3)<>0 then
				num=num+1
			end if
		end if
		do while not makeRs.eof
			outempStrtemp=outempStrtemp& chr(10)&"<td valign=top>"
			if num<1 then
				outempStrtemp=outempStrtemp& chr(10)&"<li><a href="&baseurl&"navigate"&replace(getfenleidirectrel(makeRs("id")),"\","/")&"/index.htm>"&trim(makeRs(2))&"</a></li>"
				makeRs.movenext
			else
				for nn=1 to num
					if not makeRs.eof then
						outempStrtemp=outempStrtemp& chr(10)&"<li><a href="&baseurl&"navigate"&replace(getfenleidirectrel(makeRs("id")),"\","/")&"/index.htm>"&trim(makeRs(2))&"</a></li>"
						makeRs.movenext
					else
						exit for
					end if
				next
			end if
			outempStrtemp=outempStrtemp& chr(10)&"<br><br></td>"
		loop
		outempStrtemp=outempStrtemp& chr(10)&"<tr></table><hr width=700 align=center size=1 color="&tablebgcolorbian&">"
		makeRs.close
	end if

	if fid>0 then
		
		
		sql="select id,sitename,jiji,url from linking where fenleiid="&fid
		'response.write "<br>makehtmsql:"&sql
		makeRs.open sql,conn,1,1
		if not makeRs.eof then
			outempStrtemp=outempStrtemp& chr(10)&"<table width=700 border=0 cellspacing=0 cellpadding=0 align=center  bgcolor="&tablebgcolor1&" height=20>"
			outempStrtemp=outempStrtemp& chr(10)&"<TR align=center>"
			outempStrtemp=outempStrtemp& chr(10)&"<TD bgColor="&tablebgcolorbian&"><img src="&baseurl&"images/blank.gif height=1 width=1></TD>"
			outempStrtemp=outempStrtemp& chr(10)&"</TR>"
			outempStrtemp=outempStrtemp& chr(10)&"<TR align=center>"
			outempStrtemp=outempStrtemp& chr(10)&"<TD height=3><img src="&baseurl&"images/blank.gif height=1 width=1></TD>"
			outempStrtemp=outempStrtemp& chr(10)&"</TR>"
			outempStrtemp=outempStrtemp& chr(10)&"<tr>"
			outempStrtemp=outempStrtemp& chr(10)&"<td>"
			outempStrtemp=outempStrtemp& chr(10)&"共有网站"&makeRs.recordcount&"个"
			outempStrtemp=outempStrtemp& chr(10)&"</td>"
			outempStrtemp=outempStrtemp& chr(10)&"</tr>"
			outempStrtemp=outempStrtemp& chr(10)&"<TR align=center>"
			outempStrtemp=outempStrtemp& chr(10)&"<TD bgColor="&tablebgcolorbian&"><img src="&baseurl&"images/blank.gif height=1 width=1></TD>"
			outempStrtemp=outempStrtemp& chr(10)&"</TR>"
			outempStrtemp=outempStrtemp& chr(10)&"</table>"
			outempStrtemp=outempStrtemp& chr(10)&"<table width=700 align=center>"
			outempStrtemp=outempStrtemp& chr(10)&"<tr><td>"
			outempStrtemp=outempStrtemp& chr(10)&"<br>"
			do while not makeRs.eof
				outempStrtemp=outempStrtemp& chr(10)&"<li><a href='"&server.htmlencode(makeRs("url"))&"' target=_blank>"&server.htmlencode(trim(makeRs("sitename")))&"</a>"
				if trim(makeRs("jiji"))<>"" then
					outempStrtemp=outempStrtemp& chr(10)&" -- "&server.htmlencode(makeRs("jiji"))&"</li>"
				end if
				makeRs.movenext
			loop
			outempStrtemp=outempStrtemp& chr(10)&"</td></tr></table>"
		else
			'outempStrtemp=outempStrtemp& chr(10)&"还没有单位加入这个类别下!"
		end if
		makeRs.close
		outempStrtemp=outempStrtemp& CHR(10)&"<hr width=700 align=center size=1 color="&tablebgcolorbian&">"
	end if
	
	writeEnd outfile,outempStrtemp
	outempStrtemp=outempStrtemp& chr(10)&"</BODY>"
	outempStrtemp=outempStrtemp& chr(10)&"</HTML>"
	outfile.Write outempStrtemp
	outfile.close
	set makeRs=nothing
	writeFenleiFiles=1
	set outfile=nothing
	set fs=nothing
	
end function
%>
12

⌨️ 快捷键说明

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