📄 admin_createindex.asp
字号:
<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<!--#include file="../inc/cls_public.asp"-->
<%
Admin_header
'=====================================================================
' 软件名称:新云网站管理系统
' 当前版本:NewCloud Site Management System Version 2.1
' 文件名称:admin_createindex.asp
' 更新日期:2004-12-20
' 官方网站:新云网络(www.newasp.net) QQ:94022511
'=====================================================================
' Copyright 2002-2005 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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -