快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

查询一条记录,按所选择的字段输出

有以下表单,想查询一条记录,按所选择的字段输出(字段名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
%>
返回类别: 教程
上一教程: ASP应用之模板采用
下一教程: 使你的窗体保留在桌面的最上面

您可以阅读与"查询一条记录,按所选择的字段输出"相关的教程:
· 随机访问RECORDSET的一条记录
· 在网页中实现OICQ里的头像选择的下拉框
· 对数据库中的记录用上一条下一条显示(一)
· 在ASP中读取ORACLE中的BLOB类型的字段的值,不用ORACLE OBJECT FOR OBJECT
· 菜鸟十天学会ASP教程之第六天:查询记录
    微笑服务 优质保证 索取样品