林肯公园 发布留言 2008-11-17 14:08
ASP连接数据库时，无法显示网页！！
制作B/S模式的图书管理系统
其中一个 库存图书查询的ASP文件， 代码是：
%>
库存图书查询列表
库 存 图 书 查 询 列 表
<%
set cn=server.CreateObject("ADODB.Connection")
cn.open "Dsn=tsgl;UID=sa;PWD="
if request.Form("tsgjzlb")="图书编号"then
Set rs=cn.Execute("select * from tsbm where tsbh like '%"&request.Form("tsgjz")"%'")
elseif request.Form("tsgjzlb")="图书名称"then
Set rs=cn.Execute("select * from tsbm where tsmc like '%"&request.Form("tsgjz")"%'")
elseif request.Form("tsgjzlb")="图书类别"then
Set rs=cn.Execute("select * from tsbm where tslb like '%"&request.Form("tsgjz")"%'")
elseif request.Form("tsgjzlb")="作者"then
Set rs=cn.Execute("select * from tsbm where zzxm like '%"&request.Form("tsgjz")"%'")
else
Set rs=cn.Execute("select * from tsbm where cbs like '%"&request.Form("tsgjz")"%'")
end if
if rs.eof then
response.Write""
response.Write"没有要查询的记录"
response.Write""
else
response.Write"
"
response.Write""
response.Write"图书编号 | "
response.Write"图书名称 | "
response.Write"图书类别 | "
response.Write"作者 | "
response.Write"出版社 | "
response.Write"出版日期 | "
response.Write"定价 | "
response.Write"备注 | "
response.Write"
"
do while not rs.eof
response.Write""
response.Write""&rs("tsbh")&" | "
response.Write""&rs("tsmc")&" | "
response.Write""&rs("tslb")&" | "
response.Write""&rs("zzxm")&" | "
response.Write""&rs("cbs")&" | "
response.Write""&rs("cbrq")&" | "
response.Write""&rs("dj")&" | "
response.Write""&rs("bz")&" | "
response.Write"
"
rs.movenext
loop
response.Write"
"
end if
%>
网页中提示 红的代码错误！！！
急 ！ 急！！！
谢谢~~~
yms123 发布留言 2008-11-17 14:58
显示什么错误信息？
hmhz 发布留言 2008-11-17 15:33
'%"&request.Form("tsgjz")"%'
少了个 &
'%"&request.Form("tsgjz")
&"%'
下面的其他查询也是一样都少了&
林肯公园 发布留言 2008-11-17 21:45
这个错误找到了 ，谢谢
可是还是无法打开这ASP文件 ，在网页无法显示， 提示错误：
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E4D)
[Microsoft][ODBC SQL Server Driver][SQL Server]用户 '20081114-1610\IUSR_20081114-1610' 登录失败。
急需搞定 谢谢！！！！
页: [1]
