"输入：字符串
"输出：经格式化后的字符串
function HTMLEncode(fString)
if not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32)&CHR(32), " ")
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "'")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "
")
fString = Replace(fString, CHR(10), "
")
HTMLEncode = fString
end if
end function
2.分页类
"参数:系统(如:product,article),条件(如果是数值,则默认为categoryID的值),排序,
"每页显示记录数,模式(more:显示更多字样,page:显示翻页导航),
"翻页导航模式(number:显示数字,page:显示上一页,下一页),记录显示模版名(显示记录的过程名)
class List
dim p_system "系统表,如tblProduct,tblArticle
dim p_where "条件
dim p_orderBy "排序
dim p_recordCount "每页显示记录数
dim p_horizontal "每行显示记录数
dim p_mode "列表模式,参数:more(更多模式,显示更多字样),page(列表模式,显示翻页导航)
dim p_moreURL "更多模式时的URL
dim p_paginationMode "翻页导航模式,参数:number(数字导航,显示如:1,2,3,4),page(翻页导航,显示如:上一页,下一页)
dim p_models "列表模版过程
dim p_table "列表的table标签
dim p_page "页码
dim p_member "是否显示会员产品
dim p_groupWhere
Private Sub Class_Initialize
p_system=""
p_where=""
p_orderBy=" order by categoryID,orderBy,postdate"
p_recordCount=15
p_horizontal=4
p_mode=""
p_moreURL=""
p_paginationMode="page"
http://m.bbyears.com/jiaocheng/2777.html
推荐访问: