setall.asp

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

<%@ LANGUAGE = VBScript%>
<%Server.ScriptTimeout=5000%>
<%
id=1
%>
<!-- #include file=../database.asp -->
<%
Set rs = Server.CreateObject("ADODB.Recordset")

function CheckPassword()
	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
end function

checkPassword()
%>
<!-- #include file=makehtmfile.asp -->
<%	
	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
			
	Set rs = Server.CreateObject("ADODB.Recordset")
	response.write "<br><font color=ff0000>现在开始更新硬盘上的所有的导般网页......</font>"
	sql="select id,fenleidirect from fenlei"
	rs.open sql,conn,1,1
	do while not rs.eof
		response.write "<br>正在更新下一级分类:"&rs("fenleidirect")&" ......id号是"&rs("id")&"<br>"

		tempDirS=getfenleidirecttrue(rs("id"))
		if tempDirS="NULL" then
			response.write "错误,目录找不到"
		else
			response.write "<br><font color=ff0000>tempDirs在setall中:"&tempDirS&"</font>"
			if writeFenleiFiles(tempDirS,rs("id"))=0 then
				response.write "<br>建立分类HTM文件失败!"
			else
				response.write "<br>建立分类HTM文件成功!"
			end if
		end if
		rs.movenext
	loop
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
%>
</body>
</html>