自动生成网站首页DoIndex.VBS

最新推荐文章于 2024-07-30 10:56:44 发布

ming0503

最新推荐文章于 2024-07-30 10:56:44 发布

阅读量446

点赞数 1

文章标签： xhtml javascript server ie html c#

本文链接：https://blog.csdn.net/ming0503/article/details/6952689

版权

 '''''''''''''''''''''''''''''''''''''''''''
' DoIndex.VBS 自动生成网站首页index.html
'''''''''''''''''''''''''''''''''''''''''''
Option Explicit
On Error Resume Next

Dim i
Dim arrPage(1)
arrPage(0)="http://127.0.0.1:6543/makeIndex.aspx"


For i=0 to 0
Dim IE
Set IE = CreateObject("InternetExplorer.Application")
ie.navigate(arrPage(i))

ie.visible=1
Set IE = Nothing 
Next

makeIndex.aspx------------

<%@ Page Language="C#" AutoEventWireup="true" CodeFile="makeIndex.aspx.cs" Inherits="makeIndex" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>根据url生成静态首页</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
    
    </div>
    </form>
</body>

<script language="javascript">
    window.opener = null;  
    //window.open('', '_self', '');
    window.close();
</script>

</html>

ming0503

关注

1
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
自动生成网站首页DoIndex.VBS

'''''''''''''''''''''''''''''''''''''''''''' DoIndex.VBS 自动生成网站首页index.html'''''''''''''''''''''''''''''''''''''''''''Option ExplicitOn Error Resume NextDim iDim arrPage(1)arrPage(0)="
复制链接

扫一扫