化脓性阑尾炎护理诊断:请问此ASP程序错在哪儿?

来源:百度文库 编辑:高校问答 时间:2024/03/29 16:19:06
提示:HTTP 500 - 内部服务器错误。

程序代码如下:
……
<form action="product.asp" method="post">
<input type="text" name="bianhao" size="16">    
<input type="submit" name="tianjia" value="添加此编号">   
<input type="submit" name="shanchu" value="删除此编号">   
<a href="jieshuo.htm" target="_self"><input type="button" name="重发所有商品" value="重发所有商品"></a>
</form><br><br>
</center>
<!--添加、删除商品编号的程序模块-->
<%
set cnobj=server.CreateObject("ADOBE.connection")
DBPath=Server.MapPath("alibaba.mdb")
cnobj.connectionstring="Provider=Microsoft.JET.OLEDB.4.0;Data source="&DBPath
cnobj.open
const adopenstatic=3
const adLockpessimistic=2
set rcsobj=Server.CreateObject("ADOBE.Recordset")
rcsobj.open="bianma",cnobj,adopenstatic,adLockpessimistic
id=Request("bianhao")
idchar=Cstr(id)
x=Len(idchar)
if isnumeric(id) and x=8 then
if Request("tianjia")="添加此编号" then
rcsobj.addnew
rcsobj("bianma")=id
rcsobj.update
else if Request("shanchu")="删除此编号" then
Do While Not rcsobj.EOF
if rcsobj("bianma")=id then
rcsobj.delete
end if
rcsobj.movenext
Loop
end if
else
Response.Write "<BR><font color=red>对不起,您的商品编号输入不正确,请重新输入</font>"
end if
page=Cint(Request.QueryString("txtpage"))
rcsobj.pagesize=20
if page<1 or page=empty then page=1
if page> rcsobj.pagecount then page=rcsobj.pagecount
if rcsobj.EOF=false then
rcsobj.absolutepage=page
else
Response.Write "没有任何记录"
end if
%>
<form method="get" action="product.asp">
<table align="center" border="1" bordercolor="#6699FF">
<tr>
<td bgcolor="#00CCCC">商品总数:<%=rcsobj.recordcount%></td>
<td bgcolor="#00CCCC">总页数:<%=rcsobj.pagecount%></td>
<td bgcolor="#00CCCC">当前页:<input type="text" size="3" name="txtpage" value="<%=page%>"></td>
<%
if page<>1 then
Response.Write "<td><a href=product.asp?txtpage=1>第一页</a></td>"
Response.Write "<td><a href=product.asp?txtpage="&(page-1)&">上一页</a></td>"
end if
if page<>rcsobj.pagecount then
Response.Write "<td><a href=product.asp?txtpage="&(page+1)&">下一页</a></td>"
Response.Write "<td><a href=product.asp?txtpage="&rcsobj.pagecount&">最末页</ta></td>"
end if
%>
</form></tr>
<%
for i=1 to rcsobj.pagesize
if rcsobj.EOF=true then exit for
Response.Write "<tr>"
Response.Write "<td>"&rcsobj("bianma").value&"</td>"
Response.Write "<td><a href=http://detail.china.alibaba.com/buyer/offerdetail/"&rcsobj("bianma").value&".html target=_blank>点此查看详情</a>"
Response.Write "</tr>"
rcsobj.movenext
next
cnobj.close
rcsobj.close
set rcsobj=nothing
set cnobj=nothing
%>
</table>
……

rcsobj.open="bianma",cnobj,adopenstatic,adLockpessimistic
这错了吧,rcsobj.open "查询SQL 语句",cnobj,adopenstatic,adLockpessimistic

换个数据驱动吧
dim conn,connstr,driver,driverid

Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("你的数据库文件名")+";DefaultDir='';DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"

Conn.Open connstr

sql="SQL查询语句"
set rs1=server.createobject("ADODB.Recordset")
rs1.open sql,conn,3

然后操作和你的一样了.

我估计只是数据驱动的问题,

看conn和rs习惯了,看lz的代码真累,习惯不统一

遇到数据库要注意的是
如果有写操作,rs.open sql,conn,1,3
如果只读操作,rs.open sql,conn,1,1

还有sql语法要对,表名,字段名要对

嵌套了条件语句注意if ---end if ,select ---end select......配对

完全可以不出错

实在不行了,把代码复制到vb6里去检查

先设置一下IE->工具-Internet选项->高级,把那个使用友好的HTTP错误信息去掉,再看一下具体错误!

还是给出错误提示吧~

建议按楼上的修改ie设置得到详细错误,就好判断了