查询一条记录，按所选择的字段输出。-ASP教程,ASP应用

有以下表单，想查询一条记录，按所选择的字段输出（字段名fieldname1,fieldname2…请按你表中的字段名指定）：

input.htm

<form method="post" action="test.asp" name="form1">

<input type="text" name="bianhao" size="10">

<input type="checkbox" name="c1" value="fieldname1">

<input type="checkbox" name="c1" value="fieldname2">

…

<input type="submit" value="提交">

</form>

对应的asp文件如下，这个代码的通用性很强（数据库mymdb.mdb你自己指定，表名tablename你自己指定）：

test.asp

<%

dim fieldnames,fields

fieldnames = ""

遍历表单checkbox，将选择的字段存入字符串变量filednames

for each fieldname in request("c1")

fieldnames = fieldnames & "," & fieldname

next

判断是否有选项

if fieldnames = "" then

response.write "<center><h2>你至少应选择一个查询字段！</h2></center>"

response.end

end if

连接数据库，打开记录集rs

strsql = "select "& mid(fieldnames,2) & " from tablename where bianhao=" & request("bianhao") & ""

strconn = "driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("mymdb.mdb")

set rs = server.createobject("adodb.recordset")

rs.open strsql,strconn,1,1

分解字符串变量filednames，按选择的字段输出结果

fields = split(fieldnames,",")

for i = 1 to ubound(fields)

response.write fields(i) & ":" & rs(fields(i)) & "<br>"

next

rs.close

%>