UC知道asp的错误(0x800A0BB9)
来源：百度知道 编辑：UC知道 时间：2024/05/23 16:42:57
<!--# include file="include/conn.asp"-->
<%
Dim keyid,sql
keyid=Request("key")
if request.Form("act")="modify" then
dim uname,adddate,enable1
sql = "update member set 用户名='"& uname &"',添加时间='"& adddate &"',开通否='"& enable1 &"' where id="&keyid
conn.execute(sql)
end if
Set rs1=server.CreateObject("adodb.recordset")
sql="select * from member where id=" &Cint(keyid)
rs1.open sql,conn,1,2
%>
<html>
<head>
<title>会员帐号</title>
</script>
</head>
<body>
<form name="form1" method="post" action="">
<table width="430" height="393" border="1" align="center" bgcolor="#336699">
<tr>
<%
Dim keyid,sql
keyid=Request("key")
if request.Form("act")="modify" then
dim uname,adddate,enable1
sql = "update member set 用户名='"& uname &"',添加时间='"& adddate &"',开通否='"& enable1 &"' where id="&keyid
conn.execute(sql)
end if
Set rs1=server.CreateObject("adodb.recordset")
sql="select * from member where id=" &Cint(keyid)
rs1.open sql,conn,1,2
%>
<html>
<head>
<title>会员帐号</title>
</script>
</head>
<body>
<form name="form1" method="post" action="">
<table width="430" height="393" border="1" align="center" bgcolor="#336699">
<tr>
<%
Dim conn,connstr
Set conn=server.CreateObject("adodb.connection")
connstr="PROVIDER=SQLOLEDB;uid=sa;pwd=sa;database=companymember;SOURCE=6CA50E485AB64F5"
conn.open connstr
%>
这样子试一下看看..你上面的代码我看不出那里出了问题的
刚才回答有点问题
应该是你添加日期重新修改的时候
他接受的应该是字符型
应该转换为日期型
---你看一下你数据里面的添加日期字段是不是日期型的
如果不是那我也就不知道了
改成这样试试
呵呵
<%
Dim keyid,sql
keyid=Request("key")
if keyid<>"" then
if request.Form("act")="modify" then
Set rs1=server.CreateObject("adodb.recordset")
rs1.Open "select * from member where id="&keyid,conn,1,3
rs1.AddNew
rs1("uname")=trim(request("uname"))
rs1("adddate")=trim(request("adddate"))
rs1("enable1 ")=trim(request("enable1 "))
rs1.Update
rs1.Close
set rs1=nothing
end if