📄 indexhtm.asp

📁 这是一个非常好的留言版程序

💻 ASP

字号:

<!--#include file="conn.asp"-->
<!--#include file="../include/function.asp"-->
<!--#include file="../include/setup.asp"-->
<%

if session("AdminName") = "" then
	Session.Abandon
    response.Redirect "Admin_Login.asp"
end if

if Session("AdminName")<>"admin" then
			response.write"<SCRIPT language=JavaScript>alert('对不起您无权访问本页！');"
			response.write"javascript:location.href='Admin_login.asp';</SCRIPT>"
			response.end
   end if

%>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb2312">
</head>
<body leftMargin=0 bgcolor="#EFEFEF" topMargin=15>
<table width="95%"  border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#666666">
  <tr>
    <td bgcolor="#FFFFFF"><b>生成HTML页：</b></tr>
</table>
<FORM METHOD=POST ACTION="indexhtm.asp">
<TEXTAREA NAME="body" style="height:200;width:100%">
<!--#include file="../index_main.asp"-->
</TEXTAREA>
<INPUT TYPE="submit" value="生成首页" name="action">
</FORM>
<%
	if request("action")="生成首页" then
		Set fso = Server.CreateObject("Scripting.FileSystemObject")
		HtmlFileName=Server.MapPath(sysfolder & "../index.html")	
		set fout = fso.CreateTextFile(HtmlFileName)
		fout.WriteLine request("body") 
		fout.close
		set fout = nothing 	
		response.write "首页生成成功!<a href="""& sysfolder &"../index.html"" target=""_blank""><b>点击查看</b></a>"
	end if
	%>
</BODY>
</HTML>
<%
 conn.close
 set conn=nothing
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -