<%on error resume next
set adoConnect =server.CreateObject ("adodb.connection")
adoconnect.Open application("conn")
set adoRecordSet = server.CreateObject("adodb.recordset")
%>
<%
function conleft(content,i)
if len(content)>i then
content=left(content,i)
response.write (content)
else
response.write (content)
end if
end function
%>
友情链接互换 自助连接 房产链接
