[原创]生成html的一个函数 - ASP

黒設會

电梯直达

1^#

发表于 2010-1-13 03:52:50 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

<%
'生成html的一个函数
function makehtml(path,filename,nr)
'path(为虚路径) 如 "../test" test为文件夹名
'filename 要生成的文件名如首页 index
'nr 要生成的内容
'例子
'if(makehtml("test","index","basdfsdfasdasdfasdf")) then
'response.Write("生成成功")
'else
'response.Write("生成失败")
'end if
dim truepath,filen,fs,brray,i,pathname,st,st_one,msg
set fs=server.createobject("Scripting.FileSystemObject")
truepath=server.MapPath(path)
'是否要建立文件夹
brray=split(truepath,"\")
pathname=brray(0)&"\"&brray(1)
'response.Write(ubound(brray))
'response.End()
for i=1 to ubound(brray)
if not fs.FolderExists(pathname) then fs.CreateFolder(pathname)
if i+1<=ubound(brray) then pathname=pathname&"\"&brray(i+1)
next
'建立了要建立的文件夹
filen= truepath&"/"&filename&".htm"
if fs.fileExists(filen) then fs.deletefile(filen) '删除已经存在的文件
set st=fs.createtextfile(filen,true)
st_one=mid(nr,i,1)
for i=1 to len(nr)
st_one=mid(nr,i,1)
st.write(st_one)
next
set st=nothing
set fs=nothing
if err.number<>0 then
msg=false
else
msg=true
end if
makehtml=msg
end function
%>

收藏0

使用道具举报

bgag

2^#

发表于 2010-1-13 03:52:53 | 只看该作者

楼主，发点静态分页和首页生成ＨＴＭＬ的来啊

回复支持反对

使用道具举报

地瓜

3^#

发表于 2010-1-13 03:52:57 | 只看该作者

首页生成ＨＴＭＬ
上面那个就是.

静态分页,我在研究更好的方法！

回复支持反对

使用道具举报

叛逆ぁ太上皇

4^#

发表于 2010-1-13 03:53:00 | 只看该作者

'生成分页
function pagesplit(pathname,sql,pages)
'pathname 路径和文件名
'sql语句
'pages 分页条数(每页有多少条记录)
dim path,filen,brray,i
brray=split(pathname)
filen=split(brray(ubound(brray)),".")(0)
for i=0 to ubound(brray)-1
path=path&brray(i)
next
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
dim psize,totalpage
psize=pages
totalpage=int(rs.recordcount/psize*-1)*-1
'response.Write(totalpage)
'response.End()
dim tt,filen,msg,shown
page=0
for page=0 to totalpage-1 '共分为 totalpage 页
rs.movefirst
rs.move(page*psize)
filen="index" '要生成的名称
shown=filen
tt=""
if page>0 then filen=filen&"_"&page
i=0
do while not rs.eof and i<psize
tt=tt&rs(0)&"<br>"
rs.movenext
i=i+1
loop
if int(totalpage)>1 then
tt=tt&"<a href ="&shown&".htm> 第一页 </a>"
if page=0 then tt=tt&"<a href="&shown&"_"&page+1&".htm> 下页 </a>"
if int(page)=int(totalpage) then tt=tt&"<a href="&shown&"_"&page-1&".htm> 上页 </a>"
if page>0 and int(page)<int(totalpage-1) then
if page-1>0 then
tt=tt&" <a href="&shown&"_"&page-1&".htm> 上页 </a> "
else
tt=tt&"<a href="& shown&".htm> 上页 </a>"
end if
tt=tt&" <a href="&shown&"_"&page+1&".htm> 下页 </a>"
end if
tt=tt&"<a href="& shown&"_"&totalpage-1&".htm>末页</a>"
end if
if(makehtml(path,filen,tt)) then
msg=msg&"生成分页成功"&filen&".htm<br>"
else
msg=msg&"生成分页失败"&filen&".htm<br>"
end if
next
response.Write(msg)
set rs=nothing
enf function

回复支持反对

使用道具举报

停淼心泪

5^#

发表于 2010-1-13 03:53:04 | 只看该作者

不错，我回去研究一下

回复支持反对

使用道具举报

罗ぷ曼ㄉ帝Ke

6^#

发表于 2010-1-13 03:53:08 | 只看该作者

有空再写一个长文章分页（可在编辑器分页和安长度分页）

回复支持反对

使用道具举报

		自动登录	找回密码
密码			注册