钱小佳万达强睡女主播:简单的高分题，快来抢答！编程的。

<!--#include file=conn.asp-->

<%
dim strkanumber
dim strkapassword
dim strtime,strtimeover,strdate,strtt
dim rs,sql,aa,strInsert,strdelete,bb,yanzheng,cc,strbei,strtype,ff
strkanumber=request.form("kanumber")
strkapassword=request.form("kapassword")
strtime=date
strtype=strkanumber\10000000

If Trim(Session("CheckCode"))<>Trim(Request.Form("yanzheng")) Then
response.write("请注意正确输入验证码！")
response.end
end if

strdate="select dateover from member where userid='"&session("name")&"'"
strdelete="delete from kainfo where kanumber='"&strkanumber&"'"
strinsert="update member set type='"& strtype &"',datestar='"&strtime&"',dateover='"&strtimeover&"' where userid='"&session("name")&"'"
strbei="insert into kabeifen(xulie1,huiyuan1,kanumber1,kapassword1,userid1,timestar1,timeover1) select xulie,type,kanumber,kapassword,userid,datestar,dateover from KaInfo,member where kanumber='"& strkanumber &"' and userid='"& session("name") &"'"
set rs=server.CreateObject("adodb.recordset")
sql="select * from KaInfo where kanumber='"&strkanumber&"' and kapassword='"&strkapassword&"'"
rs.open sql,conn,1,3

if not rs.eof then

set ff=server.CreateObject("adodb.recordset")
ff.open strdate,conn,1,3

strtt=rs("dateover")
----------------------------------------------------
if date<strtt then
strtimeover=dateadd("yyyy",1,rs("dateover"))
else
strtimeover=dateadd("yyyy",1,date)
end if
set ff=nothing

set bb=server.CreateObject("adodb.recordset")
bb.open strinsert,conn,2,3
set bb=nothing

set cc=server.CreateObject("adodb.recordset")
cc.open strbei,conn,1,3
set cc=nothing

set aa=server.CreateObject("adodb.recordset")
aa.open strdelete,conn,1,3
set aa=nothing

response.Write"充值成功！！！<br><br>"

response.Write"您此次的充值时间为："& date &"<br><br>"

response.Write"使用期限为："& date & "至" & strtimeover &"<br><br>"

if strkanumber\10000000=1 then
response.write"您的卡为！<br><br>"
else if strkanumber\10000000=2 then
response.Write"您的卡为！<br><br>"
else
response.Write"您的卡为！<br><br>"
end if
end if
response.end

else
response.Write("<script>alert('充值失败！充值卡号或密码错误！');history.back();</script>")
end if
rs.close
set rs=nothing
%>
</span>
</div>
<div align="center"></div>
<p class="style1"> </p>
<p class="style1"> </p>
<p class="style1"> </p>
<p align="center" class="style1">
<input type="submit" name="Submit" onclick=location.href='../index.htm' value="返回首页">
</p>
<p class="style1"> </p>
<p align="center" class="style1"> </p>
<p align="center" class="style1"> </p>
</body>
</html>

说明：虚线上的那句话出问题了！
错误类型：
ADODB.Recordset (0x800A0CC1)

请详细研究，并给出你的方案！方法越多越好！