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

📄 ntype_html_all.asp

📁 shopxp网上购物系统v6.6已经调试,百分百可用
💻 ASP
字号:
🔍 
<!--#include file="../nUser/config.asp"-->
<!--#include file="../nUser/conn.asp"-->
<!-- #include file="inc/Session.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<title>一次更新所有前台分类HTML页面</title> 
<link href="Css.css" rel="stylesheet">
</head>
<body topmargin="0" leftmargin="0" >
<table width="100%"  height="30" border="0" cellpadding="0" cellspacing="0" background="Images/main_bg.gif">
                <tr>
                  <td bgcolor="#006699" onMouseOver="javascript:this.bgColor='#0066cc'" onMouseOut="javascript:this.bgColor='#006699'">
                  <div align="center" class="style1">
                  一次更新博客日志所有前台分类HTML页面</div></td>
                </tr>
</table>
<table width="100%" height="22"  border="0" cellpadding="0" cellspacing="0" bgcolor="#FF9900">
          <tr>
             <td><div align="center" class="style1">管理导航：此功能非常消耗服务器资源！请甚用！</div></td>
          </tr>
</table>
<BR><BR> 
<%if Request("action")="" then%>
<li><a href="?action=makeall">确定现在一次更新前台所有分类HTML页面吗？</a> 
  <% end if
if Request("action")="makeall" then
%>
  <table cellspacing="1" cellpadding="3" width="99%" class="table1" bgcolor="#999999" align="CENTER" >
    <tr bgcolor="#CCCCCC"> 
      <td height="25" class="title"><b>分类名称（所在目录）（更新数据）</b></td>
      <td class="title"><b>更新日期</b></td>
      <td class="title"><b>操作提示</b></td>
    </tr>
<%
 Const ForReading = 1
 Const Forwriting = 2
 Const ForAppending = 8
 
