ASP IF函数 调用数据库字段

<select name="fatherid" id="fatherid" style="width:200px;">

<% 数据库调用部分 %>

<option value="0">请选择栏目</option>

<option value="<%=class02("classid")%>"<% if class02("classid") = clng(father) then %> selected<% end if %>>[1]<%=class02("classname")%></option>

</select>

<% 数据库调用部分/重复代码 %>

Set cmdActiveConnection = connect connect这个是连接数据库的一个对象，通过这个打开数据库，然后读取记录。

不过，我不建议这样写。

sql2 = "SELECT FROM users"

set rs = connectExecute(sql2)

这样就可以了，并且速度也很快。

Set cmd = ServerCreateObject("ADODBCommand")

这种方法也是读取记录的，不过这个适合调用存储过程，用于sql数据库。

分析你的问题：

要搜索在数据库中查找指定

学号

，此时可能是模糊查询，也可能是完全匹配。根据你的需求，要把查到的结果集中此人的姓名赋值给abc，说明这是一个完全匹配的查找，否则就会出现多条记录，就不能单独赋值给变量abc了。

首先，查数据库：

dim

username,abc

'定义两个变量

username=trim(requestForm("username"))

'先把表单项username的值取出来并进行trim处理，同时赋值给username变量　

rsopen

"select

top

1

from

voteuser

where

username='"&username&"'",conn,1,1

'这里执行一条

sql语句

进行查找，为了防止重复记录，这里用了top

1限制只取1条记录

if

rsrecordcount>0

then

'这里判断是否查找到结果，即rsrdcordcount的值是否大于0

abc=rs("truename")

'条件成立，把truename字段的赋值给变量abc

end

if

responsewrite

abc

'输出变量abc的值

<%

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

%>

第一次调用完

用

rsclose关闭第一个连接

然后在调用第二次，例如

dim conn,connstr

Set conn = ServerCreateObject("ADODBConnection")

connstr="Provider=MicrosoftJetOLEDB40;Data Source=" & ServerMappath("dbmdb")

connOpen connstr

set rs=servercreateobject("adodbrecordset")

sql="select from admin where chk=0 order by id asc"

rsopen sql,conn,1,3

……

rsclose

sql="select from admin where chk=1 order by id asc"

rsopen sql,conn,1,3

……

rsclose

set rs=nothing

connclose

set conn=nothing

如过需要在调用第一次时调用第二次只需要建立名称不同的两个对象就可以了，例如：

dim conn,connstr

Set conn = ServerCreateObject("ADODBConnection")

connstr="Provider=MicrosoftJetOLEDB40;Data Source=" & ServerMappath("dbmdb")

connOpen connstr

set rs1=servercreateobject("adodbrecordset")

sql1="select from admin where chk=0 order by id asc"

rs1open sql1,conn,1,3

set rs2=servercreateobject("adodbrecordset")

sql2="select from admin where chk=1 order by id asc"

rs2open sql2,conn,1,3

……

rs1("字段")=rs2("字段")

rs1close

rs2close

set rs1=nothing

set rs2=nothing

connclose

set conn=nothing

以上就是关于ASP IF函数 调用数据库字段全部的内容，包括:ASP IF函数 调用数据库字段、ASP从数据库中读取信息、asp语句中提取数据库数据怎么弄等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！