📄 make_map.asp

📁 1、采用4.5修改而成。 2、添加了求片区
💻 ASP
字号:
<!-- #include file="check.asp" -->
<%'====================================================================
'=              Copyright (c) 2005 -2007,马克斯(QQ448265)开发             =
'=                      All rights reserved.                        =
'=------------------------------------------------------------------=
'=                     文件名称：admin_map.asp                   =
'=                     摘    要：后台—地图静态生成                 =
'=------------------------------------------------------------------=
'=                     用   途：免费电影系统                         =
'=                     最后更新：2005-03-24                         =
'====================================================================%><%
filename="../allmovie.html"
Dim BigTextArea
For I = 1 To Request.Form("BigTextArea").Count 
BigTextArea = BigTextArea & Request.Form("BigTextArea")(I)
Next
if BigTextArea<>"" then
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(""&filename&""))
fout.Write BigTextArea
fout.close
set fout=nothing
set fso=nothing
mskrindex="ok"
end if
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>生成地图</title>
<LINK href="admin.css" type=text/css rel=stylesheet>

</head>
<body topmargin="20" leftmargin="1">
<%if mskrindex="ok" then%>
<table border="0" cellspacing="0" class="tableBorder" width="100%" cellpadding="0">
  <tr>
    <td width="100%"><div align="center"><font color="#FF0000">·</font>成功:生成(HTML)完成,<a target="_blank" href="<%=filename%>"><%=filename%></a></div></td>
  </tr>
</table>
<%else%>
<table width="97%" height="98%" border="0" align="center" cellspacing="1" bgcolor="#8FB5DA" class="tableBorder">
<form name="frmAnnounce" method="post" action="?">
  <tr>
    <td width="100%" height="25" bgcolor="#B1B4D1"> <b><font color="#FFFFFF">生成地图&nbsp; 
      生成文件<font face="Arial, Helvetica, sans-serif">:<a  target="_blank" href="<%=filename%>"><%=filename%></a> 
      ,</font>模版文件</font>:<a  target="_blank" href="../allmovie.asp"><font face="Arial, Helvetica, sans-serif">allmovie.asp</font></a> 
      <font color="#FFFFFF">如果你需要修改模板，请修改管理目录下的：<font face="Verdana, Arial, Helvetica, sans-serif">allmovie.asp</font></b></td>
  </tr>
  <tr>
    <td width="100%" bgcolor="#FFFFFF" height="100%"><textarea style="width:100%; height:100%;" rows="19" name="BigTextArea" cols="102"><!--#include file="../allmovie.asp"--></textarea></td>
  </tr>
  <tr>
    <td width="100%" bgcolor="#BEBFD9">
    <p align="center">        
    <input name="change" class=buttonface value="生成地图(HTML)" type='submit'> </td>
  </tr>
</form> 
</table>
<%end if%>   
</body>    
</html>
⌨️ 快捷键说明

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