<%
dim dsnstr
dsnstr1="DRIVER=sql server;server=127.0.0.1;database=lh100;uid=sa;password=lh1000com"
set conn=server.CreateObject("adodb.connection")
conn.Open dsnstr1
%>


<%
Function htmlCode(content)
	TempContent = content
	TempContent = replace(TempContent,"<","&lt;")
	TempContent = replace(TempContent,">","&gt;")
	TempContent = replace(TempContent,vbcrlf,"<br>")
	TempContent = replace(TempContent,chr(32),"&nbsp;")
	TempContent = replace(TempContent,chr(34),"&quot;")
	htmlCode=TempContent
End Function

function code(content)
	TempContent = content
	TempContent = replace(TempContent,chr(34),"&quot;")
	code=TempContent
end function

function data(title)
dim title1
if len(trim(title))>100 then
title1=mid(title,1,100)
data=title1
else
data=title
end if
end function

function data1(title)
dim title1
if len(trim(title))>5 then
title1=mid(title,1,5)
data1=title1
else
data1=title1
end if
end function
%>