ASP一键生成静态网页的写法

发布时间：2023-06-16 15:03:30 所属栏目：Asp教程来源：

导读：自己快忘的ASP批量生成写法,需要自己写asp生成静态页面的朋友可以参考下。

复制代码代码如下:





<html>

<head>

自己快忘的ASP批量生成写法,需要自己写asp生成静态页面的朋友可以参考下。

复制代码代码如下:





<html>

<head>

<meta http-equiv="Content-Language" content="zh-cn">

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<title>生成百度XML</title>

</head>

<body>

<%

dim sid,eid

sid=abs(request("sid"))

if sid=0 then

sid=0

else

sid=cint(request("sid"))

end if

eid=cint(request("eid"))

if eid=0 then

eid=500

else

eid=cint(request("eid"))

end if

Dim tt,ResNum

Set tt = New Cls_Main

ResNum = CLng(tt.Execute("select max(id) from table")(0))

Set Mesky = Nothing

%>

<table border="0" width="100%" id="table1" cellspacing="0" cellpadding="0">

<form method="POST" action="?action=html">

<tr>

<td width="9%">开始ID:</td>

<td width="35%"><input type="text" name="sid" size="20" value="<%=sid%>"></td>

<td width="8%">结束ID:</td>

<td width="23%"><input type="text" name="eid" size="20" value="<%=eid%>">(最大ID:<%=ResNum%>)</td>

<td width="23%"><input type="submit" value="提交" name="B1"></td>

</tr>

</form>

<%

if request("action")="html" then

Response.Write " <tr><td colspan=5>" & vbNewLine

Response.Write "<br><br>" & vbNewLine

Response.Write "正在生成 <font color='red'><b>" & eid & ".xml</b></font> 文件…… " & vbNewLine

Response.Write "<br><br>" & vbNewLine

Response.Write " 　</td></tr><tr><td colspan=5>" & vbNewLine

Response.Flush

If (eid-500) > ResNum Then

Response.Write "恭喜您操作成功!"

Response.Flush

else

creat(sid)

sid=sid+500

eid=eid+500

Response.Write "<meta http-equiv=""refresh"" content=""10;url=?action=html&sid="&sid&"&eid="&eid&""">"

End If

end if

Function creat(id)

Response.Write "<IFRame name=tt frameborder=0 width=100% height=30 scrolling=no src=http://www.xx.com/cls_create.asp?startid="&sid&"&endid="&eid&"></IFrame>"

End Function

%>

</td></tr>

</table>

</body>

</html>

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!