你需要的是把输入的型号最后的数字部分给提取出来,可以这样做
<%
xh=request.form("xh")
if xh="" then
response.write "alert!!!"
response.end
end if
xh1=""
for i=len(xh) to 1 step -1
if not isnumeric(mid(xh,i,1)) then
exit for
end if
xh1=mid(xh,i,1)+xh1
next
if xh1="" then
response.end
end if
Set rs=Server.CreateObject("ADODB.RECORDSET")
Sql="select xh from table where title like '%"& xh1 &"'"
rs.Open Sql,conn,1,1
do not rs.eof
response.write rs("xh")
rs.movenext
loop
%>
<%
your=request.form("tbname")
Set rs=Server.CreateObject("ADODB.RECORDSET")
Sql="select * from database where title like '%"& your &"%' "
rs.Open Sql,Mycon,1,1
2页
<%
your=request.form("tbname")
Set rs=Server.CreateObject("ADODB.RECORDSET")
Sql="select * from database where title like '%"& your &"%' "
rs.Open Sql,Mycon,1,1