28,408
社区成员
发帖
与我相关
我的任务
分享我是初学者，帮忙看看程序！在线等！！！
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>invoice on tv set</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<!--META HTTP-EQUIV=REFRESH CONTENT='1;URL=monitor.asp'-->
</head>
<H3>添加客户信息<H3>
<Form Action="guestputin.asp" Method="post">
<%
If Request.Form("Action")="添加" Then
Set c = Server.CreateObject("ADODB.Connection")
c.open "DSN=vod","dba","sql"
set r = CreateObject("ADODB.RecordSet")
Roomno="select room_no from guest_info"
If Request.Form("Roomno1")="&Roomno" Then
r.open "update guest_info set last_name='"&Request.Form("Guestno1")&"',room_no='"&Request.Form("Roomno1")&"'",c
Else
r.open "insert into guest_info(last_name,room_no) values('"&Request.Form("Guestno1")&"','"&Request.Form("Roomno1")&"')",c
End If
End If
%>
<p>
客户名：<INPUT TYPE=Text NAME=Guestno1 SIZE=10><BR>
房间号：<INPUT TYPE=Text NAME=Roomno1 SIZE=10><BR>
<INPUT TYPE=submit VALUE="添加" NAME="Action"><BR>
</p>
</Form>
<%
'r.Close
c.Close
'set r = nothing
set c = nothing
%>
</body></html>
出错提示：
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft VBScript 运行时错误 错误 '800a01a8'
缺少对象: ''
/vod/guestputin.asp，行44
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>invoice on tv set</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<!--META HTTP-EQUIV=REFRESH CONTENT='1;URL=monitor.asp'-->
</head>
<H3>添加客户信息<H3>
<Form Action="guestputin.asp" Method="post">
<%
If Request.Form("Action")="添加" Then
Set c = Server.CreateObject("ADODB.Connection")
c.open "DSN=vod","dba","sql"
set r = CreateObject("ADODB.RecordSet")
Roomno="select room_no from guest_info"
If Request.Form("Roomno1")="&Roomno" Then
r.open "update guest_info set last_name='"&Request.Form("Guestno1")&"',room_no='"&Request.Form("Roomno1")&"'",c
Else
r.open "insert into guest_info(last_name,room_no) values('"&Request.Form("Guestno1")&"','"&Request.Form("Roomno1")&"')",c
End If
End If
%>
<p>
客户名：<INPUT TYPE=Text NAME=Guestno1 SIZE=10><BR>
房间号：<INPUT TYPE=Text NAME=Roomno1 SIZE=10><BR>
<INPUT TYPE=submit VALUE="添加" NAME="Action"><BR>
</p>
</Form>
<%
'r.Close
c.Close
'set r = nothing
set c = nothing
%>
</body></html>
出错提示：
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft VBScript 运行时错误 错误 '800a01a8'
缺少对象: ''
/vod/guestputin.asp，行44
...全文
请发表友善的回复…
发表回复
wanglh100 2005-12-27
- 打赏
- 举报
wanglh100@126.com
把代码发给我，我给你改下。
把代码发给我，我给你改下。
hrxcc 2005-08-05
- 打赏
- 举报
r.open "update guest_info set last_name='"&Request.Form("Guestno1")&"',room_no='"&Request.Form("Roomno1")&"'",c
你后面这个，c是什么意思啊，我都看不太懂，还有你为什么不
sql=sql语句
r.open sql
这样了不是很简洁啊
你后面这个，c是什么意思啊，我都看不太懂，还有你为什么不
sql=sql语句
r.open sql
这样了不是很简洁啊
jjwscn 2005-08-05
- 打赏
- 举报
缺少对象问题，解决，但是为什么我的那个更新语句不起作用呀，好像是没有调用。谁还能帮我解决
另外madpolice(午夜狂龙) 和wanglh100() 老兄要是方便的话，可以留个qq或msn吗
另外madpolice(午夜狂龙) 和wanglh100() 老兄要是方便的话，可以留个qq或msn吗
cncat 2005-08-05
- 打赏
- 举报
看了wanglh100() 的留言才知道madpolice(午夜狂龙)说的有道理BB
BTW:
建议楼主，VBScript里面也显示的进行变量声明吧！
拥有了好的代码习惯 才知道它的好处
BTW:
建议楼主，VBScript里面也显示的进行变量声明吧！
拥有了好的代码习惯 才知道它的好处
cmslovehxh 2005-08-05
- 打赏
- 举报
r.open "insert into guest_info(last_name,room_no) values('"&Request.Form("Guestno1")&"','"&Request.Form("Roomno1")&"')",c
你输出这个 sql语句看看吧
你输出这个 sql语句看看吧
cncat 2005-08-05
- 打赏
- 举报
to madpolice(午夜狂龙)
SBScript应该和VB一样没有“域”的概念吧，这个我认为不应是致命问题。
商
SBScript应该和VB一样没有“域”的概念吧，这个我认为不应是致命问题。
商
wanglh100 2005-08-05
- 打赏
- 举报
前面几行位置换一下，换成
Set c = Server.CreateObject("ADODB.Connection")
set r = CreateObject("ADODB.RecordSet")
c.open "DSN=vod","dba","sql"
If Request.Form("Action")="添加" Then
Roomno="select room_no from guest_info"
不然你等于没有定义时就执行r.close了，这当然有错。
Set c = Server.CreateObject("ADODB.Connection")
set r = CreateObject("ADODB.RecordSet")
c.open "DSN=vod","dba","sql"
If Request.Form("Action")="添加" Then
Roomno="select room_no from guest_info"
不然你等于没有定义时就执行r.close了，这当然有错。
cncat 2005-08-05
- 打赏
- 举报
没找到 <body>
看看是不是丢了
看看是不是丢了
madpolice 2005-08-05
- 打赏
- 举报
c.close
set c=nothing
扔到最后一个end if前面
set c=nothing
扔到最后一个end if前面
