vbconn.asp

飞天论坛FTBBS PHP版 v4.1.ASP源代码

<%
db="/it/data/lh100com.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
%>



<%
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))>30 then
title1=mid(title,1,50)
title1=title1&"....."
response.Write (title1)
else
response.Write (title)
end if
end function

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