📄 html.asp

📁 html生成静态页的小程序
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Const dbdns="../"%>
<!--#include file="chk.asp"-->
<!--#include file="../AppCode/fun/function.asp"-->
<!--#include file="../AppCode/fun/inc_file.asp"-->
<!--#include file="../AppCode/fun/CreateHtml.asp"-->
<%
action = Request.QueryString("action")
ID = Request.QueryString("ID")
ChannelID = Request.QueryString("ChannelID")
ClassID = Request.QueryString("ClassID")
Select Case action
	Case "Index_Html"
		Call Html_Index()
		Response.End
		
	Case "Article_List_Html"
		Sql = "select ID from Ok3w_Class where ChannelID=" & ChannelID
		If ClassID<>"" Then Sql = Sql & " and ID in (" & ClassID & ")"
		Rs.Open Sql,Conn,0,1
		Response.Write("<script language=""javascript"">")
		Response.Write("var Arr = new Array();")
		i_Cont = 0
		Do While Not Rs.Eof
			Sql="select count(ID) from Ok3w_Article where IsPass=1 and IsDelete=0 and SortPath like '%," & Rs("ID") & ",%'"
			Rs_Count = Conn.Execute(Sql)(0)
			Page_Count = Rs_Count \ 20 + 1
			For i=1 To Page_Count
				Response.Write("Arr[" & i_Cont & "] = new Array(" & ChannelID & "," & Rs("ID") & "," & i & ");")
				i_Cont = i_Cont + 1
			Next
			Rs.MoveNext
		Loop
		Rs.Close
		Response.Write("var i_Cont=" & i_Cont - 1 & ";")
		Response.Write("</script>")
		Call Html_List()
		Response.End()
		
	Case "Article_Page_Html"
		Sql = "select ID from Ok3w_Article where ChannelID=" & ChannelID
		If ClassID<>"" Then
			Tmp = Split(ClassID,",")
			s1 = ""
			For i=0 To Ubound(Tmp)
				s1 = s1 & " SortPath like '%," & Tmp(i) & ",%' or"
			Next
			s1 = Left(s1,Len(s1)-2)
			Sql=Sql & " and(" & s1 & ")"
		End If

		Rs.Open Sql,Conn,0,1
		Response.Write("<script language=""javascript"">")
		Response.Write("var Arr = new Array();")
		i_Cont = 0
		Do While Not Rs.Eof
			Response.Write("Arr[" & i_Cont & "] = " & Rs("ID") & ";")
			i_Cont = i_Cont + 1
			Rs.MoveNext
		Loop
		Rs.Close
		Response.Write("var i_Cont=" & i_Cont - 1 & ";")
		Response.Write("</script>")
		Call Html_Show()
		Response.End()
	
	Case "About_Page_Html"
		Sql = "select ID from Ok3w_Article where ChannelID=" & ChannelID
		If ClassID<>"" Then Sql = Sql & " and ID=" & ClassID 
		Rs.Open Sql,Conn,0,1
		Response.Write("<script language=""javascript"">")
		Response.Write("var Arr = new Array();")
		i_Cont = 0
		Do While Not Rs.Eof
			Response.Write("Arr[" & i_Cont & "] = " & Rs("ID") & ";")
			i_Cont = i_Cont + 1
			Rs.MoveNext
		Loop
		Rs.Close
		Response.Write("var i_Cont=" & i_Cont - 1 & ";")
		Response.Write("</script>")
		Call Html_Show()
		Response.End()
End Select
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>后台管理系统</title>
<link rel="stylesheet" type="text/css" href="images/Style.css">
</head>

<body>
<!--#include file="top.asp"-->
<br />
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tbody>
    <tr>
      <td style="PADDING-LEFT: 2px; HEIGHT: 22px" 
    background="images/tab_top_bg.gif"><table cellspacing="0" cellpadding="0" width="477" border="0">
        <tbody>
          <tr>
            <td width="147"><table height="22" cellspacing="0" cellpadding="0" border="0">
              <tbody>
                <tr>
                  <td width="3"><img id="tabImgLeft__0" height="22" 
                  src="images/tab_active_left.gif" width="3" /></td>
                  <td 
                background="images/tab_active_bg.gif" class="tab"><strong class="mtitle">全站静态化管理</strong></td>
                  <td width="3"><img id="tabImgRight__0" height="22" 
                  src="images/tab_active_right.gif" 
            width="3" /></td>
                </tr>
              </tbody>
            </table></td>
          </tr>
        </tbody>
      </table></td>
    </tr>
    <tr>
      <td bgcolor="#ffffff"><table cellspacing="0" cellpadding="0" width="100%" border="0">
        <tbody>
          <tr>
            <td width="1" background="images/tab_bg.gif"><img height="1" 
            src="images/tab_bg.gif" width="1" /></td>
            <td 
          style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; PADDING-BOTTOM: 10px; PADDING-TOP: 10px" 
          valign="top"><div id="tabContent__0" style="DISPLAY: block; VISIBILITY: visible">
              <table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" 
            bgcolor="#8ccebd">
                <tbody>
                  <tr>
                    <td 
                style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; PADDING-BOTTOM: 10px; PADDING-TOP: 10px" 
                valign="top" bgcolor="#fffcf7"><form id="form1" name="form1" method="post" action="">
                      <table border="0" cellpadding="8" cellspacing="1" bgcolor="#EBEBEB">
                        <tr>
                          <td bgcolor="#FFFFFF"><input name="bntIndex" type="button" id="bntIndex" value="生成首页" onClick="_index()">
                            <input name="bntAbout" type="button" id="bntAbout" onClick="_show('About_Page_Html')" value="生成说明文章"></td>
                          <td align="center" bgcolor="#FFFFFF"><strong>进度显示区</strong></td>
                          </tr>
                        
                        <tr>
                          <td bgcolor="#FFFFFF">1.按住Ctrl或Shift键可以多选<br>
                            2.不选表示全部生成<br>
  <select name="ClassID" size="20" multiple>
                              <%Call InitClassSelectOption(1,0,"")%>
                          </select>
  <br />
  <br>
  <input name="bntList" type="button" id="bntList" value="生成列表页" onClick="_list()" />
  <input name="bntShow" type="button" id="bntShow" value="生成详细页" onClick="_show('Article_Page_Html')"/></td>
                          <td bgcolor="#FFFFFF"><iframe id="ww" name="ww" height="320" width="350" scrolling="no" frameborder="0"></iframe></td>
                        </tr>
                      </table>
                      </form>
                    </td>
                  </tr>
                </tbody>
              </table>
            </div></td>
            <td width="1" background="images/tab_bg.gif"><img height="1" 
            src="images/tab_bg.gif" width="1" /></td>
          </tr>
        </tbody>
      </table></td>
    </tr>
    <tr>
      <td background="images/tab_bg.gif" bgcolor="#ffffff"><img height="1" 
      src="images/tab_bg.gif" width="1" /></td>
    </tr>
  </tbody>
