create_jsfiles.asp

动感系统XP Access版,服务器需要安装Jmail 组件 配置SendMessages.asp 最后部分的参数

   end if
   rs.close
   
	Set rootRs=server.createobject("adodb.recordset")
	Set subRs=server.createobject("adodb.recordset")
	temContent=""
	temContent = temContent & "<table width=""770"" border=""0"" cellspacing=""1"" cellpadding=""3"">" & vbcrlf
	sql="select * from SoftDown_Catalog where Depth=0 order by orders"
	rootRs.open sql,conn,1,1 
   	if not(rootRs.eof and rootRs.bof) then 
	do while not rootRs.eof	
	temContent = temContent & "  <tr> " & vbcrlf
	temContent = temContent & "    <td height=""22"" bgcolor=""#E7E7E7"">　　<img src=""../images/dotdb.gif"" align=""absmiddle""> <strong><a href=""Catalog_"&rootRs("CatalogID")&"_SoftTime_Desc_1.html"" son=hint alt=""... "&rootRs("Readme")&"  ..."" style=""behavior:url(../0007.htc)"">"&rootRs("CatalogName")&"</a></strong></td>" & vbcrlf
	temContent = temContent & "  </tr>" & vbcrlf
	temContent = temContent & "  <tr> " & vbcrlf
	temContent = temContent & "    <td><table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""0"">" & vbcrlf
	temContent = temContent & "        <tr> " & vbcrlf
	sql="select * from SoftDown_Catalog where ParentID="&rootRs("CatalogID")&" order by orders"
	subRs.open sql,conn,1,1 
   	if not(subRs.eof and subRs.bof) then
		sub_i=0
		do while not subRs.eof	
		temContent = temContent & "          <td width=""12%""><a href=""Catalog_"&subRs("CatalogID")&"_SoftTime_Desc_1.html"">"&subRs("CatalogName")&"</a></td>" & vbcrlf
		sub_i=sub_i+1
		if sub_i mod 8=0 then temContent = temContent & "          </tr><tr>" & vbcrlf		
		subRs.movenext
    	loop
		if sub_i mod 8 > 0 then
			for sub_ii = 1 to (8 -(sub_i mod 8))
			temContent = temContent & "          <td width=""12%"">.</td>" & vbcrlf
			next
		end if
	end if
	subRs.close
	temContent = temContent & "        </tr>" & vbcrlf
	temContent = temContent & "      </table></td>" & vbcrlf
	temContent = temContent & "  </tr>" & vbcrlf	
	rootRs.movenext
    loop  
	end if
	rootRs.close
	temContent = temContent & "</table>" & vbcrlf
	set rootRs=nothing
	set subRs=nothing
	
	strTitle="软件分类"
	strNavigate="<a href=""../"">软件下载</a> → 软件分类"

	HtmlContent=HtmlTemplate
	HtmlContent=replace(HtmlContent,"$Title$",""&strTitle&"")
	HtmlContent=replace(HtmlContent,"$Navigate$",""&strNavigate&"")
	HtmlContent=replace(HtmlContent,"$ShowContent$",""&temContent&"")
	HtmlContent=replace(HtmlContent,"</HEAD>","</HEAD>"&Copyright&"")

	HtmlFileName=Server.MapPath("SoftList/Soft_Category.html")
	Set fout = fso.CreateTextFile(HtmlFileName)
    fout.WriteLine HtmlContent 
    fout.close:set fout = nothing 
	
end sub

sub article_category_html()
  '读取默认模板
   sql="select ID,Article_Head,Article_List,Article_foot from SoftDown_Template where isActive=true"
   rs.open sql,conn,1,1 
   if rs.eof and rs.bof then
   		response.write "您没有添加模板，或者没有设置默认模板。"
		response.end
   else
   HtmlTemplate=rs("Article_Head")&rs("Article_List")&rs("Article_foot")
   end if
   rs.close
   
	Set rootRs=server.createobject("adodb.recordset")
	Set subRs=server.createobject("adodb.recordset")
	temContent=""
	temContent = temContent & "<table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""3"">" & vbcrlf
	sql="select * from info_Catalog where Depth=0 order by orders"
	rootRs.open sql,conn,1,1 
   	if not(rootRs.eof and rootRs.bof) then 
	do while not rootRs.eof	
	temContent = temContent & "  <tr> " & vbcrlf
	temContent = temContent & "    <td height=""22"" bgcolor=""#E7E7E7"">　　<img src=""../images/dotdb.gif"" align=""absmiddle""> <strong><a href=""Catalog_"&rootRs("CatalogID")&"_1.html"" son=hint alt=""... "&rootRs("Readme")&"  ..."" style=""behavior:url(../0007.htc)"">"&rootRs("CatalogName")&"</a></strong></td>" & vbcrlf
	temContent = temContent & "  </tr>" & vbcrlf
	temContent = temContent & "  <tr> " & vbcrlf
	temContent = temContent & "    <td><table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""0"">" & vbcrlf
	temContent = temContent & "        <tr> " & vbcrlf
	sql="select * from info_Catalog where ParentID="&rootRs("CatalogID")&" order by orders"
	subRs.open sql,conn,1,1 
   	if not(subRs.eof and subRs.bof) then
		sub_i=0
		do while not subRs.eof	
		temContent = temContent & "          <td width=""20%""><a href=""Catalog_"&subRs("CatalogID")&"_1.html"" >"&subRs("CatalogName")&"</a></td>" & vbcrlf
		sub_i=sub_i+1
		if sub_i mod 5=0 then temContent = temContent & "          </tr><tr>" & vbcrlf		
		subRs.movenext
    	loop
		if sub_i mod 5 > 0 then
			for sub_ii = 1 to (5 -(sub_i mod 5))
			temContent = temContent & "          <td width=""20%"">.</td>" & vbcrlf
			next
		end if
	end if
	subRs.close
	temContent = temContent & "        </tr>" & vbcrlf
	temContent = temContent & "      </table></td>" & vbcrlf
	temContent = temContent & "  </tr>" & vbcrlf	
	rootRs.movenext
    loop  
	end if
	rootRs.close
	temContent = temContent & "</table>" & vbcrlf
	set rootRs=nothing
	set subRs=nothing
	
	strTitle="软件学院 → 栏目分类"
	strNavigate="<a href=""../default_study.html"">软件学院</a> → 栏目分类"

	HtmlContent=HtmlTemplate
	HtmlContent=replace(HtmlContent,"$Title$",""&strTitle&"")
	HtmlContent=replace(HtmlContent,"$Navigate$",""&strNavigate&"")
	HtmlContent=replace(HtmlContent,"$Article_List$ ",""&temContent&"")
	HtmlContent=replace(HtmlContent,"</HEAD>","</HEAD>"&Copyright&"")

	HtmlFileName=Server.MapPath("infoList/article_Category.html")
	Set fout = fso.CreateTextFile(HtmlFileName)
    fout.WriteLine HtmlContent 
    fout.close:set fout = nothing 	
