asp程序本地调试没问题上传后出现页面无法显示

来源:百度知道 编辑:UC知道 时间:2024/05/24 05:49:23
我先的一个程序是可以添加删除修改数据库的程序,并且还可以搜索数据,我在本地调试的时候一点问题都没有可是我把它上传到网上后,该程序中删除和处理添加的程序都出现无法显示页面的原因.
具体程序如下:
这个是负责执行删除的
<%
set conn=server.CreateObject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("example.mdb")
exec="delete * from example where id="& request.QueryString("id")
set rs=server.CreateObject("adodb.recordset")
rs.open exec,conn,1,1
response.Redirect("dele.asp")
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
这个是负责修改的程序:
<%
dim a
a=request.Form("keyid")
set conn=server.CreateObject("adodb.connection")
connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("example.mdb")
conn.Open connstr
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from example where

你上传的电脑不支持FSO,或者你的数据库没联上

你要不加入一个错误检测程序,这样你才知道你的页面到底哪里出错。
在前面加上 on error resume next, 然后写个错误处理函数,在各个关键点都调用一下。

我的给你作参考:
参数mark是调用点的标志,出错的话,会显示mark,这样你知道出错在哪一个调用点。

调用方法:ShowErrM("此处打开数据库")

Sub ShowErrM(mark)
if err<>0 then
response.write "<div>"
response.write "===============================================" & "<br>"
response.write "<font color=red><b>" & mark & "</b></font><br>"
response.write "<table>"
response.write "<tr><td nowrap>Error Number: </td><td>" & err.number &"</td></tr>"
response.write "<tr><td nowrap>Error description: </td><td>" & err.description &"</td></tr>"
response.write "<tr><td nowrap&g