asp+sql，请高手们都来看看
我怎么添加数据阿？一定要有globl.asa吗？是不是可以直接调用的？我是个初学者，看来这方面还是没有什么天分，打算做完这个网站就自动辞职（好歹做了一个月也要做完了才走，不然太对不起人家了）下面是我连接数据库的代码
dim connstr,conn,rs,sql
set conn=server.createobject("adodb.connection")
conn.connectionstring="driver={SQL Server};server=cycle;UID=sa;PWD=cloud;Database=cycle"
Conn.Open
set rs =server.createobject("adodb.recordset")
sql="SELECT a.AdminName,a.Auth,a.DueTime,b.CompanyName,c.DpmtName FROM Administrator a,Company b, Department c,adminsite d,admindpmt e WHERE a.AdminID=d.AdminID and a.AdminID=e.AdminID and d.AdminSiteID=b.CompanyID and e.AdminDpmtID=c.DpmtID ORDER BY a.adminid"
rs.open sql,conn,3,3
if rs.EOF=true then
rs.MoveLast
end if
'添加数据
rs.AddNew
rs("Adminname")=Adminname
rs("password")=password
rs("select1")=companyname
rs("select2")=auth
rs("select3")=DpmtName
rs("checkbox")=IsSupervisor
rs("duetime")=duetime
rs.Update
rs.Close
conn.Close
set conn=nothing
set rs=nothing
%>
<scrip language="javascript">
alert("已经成功添加了一条新的纪录!")
top.document.location="permissionadd.asp"
</scrip>
结果：
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21'
多步 OLE DB 操作产生错误。请检查每个 OLE DB 状态值。没有工作被完成。
/ERP/TMPixy851v6iw.asp，行117
恳请高手们教教我，我的qq4818344，经常在线的。
问题点数：0、回复次数：13Top
1 楼chhwang（浩浩*好想早日拥有闪耀的星星*★★★★★）回复于 2004-08-03 17:40:51 得分 0
/ERP/TMPixy851v6iw.asp，行117
是哪行Top
2 楼melody1111（）回复于 2004-08-03 17:42:49 得分 0
关注中...Top
3 楼life360（wenjian）回复于 2004-08-03 17:57:55 得分 0
太复杂了吧？？？添加一条数据不用查询那么多吧？？？Top
4 楼life360（wenjian）回复于 2004-08-03 18:00:48 得分 0
给个简单的你吧，自己改改哦
dim conn
dim strconn
strconn = "Driver={SQL Server};SERVER=127.0.0.1;UID=sa;PWD=sa;DATABASE=数据库"
set conn = server.createobject("adodb.connection")
conn.open strconn
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from message "
rs.open sql,Conn,1,2
rs.addnew
rs("username")=request("to")
rs.update
rs.close
conn.close
%>Top
5 楼dangnade（超级菜鸟）回复于 2004-08-04 09:06:59 得分 0
行117是rs("Adminname")=Adminname
不明白 不用查询吗？这些字段是不同的表里面的Top
6 楼dangnade（超级菜鸟）回复于 2004-08-04 09:17:48 得分 0
我是不是没联到数据库阿?麻烦说得简单些 我在线等Top
7 楼61（儿童节快乐）回复于 2004-08-04 09:23:09 得分 0
if rs.EOF=true then
rs.MoveLast
end if
'添加数据
rs.AddNew
rs("Adminname")=Adminname
rs("password")=password
rs("select1")=companyname
rs("select2")=auth
rs("select3")=DpmtName
rs("checkbox")=IsSupervisor
rs("duetime")=duetime
rs.Update
end if '少了这句话
Top
8 楼wwsh（落泪无痕）回复于 2004-08-04 09:24:17 得分 0
rs.open sql,conn,1,3
if rs.EOF=true then
rs.AddNew
rs("Adminname")=Adminname
rs("password")=password
rs("select1")=companyname
rs("select2")=auth
rs("select3")=DpmtName
rs("checkbox")=IsSupervisor
rs("duetime")=duetime
rs.Update
end if
'添加数据
Top
9 楼dangnade（超级菜鸟）回复于 2004-08-04 09:39:19 得分 0
结果成了这样：alert("已经成功添加了一条新的纪录!") top.document.location="permissionadd.asp"Top
10 楼dangnade（超级菜鸟）回复于 2004-08-04 09:39:51 得分 0
我还没输入数据呢 晕~~~Top
11 楼dangnade（超级菜鸟）回复于 2004-08-04 09:40:22 得分 0
全部代码都在这里
<%@LANGUAGE="VBSCRIPT"%>
<%option explicit%>
<% dim Adminname,password,companyname,Authorization,Dpmtname,IsSupervisor,duetime
dim founderr,errmsg
founderr=false
Adminname=Request.form("Adminname")
if Adminname=""then
errmsg=errmsg &"用户名不能为空!"&errmsg
end if
password=Request.form("password")
if password="" then password=""
Companyname=Request.form("select1")
if Companyname=""then Companyname="无"
Dpmtname=Request.form("select2")
IsSupervisor=Request.form("IsSupervisor")
duetime=Request.form("duetime")
if founderr=true then
Response.Write errmsg
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>admin</title>
</head>
<body>
<table width="885" height="343" border="1" cellpadding="2" cellspacing="2" bordercolor="#FFFFFF" bgcolor="#CCCCCC">
<tr>
<th width="127" scope="col">增加</th>
<th colspan="2" scope="col"><div align="left">退出</div></th>
</tr>
<tr>
<td><div align="left">用户名</div></td>
<td colspan="2"><form name="form1" method="post" action="">
<input name="Adminname" type="text" id="Adminname" value="<%Adminname%>">
</form></td>
</tr>
<tr>
<td>密码</td>
<td colspan="2"><form action="" method="post" name="password" id="password">
<input name="textarea" type="password" value="<%password%>">
</form></td>
</tr>
<tr>
<td>公司</td>
<td width="181"><form name="form3" method="post" action="">
<select name="select1" id="select1" value="<%CompanyName%>">
<option>1</option>
<option>2</option>
</select>
</form></td>
<td width="549"><form name="form7" method="post" action="">
<input type="text" name="textfield" value="<%CompanyName%>">
</form></td>
</tr>
<tr>
<td>权限</td>
<td colspan="2"><form name="form4" method="post" action="">
<select name="select2" id="select2"value="<%auth%>">
<option selected>Client</option>
<option>Normal</option>
<option>Manager</option>
</select>
</form></td>
</tr>
<tr>
<td>部门</td>
<td><form name="form5" method="post" action="">
<select name="select3" id="select3"value="<%DpmtName%>">
<option>1</option>
<option>2</option>
</select>
</form></td>
<td><form name="form8" method="post" action="">
<input type="text" name="textfield"value="<%DpmtName%>">
</form></td>
</tr>
<tr>
<td>是否超级用户</td>
<td colspan="2"><form name="form6" method="post" action="">
<input name="checkbox" type="checkbox" value="<%IsSupervisor%>">
</form></td>
</tr>
<tr>
<td>有效期</td>
<td colspan="2"><form name="form9" method="post" action="">
<input name="duetime" type="text" id="duetime" value="<%duetime%>">
(yyyy-mm-dd)
</form></td>
</tr>
<tr>
<td> </td>
<td colspan="2"><form name="form2" method="post" action="">
<input type="submit" name="Submit" value="提交">
</form></td>
</tr>
</table>
</body>
</html>
<%response.End
else
dim connstr,conn,rs,sql
set conn=server.createobject("adodb.connection")
conn.connectionstring="driver={SQL Server};server=cycle;UID=sa;PWD=cloud;Database=cycle"
Conn.Open
set rs =server.createobject("adodb.recordset")
sql="SELECT a.AdminName,a.Auth,a.DueTime,b.CompanyName,c.DpmtName FROM Administrator a,Company b, Department c,adminsite d,admindpmt e WHERE a.AdminID=d.AdminID and a.AdminID=e.AdminID and d.AdminSiteID=b.CompanyID and e.AdminDpmtID=c.DpmtID ORDER BY a.adminid"
rs.open sql,conn,3,3
if rs.EOF=true then
rs.MoveLast
'添加数据
rs.AddNew
rs("Adminname")=Request("Adminname")
rs("password")=request("password")
rs("select1")=request("companyname")
rs("select2")=request("auth")
rs("select3")=request("DpmtName")
rs("checkbox")=request("IsSupervisor")
rs("duetime")=request("duetime")
rs.Update
end if
rs.Close
conn.Close
set conn=nothing
set rs=nothing
%>
<scrip language="javascript">
alert("已经成功添加了一条新的纪录!")
top.document.location="permissionadd.asp"
</scrip>
<%
end if%>Top
12 楼OhSky（不悔）回复于 2004-08-21 13:35:41 得分 0
把写如数据库的语句稍微改一下：
dim connstr,conn,rs,sql
set conn=server.createobject("adodb.connection")
conn.connectionstring="driver={SQL Server};server=cycle;UID=sa;PWD=cloud;Database=cycle"
Conn.Open
set rs =server.createobject("adodb.recordset")
sql="SELECT a.AdminName,a.Auth,a.DueTime,b.CompanyName,c.DpmtName FROM Administrator a,Company b, Department c,adminsite d,admindpmt e WHERE a.AdminID=d.AdminID and a.AdminID=e.AdminID and d.AdminSiteID=b.CompanyID and e.AdminDpmtID=c.DpmtID ORDER BY a.adminid"
rs.open sql,conn,3,3
if rs.EOF=true then
' rs.MoveLast
' '添加数据
' rs.AddNew
' rs("Adminname")=Request("Adminname")
' rs("password")=request("password")
' rs("select1")=request("companyname")
' rs("select2")=request("auth")
' rs("select3")=request("DpmtName")
' rs("checkbox")=request("IsSupervisor")
' rs("duetime")=request("duetime")
' rs.Update
sqlstr="insert into Administrator(Adminname,password,select1,select2,select3,checkbox,duetime)" & _
"values ('" &replace(Request("Adminname"),"'","''")&"','" &Request("password")&"','"& request("companyname") &"','"& request("auth") &"','"& request("DpmtName") &"','"& request("IsSupervisor") &"','"& request("duetime")"')"
Conn.execute sqlstr
'********************注意匹配传来值中的 ' 为两个'',以上假定你所有字段为字符型**************
end if
rs.Close
conn.Close
set conn=nothing
set rs=nothing
%>
<scrip language="javascript">
alert("已经成功添加了一条新的纪录!")
top.document.location="permissionadd.asp"
</scrip>
Top
13 楼OhSky（不悔）回复于 2004-08-21 13:36:52 得分 0
语句有误，修改一下：
sqlstr="insert into Administrator(Adminname,password,select1,select2,select3,checkbox,duetime)" & _
" values ('" &replace(Request("Adminname"),"'","''")&"','" &Request("password")&"','"& request("companyname") &"','"& request("auth") &"','"& request("DpmtName") &"','"& request("IsSupervisor") &"','"& request("duetime")"')"
Conn.execute sqlstr
Top
