ASP 怎么连接SQL数据库

<%

Dim did

Set oRs=connexecute("select top 1 from biao order by id desc")

IF not(oRseof and oRsbof) Then

did=oRs("id")

%>

这里写带的html

<%

End IF

oRsclose:set oRs=Nothing

Set oRs=connexecute("select top 4 from biao where id<>"&did&" order by id desc")

IF not(oRseof and oRsbof) Then

Do While not oRseof

%>

这里循环写小main的li

<%

oRsmovenext

loop

End IF

oRsclose:set oRs=Nothing

%>

<!--#include file="/connasp"-->

<!--#include file="/connAasp"-->

<%

此处注意是connA也就是你A数据库的连接。你可以再做一个connAasp文件，连接你的数据库A

然后通过 <!--#include file="/connAasp"-->，注意命名。

ASP语法可以有地方有写错误，毕竟好久没用了，逻辑肯定对

set rs=serverCreateObject("adodbrecordset")

sql="select top 1 lottery_num,num_info1,num_info2,num_info3,kjtime from fsd_info order by addtime desc"

rsopen sql,connA,1,1

dim qihao

dim hm1

dim hm2

dim hm3

dim kjsj

if not(rseof and rsbof) then

kjsj =rs("kjtime")

qihao =rs("lottery_num")

hm1=rs("num_info1")

hm2=rs("num_info2")

hm3=rs("num_info3")

haoma = hm1&","&hm2&","&hm3

end if

rsclose()

set rs=nothing

responsewrite "第"&qihao&"期,第:"& haoma&"号"& kjsj

set rs=serverCreateObject("adodbrecordset")

sql="select top 1 lottery_num from fsd_info order by addtime desc"

rsopen sql,conn,1,1

if not(rseof and rsbof) then

if StrComp(rs("lottery_num"),qihao)<>0 and qihao<>"" and haoma<>"" then

sql = "insert into fsd_info(lottery_num,num_info1,num_info2,num_info3,addtime,kjtime) values('"&qihao&"','"&hm1&"','"&hm2&"','"&hm3&"','"&now()&"','"&kjsj&"')"

connexecute(sql)

responseRedirect("chkwinasplt=fsd&cp_num="&qihao&"")

end if

end if

set rs=nothing

%>

以上就是关于ASP 怎么连接SQL数据库全部的内容，包括:ASP 怎么连接SQL数据库、简单的ASP调用数据库中的字段,怎么实现,菜鸟求助,解决再加50分.谢谢.、asp调用数据库问题等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！