getvalues.asp

来自「OFFICE办公自动化」· ASP 代码 · 共 19 行

<!--#include file="../inc/NoCatch.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<%
smod=request("smod")'查询模式
zd=request("zd")'查询字段
key=request("key")'查询值

set rs=Server.CreateObject("ADODB.RecordSet")
strsql="SELECT TOP 10 * FROM (SELECT DISTINCT "&zd&" FROM vioa"&smod&" WHERE "&zd&" LIKE '"&key&"%') tab ORDER BY LEN("&zd&")"
rs.open strsql,oConn,1,1
while not rs.eof
	response.write "|"&HtmlOut(rs(0))
	rs.movenext
wend
response.write "|"
rs.close:set rs=nothing
set oConn=nothing
%>