28,390
社区成员
发帖
与我相关
我的任务
分享!!!!!!!!100分问个很容易的问题!!!!!!!!
<!--#include file="conn.asp"--> '连接数据文件的头文件，并在此申明了ＶＢ脚本
<!--#include file="const.asp"--> '自定义全局变量文件
<!--#include file="onload.asp"--> '每次装入时的全局函数
<%
dim uName,unName,unDj
uName = rim(Request.QueryString("name"))
unName = Trim(Request.QueryString("ename"))
unDj = Trim(Request.QueryString("edj"))
if uName = "" or unDj = "" then error2("非法进入此页面,请先登录!") 'error2是全局错误处理函数
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Sales add page</title>
</head>
<body>
<%
dim sql,rs
set rs=server.createobject("ADODB.recordset")
sql="select snumber from sales where snumber='" & uName & "'"
rs.open sql,conn,1,1
if not rs.eof then
rs.close
conn.close
set rs = nothing
set conn = nothing
Response.Redirect "pop_s.asp"
Response.End
end if
'开始更新记录的操作
'sql="select * from sales"
'rs.open sql,conn,1,3
'rs.addnew
'rs.("snumber") = "436545645"
'rs.("sname") = unName
'rs.("smax") = 1
'rs.("ssale") = undj
'rs.("scount") = undj * rs("smax")
'rs.("sdate") = date()
Sql = "insert into sales(snumber,sname,sdate) values('"&uName&"','"&unName&"',"date()")"
conn.Execute strSql
'rs.update
rs.close
conn.close
set rs = nothing
set conn = nothing
%>
</body>
</html>
<% Response.Redirect "pop_s.asp"
Response.End
%>
以上代码出错,大家帮我调试一下
<!--#include file="const.asp"--> '自定义全局变量文件
<!--#include file="onload.asp"--> '每次装入时的全局函数
<%
dim uName,unName,unDj
uName = rim(Request.QueryString("name"))
unName = Trim(Request.QueryString("ename"))
unDj = Trim(Request.QueryString("edj"))
if uName = "" or unDj = "" then error2("非法进入此页面,请先登录!") 'error2是全局错误处理函数
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Sales add page</title>
</head>
<body>
<%
dim sql,rs
set rs=server.createobject("ADODB.recordset")
sql="select snumber from sales where snumber='" & uName & "'"
rs.open sql,conn,1,1
if not rs.eof then
rs.close
conn.close
set rs = nothing
set conn = nothing
Response.Redirect "pop_s.asp"
Response.End
end if
'开始更新记录的操作
'sql="select * from sales"
'rs.open sql,conn,1,3
'rs.addnew
'rs.("snumber") = "436545645"
'rs.("sname") = unName
'rs.("smax") = 1
'rs.("ssale") = undj
'rs.("scount") = undj * rs("smax")
'rs.("sdate") = date()
Sql = "insert into sales(snumber,sname,sdate) values('"&uName&"','"&unName&"',"date()")"
conn.Execute strSql
'rs.update
rs.close
conn.close
set rs = nothing
set conn = nothing
%>
</body>
</html>
<% Response.Redirect "pop_s.asp"
Response.End
%>
以上代码出错,大家帮我调试一下
...全文
请发表友善的回复…
发表回复
IamScout 2003-08-22
- 打赏
- 举报
没说明白，要是注释的语句出错，那么我告诉你，rs和conn最好在最后关掉set nothing
中间要重复使用rs那么rs.close后别set nothing 否则出错，你试试，呵呵我以前的错误，用排除法找。
中间要重复使用rs那么rs.close后别set nothing 否则出错，你试试，呵呵我以前的错误，用排除法找。
54duke 2003-08-22
- 打赏
- 举报
分期付款
qwater 2003-08-22
- 打赏
- 举报
20分啊
zurong 2003-08-22
- 打赏
- 举报
Sql = "insert into sales(snumber,sname,sdate) values('"&uName&"','"&unName&"',"& date() & ")"
aloxy 2003-08-22
- 打赏
- 举报
你想实现什么功能？什么错误信息？