sql="select  * from kheu_nType where build_flag=false and nNum<50"
Set rs=Server.CreateObject("ADODB.RecordSet") 
rs.Open sql,conn,1,3 
do while not rs.eof 
id=rs("id")
nPower=rs("nPower")
nType=rs("nType") 
title=rs("title") 
nNum=rs("nNum")
ndate=rs("date")


 myFolder = "../nType/"
 myFolder = Server.MapPath(myFolder)

 Set fileStreamObj = CreateObject("Scripting.FileSystemObject")
 If fileStreamObj.FolderExists(myFolder) = False Then
    fileStreamObj.CreateFolder (myFolder)
 End If
 
  postmb="<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">"& vbCrLf
  postmb=postmb&"<html xmlns=""http://www.w3.org/1999/xhtml"">"& vbCrLf
  postmb=postmb&"<head>"& vbCrLf
  postmb=postmb&"<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>"& vbCrLf
  postmb=postmb&"<title>"&rs("title")&"</title>"& vbCrLf
  postmb=postmb&"<STYLE type=text/css>"& vbCrLf
  postmb=postmb&"body {margin:10px; MARGINHEIGHT:0; MARGINWIDTH:0;font-family: verdana, Tahoma; font-size: 0.8em;}"& vbCrLf
  postmb=postmb&"A { TEXT-DECORATION: none; Color: #333333 }"& vbCrLf
  postmb=postmb&"A:hover { TEXT-DECORATION: underline;Color: #000000 }"& vbCrLf
  postmb=postmb&"DIV{padding:0px;margin:0px;}"& vbCrLf
  postmb=postmb&"ol{padding:0px;margin:0px;}"& vbCrLf
  postmb=postmb&".red{color: red; }"& vbCrLf
  postmb=postmb&".tdtitle { border-top: 2px solid green;font-weight: bold;background-color: #F4FCF3;TEXT-ALIGN: center;height:16px;margin-bottom :2px;padding:5px 2px 2px 2px; }"& vbCrLf
  postmb=postmb&".list {padding:2px 10px 2px 10px;}"& vbCrLf
  postmb=postmb&"#logo {position :absolute;left:10px;top:10px;width:120px;height:60px;float :left;}"& vbCrLf
  postmb=postmb&"#footer {position :absolute;bottom:5px;left:254px;width:280px;height:15px;z-index:5;}"& vbCrLf
  postmb=postmb&"#main {position:absolute; top:90px;left:140px; width:500px; height:280px;}"& vbCrLf
  postmb=postmb&"#nav {position :absolute;bottom:90px;right:140px;width:200px;height:80px;}"& vbCrLf
  postmb=postmb&"</STYLE>"& vbCrLf

  postmb=postmb&"</head>"& vbCrLf

  postmb=postmb&"<DIV id=""logo"">"& vbCrLf
  postmb=postmb&"<a href=""http://cnc.qinzd.com/"">"
  postmb=postmb&"<img src=""../static/logo.gif"" alt="" "&SiteName&" "" width=""120"" height=""38"" border=""0""></a>"
  postmb=postmb&"<BR />"& vbCrLf
  postmb=postmb&"<a href=""../nUser/index.asp"" >所有博客</a>"
  postmb=postmb&"<a href=""../nUser/Login.asp"" >博客登录</a>"& vbCrLf
  postmb=postmb&"</DIV>"	

  postmb=postmb&"<DIV id=""main"">"& vbCrLf

  postmb=postmb&"<DIV class=""tdtitle"">"&rs("title")&"</DIV><DIV class=""list"">"& vbCrLf
  

  postmb=postmb&rs("title")&"（"&rs("nNum")&"）<a href=""../nUser/mPost_Add.asp?nType="&id&" "">添加词条</a></span><BR />"
  postmb=postmb&"备注：注册用户能力积分<span class=red >"&rs("nPower")&"分</span>以上方可在此分类添加/修改词条" & vbCrLf 
  set rs2=server.createobject("adodb.recordset")
  sql = "Select * FROM kheu_nType where nType="&id
  rs2.open sql,conn,1,1
  nn=rs2.recordcount
  do while not rs2.eof 
  postmb=postmb&"<a href=""nType_"&rs2("id")&".asp"">"&rs2("title")&"</a>&nbsp;"       
  rs2.movenext       
  loop       
  rs2.close
  
  postmb=postmb&"</DIV><DIV class=""tdtitle"">『"&title&"』最新日志</DIV><DIV class=""list"">"

  set rs2=server.createobject("adodb.recordset")      
  sql="select  id,title,nUser,date from kheu_nPost where nType="&id&" and show_flag=true order By date desc"      
  rs2.open sql,conn,1,1 
  do while not rs2.eof  
  
  postmb=postmb&"<A title=""( 贡献者：" 
  
  sql="select top 1 user_email from kheu_nUser where user_id="&rs2("nUser")&""
  set rs21=server.createobject("ADODB.Recordset")
  rs21.open sql,conn,1,1
  if not rs21.eof then
  postmb=postmb&rs21("user_email")
  end if
  postmb=postmb&") 时间："&year(rs2("date"))&"/"&month(rs2("date"))&"/"&day(rs2("date"))&" ""  href=""../nPost/nPost_"&rs2("id")&".asp"">"&rs2("title")&"</A>"& vbCrLf

  rs2.movenext       
  loop       
  rs2.close
   
  postmb=postmb&"</DIV></DIV>"
  postmb=postmb&"<DIV id=""footer""><a target=""_blank"" href=""http://www.qinzd.com/"">Power by <img border=""0"" src=""../static/link.gif"" width=""80"" height=""15"">V2.3版</a></div>"
  postmb=postmb&"<!--#include file=""../static/footer.htm"" -->"
  postmb=postmb&"<!--#include file=""../static/link.htm"" -->"  
  
 HtmlNLA=postmb 
 	  
 htmfilename="../nType/nType_"&id&".asp"
 myFile = Server.MapPath(htmfilename)

 fileStreamObj.CreateTextFile(myFile)
 set textStream = fileStreamObj.OpenTextFile(myFile,ForWriting,False)
 textStream.Write(HtmlNLA)
 textStream.Close()
 rs("build_flag")=true
 rs.update
%>
<tr>
<td bgcolor="#dddddd"><%=title%> <FONT COLOR="#666666">（<%=nPower%>）</FONT></td>
<td bgcolor="#dddddd" ><%=year(ndate)%>/<%=month(ndate)%>/<%=day(ndate)%></td>
<td bgcolor="#dddddd"> 
<font color="#0000FF">更新完成</font> 
<a href="<%response.write htmfilename%>" target="_blank">
<font color="#FF0000">点击查看生成文件</font></a>
</td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>
</table>
  <BR>
  <BR>
  <TABLE WIDTH="99%" BORDER="0" CELLPADDING="2" CELLSPACING="1" BGCOLOR="#999999" ALIGN="CENTER" >
    <TR BGCOLOR="#CCCCCC"> 
      <TD HEIGHT="22" 
COLSPAN="2" ALIGN="center"><B>操作说明</B></TD>
    </TR>
    <TR BGCOLOR="#eeeeee"> 
      <TD WIDTH="87" HEIGHT="30"><B>操作说明：</B></TD>
      <TD 
HEIGHT="30"> 
        <LI>此功能非常消耗服务器资源！请甚用！ 
      </TD>
    </TR>
  </TABLE>
</body>
</html>

⌨️ 快捷键说明

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