>
nection")
constr2="dbq="+server.MapPath("\db\wenlu.mdb")+";driver={microsoft access driver (*.mdb)};"
conn2.open constr2
set conn3=server.CreateObject("ADODB.CONNECTION")
constr3="dbq="+server.MapPath("\news\DATA\51zuochenews.mdb")+";driver={microsoft access driver (*.mdb)};"
conn3.open constr3
set conn4=server.CreateObject("ADODB.CONNECTION")
constr4="dbq="+server.MapPath("\db\51gonggao#.mdb")+";driver={microsoft access driver (*.mdb)};"
conn4.open constr4
set conn5=server.CreateObject("ADODB.CONNECTION")
constr5="dbq="+server.MapPath("\jiudian\jd2008.mdb")+";driver={microsoft access driver (*.mdb)};"
conn5.open constr5
function htmlencode2(str) '转化字符串
if isNULL(str) then
htmlencode2=""
exit function
end if
dim result
result=str
result=replace (result,"'","''")
result=replace(result,chr(13)," ")
result=replace(result," ",chr(9))
result=replace (result,chr(9)," ")
htmlencode2=result
end function
%>
%>
")
htmlencode2=result
end function
%>