carvbconn.asp

来自「飞天论坛FTBBS PHP版 v4.1.ASP源代码」· ASP 代码 · 共 82 行

<%
db="/car/lh100com.mdb"
Set dsnstr = Server.CreateObject("ADODB.Connection")
dsnstr1="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
dsnstr.Open dsnstr1
set rs=server.CreateObject("adodb.recordset")
%>


<%
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;")
	TempContent = replace(TempContent,chr(44),"，")
	htmlCode=TempContent
End Function

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

function code1(content)
	TempContent = content
	TempContent = replace(TempContent,"&nbsp;",chr(32))
	code1=TempContent
end function


function title(content)
TempContent = content
	TempContent = replace(TempContent,chr(63),"&nbsp;")
	TempContent = replace(TempContent,chr(32),"&nbsp;")
	title=TempContent
end function
function sqlstr(dat)
sqlstr=replace(dat,"'","''")
end function

function data1(title)
dim title1
if len(trim(title))>10 then
title1=mid(title,1,10)
title1=title1&"....."
response.Write (title1)
else
response.Write (title)
end if
end function
function datastr(title)
dim title1
if len(trim(title))>14 then
title1=mid(title,1,14)
datastr=title1
else
datastr=title
end if
end function
function datastr1(title)
dim title1
if len(trim(title))>12 then
title1=mid(title,1,12)
datastr1=title1
else
datastr1=title
end if
end function
function datastr2(title)
dim title1
if len(trim(title))>10 then
title1=mid(title,1,10)
datastr2=title1
else
datastr2=title
end if
end function
%>