</table>
<br />
<script language="javascript">
function _index()
{
	ww.location.href="?action=Index_Html";
	form1.bntIndex.disabled = true;
}
function _list()
{
	var sel = "";
	var cObj = form1.ClassID;
	for(var i=0;i<cObj.length;i++)
	{
		if(cObj.options[i].selected)
			sel = sel + cObj.options[i].value + ",";
	}
	if(sel!="")
	{
		sel = sel.substring(0,sel.length-1);
	}
	ww.location.href="?action=Article_List_Html&ChannelID=1&ClassID="+sel;
	form1.bntList.disabled = true;
}
function _show(action)
{
	if(action == "About_Page_Html")
	{
		ww.location.href="?action=About_Page_Html&ChannelID=2";
		form1.bntAbout.disabled = true;
	}
	if(action == "Article_Page_Html")
	{	
		var sel = "";
		var cObj = form1.ClassID;
		for(var i=0;i<cObj.length;i++)
		{
			if(cObj.options[i].selected)
				sel = sel + cObj.options[i].value + ",";
		}
		if(sel!="")
		{
			sel = sel.substring(0,sel.length-1);
		}
		
		ww.location.href="?action=Article_Page_Html&ChannelID=1&ClassID="+sel;
		form1.bntShow.disabled = true;
	}
}
</script>

<%Private Sub Html_Index()%>
<iframe id="html" name="html" src="HtmlSave.asp?action=<%=action%>" height="50" width="500" scrolling="no" frameborder="0"></iframe>
<div id="ok" style="padding:20px; color:#FF0000;"></div>
<script language="javascript">
var pre_ok = true;
var i=0;
i_Cont = 0;
var intervalID = setInterval("html_index()", 100);
function html_index()
{
	if(i<=i_Cont & pre_ok)
	{
		pre_ok = false;
		html.location.href="HtmlSave.asp?action=<%=action%>";
		i = i + 1;
	}
	if(i>i_Cont)
	{
		clearInterval(intervalID);
		parent.form1.bntIndex.disabled = false;
		ok.innerHTML = "生成完毕"
	}
}
</script>
<%End Sub%>

<%Private Sub Html_List()%>
<iframe id="html" name="html" height="50" width="500" scrolling="no" frameborder="0"></iframe>
<div id="ok" style="padding:20px; color:#FF0000;"></div>
<script language="javascript">
var pre_ok = true;
var i=0;
var intervalID = setInterval("html_list()", 100);
function html_list()
{
	if(i<=i_Cont & pre_ok)
	{
		pre_ok = false;
		html.location.href="HtmlSave.asp?action=<%=action%>&ChannelID="+Arr[i][0]+"&ClassID="+Arr[i][1]+"&PageNo="+Arr[i][2];
		i = i + 1;
	}
	if(i>i_Cont)
	{
		clearInterval(intervalID);
		parent.form1.bntList.disabled = false;
		ok.innerHTML = "生成完毕";
	}
}
</script>
<%End Sub%>

<%Private Sub Html_Show()%>
<iframe id="html" name="html" height="50" width="500" scrolling="no" frameborder="0"></iframe>
<div id="ok" style="padding:20px; color:#FF0000;"></div>
<script language="javascript">
var pre_ok = true;
var i=0;
var intervalID = setInterval("html_show()", 100);
function html_show()
{
	if(i<=i_Cont & pre_ok)
	{
		pre_ok = false;
		html.location.href="HtmlSave.asp?action=<%=action%>&ID="+Arr[i];
		i = i + 1;
	}
	if(i>i_Cont)
	{
		clearInterval(intervalID);
		if("<%=action%>"=="About_Page_Html")
			parent.form1.bntAbout.disabled = false;
		if("<%=action%>"=="Article_Page_Html")
			parent.form1.bntShow.disabled = false;
		ok.innerHTML = "生成完毕"
	}
}
</script>
<%End Sub%>
</body>
</html>
<%
Call CloseConn()
Set Rs = Nothing
Set Admin = Nothing
%>
⌨️ 快捷键说明

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