!!!!!!!!100分问个很容易的问题!!!!!!!!
<!--#include file="conn.asp"--> '连接数据文件的头文件,并在此申明了VB脚本
<!--#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
%>
以上代码出错,大家帮我调试一下