一个调用外部数据库的实例

过程：
'---------------------------博客调用开始----------------------------
sub blog()
Dim ConnOther,RsOther,SqlOther,tmp1,tmp_img,tmp_url
Set ConnOther= Server.createObject("ADODB.Connection")
ConnOther.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("数据库路径")
ConnOther.Open
SqlOther="select top 9 * from blog order by id desc"
set RsOther=ConnOther.ExeCute(SqlOther)
Do Until RsOther.EOF
    tmp_url="blog/more.asp?name="&RsOther(4)&"&id="&RsOther(0)
    tmp_img="article"
    tmp1=tmp1&vbcrlf&"<tr><td height="&dim_num(6)&">"&img_skin("h_"&tmp_img)&"<a href='"&tmp_url&"' alt='主题："&joekoe_cms.code_html(RsOther(1),1,0)&"<br>时间："&RsOther(5)&"' target=_blank>"&joekoe_cms.code_html(RsOther(1),1,12)&"<td class=timn align=right>"&RsOther(4)&"</a></td></tr><tr><td height=1 background='images/bg_dian.gif' colspan='2'></td></tr>"
RsOther.MoveNext
loop
RsOther.close
  tmp1="<table border=0 cellspacing=0 cellpadding=2 width='100%'>"&tmp1&vbcrlf&"</table>"
  response.write vbcrlf&"<table cellspacing=1 cellpadding=4 class=table>" & _
                 vbcrlf&"<tr><td class=td><table border=0 cellspacing=0 cellpadding=0 width='100%'><tr><td width='22%' class=ftd><b> 博客欣赏</b></td><td align=right width='78%'><a href=/blog target=_blank class=timm>more"&"</a></td></tr></table></td></tr>" & _
                 vbcrlf&"<tr class=bg_td><td align=center>"&tmp1&"</td></tr>" & _
                 vbcrlf&"</table>"
set RsOther=nothing
ConnOther.close
set ConnOther=nothing
end sub
'---------------------------博客调用结束----------------------------

文章来自: Original
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: