将首页转成静态html页的asp文件

此程序只能将首页转成静态!(真对一个页面)

将createhtml.asp文件上传到 你的空间存放首页文件（index.asp）的目录下
录入网址直接打开createhtml.asp接提示操作就可以了
如果没有转成功可将createhtml.asp更名试一下(如:改成z.asp)录入网址直接打开z.asp
本文件可以随便改名不影响运行


代码如下:

<%
if request.QueryString("action")="ok"  then
dim kk,url,http,reurl
url =trim(request.Form("url"))
if url="" then
url="http://www.jb51.net"
end  if
kk=trim(request.Form("ad"))
if kk="" then
kk="index.html"
end  if
reurl=trim(request.Form("reurl"))
  set http=Server.createobject("Microsoft."&chr(120)&"MLHTTP") 
  Http.open "GET",url,false 
  Http.send() 
  set objStream = Server.CreateObject("ADODB.Stream") 
  objStream.type = 1 
  objStream.open 
  objstream.write http.responseBody
  objstream.saveToFile server.mappath(kk),2
  response.write "<script language='javascript'>"
response.write "alert('发布成功');"
response.write "location.href='"&reurl&"';"
response.write "</script>"
else
%>
<style type="text/css">
<!--
.STYLE1 {
    font-size: 12px;
    color: #FF0000;
}
.STYLE2 {
    color: #0000FF;
    font-size: 12px;
}
-->
</style>

<form id="form1" name="form1" method="post" action="http://<%=request.ServerVariables("HTTP_HOST")&request.ServerVariables("SCRIPT_NAME")%>?action=ok">
<table><tr><td>
  <span class="STYLE2">要转静态的网址：</span></td><td><input name="url" type="text" id="url" value="http://www.jb51.net" /> 
  <span class="STYLE1">例如http://www.jb51.net 本机的文件 http://localhost/</span></td>
   </tr>
   <tr><td><span class="STYLE2">存放的路径：</span></td><td>
   <input name="ad" type="text" id="ad"  value="index.htm"/> 
   <span class="STYLE1">比如index.html 就是保存为和本文件同一目录下的一个index.html</span></td>
   </tr>
   <tr>
    <td><span class="STYLE2">转静态后需要跳转到：</span></td>
    <td>
    <input name="reurl" type="text" id="reurl" value="index.htm" /> 
    <span class="STYLE1">转静态完成后会有提示框然后确定后就转到您填写的页面</span></td>
    </tr>
   <tr><td><div align="right">   
    </div></td><td><input type="submit" name="Submit" value="提交" /></td>
    </tr></table>
</form>
<%end if%>
<span class="STYLE1">本文件可以随便改名不影响运行</span>

赞 (0)

