⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 index_htm.asp

📁 首页由top.asp index_asp.asp link.asp end.asp构成
💻 ASP
字号:
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link rel=stylesheet type=text/css href=admin/style/style.css>
<title></title>
</head>
<body bgcolor="#799ae1">
<%
dim action
action=request.QueryString("action")
select case action
case "index"
%>
<div align="center">
 <p> </p>
	<table border="0" width="63%" cellspacing="0" cellpadding="0" id="table1" height="317">
<form name="form1" method="post" action="index_htm.asp?action=indexhtm">
		<tr>
			<td class=c2 colspan="3" height="40"> </td>
		</tr>
		<tr>
			<td width="12%" class=c2 height="160"> </td>
			<td width="77%" height="160" align="center">
			<textarea rows="15" name="conter" cols="63"><!--#include file="index_asp.asp"--></textarea></td>
			<td width="12%" height="160" class=c2> </td>
		</tr>
		<tr>
			<td width="100%" class=c2 colspan="3" align="center">
			<input type="submit" value="生成index.htm" name="addpopnew"></td>
		</tr>
</form>
	</table>
<%
case "indexhtm"
conter=request("conter")
set fs=server.CreateObject("Scripting.FileSystemObject")
FilePath=server.MapPath("index.htm")

set htm=fs.opentextfile(filepath,2,true)

htm.write conter
response.redirect "admin/right.htm"
%>

<%
end select
%> 
</body>

</html>

⌨️ 快捷键说明

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