[/code]
最后设计查询页面search.asp，其主要代码如下：
[code]
<%
dim conn
dim connstr
dim rs
dim sql
Set conn= Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("mydata.mdb")
conn.Open connstr
Set rs= Server.CreateObject("ADODB.Recordset")
%>
Search
品名
产地
规格
批号
供货单位
<%
pm=request.QueryString("pm")
cd=request.QueryString("cd")
ph=request.QueryString("ph")
if pm="" then
if cd="" then
if ph="" then
sql="select * from basedata where 1=0"
else
sql="select * from basedata where 批号 like '%"&ph&"%'"
end if
else
if ph="" then
sql="select * from basedata where 产地 like '%"&cd&"%'"
else
sql="select * from basedata where 产地 like '%"&cd&"%' and 批号 like '%"&ph&"%'"
end if
end if
else
if cd="" then
if ph="" then
sql="select * from basedata where 品名 like '%"&pm&"%'"
else
sql="select * from basedata where 品名 like '%"&pm&"%' and 批号 like '%"&ph&"%'"
end if
else
if ph="" then
sql="select * from basedata where 品名 like '%"&pm&"%' and 产地 like '%"&cd&"%'"
else
sql="select * from basedata where 品名 like '%"&pm&"%' and 产地 like '%"&cd&"%' and 批号 like '%"&ph&"%'"
end if
end if
end if
rs.open sql,conn,1,1
%>
<%do while not rs.eof%>
什么是WebDDA？
WebDDA就是Web+DDA。
那什么是DDA？
DDA是Drug Data Analyze（药品数据分析）的简称，那是一个基于VFP编程的，用于查询和分析所采集药品信息的小小的应用程序。
顾名思义，WebDDA就是DDA的网页版。
其实，DDA和WebDDA是什么无关紧要，它除了对我个人有意义外，和旁人几乎没什么关系，它在这篇日志里出现仅仅是出于我个人的自我需求——为了纪念一下DDA的发展或者说WebDDA的诞生。
我这篇日志的重点，不是WebDDA，更不是DDA，而是和WebDDA有关的一二三四。
一是ASP数据库查询源代码。
去年的时候，我就这么个想法，想拓展DDA的网络应用，那时我就想到ASP+MDB的方式。但是对于ASP来说，我是一个新手，甚至连新手也算不上，我只能是下了人家的源码修修改改，往往最终效果差强人意。而关于这个ASP查询，我一直没有找到易懂、简单、好修改的源码，所以就一直拖了下来。
这几天忙里偷闲，居然找到这么一个符合要求的源码，经试用通过，下面慢慢陈述。
首先建立一个MDB数据库，数据库名mydata，表名basedata，字段名分别为“品名”、“产地”、“规格”、“批号”、“供货单位”等,字段类型均为文本型。
其次设计一个查询首页index.htm,其主要代码如下：
[code]