ASP代码问题,帮忙看下哪有问题

来源:百度知道 编辑:UC知道 时间:2024/05/14 04:13:26
以下代码是code.asp文件的

<%
dim conn
dim connstr
dim db
db="Code.mdb" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
%>
<%
code=request("code")
set rs=server.createobject("adodb.recordset")
sqltext="select * from SoftReg where regcode = '" & code &"'"
rs.open sqltext,conn,3,3
getcode=rs("code")
%>
<%=getcode%>
<%
rs.close
%>

数据库中有一个SoftReg表,这个表中也有regcode字段,数据库中只有一条记录,regcode字段的值为12345。当访问code.asp?id=12345的时候,读不出任何数据,网页一片空白。麻烦问下可能是哪里出了问题?
难道就没人想到NTFS分区数据库没有读取权限的问题吗?
开始是没有加读取权限,现在加上了,但是where ***只认名为id的自动编号字段,而且读取一次后再刷新又不读取、显示

不要用ODBC来打开access数据库

dim conn
dim connstr
dim db
db="Code.mdb" '数据库文件位置
on error resume next

Set Conn =Server.CreateObject("ADODB.Connection")
Connstr =Server.MapPath(db)
Conn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source ="& Connstr

如果没有问题
看一下regcode是什么类型
如果是字符型这句就是正确的
如果是数字型,需要改下面这句为
sqltext="select * from SoftReg where regcode = " & code &""

regcode是数字型的
改这句
sqltext="select * from SoftReg where regcode = " & code &""rs.open

sqltext,conn,3,3
getcode=rs("code")
这两句之间要加入一个判断数据中是否存在记录的语句
以及是否到了最后一天记录
比如
rs.open sqltext,conn,3,3
do while not rs.eof
getcode=rs("code")

你可以在显示的页面,启动response.write("11") response.end() 来检查程序执行到了哪里。
就可以啦/ka

rs.open sqltext,conn,3,3
getcode=rs("code")
在这两句之