您的位置：首页 > 编程语言 > ASP

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

2009-09-01 13:15 465 查看

<%@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"

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签： asp border vbscript sql server action microsoft

相关文章推荐

新的分享

章节导航