<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%'定义conn和connstr变量
dim conn,connstr
'连接数据库user1,设置用户名为sa
connstr="Driver={sql server};uid=sa;pwd="";database=data;SERVER=NL" '不太明白server应该填什么,是自己计算机的名字吗?
'创建一个ADO Connection对象
set conn=server.createobject("ADODB.CONNECTION")
'打开数据库
on error resume next
conn.open connstr
If Err.Number<>0 Then
response.write "数据库连接错误!"
response.end
End If
%>
以上是conn.asp文件
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>搜索书籍</title>
<style type="text/css">
<!--
a{color:#009966; text-decoration: none}
a:hover{color:#FF00CC; text-decoration: none}
body,td,th {font-size: 14px;color: #FF6666;
}
-->
</style>
</head>
<body>
<br>
<table width=600 height=32 border=0 align="center" cellPadding=3 cellSpacing=0 style="border-collapse: collapse word-break:break-all">
<tr>
<td align="center"><font size=5><b>搜 索 书 籍</b></font></td>
</tr>
</table>
<table width="510" border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td>
<form method="post" action="searchbook.asp?action=send">
<table align="center" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="500">
<tr>
<td width="100%" height="20" align="center">
搜索:<input type="text" name="key" size="18">
搜索选项:<select size="1" name="category">
<option value="1"> 书 籍</option>
<option value="2"> 作 者</option>
<option value="3"> 评 价</option>
</select>
<input type="submit" value="搜 索">
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<%
action=request.QueryString("action") '请求表单传递参数
if action="send" then '如果请求到的表单参数为send,则执行查询操作
category=request("category") '取得下拉菜单中option的value属性值
key=request("key") '取得文本框字符
if category=1 then '如果取到的值为1按书名搜索
set Rs = Server.CreateObject("ADODB.Recordset")
sql="select * from search_book where bookname like '%"&key&"%'" '模糊查询字符
Rs.open sql,conn,1,1
end if
if category=2 then '如果取到的值为2按作者搜索
set Rs = Server.CreateObject("ADODB.Recordset")
sql="select * from search_book where writer like '%"&key&"%'"
Rs.open sql,conn,1,1
end if
if category=3 then '如果取到的值为3按评价内容搜索
set Rs = Server.CreateObject("ADODB.Recordset")
sql="select * from search_book where pingjia like '%"&key&"%'"
Rs.open sql,conn,1,1
end if
if rs.eof then '判断表中是否有该条记录
%>
<table width=640 border=0 align="center" cellPadding=2 cellSpacing=0 style="border-collapse: collapse word-break:break-all">
<tr>
<td colspan="2" style="word-break:break-all">
<br>
<%
response.write" 非常抱歉,没有找到你需要的书籍!<br>"
%>
</td>
</tr>
</table>
<%
response.end
end if
Rs.pagesize=2 '定义每页显示的记录数
page=Request("page") '取得当前页page值
if (page-Rs.pagecount) > 0 then '当取到的page值大于rs记录集对象包含的页数时
page=Rs.pagecount '把rs对象pagecount值给page
elseif page = "" or page < 1 then '当page值为空或者小于1时
page = 1 '把1赋值给page
end if
Rs.absolutepage=page '定位到当前页面
%>
<%
do while not rs.eof
i = i + 1
if i > rs.pagesize then
exit do
end if
%>
<table width=640 border=2 bordercolor="#009966" align="center" cellPadding=3 cellSpacing=0 style="border-collapse: collapse word-break:break-all">
<tr>
<td colspan="2" style="word-break:break-all">
<%response.Write"<font size=""4"">搜索结果</font>"%>
</td></tr>
<tr>
<td colspan="2" style="word-break:break-all">
作者:<%=rs("writer")%>
<b>书名:[<%=rs("bookname")%>]</b><br>
推荐度:<%=encode(rs("tuijian"))%> 阅读次数:<b><font color="#009966"><%=Rs("hit")%></font></b>次<br>
<%=Rs("pingjia")%>
</td></tr></table><br>
<%
Rs.movenext
loop
%>
<table width=640 border=0 align="center" cellpadding=0 cellspacing=1>
<tr><td align="center" style="line-height: 150%">
共搜索到相关书籍<%=Rs.recordcount%>种 <%=page%>/<%=Rs.pagecount%>页
<% if page=1 then %>
<%else%>
<a href=searchbook.asp?page=<%=page-1%>>上一页
<%end if%>
<% if Rs.pagecount-page > 0 then %>
<a href=searchbook.asp?page=<%=page+1%>>下一页
<%else%>
<%end if%>
</td></tr></table>
<%end if%>
</body>
</html>
运行后提示
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/flyweb/firstchapter/conn.asp, line 5, column 34
connstr="Driver={sql server};uid="sa";pwd="";database=data;SERVER=NT"