急！向数据库中插入数据有错误！提示“内部服务器错误”

pdysuny 2003-05-03 07:10:56
急！向数据库中插入数据有错误！提示“内部服务器错误”
快救我!
代码如下：
conn.asp:
<%
dim conn
dim connstr
on error resume next
connstr="DBQ="+server.mappath("rt.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>

guest.asp为纯html代码，递交到guestsave.asp。

guestsave.asp
<!-- #include file="conn.asp"-->
<%
set rs=Server.CreateObject("Adodb.Recordset"))
sql="select * from rt"
rs.open sql,conn,1,3
rs.Addnew
rs("ywy")=Request.Form("ywy")
rs("idate")=Request.Form("idate")
rs("gcompany")=Request.Form("gcompany")
rs("frdb")=Request.Form("frdb")
rs("zw")=Request.Form("zw")
rs("tel")=Request.Form("tel")
rs("bfsj")=Request.Form("bfsj")
rs("address")=Request.Form("address")
rs("gaist")=Request.Form("gaist")
rs("kfdj")=Request.Form("kfdj")
rs("gtfs")=Request.Form("gtfs")
rs("content")=Request.Form("content")
rs("xyjg")=Request.Form("xyjg")
rs("bz")=Request.Form("bz")
rs("zgqz")=Request.Form("zgqz")
rs.update
conn.close
set conn=nothing
rs.close
set rs=nothing
%><head>
<link href="css.css" rel="stylesheet" type="text/css">

</head>



<table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#993399" bgcolor="#CCCCCC" class="css">
<tr class="css">
<td width="6%" height="25" align="center">业务员</td>
<td width="6%" align="center">记录时间</td>
<td width="6%" align="center">客户公司</td>
<td width="6%" align="center">法人代表联系人</td>
<td width="6%" align="center">职务</td>
<td width="7%" align="center">电话</td>
<td width="7%" align="center">拜访时间</td>
<td width="7%" align="center">公司地址</td>
<td width="7%" align="center">客户等级</td>
<td width="7%" align="center">沟通方式</td>
<td width="7%" align="center">沟通内容</td>
<td width="7%" align="center">协议金额</td>
</tr>
<%
set rs1=Server.CreateObject("Adodb.Recordset")
sql="select * from rt where gcompany ='"&request("gcompany")&"'"
rs1.open sql,conn,1,1
do while not rs.eof
Response.Write"<tr>"
Response.Write"<td>"&rs("ywy")&"</td>"
Response.Write"<td>year("idate")"年"month("idate")"月"day("idate")"日"</td>"
Response.Write"<td><a href=company.asp?id=<%=rs("id")%>>&rs("gcompany")&"</a></td>"
Response.Write"<td>"&rs("frdb")&"</td>"
Response.Write"<td>"&rs("zw")&"</td>"
Response.Write"<td>"&rs("tel")&"</td>"
Response.Write"<td>"&rs("bfsj")&"</td>"
Response.Write"<td>"&rs("address")&"</td>"
Response.Write"<td>"&rs("kfdj")&"</td>"
Response.Write"<td>"&rs("gtfs")&"</td>"
Response.Write"<td>"&rs("content")&"</td>"
Response.Write"<td>"&rs("xyjg")&"</td>"
Response.Write"</tr>"
rs1.movenext
loop
Response.write"</table>"
conn.close
set conn=nothing
rs.close
set rs=nothing
%>



...全文
76 17 打赏 收藏 转发到动态 举报
写回复
用AI写文章
17 条回复
切换为时间正序
请发表友善的回复…
发表回复
pdysuny 2003-05-03
  • 打赏
  • 举报
 回复
各位高手，帮帮我这个菜鸟看看吧！！
我向你们跪地求了
pdysuny 2003-05-03
  • 打赏
  • 举报
 回复
有啊，很多我没有填得，但表rt.mdb里字段可以允许有空值得的。
真的急得大汗了！!!
还是提示：

该页无法显示
您要访问的页有问题，无法显示该页。

--------------------------------------------------------------------------------

请尝试以下操作:

打开 192.168.0.4 主页，然后查找指向您感兴趣信息的链接。
单击刷新按钮，或以后再试。