相关推荐

  • asp文件如何打开

    asp文件如何打开

    运行asp文件 首先我们需要搭配运行环境,运行ASP文件需要的服务器是IIS服务器,所以我们要来安装和配置IIS服务器,其实相比于其他的服务器,IIS简单很多,因为是windows自带的服务器,只要安装必要的组件就行了. 了解过后我们就来安装IIS吧,首先打开控制面板(小编使用的操作系统是windows2003,很多网站都使用它作为默认的服务器,因此小编以此为例),找到添加或删除程序选项(如下图红线标注处所示),然后点击进入. 接着我们就看到添加或删除程序界面,点击添加删除windows组件,然

  • 如何准确定时运行ASP文件

    在一定的时候,要定时的运行某个ASP文件去执行一个任务,如一个工厂在早上9点钟要采集所有的电表的读数,当然这要通过IN SQL连接到各个电表中,我们现在就是用一个ASP文件把IN SQL中表的读数再集中到MS SQL中. 可能你看到的定时运行ASP文件的方法有多种,不过我现在要说的是一种简单的方法,利用计划任务就可简单的实现. 首先,你要写一个js或者vbs文件来调用你所有执行的ASP.下面是js和vbs文件的代码,你可以任选一个,执行效果是一样的. vbs代码-----------------

  • ASP文件中的安全问题

    浅谈ASP的安全问题 先说句牢骚话,我经常看到有人说ASP不安全,比如容易被注入,这种说法我一直感到无法理解.如果你水平不高,那么你用php用ASP.net用JSP都有被注入的可能,这关ASP什么事?ASP只是一种技术,用它开发的网站是否安全,只跟程序员和服务器管理员的水平有关系,任何技术开发的网站都一样.只要你的程序有漏洞,而且你用的数据库支持标准SQL语法,或者注入者会这种语法,那么就存在被注入的可能. 闲话少说,我今天结合我个人的经验来简单说说ASP中常见的安全问题. 一,注入.无论什么时

  • pjblog的ubbcodeasp文件

    复制代码 代码如下: <%'===========PBlog2 UBB代码转换代码=========='      Author:PuterJam'         Copryright PBlog2 '         Update: 2005-12-29'===========================================Function UBBCode(ByVal strContent,DisSM,DisUBB,DisIMG,AutoURL,AutoKEY) If isE

  • IIS 运行ASP文件500内部错误解决方法大全

    IIS 运行ASP文件500内部错误解决方法大全

    1 IIS服务器出现500错误 2错误原因:500错误的原因一般是源程序出现错误造成的. 3 解决办法:1 首先设置IE浏览器à工具->Internet选项 2 刷新或者重新打开500错误页面就会出现错误的程序部分 3 根据错误提示,然后解决问题. 4 ADODB.Connection 创建失败的可能解决方法: 1.重装MDAC2.8. MDAC 2.8下载地址: http://www.microsoft.com/downloads/details.aspx?displaylang=zh-cn&am

  • asp文件用什么软件编辑

    asp文件用什么软件编辑

    编辑asp文件 记事本:默认的ASP文件双击是不能打开的,一般都会使用记事本对ASP文件进行编辑,但是记事本功能单一,只能进行一些简单的操作,而且当你的ASP文件编码是UTF-8编码的,使用记事本还会出现问题,它会把文件改为带签名的文件,从而会引起很多未知问题. 文本编辑器:为了方便对各种文件的编辑,现在推出了很多文本编辑器,功能十分强大,使用它编辑ASP文件的时候会把很多语法标红,有利于我们判断是否正确书写了函数或者语言结构,当然也不会出现上述篡改签名的情况. 推荐:使用文本编辑器对ASP文件

  • asp是什么格式 asp文件用什么打开

    什么是ASP,它能干什么? 一.什么是ASP? 从字面上说,ASP包含三方面含义: 1.Active:ASP使用了Microsoft的ActiveX技术.ActiveX(COM)技术是现在Microsoft软件的重要基础.它采用封装对象,程序调用对象的技术,简化编程,加强程序间合作.ASP本身封装了一些基本组件和常用组件,有很多公司也开发了很多实用组件.只要你可以在服务器上安装这些组件,通过访问组件,你就可以快速.简易地建立自己的WEB应用. 2.Server:ASP运行在服务器端.这样就不必担

  • 将首页转成静态html页的asp文件

    此程序只能将首页转成静态!(真对一个页面) 将createhtml.asp文件上传到 你的空间存放首页文件(index.asp)的目录下录入网址直接打开createhtml.asp接提示操作就可以了如果没有转成功可将createhtml.asp更名试一下(如:改成z.asp)录入网址直接打开z.asp 本文件可以随便改名不影响运行 复制代码 代码如下: <% if request.QueryString("action")="ok"  then dim kk,

  • 生成静态页大全[ASP/PHP/ASPX]

    ASP生成静态网页的方法 随着网站访问量的加大,每次从数据库读取都是以效率作为代价的,很多用ACCESS作数据库的更会深有体会,静态页加在搜索时,也会被优先考虑.互联网上流行的做法是将数据源代码写入数据库再从数据库读取生成静态面,这样无形间就加大了数据库.将现有的ASP页直接生成静态页,将会节省很多. 下面的例子是将.index.asp?id=1/index.asp?id=2/index.asp?id=3/这三个动态页面,分别生成ndex1.htm,index2.htm,index3.htm存在

  • jsp实现将动态网页转换成静态页面的方法

    本文实例讲述了jsp实现将动态网页转换成静态页面的方法.分享给大家供大家参考.具体如下: 如果我可以将jsp动态网页转换成静态页面,那么访问的时候就不需要频繁的访问数据库了. jsp 显示内容缓存技巧 前段时间做自己社区的论坛,在jive 的基础上做一个页面显示所有论坛的帖子,可以称之为总版,模仿forum 类的接口做个superforum 并且实现cachable,不过因为这个页面刷新量比较大,虽然被cache 了,我还是想办法进行页面的缓存,感觉用jsp 产生的html静态内容当缓存,页面访

  • 不用模板只用ASP+FSO生成静态HTML页的一个方法

    不用模板,只用ASP+FSO生成静态HTML页的一个方法(对于内容密集型页面特别适用)  转载请注明:转自http://goaler.xicp.net FSO生成静态HTML文件的时候替换模板标签一直是一个很麻烦的问题,至少我是这么认为的,还要别外做一个模板,麻烦!,我今天看见有一个方法可以解决这个问题 如一个正常的index.asp页面,并且用ASP代码调出数据库中的内容,另建一个makehtml.asp的页面,加入一个textarea域,假设为name="body",将index.

  • 不用模板，只用ASP+FSO生成静态HTML页的一个方法

    FSO生成静态HTML文件的时候替换模板标签一直是一个很麻烦的问题,至少我是这么认为的,还要别外做一个模板,麻烦!,我今天看见有一个方法可以解决这个问题 如一个正常的index.asp页面,并且用ASP代码调出数据库中的内容,另建一个makehtml.asp的页面,加入一个textarea域,假设为name="body",将index.asp在textarea里调出来,如: <textarea name="body"><!--#include fi

  • vue完成项目后,打包成静态文件的方法

    vue完成项目后,如何打包成静态文件,并且用Node调试 打包 1.修改config里面的index.js里面的productionSourceMap为false,默认情况是true(true代表打包环境是开发环境,可以进行调试:false表示生产环境,正式上线的) 2.在cmd里面运行npm run build,(运行的是build里面的build.js文件) 生成的包放在dist下面 使用node进行调试 1.在根目录下创建prod.server.js文件,这个文件的作用是作为一个小的htt

  • 实用301转向到另一域名相应页面的asp代码

    前几天,为了增强本站的SEO,着手把另一个域名:www.kanshule.com下的所有页面301转向到www.jb51.net下. 由于本站目前只有一个博客,于是从博客上入手. 思路很简单,获取当前浏览页面的域名,如果是需要转向的域名,再替换域名部分,做为新地址来301转向. 代码如下: 复制代码 代码如下: <% Dim toDomain,fromDomain,curDomain,q,p,url toDomain=www.jb51.net fromDomain="kanshule.co

  • 脚本和web页共用同一个文件测试

    /* 脚本和web页共用同一个文件测试 body { font-size:1px; color:#fff; } #body { font-size:12px; color:#000; } 脚本和web页共用同一个文件测试 */ [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]

  • ITK 实现多张图像转成单个nii.gz或mha文件案例

    主要实现的部分是利用NameGeneratorType读入系列图像,见头文件#include "itkNumericSeriesFileNames.h". 需要包含的头文件有: #include "itkImage.h" #include "itkImageSeriesReader.h" #include "itkImageFileWriter.h" #include "itkNumericSeriesFileNam

  • 详解如何将JAVA程序制作成可以直接执行的exe文件

    突然心血来潮,想自己做个小程序玩玩,但是怎么把他做成一个exe文件,让大家能够更好的理解和使用呢,百度了一下,说是需要exe4j来生成,但是看了很多关于exe4j将java程序生成exe文件的教程,觉着都不是自己想要的结果,还是自己综合一下,写篇文章记录一下. 下载和安装的步骤我就略过了,直接说重点. 一 : 将写好的java程序打成jar包,如下图: 1: . 2: 3: 4: 5:此处填写MANIFEST.MF文件路径,MANIFEST.MF手动创建后放在下项目路径下即可 MANIFEST.

随机推荐