<%
function AboutList()
Dim str,rs,sql,AutoUrl
sql="select ID,AboutName from ["&Datapre&"_About] where Viewflag order by OrderNum"
set rs=db(sql,2)
if not rs.eof then
do while not rs.eof
if IsHtml=1 then
AutoUrl=""&AboutNameDiy&""&Separated&""&ID&"."&HTMLName&""
else
AutoUrl="About.asp?ID="&rs(0)&""
end if
str=str&"<li><a href='"&AutoUrl&"'><span>"&rs(1)&"</span></a></li>"
rs.movenext
loop
end if
rs.close:set rs=nothing
AboutList=str
end function 

function abouttag(tag)
	abouttag=""
	if tag<>"" then
		abouttag="<br/><div class='tag'>相关标签："
		Dim tagarr,i
		tagarr=split(tag,",")
		for i=0 to Ubound(tagarr)
		abouttag=abouttag&"<a href='javascript:void(0);'>"&tagarr(i)&"</a>"
		next
		abouttag=abouttag&"</div>"
	end if
end function
%>