单击搜索，寻找 Internet 上的信息。
也可查看相关站点列表。




HTTP 500 - 内部服务器错误
Internet Explorer
yangyanli 2003-05-03
  • 打赏
  • 举报
 回复
有没有空值？？？
pdysuny 2003-05-03
  • 打赏
  • 举报
 回复
快帮忙啊
annyking 2003-05-03
  • 打赏
  • 举报
 回复
是iss的问题
yangyanli 2003-05-03
  • 打赏
  • 举报
 回复
把提示的错误信息贴出来。
pdysuny 2003-05-03
  • 打赏
  • 举报
 回复
还是不能输出，还是“内部服务器错误”，难道是数据库有问题。
我只用插如数据库代码，如下，为什么还是不能向数据库中添加数据呢？
真的急得出汗了！！！

<!-- #include file="conn.asp"-->
<%
set rs=Server.CreateObject("Adodb.Recordset"))
sql="select * from rt"
rs.open sql,conn,1,3
rs.Addnew
rs("ywy")=Request.Form("ywy")
rs("idate")=Request.Form("idate")
rs("gcompany")=Request.Form("gcompany")
rs("frdb")=Request.Form("frdb")
rs("zw")=Request.Form("zw")
rs("tel")=Request.Form("tel")
rs("bfsj")=Request.Form("bfsj")
rs("address")=Request.Form("address")
rs("gaist")=Request.Form("gaist")
rs("kfdj")=Request.Form("kfdj")
rs("gtfs")=Request.Form("gtfs")
rs("content")=Request.Form("content")
rs("xyjg")=Request.Form("xyjg")
rs("bz")=Request.Form("bz")
rs("zgqz")=Request.Form("zgqz")
rs.update
conn.close
set conn=nothing
rs.close
set rs=nothing
%>
yangyanli 2003-05-03
  • 打赏
  • 举报
 回复
Response.Write"<td>"&rs("content")&"</td>"
Response.Write"<td>"&rs("xyjg")&"</td>"
Response.Write"</tr>"
rs1.movenext
loop
Response.write"</table>"
conn.close
set conn=nothing
rs.close/////////////////////////rs1.close
set rs=nothing////////////////////////set rs1=nothing
%>
这是最后的几行。。。。
yangyanli 2003-05-03
  • 打赏
  • 举报
 回复
guest.asp为纯html代码，递交到guestsave.asp。

guestsave.asp
<!-- #include file="conn.asp"-->
<%
set rs=Server.CreateObject("Adodb.Recordset"))
sql="select * from rt"
rs.open sql,conn,1,3
rs.Addnew
rs("ywy")=Request.Form("ywy")
rs("idate")=Request.Form("idate")
rs("gcompany")=Request.Form("gcompany")
rs("frdb")=Request.Form("frdb")
rs("zw")=Request.Form("zw")
rs("tel")=Request.Form("tel")
rs("bfsj")=Request.Form("bfsj")
rs("address")=Request.Form("address")
rs("gaist")=Request.Form("gaist")
rs("kfdj")=Request.Form("kfdj")
rs("gtfs")=Request.Form("gtfs")
rs("content")=Request.Form("content")
rs("xyjg")=Request.Form("xyjg")
rs("bz")=Request.Form("bz")
rs("zgqz")=Request.Form("zgqz")
rs.update
conn.close///////////////////////////////////这句去掉，
set conn=nothing/////////////////////////////////去掉，这两句导致下面conn无法使用。
rs.close
set rs=nothing
%><head>
<link href="css.css" rel="stylesheet" type="text/css">

</head>



