1个回答
展开全部
首先可以先建立一个连接数据库的通用文件，如取名为conn.asp 内容如下： <% dim conn dim connstr '数据库文件位置 connStr = "Provider=SQLNCLI.1;Driver={SQL Native Client};Server=10.155.13.200;Database=XSGL_dbo;UID=sa;PWD=;" set conn=server.createobject("ADODB.CONNECTION") if err then err.clear else conn.open connstr end if '关闭数据库连接 Sub CloseConn() conn.close Set conn=Nothing End Sub 'Call ConnectDatabase() '连接数据库 %> 再建立查询文件，如取名为index.asp，内容如下： <!--#include file="conn.asp"--> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>测试页</title> </head> <% dim rsMark,strSqlMark Timu=Trim(request.querystring("Timu")) '查询信息 set rsMark = server.createobject("ADODB.Recordset") strSqlMark = "select ID,content,type from subject where content like '" & Timu & "%'" rsMark.open strSqlMark,CONN,1,1 %> <body> <a href="#" style="color:#00F;font-size:12px" onClick="window.print();">【打印本页】</a> <table width="750" align="center" border="0" cellspacing="5" cellpadding="5"> <form action="index.asp" method="get" enctype="multipart/form-data" name="form1"> <tr> <td colspan="5" align="center" height="40"> <font size="4"><strong>查询</strong></font></td> </tr> <tr> <td colspan="5"></td> </tr> <tr> <td align="center"> </td> <td align="center">ID号</td> <td align="center">内容</td> <td align="center">类型</td> <td align="center"> </td> </tr> <% if not rsMark.bof and not rsMark.eof then %> <tr> <td> </td> <td><%=rsMark("ID")%></td> <td><%=rsMark("content")%></td> <td><%=rsMark("type")%></td> <td> </td> </tr> <% else %> <tr> <td colspan="5"><% response.write "<br><font color='#0000FF'>没有查找到你所找的内容</font>" %></td> </tr> <%end if rsMark.close set rsMark = nothing %> </form> </table> </body> </html> 最后通过浏览器，输入网址并连接index.asp文件就可以完成连接数据库，并进行数据查询显示了。
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
