日期:2008-10-18 浏览次数:20878 次
ID | title | word | url |
1 | CGI教程 | 本地调试CGI | CGI/testCGI.htm |
2 | 下载中心 | 聊天室,留言本 | download/index.htm |
<!--#INCLUDE file="ADOVBS.inc"--> <% "建立数据库的连接 con="DBQ="+server.mappath("list.mdb")+";DefaultDir=;DIRVER={microsoft Access Driver(*.mdb)};" "建立CONNECTION对象并打开数据库 set mycon=server.createobject("ADODB.CONNECTION") mycon.open.con %> "创建Recordset对象的例程,打开Recordset对象传递SQL串以及所有的连接信息 <% set rs=server.createobject("ADODB.Recordset") rs.open "SELECT*FORM list where title and word like '%'&request.form("word")&"%'",MyCon,adOpenStatie %> "建立查询后的显示信息和查询页面,你想取什么名字都可以 <HTML><head><title>查询结果</title></head> <body bgcolor="#ffffff"> <p align="center"><br> "统计查询共有<% Response.Write(RS.RecordCount) %>条纪录</p><br> <div align="center"><center> <table border="1" align="center" bordercolor="000000" berdorcoorlight="#000000" bordercolordark="#ffffff"> <tr align="center"> <td width="20%" align="center" bgcolor="#ffffff">ID</td> <td width="60%" align="center" bgcolor="#ffffff">主题</td> <td width="20%" align="center" bgcolor="#ffffff">查看</td></table> <table border="1" align="center" bordercolor="000000" berdorcoorlight="#000000" bordercolordark="#ffffff"> <tr align="center"> <!--从数据库提取信息--> <% while not rs.eof %> <tr align="center"> <td width="20%" align="center" bgcolor="#ffffff"><% =rs("id") %></td> <td width="60%" align="center" bgcolor="#ffffff"><% =rs("title") %></td> <td width="20%" align="center" bgcolor="#ffffff"><a href=../../"<% =rs("url") %>">GO</a></td> <% rs.movenext %></tr> <% wend %></table></center></div> <% rs.close %> <% mycon.close %> "关闭链接 </body></HTML> |
<HTML><head><title>搜索页面</title></head> <!--创建搜索表格--> <from method="POST" action="search.ASP"> <div align="center"><center><p><input type="text" name="word" size="30"> <input type="submit" value="提交" name="B1"><input type="reset" value="清除" name="B2"></p> </center></div></form> <hr width="600" align="center"> <HTML> |