<table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#993399" bgcolor="#CCCCCC" class="css">
<tr class="css">
<td width="6%" height="25" align="center">业务员</td>
<td width="6%" align="center">记录时间</td>
<td width="6%" align="center">客户公司</td>
<td width="6%" align="center">法人代表联系人</td>
<td width="6%" align="center">职务</td>
<td width="7%" align="center">电话</td>
<td width="7%" align="center">拜访时间</td>
<td width="7%" align="center">公司地址</td>
<td width="7%" align="center">客户等级</td>
<td width="7%" align="center">沟通方式</td>
<td width="7%" align="center">沟通内容</td>
<td width="7%" align="center">协议金额</td>
</tr>
<%
set rs1=Server.CreateObject("Adodb.Recordset")
sql="select * from rt where gcompany ='"&request("gcompany")&"'"
rs1.open sql,conn,1,1
do while not rs.eof
Response.Write"<tr>"
Response.Write"<td>"&rs("ywy")&"</td>"
Response.Write"<td>year("idate")"年"month("idate")"月"day("idate")"日"</td>"
Response.Write"<td><a href=company.asp?id=<%=rs("id")%>>&rs("gcompany")&"</a></td>"
Response.Write"<td>"&rs("frdb")&"</td>"
Response.Write"<td>"&rs("zw")&"</td>"
Response.Write"<td>"&rs("tel")&"</td>"
Response.Write"<td>"&rs("bfsj")&"</td>"
Response.Write"<td>"&rs("address")&"</td>"
Response.Write"<td>"&rs("kfdj")&"</td>"
Response.Write"<td>"&rs("gtfs")&"</td>"
Response.Write"<td>"&rs("content")&"</td>"
Response.Write"<td>"&rs("xyjg")&"</td>"
Response.Write"</tr>"
rs1.movenext
loop
Response.write"</table>"
conn.close
set conn=nothing
rs.close
set rs=nothing
%>

kmlm 2003-05-03
  • 打赏
  • 举报
 回复
输出一下看看什么提示？
在这个后边一行 sql="select * from rt where gcompany ='"&request("gcompany")&"'"
加 response.write sql
先看能不能输出
pdysuny 2003-05-03
  • 打赏
  • 举报
 回复
看看吧！
pdysuny 2003-05-03
  • 打赏
  • 举报
 回复
帮看看吧！求各位大侠了！！
pdysuny 2003-05-03
  • 打赏
  • 举报
 回复
是再这样吗？
conn.open connstr

情快告诉我吧，朋友们，我真的很急了，明天要交货的。
wuhuxia 2003-05-03
  • 打赏
  • 举报
 回复
agree annkie(让爱继续) (
annkie 2003-05-03
  • 打赏
  • 举报
 回复
前面已经关闭了connection
conn.close
set conn=nothing
后面怎么直接使用connection，要先打开它。
pdysuny 2003-05-03
  • 打赏
  • 举报
 回复
你帮看看吧！我都写在上面了。
孟子E章 2003-05-03
  • 打赏
  • 举报
 回复
一般是连接或者sql语句有问题
Oracle数据库 大事务的数据更改对数据库内部的影响
本课程以Oracle 10g数据库为基础,来讲解大事务的数据更改在数据库内部是如何处理的。   当用户执行一条SQL对数据库进行更改操作的时候，我们知道数据是从磁盘读取到内存中进行更改操作的， 那么当这个SQL执行...
vs自带数据库sql server的中文插入乱码问题、查找当前数据库名
解决两个问题：vs自带数据库sql server的中文插入乱码问题、查找当前数据库名 （查找数据库名在文章中间，自己往下翻吧，不单拎出来了） vs自带数据库sql server的中文插入乱码问题： 如图所示，我插入表的中文...
关于Javaweb项目的404和500错误解决办法以及数据库卸载安装方法，适合新手
关于Javaweb项目的404和500错误解决办法以及数据库卸载安装方法，适合新手 在编写Javaweb项目是可能会出现一些错误如404和500是新手经常出现的错误如下图： 一般这种错误是输入网址是输入错误，还有Tomcat没有部署...
登录网银显示服务器内部错误怎么办,网银提示无法大额转账？点击登录出现报错？解决方法看这里...
原标题：网银提示无法大额转账？...解决方法看这里为 帮助大家能够更好地使用江西·农商银行网上银行今天小编收集了一些关于网上银行的常见问题并详细为大家解答1️⃣ 跨行转账... 解决办法：出现此类错误提示是因为...
打开本地的asp网页显示服务器错误500,解决IIS不能正常打开ASP网页500错误
问题分析：查看 管理工具 当中的 事件查看器 查看记录：1、错误来源：W3...返回数据是错误代码。解决方法同步IWAM_Machine账号和IIS Out-Of-Process Pooled Applications的密码具体操作如下(密码可以自己设置，不过...
ASP

28,391

社区成员

357,060

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章