htmlsave.asp

html生成静态页的小程序

<%@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")
PageNo = Request.QueryString("PageNo")

Select Case action
	Case "Index_Html"
		Call Index_Html()
		
	Case "Article_List_Html"
		Call Article_List_Html(PageNo,ClassID)
		
	Case "Article_Page_Html"
		Call Article_Page_Html(ID)
		
	Case "About_Page_Html"
		Call About_Page_Html(ID)
End Select

Set Rs = Nothing
Call CloseConn()
%>
<script language="javascript">
parent.pre_ok=true;
</script>