关于ASP的一点问题，望高手指教

最新推荐文章于 2020-06-19 15:01:34 发布

crystaljuan

最新推荐文章于 2020-06-19 15:01:34 发布

阅读量256

点赞数

文章标签： asp border vbscript sql server action microsoft

本文链接：https://blog.csdn.net/crystaljuan/article/details/6474098

版权

<%@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文件

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>搜索书籍</title>
<style type="text/css">

</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"