UC知道asp注册程序本地调试成功，上传一提交就无法显示
来源：百度知道 编辑：UC知道 时间：2024/05/26 14:55:04
asp注册程序本地调试成功，上传到空间时，一点提交按钮就无法显示，但别的asp程序可运行正常，认为是数据库上出了问题但看N遍也找不到原因，急急急。程序：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="regconn.asp" -->
<%
dim cname
dim fpass
cname= request.form("cName")
fpass= request.form("fPass")
set rs=server.createobject("adodb.recordset")
rs.Open "select * from user where cName='" & Trim(cName) & "'"
if not rs.bof and not rs.eof then
response.write "注册失败，该用户己存在。"
else
set rs=nothing
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open "select * from user",Conn,3,3
rs.addnew
rs("cName")=cname
rs("pass")=fpass
rs.update
response.write "注册成功！"
end if
set rs=nothing
Conn.close
set Conn=nothing
%>
regconn.asp的程序:
<%
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="regconn.asp" -->
<%
dim cname
dim fpass
cname= request.form("cName")
fpass= request.form("fPass")
set rs=server.createobject("adodb.recordset")
rs.Open "select * from user where cName='" & Trim(cName) & "'"
if not rs.bof and not rs.eof then
response.write "注册失败，该用户己存在。"
else
set rs=nothing
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open "select * from user",Conn,3,3
rs.addnew
rs("cName")=cname
rs("pass")=fpass
rs.update
response.write "注册成功！"
end if
set rs=nothing
Conn.close
set Conn=nothing
%>
regconn.asp的程序:
<%
fpass= request.form("fPass")
set rs=server.createobject("adodb.recordset")
rs.Open "select * from user where cName='" & Trim(cName) & "'"
if not rs.bof and not rs.eof then
response.write "注册失败，该用户己存在。"
else
set rs=nothing
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open "select * from user",Conn,3,3
要精简代码，下面一段要去掉
set rs=nothing
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open "select * from user",Conn,3,3
我觉得很有可能是你服务器上的数据库为只读，只要是添加记录都会出错。你可以试一下。
将：
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
改为：
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath
试试。
或者先把数据库操作的代码屏蔽掉再运行一下试试，应该是数据库操作这部份出现问题。
1、推荐使用这种数据库连接
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath
2、对于SQL