<%
response.cookies("subperiod")=""
Dim Str2, Str3, agent, discuz_auth_key, new_bbs_user_info, tmp_ar
Const Key="ca6c55FylvPUNXlf"
agent=request.servervariables("http_user_agent")
discuz_auth_key=Php_MD5(Key & agent)
Str2=request.cookies("aSr_auth")
'On Error Resume next
Str3=uc_authcode(Str2,"DECODE",discuz_auth_key)
If Len(Trim(Str3))<2 Then
%>
<%
Else
dim isSubmit, rs, sqlstr
set rs = server.createobject("adodb.recordset")
If Len(Trim(Str3))>0 And Err.number=0 then
tmp_ar=Split(Str3,Chr(9))
new_bbs_user_info=tmp_ar(2)
' 利用xmlhttp通过user_id获得username
DIM Http
DIM username
DIM URL
Set Http = SERVER.CREATEOBJECT("Microsoft.XMLHTTP")
URL = "http://bbs.21ic.com/api/dl_api.php?user_id=" & new_bbs_user_info
Http.Open "GET",URL,FALSE
Http.send(null)
Dim ArrHttp,ai
ArrHttp = Split(Http.ResponseText,"""")
username = ArrHttp(11)
'response.write Http.ResponseText
'response.write user_id & "
"
'response.write username
response.cookies("st")("user_id") = ArrHttp(3)
response.cookies("st")("username") = ArrHttp(11)
response.cookies("subperiod")=1
Set Http = Nothing
End If
dim strDetail
ConnectDatabase
rs.open "select * from users where username='" & username & "' and ans_company='st'",myconn,1
if not rs.eof then
strDetail = rs("detail")
end if
rs.close
'response.write strDetail
if request.form("isSubmit")<>"" then
sqlstr="select * from users where username='" & username & "' and ans_company='st'"
'rs.CursorLocation=3
'response.write sqlstr & "
"
rs.open sqlstr,myconn,3,2
if not rs.eof Then
myconn.execute("update users set bbs_userid='"&ArrHttp(3)&"',username='"&username&"',realname='"&request.form("realname")&"',email='"&request.form("email")&"',tel='"&request.form("tel")&"',mobile='"&request.form("mobile")&"',company='"&request.form("company")&"',address='"&request.form("address")&"',accessip='"&Request.ServerVariables("REMOTE_ADDR")&"',detail='"&request.form("detail")&"' where username='" & username & "' and ans_company='st'")
'rs("bbs_userid") = ArrHttp(3)
'rs("username") = username
'rs("realname") = request.form("realname")
'rs("tel") = request.form("tel")
'rs("mobile") = request.form("mobile")
'rs("company") = request.form("company")
'rs("address") = request.form("address")
'rs("ans_company") = "st"
'rs("accessip")= Request.ServerVariables("REMOTE_ADDR")
'rs("detail") = request.form("detail")
'rs.update
else
rs.addnew
rs("bbs_userid") = ArrHttp(3)
rs("username") = username
rs("realname") = request.form("realname")
rs("tel") = request.form("tel")
rs("email") = request.form("email")
rs("mobile") = request.form("mobile")
rs("company") = request.form("company")
rs("address") = request.form("address")
rs("ans_company") = "st"
rs("accessip")= Request.ServerVariables("REMOTE_ADDR")
rs("detail") = request.form("detail")
rs.update
end if
rs.close
Set rs=Nothing
CloseDatabase
Response.Redirect "answer2.asp"
end if
Set rs=Nothing
CloseDatabase
%>
<% End if%>