仿ajax实例
关键词：ajax实例，仿ajax实例，ajax例子，ajax示范
首页代码
<script language="javascript">
function GethukouCapital(capitalid)
{
document.frames["hukoucapitalframe"].location.replace("Teamlistajax.asp?id="+capitalid);
}
</script>
<iframe height=0 width=0 src="" id="hukoucapitalframe"></iframe>
<%
dim TeamNum
TeamNum=request("TeamNum")
response.Write TeamNum
pmember_hukoucapitalid=trim(request("load100"))
response.Write pmember_hukoucapitalid
%>
<form action="" method="post">
<input type="radio" name="statenum" value="0" >普通用户<input type="radio" name="statenum" value="1" onClick="GethukouCapital(1)" >规划阶段<input type="radio" name="statenum" value="2" onClick="GethukouCapital(2)" >训练阶段<input type="radio" name="statenum" value="3" onClick="GethukouCapital(3)">创业阶段
<span id="load100">xxxxxxx</span>
<span id="ccapital">
</span>
<input type="submit" value="确定">
</form>
调用代码
<!--#include file="inc/conn1.asp"-->
<%
dim sql1,rs1,id,aa
id=request.QueryString("id")
sql1="select * from team where teamClasid="&id
set rs1=server.CreateObject("adodb.recordset")
rs1.open sql1,Conn_User,1,1
response.Write rs1.recordcount
if not rs1.eof and not rs1.eof then
do while not rs1.eof
aa=aa+"<option value="&rs1("id")&">"&rs1("tenamName")&"</option>"
rs1.movenext
loop
else
aa="<option value=0>请添加</option>"
end if
rs1.close
response.Write aa
%>
<script>
parent.ccapital.innerHTML="";
parent.load100.innerHTML="<select name=TeamNum><%=aa%></select>";
</script>