form的post后传递过去的参数接收不到，是怎么回事？

is9527 2007-03-25 04:25:02

我用两个用户表，一个是动网论坛的，一个是自己的，现在能实现在数据同步增加，也就是说从自己的注册系统注册的时候能往论坛的用户表里写入同样的帐号和密码等信息，现在有个问题，就是我在修改这些注册信息的时候想同时修改论坛用户表里该用户的信息时总是出错，提示说：
ADODB.Recordset 错误 '800a0bb9'

变量或者类型不正确，或者不在可以接受的范围之内，要不就是与其他数据冲突。

/User/Info_Save.asp，行105
信息修改页部分代码：
<form name="form1" method="post" action="Info_Save.asp?Type=Normal&Id=<%=Id%>" onSubmit="return CheckAdd(this)">
<TR bgColor=#f1f1f1>
<TD width="30%" height=25>用户名：</TD>
<TD width="80%"><input name="UserName" type="text" id="UserName" value="<%=Rs("UserName")%>" size="30" maxlength="20" readonly="true">
<span class="style1"> *
<input name="Type" type="hidden" id="Type" value="Normal">
</span> </TD>
</TR>
...
<TR>
<TD height="25" bgcolor="#f1f1f1"> </TD>
<TD height="25" bgcolor="#f1f1f1"><span class="tdbg">
<input name="Submit" type="submit" class="button01-out" value="确定">
<input name="Submit2" type="reset" class="button01-out" value="还原">
</span></TD>
</TR>
</form>
</TABLE>
处理页Info_Save.asp相关代码如下：









<%
Sub SaveInfo()
If ChkPost=False Then
Response.Write("<script>alert('对不起,请在正确位置注册！\n\n 排除异站提交！');window.history.back();</script>")
Response.End
End If
Dim UserId,Pwd,Pwd1,Question,Answer,Email
UserId=Trim(Request("Id"))
Pwd=Trim(Request("PassWord"))
Pwd1=Trim(Request("PassWord1"))
Email=Trim(Request("Email"))
Question=Trim(Request("Question"))
Answer=Trim(Request("Answer"))
Dim SQLin
SQLin=Insql(UserId,1)
If SQLin="True" Then
Response.Write("<script>alert('对不起！提交页面有错误。\n\n请你不要非法操作！');window.history.back();</script>")
Response.End
End If
UserId=Clng(UserId)
If CheckEmail(Email)=False Then
Response.Write("<script>alert('Email输入错误！请按照正确的地址。');window.history.back();</script>")
Response.End
End If

Dim Sql,Rs
Set Rs=Server.CreateObject("ADODB.RecordSet")
Sql="Select Top 1 * From BY_User Where Id="&UserId
Rs.Open Sql,Connxyc,1,3
Rs("Email")=Request.Form("Email")
Rs("Sex")=Request.Form("Sex")
Dim Tel,QQ,Age,Fax,Province,Zip,Adress,RealName,Other
Tel=Request.Form("Tel")
QQ=Request.Form("QQ")
Age=Request.Form("Age")
Fax=Request.Form("Fax")
Province=Request.Form("Province")
Zip=Request.Form("Zip")
Adress=Request.Form("Address")
RealName=Request.Form("RealName")
other=Request.Form("Info")
IF tel="" or Isnull(tel) THEN tel=0
IF QQ="" or Isnull(qq) Then QQ=0
If Age="" or isnull(Age) or Isnumeric(Age)="False" then Age=18
If Province="" or isnull(Province) then Province="山东"
If Fax="" or isnull(Fax) then fax=0
If zip="" or isnull(zip) or isnumeric(zip)="False" then zip=0
If adress="" or isnull(Adress) then adress=" "
If RealName="" or isnull(RealName) then Realname=" "
if other="" or isnull(Other) then other=" "
Rs("RealName")=RealName
Rs("Tel")=Tel
Rs("QQ")=QQ
Rs("Age")=Age
Rs("Fax")=Fax
Rs("Province")=Province
Rs("Address")=Adress
Rs("Zip")=Zip
Rs("Other")=Other
Rs("LastLoginTime")=Now()
Rs("LastIp")=request.ServerVariables("Remote_Addr")
Rs("LoginTimes")=0
Rs("AddTime")=Now()
Rs.Update
session("UserName")=Rs("UserName")
Rs.Close:Set Rs=Nothing

Dim Sql1,Rs1,UserName
UserName=session("UserName")
Set Rs1=Server.CreateObject("ADODB.RecordSet")
Sql1="Select Top 1 * From Dv_User Where UserName='"&UserName&"'"
Rs1.Open Sql1,Conn,1,3
Rs1("UserEmail")=Request.Form("Email")
Rs1("UserSex")=Request.Form("Sex")
Rs1("UserMobile")=Request.Form("Mobile")
Rs1.Update
Rs1.Close:Set Rs1=Nothing
end sub
%>

问题就出在Sql1="Select Top 1 * From Dv_User Where UserName='"&UserName&"'"这一行，是我什么地方写得不对？

...全文