52,798
社区成员
发帖
与我相关
我的任务
分享请教 "xmlhttp.readyState 为空或不是对象" 的问题
var xmlHttp
function showCustomer(str,id,page)
{
var str;
var id;
var page;
var xmlHttp=GetXmlHttpObject();
if (xmlHttp==null)
{
alert ("您的浏览器不支持AJAX！");
return;
}
var url=page;
url=url+"?q="+str;
url=url+"&sid="+Math.random();
xmlHttp.onreadystatechange=function(){stateChanged(id);};
xmlHttp.open("POST",url,true);
xmlHttp.send(null);
}
function stateChanged(strInW)
{
var strInW;
if (xmlHttp.readyState==4)
{
alert(xmlHttp.responseText);
document.getElementById(strInW).innerHTML=xmlHttp.responseText;
}
}
function GetXmlHttpObject()
{
var xmlHttp=null;
try
{
// Firefox, Opera 8.0+, Safari
xmlHttp=new XMLHttpRequest();
}
catch (e)
{
// Internet Explorer
try
{
xmlHttp=new ActiveXObject("Msxml2.XMLHTTP");
}
catch (e)
{
xmlHttp=new ActiveXObject("Microsoft.XMLHTTP");
}
}
return xmlHttp;
}
就是这代码。开始还好好的。最后就出问题了。而且有时可用，有时又不行。请教是不是哪里写错了呢？
...全文
请发表友善的回复…
发表回复
Go 旅城通票 2009-07-08
- 打赏
- 举报
没注意看~~~
你的showCustomer中申明了另外一个xmlHttp变量了，并非是全局的xmlHttp变量
你的showCustomer中申明了另外一个xmlHttp变量了，并非是全局的xmlHttp变量
var xmlHttp//=============这里是全局变量
function showCustomer(str,id,page)
{
var str;
var id;
var page;
//var xmlHttp=GetXmlHttpObject();//=============加var申明后这里是局部变量了
//=====>
xmlHttp=GetXmlHttpObject();//=========这样才是全局变量
if (xmlHttp==null)
{
alert ("您的浏览器不支持AJAX！");
return;
}
var url=page;
url=url+"?q="+str;
url=url+"&sid="+Math.random();
xmlHttp.onreadystatechange=function(){stateChanged(id);};
xmlHttp.open("POST",url,true);
xmlHttp.send(null);
}
function stateChanged(strInW)
{
var strInW;
if (xmlHttp.readyState==4)//你这里的xmlHttp指向的是全局变量
{
alert(xmlHttp.responseText);
document.getElementById(strInW).innerHTML=xmlHttp.responseText;
}
}
tangh2177 2009-07-08
- 打赏
- 举报
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>index</title>
<!--#include file=conn.asp-->
<link href="commom/css/biaot.css" rel="stylesheet" type="text/css" />
<script type="text/javascript" src="commom/ajaxScript.js" language="jscript"></script>
</head>
<body onfocus="showCustomer('1','txtHint','getinfo.asp')">
<%
if Trim(Session("admin"))="" then
%>
<form id="form1" name="form1" method="post" action="goin.asp?whereIamGo=gotoindex">
<table width="95%" border="1">
<tr>
<td width="169">用户登陆名：</td>
<td width="111">
<select name="busername" id="busername">
<%
strs="select companyPersonName from companyTable "
rss.open strs,conns,1,3
while not rss.eof
PersonNames=Trim(rss("companyPersonName"))
Response.Write("<option value='"&PersonNames&"'>"&PersonNames&"</option>")
rss.movenext
wend
%>
</select> </td>
<td width="89">密码： </td>
<td width="142"><input name="bpass" type="password" id="bpass" size="12" /></td>
<td width="72"><input type="submit" name="Submit" value="登陆" /></td>
<td width="98"><a href="helpDoc/find_secert.asp?users=findsec">密码找回</a></td>
<td width="49" > </td>
<td width="144" > </td>
</tr>
</table>
</form>
<div align="center">
<%
else
Response.Write(Session("admin")) %>
你好 现在的时间是:
<%
Response.Write( now() &" ")
Response.Write(weekdayname(weekday(now))&" ")
Response.Write("<a href='commom/logout.asp'> 退出登录</a> ")
end if
%>
<
<div align="center" id="txtHint"></div>
/div>
<table width="100%" border="1" cellspacing="1" cellpadding="1">
<form id="form2" name="form2" method="post" action="addinfo.asp">
<tr>
<td colspan="2" align="center" valign="top"> </td>
<td width="12%">添加值班情况</td>
<td width="25%"><textarea name="information" cols="28" rows="0" id="information"></textarea></td>
<td width="9%"><input type="submit" name="Submit2" value="添加" /></td>
</tr>
</form>
</table>
</body>
</html> 这个是主页 index.asp
<!--#include file=conn.asp-->
<% response.expires=-1
Response.ContentType = "text/html"
Response.Charset = "GB2312"
%>
<table width="95%" border="1">
<tr>
<td colspan="7"><div align="center"><img src="images/logo_pic.jpg" alt="logo" width="737" height="162" /></div></td>
</tr>
<tr>
<td width="13%"><a href="w/second.asp">维修作业</a></td>
<td width="15%"><a href="c/caiChoose.asp">材料</a></td>
<td width="14%"><a href="jz/jzSel.asp">结账</a></td>
<td width="17%"><a href="helpDoc/sel.asp">车辆查询</a></td>
<td width="14%"><a href="helpDoc/looksMySelf.asp">人员查询</a></td>
<td width="17%"><a href="helpDoc/adSelf.asp">操作</a></td>
<td width="10%"> </td>
</tr>
</table>
<table width="95%" border="1">
<tr>
<td colspan="2"><div align="center">最新报修车辆</div></td>
<td colspan="3"><div align="center">最近未核算车辆</div></td>
</tr>
<tr>
<td colspan="2" valign="top"><table width="100%" border="1" cellspacing="1" cellpadding="1">
<tr>
<td width="25%">报修号</td>
<td width="20%">车牌</td>
<td width="19%">进厂时间</td>
<td width="18%">车型</td>
<td width="18%">客户电话</td>
</tr>
<% '报修车辆
strsql="select top 10 ids,paizhaoNum24,indate,chexing12,phones from cheinfo where inorout='0' order by ids desc"
rss.open strsql,conns,1,1
while not rss.eof
bxnum=Trim(rss("ids"))
paizhao=Trim(rss("paizhaoNum24"))
jinchangTimes=Trim(rss("indate"))
jinchangTime=FormatDateTime(jinchangTimes,vbShortTime)
chexing=Trim(rss("chexing12"))
kehuPhone=Trim(rss("phones"))
response.Write("<tr>")
Response.Write( "<td>"&bxnum&"</td>")
Response.Write( "<td><a href='w/choose.asp?getcarid="&paizhao&"&bx=bx'>"&paizhao&"</a></td>")
Response.Write( "<td>"&jinchangTime&"</td>")
Response.Write( "<td>"&chexing&"</td>")
Response.Write( "<td>"&kehuPhone&"</td>")
Response.Write( "</tr>")
rss.movenext
wend
rss.close
%>
</table></td>
<td colspan="3" valign="top"><table width="100%" border="1" cellspacing="1" cellpadding="1">
<tr>
<td>报修号</td>
<td>车牌</td>
<td>操作</td>
</tr>
<% '核算车辆
set rssH= Server.CreateObject("ADODB.recordset")
strH="select top 10 feiid,fPaizhao,jforno from feiyongInfo where hesuanPer='0' order by feiid desc"
rssH.open strH,conns,1,1
while not rssH.eof
fid=Trim(rssH("feiid"))
paiz=Trim(rssH("fPaizhao"))
isJf=Trim(rssH("jforno"))
response.Write("<tr>")
Response.Write( "<td>"&fid&"</td>")
Response.Write( "<td>"&paiz&"</td>")
if isJf<>"7" then
Response.Write( "<td><a href='w/choose.asp?getcarid="&paiz&"&bx=bx'>车辆核算</a></td>")
else '如果已经退休
Response.Write( "<td>车辆已经退修</td>")
end if
Response.Write( "</tr>")
rssH.movenext
wend
rssH.close
%>
</table>
<
这个是调用页面 getinfo.asp
conn.asp
内容是 set rss=...
set conns=...
请指教 ！
Go 旅城通票 2009-07-07
- 打赏
- 举报
你怎么使用的？？
看代码是没什么问题的
看代码是没什么问题的
