admin_createindex.asp

来自「小游戏网站演示www.4399.io 拥有4万条游戏数据」· ASP 代码 · 共 40 行

<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<!--#include file="../inc/cls_public.asp"-->
<%
Admin_header
'=====================================================================
' 软件名称：四博CMS网站管理系统 2008 sp3
' 当前版本：dincoo.com
' 文件名称：admin_createindex.asp
' 更新日期：2006-12-20
' 官方网站：新云网络(www.newasp.net) QQ：94022511
'=====================================================================
' Copyright 2003-2007 newasp.net - All Rights Reserved.
' newasp is a trademark of newasp.net
'=====================================================================
If Not ChkAdmin("CreateIndex") Then
	Server.Transfer("showerr.asp")
	Response.End
End If
Dim ShowPage,HtmlContent,FilePath

If LCase(Request("act")) <> "ok" Then
	'Call CreateSoftIndex
	Call OutputScript("生成首页（HTML）完成！","?act=ok")
Else
	Call CreateSiteIndex
	Response.Write "<p align=center>生成首页（HTML）完成......<br><a href=" & FilePath & " target=_blank>"
	Response.Write Server.MapPath(FilePath)
	Response.Write "</a></p>"
End If
Admin_footer
Set HTML = Nothing
CloseConn
Public Sub CreateSiteIndex()
	On Error Resume Next
	HtmlContent = HTML.ShowIndex(True)
	FilePath = "../" & Newasp.IndexName
	Newasp.CreatedTextFile FilePath,HtmlContent
End Sub
%>