Question

asp搜索功能怎么做

输入页面是www.whlfkj.cn/input.asp。 处理页面怎么做？如果选择的新闻就搜索ht_news表，如果是产品就搜索ht_products表，资料就搜索ht_data表。 数据库连接文件是conn.asp。 给的代码要纯净啊，不要随便复制一大段来，要不我看不懂

Answer 1

处理页面获取关键词并读出数据的代码<%dim search,word,sqlsearch = request.QueryString("search")'选择的的类别(新闻/产品/资料)word = trim(request.QueryString("word"))'关键字if word="" thenresponse.Write("")response.End()elseif search="" thenresponse.Write("")response.End()end ifif search = "新闻" thensql="select * from [ht_news] where 要搜索的字段名称 like '%"&word&"%' order by id desc"elseif search = "产品" thensql="select * from [ht_products] where 要搜索的字段名称 like '%"&word&"%' order by id desc"elseif search = "资料" thensql="select * from [ht_data] where 要搜索的字段名称 like '%"&word&"%' order by id desc"end ifset rs=server.CreateObject("ADODB.recordset")rs.open sql,conn,1,1'如果需要更新记录最后的"1"改成"3"if rs.eof or rs.bof thenresponse.Write("没有搜索到与"&word&"有关的"&search&"!")elseresponse.Write(rs("title"))'输出搜索结果end ifrs.closeset rs=nothing%>********************************************把一下内容替换掉上面的“输出搜索结果”一行替换掉就可以了！********************************************<%if search="新闻" thendo while not rs.eof or rs.bofresponse.Write("标题:"&rs("这里改成标题字段名")&"
内容:"&rs("这里改成内容字段名")&"
")rs.movenextloopelseif search="产品" thendo while not rs.eof or rs.bofresponse.Write("标题:"&rs("这里改成标题字段名")&"
图片:<img border='0' src='"&rs("这里改成图片字段名,字段的内容必须是图片的路径")&"' alt='"&rs("标题字段名称")&"'/>
")rs.movenextloopend if%>