喜闻面包重现5D江湖，所以一定不能放过学习请教的机会，下面一个可能对于高手来说绝对简单的问题！
我做了一个报刊查询，结构很简单，就是有一个下拉列表：里面是查询的内容选项（主要有：报刊名称、邮发代号、拚音简写、发行地），一个文本框，用于输入关键字，我在查询结果页的SQL语句为：
SELECT *
FROM bkml
WHERE varname = 'varkeyword'
ORDER BY spcolname2 desc
varname为定义的变量，值从表单的menu里取得，varkeyword为变量，值从表单的文本框里取得，
现在有一个问题，如果是精确查询，一点问题没有，但如果我想对邮发代号做精确查询，而其它三项进行模糊查询，该如何做？
我试了一下：WHERE varname like '%varkeyword%',是能够实现 模糊查询，但邮发代号就显示的不对了，因为如果我输入"1-1"它会显示很多没有用的诸如：1-12,1-13,1-123,等等，我在考虑肯定是SQL语句有更好的解决方案，请两位我非常敬重和喜欢的班主指点迷津！虽然可以通过别的表单方式实现，但这种是最简单和适用的，
www.sd185.com/183/baokan/baokan_cxtjsr.jsp
里面一个例子，我不知它的SQL语句是怎么写的！小生在这里谢谢两位了！

首先谢谢allinhands能这么快的回复，但如果改UD生成的代码，太费劲了，我的代码能力太差了，以下我按你的方法改的，测试不行，提示最后的一句：SQL.close（）错误！好人做到底，能否告诉我应该如何改？
<%@LANGUAGE="VBSCRIPT"%>

<%
Dim sql__spcolname
sql__spcolname = "ming"
if (Request.QueryString("colname") <> "") then sql__spcolname = Request.QueryString("colname")
%>
<%
Dim sql__spcolvalue
sql__spcolvalue = "xyz"
if (Request.QueryString("keyword") <> "") then sql__spcolvalue = Request.QueryString("keyword")
%>
<%
Dim sql__spcolname2
sql__spcolname2 = "id"
if (Request.QueryString("orderby") <> "") then sql__spcolname2 = Request.QueryString("orderby")
%>
<%
set sql = Server.CreateObject("ADODB.Recordset")
sql.ActiveConnection = MM_bkml_STRING
if Request("colname")="dh" then
sql.Source = "SELECT * FROM bkml WHERE " + Replace(sql__spcolname, "'", "''") + " = '" + Replace(sql__spcolvalue, "'", "''") + "' AND dja <>null and dh<>null ORDER BY " + Replace(sql__spcolname2, "'", "''") + " desc"
else
sql.Source = "SELECT * FROM bkml WHERE " + Replace(sql__spcolname, "'", "''") + " = '" + Replace(sql__spcolvalue, "'", "''") + "' AND dja <>null and dh<>null ORDER BY " + Replace(sql__spcolname2, "'", "''") + " desc"
sql.CursorType = 1
sql.CursorLocation = 2
sql.LockType = 3
sql.Open()
sql_numRows = 0
%>
...

对了，非常谢谢您，allinhands！帮我解决大问题了，还是好人多啊！
对我启发很大，原来SQL也可以这么用！再一次谢谢您！