<%Set conn = OpenDatabase%>
<%
dim s
randomize timer
s=Int((89999)*Rnd +10000)
%>
<%
'''建立一个函数用来判断标题的长度
function subtitle(mytitle,dddddd)
''mytitle 为标题名称，dddddd为标题长度
if len(mytitle)>dddddd then
mytitle=left(mytitle,dddddd)&".."
else
mytitle=mytitle
end if
subtitle=mytitle
end function
%>
中山经贸网
