asp生成html源码
① 求一个ASP生成HTML的源码,谢谢了
也不是个难事,原理很简单。会用VB做记事本么,实际上跟这个一样,就是做一个保存纯文本文件的功能,调用FSO即可。如下:
<%
Set fso=CreateObject("Scripting.FileSystemObject")
NewFile=Server.MapPath("/html/文件名.html")
'HTML文件的位置
Set t=fso.CreateTextFile(NewFile, True)
t.close
'新建了一个空白的纯文本文件
File=Server.MapPath("/html/文件名.html")
Set txt=fso.OpenTextFile(File,8,True)'打开刚才创建的纯文本文件
txt.Write "<html><head><title>这是一个静态页面</title></head><body>这里就是静态页面的内容了</body></html>"
'写入内容
txt.Close
'OK了,就这么简单
%>
创建的纯文本文件的位置根据你自己需要调整吧,写入到静态页面里的内容也可以加入动态获取的内容,比如从数据库里读取的部分,比如"<title>"&rs("数据库标题")&"</title>"。至于要使静态页面的代码能换行,加入换行符比如"<html>"&chr(13)&chr(10)&"<head>"即可,这样生成出来的HTML页面的代码就错落有致了。
相信你有一定的ASP基础,肯定能看得懂!
② asp 要怎么才可以将文本转换成 HTML 代码
<%
function htmlencode2(fString)
if fString<>"" and not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, chr(32), "")
fString = Replace(fString, CHR(10) & CHR(10), "</p><p>")
fString = Replace(fString, CHR(10), "<br>")
htmlencode2=fString
else
htmlencode2=""
end if
end function
%>
比如得到的要存入数据库中的内容的变量是text
text=htmlencode2(text)
把处理后的text存入数据库就可以了.