部分代码如下如需要看全部代码请留下联系方式谢谢!!if(IsExits=false)thensetrs=server.CreateObject("adodb.recordset")rs.open"select*fromt_agentwhereUserId='"&UserId&"'",con...
部分代码如下 如需要看全部代码请留下联系方式 谢谢!!
if(IsExits=false) then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from t_agent where UserId='"&UserId&"'",conn,3,3
if rs.eof or rs.bof then
rs.addnew
rs("UserId")=UserId
rs("UserName")=UserName
rs("AreaId")=AreaId
rs("DistrictId")=DistrictId
rs("Area")=Area
rs("ServerArea")=""
rs("Email")=Email
rs("Tel")=Tel
rs("Fax")=Fax
rs("QQ")=QQ
rs("Address")=Address
rs("Content")=Content
rs("Announce")=""
rs("Hits")=0
rs("IsCheck")=0
rs("IsLock")=0
rs("JoinDate")=now()
rs("LastIp")=UIP
rs("SortId")=99999
rs("InfoNum")=0
rs("Photo")="/images/nophoto.gif"
rs("LastLoginDate")=now()
rs("LoginNum")=0
rs("IsRecommend")=0
rs("VipEndDate")=now()
rs("f_lat")=0.00
rs("f_lng")=0.00
rs.update
rs.close
Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'
[Microsoft][ODBC Microsoft Access Driver]行中有错误
/zj/reg.asp,行 238
这是报错信息。。238行就是rs.update
展开