asp生成html的方法？？？
假如有一个index.asp文件内容：<%@language=vbscript%><%ifnotsession("checked")="yes"thenresponse....
假如有一个index.asp文件内容：
<%@language=vbscript%>
<%if not session("checked")="yes" then
response.Redirect "login.asp"
else
%>
<html>
<title>管理界面</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="conn.asp" -->
<title>邵武学生联盟共享相册</title>
<div id="append_parent">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="2">
<tr>
<%
exec="select * from guest"
set M=server.createobject("adodb.recordset")
M.open exec,conn,1,1
if not M.eof then
mypage=request("whichpage")
if mypage="" then
mypage=1
else
mypage=cint(mypage)
end if
mypagesize=request("pagesize")
if mypagesize="" then
mypagesize=18
end if
M.movefirst
M.pagesize=mypagesize
maxcount=cint(M.pagecount)
M.absolutepage=mypage
how=1
y=M.pagecount
d=M.recordcount
else
Response.Write "<p><div align='center'><IMG src='../images/xx2.gif'/></div></p>"
end if
%>
<%
a=a+1
do while not M.eof and how <=M.pagesize
%>
<td><table border="0" align="center" cellpadding="0" cellspacing="0" class="l">
<!--DWLayoutTable-->
<tr>
<td align="center" valign="middle"><IMG src="../img.asp?src=<%=M("pic")%>" border=0 style="cursor:pointer;" onClick="zoom(this,'../img.asp?src=<%=M("pic")%>')" onload ='DrawImage(this)' /></td>
</tr>
<tr>
<td align="center" valign="middle"><a href="del.asp?id=<%=M("id")%>">ID：<%=M("id")%></a></td>
</tr>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
</table></td>
<%
if a mod 7=0 then
response.Write"<tr></tr>"
end if
M.movenext
how=how+1
a=a+1
loop
%>
</tr>
</table>
<table width="580" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div align="center"><span style="font-family: "宋体"">
<%
if mypage<>1 then
response.write"<a href=right.asp> [第一页] </a>"
response.write"<a href=?whichpage="&(mypage-1)&"> [上一页] </a>"
end if
if mypage<>y then
response.write"<a href=?whichpage="&(mypage+1)&"> [下一页] </a>"
response.write"<a href=?whichpage="&y&"> [最后一页] </a>"
end if
%>
</span> 当前为<span class="STYLE2"><%=mypage%></span>页 共有<span class="STYLE2"><%=maxcount%></span>页 共有<span class="STYLE2"><%=d%></span>张图片</div></td>
</tr>
</table>
</div>
<%end if%>
如何生成html类型文件。给个具体实现方法啊。不要再粘贴网址了。
查了不少，看不太懂诶。 展开
<%@language=vbscript%>
<%if not session("checked")="yes" then
response.Redirect "login.asp"
else
%>
<html>
<title>管理界面</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="conn.asp" -->
<title>邵武学生联盟共享相册</title>
<div id="append_parent">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="2">
<tr>
<%
exec="select * from guest"
set M=server.createobject("adodb.recordset")
M.open exec,conn,1,1
if not M.eof then
mypage=request("whichpage")
if mypage="" then
mypage=1
else
mypage=cint(mypage)
end if
mypagesize=request("pagesize")
if mypagesize="" then
mypagesize=18
end if
M.movefirst
M.pagesize=mypagesize
maxcount=cint(M.pagecount)
M.absolutepage=mypage
how=1
y=M.pagecount
d=M.recordcount
else
Response.Write "<p><div align='center'><IMG src='../images/xx2.gif'/></div></p>"
end if
%>
<%
a=a+1
do while not M.eof and how <=M.pagesize
%>
<td><table border="0" align="center" cellpadding="0" cellspacing="0" class="l">
<!--DWLayoutTable-->
<tr>
<td align="center" valign="middle"><IMG src="../img.asp?src=<%=M("pic")%>" border=0 style="cursor:pointer;" onClick="zoom(this,'../img.asp?src=<%=M("pic")%>')" onload ='DrawImage(this)' /></td>
</tr>
<tr>
<td align="center" valign="middle"><a href="del.asp?id=<%=M("id")%>">ID：<%=M("id")%></a></td>
</tr>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
</table></td>
<%
if a mod 7=0 then
response.Write"<tr></tr>"
end if
M.movenext
how=how+1
a=a+1
loop
%>
</tr>
</table>
<table width="580" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div align="center"><span style="font-family: "宋体"">
<%
if mypage<>1 then
response.write"<a href=right.asp> [第一页] </a>"
response.write"<a href=?whichpage="&(mypage-1)&"> [上一页] </a>"
end if
if mypage<>y then
response.write"<a href=?whichpage="&(mypage+1)&"> [下一页] </a>"
response.write"<a href=?whichpage="&y&"> [最后一页] </a>"
end if
%>
</span> 当前为<span class="STYLE2"><%=mypage%></span>页 共有<span class="STYLE2"><%=maxcount%></span>页 共有<span class="STYLE2"><%=d%></span>张图片</div></td>
</tr>
</table>
</div>
<%end if%>
如何生成html类型文件。给个具体实现方法啊。不要再粘贴网址了。
查了不少，看不太懂诶。 展开
6个回答
展开全部
其实很简单的，用fso就可以
<%
htmStr = "<html><head><title>test</title><head><body>123</body></html>"
set fso = Server.CreateObject("Scripting.FileSystemObject")
set f = fso.CreateTextFile(Server.Mappath("test1.htm"))
f.Write htmStr
f.close
set f = nothing
set fso = nothing
%>
这样就可以了。
关键是处理htmStr部分。你可以同样用fso来读取模板，或者从数据库读取。
再用类似这样的标签放在模板里代替要显示的数据，生成之前进行替换
htmStr = "<html><head><title>$title</title><head><body>123</body></html>"
title = "testing"
htmStr = Replace(htmStr,"$title",title)
要显示数据库中数据也是一样的道理。
具体代码太多就不贴出来了。
<%
htmStr = "<html><head><title>test</title><head><body>123</body></html>"
set fso = Server.CreateObject("Scripting.FileSystemObject")
set f = fso.CreateTextFile(Server.Mappath("test1.htm"))
f.Write htmStr
f.close
set f = nothing
set fso = nothing
%>
这样就可以了。
关键是处理htmStr部分。你可以同样用fso来读取模板，或者从数据库读取。
再用类似这样的标签放在模板里代替要显示的数据，生成之前进行替换
htmStr = "<html><head><title>$title</title><head><body>123</body></html>"
title = "testing"
htmStr = Replace(htmStr,"$title",title)
要显示数据库中数据也是一样的道理。
具体代码太多就不贴出来了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
首先新建一个文本文档，让后将index.asp文件内容都粘贴到该文本文档里，
再选择--文件--另存为，将--保存类型--选择为：所有文件，文件的后缀为：.html 然后保存即可。
再选择--文件--另存为，将--保存类型--选择为：所有文件，文件的后缀为：.html 然后保存即可。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
使用Microsoft.XMLHTTP组件访问你的首页,使用FSO或ADODB.Stream将XMLHTTP组件返回的内容写到网站根目录的index.htm文件,OK了.
或者
<form
action="saveIndex.asp"
method="post">
<textarea
name="indexhtml"><!--#include
file="index.asp"--></textarea><br>
<input
type="submit"
value="提交">
</form>
然后在saveIndex.asp页用FSO或ADODB.Stream将表单的indexhtml写到网站根目录的index.htm
或者
<form
action="saveIndex.asp"
method="post">
<textarea
name="indexhtml"><!--#include
file="index.asp"--></textarea><br>
<input
type="submit"
value="提交">
</form>
然后在saveIndex.asp页用FSO或ADODB.Stream将表单的indexhtml写到网站根目录的index.htm
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
就自已用笨方法，把变量部分，全部写到shtml然后
如shtml="<title>管理界面</title>"
shtml=shtml&"<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>"
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
filename="index.htm"
Set openFile=FileObject.OpenTextfile(server.mapPath(filename),2,true) 'true为不存在自行建立
openFile.writeline(shtml)
Set OpenFile=nothing
response.write "<script>alert('首页静态生成成功！')</script>"
注意符号，你可以试一下
如shtml="<title>管理界面</title>"
shtml=shtml&"<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>"
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
filename="index.htm"
Set openFile=FileObject.OpenTextfile(server.mapPath(filename),2,true) 'true为不存在自行建立
openFile.writeline(shtml)
Set OpenFile=nothing
response.write "<script>alert('首页静态生成成功！')</script>"
注意符号，你可以试一下
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
这个就是最新生成index.html，你想让它显示什么?
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（4）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
