87,910
社区成员
发帖
与我相关
我的任务
分享
<select name="pid" id="pid1">
<option value='2'>Loading</option>
</select>
<script type="text/javascript">
function GetUrlParms()
{
var args=new Object();
var query=location.search.substring(1);//获取查询串
var pairs=query.split("&");//在逗号处断开
for(var i=0;i<pairs.length;i++)
{
var pos=pairs[i].indexOf('=');//查找name=value
if(pos==-1) continue;//如果没有找到就跳过
var argname=pairs[i].substring(0,pos);//提取name
var value=pairs[i].substring(pos+1);//提取value
args[argname]=unescape(value);//存为属性
}
return args;
}
window.onload=function(){
var args = new Object();
args = GetUrlParms();
var Pid=args["pid"];
if(Pid==='undefined')
selec(2);
else
selec(Pid);
}
function selec(i){
if (window.XMLHttpRequest)
{// code for IE7+, Firefox, Chrome, Opera, Safari
xmlhttp=new XMLHttpRequest();
}
else
{// code for IE6, IE5
xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");
}
xmlhttp.onreadystatechange=function()
{
if (xmlhttp.readyState==4 && xmlhttp.status==200)
{document.getElementById("pid1").innerHTML=xmlhttp.responseText;alert(document.getElementById("pid1").innerHTML);}
}
//xmlhttp.setRequestHeader("Content-Type","text/xml;charset=gb2312");
//xmlhttp.setRequestHeader("Content-Type","application/x-www-form-urlencoded");
xmlhttp.open("get","inc/headSelect.asp?pid="+(i>=0?i:-1),true);
xmlhttp.send("");s
}
</script>
<%
Response.Addheader "Content-Type","text/html; charset=gb2312"
dim pid
pid=request.QueryString("pid")
set rss=server.CreateObject("adodb.recordset")
sql="select id,title from data where parentid=1 order by id asc"
rss.open sql,conn,3,1
if not rss.eof and not rss.bof then
first=rss.GetRows()
else
end if
rss.close
set rss=nothing
dim ssss
'if pid=-1 then ssss=" selected=""selected"""
'response.Write("<option value='-1'>查询所有</option>"&Chr(10))
for i=0 to ubound(first,2)
if(first(0,i)=cint(pid)) then
ssss=" selected=""selected"""
else
ssss=""
end if
response.Write("<option value="""&first(0,i)&""" "&ssss&">"&first(1,i)&"</option>"&Chr(10))
next
%>