end sub

sub main() %>
      <table width="100%" border="0" cellpadding="5" cellspacing="1">
        <tr> 
          <td colspan="2" align="center" class="tdbg1">其他HTML页及相关JS文章生成操作</td>
        </tr>
        <form action="" method="post" name="form1">
          <tr> 
            <td colspan="2" class="tdbg2"><strong>生成软件下载排行榜JS文件</strong></td>
          </tr>
          <tr> 
            <td class="tdbg2">设置提取记录数</td>
            <td class="tdbg2"><input name="SoftNum" type=text value="10" size=5 maxlength="2">
              条记录（即显示软件记录的个数）</td>
          </tr>
          <tr> 
            <td class="tdbg2">每条显示字符数</td>
            <td class="tdbg2"><input name="cutNum" type=text value="23" size=5 maxlength="2">
              个字符（超过指定字符数的软件名称自动截断，用“...”替补。） </td>
          </tr>
          <tr> 
            <td colspan="2" class="tdbg2"><input type="submit" name="Submit2" value="执行操作"> 
              <input name="action" type="hidden" value="soft"></td>
          </tr>
        </form>
        <form action="" method="post" name="form1">
          <tr> 
            <td colspan="2" class="tdbg2"><strong>生成文章阅读排行榜、推荐文章等JS文件</strong></td>
          </tr>
          <tr> 
            <td class="tdbg2">设置提取记录数</td>
            <td class="tdbg2"><input name="articleNum" type=text id="articleNum" value="10" size=5 maxlength="2">
              条记录（即显示文章记录的个数）</td>
          </tr>
          <tr> 
            <td class="tdbg2">每条显示字符数</td>
            <td class="tdbg2"><input name="cutNum" type=text value="23" size=5 maxlength="2">
              个字符（超过指定字符数的文章标题自动截断，用“...”替补。） </td>
          </tr>
          <tr> 
            <td colspan="2" class="tdbg2"><input type="submit" name="Submit2" value="执行操作"> 
              <input name="action" type="hidden" value="article"></td>
          </tr>
        </form>
		<form action="" method="post" name="form1">
        <tr> 
          <td colspan="2" class="tdbg2"><input name="sel" type="checkbox" id="sel" value="1" checked>
              生成软件分类导航栏JS文件</td>
        </tr>
        <tr> 
          <td colspan="2" class="tdbg2"><input name="sel" type="checkbox" id="sel" value="2" checked>
              生成软件搜索表单JS文件</td>
        </tr>
        <tr> 
          <td colspan="2" class="tdbg2"><input name="sel" type="checkbox" id="sel" value="3" checked>
              生成软件分类HTML页面</td>
        </tr>
        <tr> 
          <td colspan="2" class="tdbg2"><input name="sel" type="checkbox" id="sel" value="4" checked>
              生成文章分类导航栏JS文件</td>
        </tr>
        <tr> 
          <td colspan="2" class="tdbg2"><input name="sel" type="checkbox" id="sel" value="5" checked>
              生成文章搜索表单JS文件</td>
        </tr>
        <tr>
          <td colspan="2" class="tdbg2"><input name="sel" type="checkbox" id="sel" value="6" checked>
              生成文章分类HTML页面</td>
        </tr>
        <tr> 
          <td colspan="2" class="tdbg2"><input type="submit" name="Submit2" value="执行操作"> 
              <input name="action" type="hidden" value="other"></td>
        </tr>
		</form>
      </table> 
	  <% end sub %>
	  </td>
  </tr>
</table>
<!-- #include file="admin_footer.asp" -->
</BODY></HTML>
<% CloseDatabase %>