是啊,你单击后,传递参数到ajax打开的后台程序的url,然后后台程序执行查询,返回结果xml数据
前台js查分xml数据,然后按各个项分填入你对应资料中的input。
前台js:
后台程序:
<%
userid=request.QueryString("userid")
'userid="kanggemed"
if userid="" then
Response.ContentType="text/xml"
response.Write " "
response.Write " "
response.Write " "
response.Write " IsError "
response.Write " "
response.Write " "
else
sql="select Member_TrueName,Member_Address,Member_Person,Member_Tel,Member_MTel,Member_Fax,Member_Post,Member_Mail,Member_Web,Member_QQ from users where username='"&userid&"'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof then
Response.ContentType="text/xml"
response.Write " "
response.Write " "
response.Write " "
response.Write " IsKong "
response.Write " "
response.Write " "
else
Response.ContentType="text/xml"
response.Write " "
response.Write " "
response.Write " "
response.Write " IsTure "
response.Write " "&rs("Member_TrueName")&" "
response.Write " "&rs("Member_Address")&" "
response.Write " "&rs("Member_Tel")&" "
response.Write " "&rs("Member_Fax")&" "
response.Write " "&rs("Member_Person")&" "
response.Write " "&rs("Member_MTel")&" "
response.Write " "&rs("Member_Post")&" "
response.Write " "&rs("Member_Web")&" "
response.Write " "&rs("Member_Mail")&" "
response.Write " "&rs("Member_QQ")&" "
response.Write " "
response.Write " "
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>