html_index.asp

来自「欢迎使用酷航设计系统」· ASP 代码 · 共 39 行

ASP
39
字号
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../other/xbqq_style.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
if request("index_mb")<>"" then
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath("default.asp"))
fout.Write request("index_mb")
fout.close
set fout=nothing
set fso=nothing
mskrindex="ok"
end if
%>
<% if mskrindex="ok" then %>
<br><br><br><p align="center"><b><font color="#FF0000">恭喜你,成功生成首页!</font>[<a target="_blank" href="index.asp">../index.asp</a>]</b>
<% else %>
<br>
<br>
<form name=pwd method="post" action="html_index.asp">
<table width="73%" height="251"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><textarea rows="35" name="index_mb" cols="88"><!--#include file="index.asp"--></textarea></td>
  </tr>
<tr>
<td>
<div align="center"><br>
<input name="change" class=buttonface value="确认生成首页文件" type='submit'>     
&nbsp;&nbsp;
<input type="reset" value="还原" name="B2">
</div></td></tr>
</table>
</form>
<% End If %>
</body></html>

⌨️ 快捷键说明

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