高手帮忙看看这是什么错误呀>?怎么解决!
各位高手帮小弟指点一二呀,老弟超级菜鸟!我网站上的一个插件现在不知道为什么出现这种错误:
技术信息（用于支持人员）
错误类型：
Microsoft VBScript 运行时错误 (0x800A01F4)
变量未定义: 'stats'
/z_gp_Const.asp, 第 55 行
我找上到上面那个变量了!
问题点数：20、回复次数：14Top
1 楼itzhiren（itzhiren）回复于 2005-11-03 13:01:25 得分 0
没有定义这个变量Top
2 楼cd520（尖叫男孩）回复于 2005-11-03 13:06:41 得分 0
在哪定义呀?我不知道呀?Top
3 楼cd520（尖叫男孩）回复于 2005-11-03 13:09:29 得分 0
我以前都能用的!现在不知道为什么突然出了这个问题!Top
4 楼cd520（尖叫男孩）回复于 2005-11-03 13:12:09 得分 0
<!--#include file="z_gp_Function.asp"-->
<head>
<link rel=stylesheet href='images/joekoe.css' type=text/css>
</head>
<%Dim ChengJiaoNum,ChengJiaoMoney,Gupiao_Setting,mairunum,maichunum
dim totalzs,totaldq,zhzs,content,color
Dim Trade_Setting
Dim StopGPReadme
Dim Custom_Setting '今日成交笔数,今日成交金额,股票设置
Dim MyUserID,MyCash,MyBiShu,MyStats '用户ID,可用的资金,本日买卖笔数,状态
Dim HaveAccount '是否有股票账号
Dim errmess,sucmess,rUrl
if login_username="" then
response.write "<title>股票交易所-提示讯息</title><style type=text/css>td { font-family: 宋体; font-size: 9pt}</style>"
errmess="<li>您还没有登录，请登录后再来！"
call endinfo(0)
response.end
end if
REM 读取设置讯息
set rs=stock_conn.execute("select top 1 * from [GupiaoConfig] order by id")
if datediff("d",rs("TodayDate"),Now())<>0 then
stock_conn.execute("update [stock] set MaiRubishu=0,MaiChubishu=0,chengjiaoliang=0")
stock_conn.execute("update [KeHu] set JinRiMaiRu=0,JinRiMaiChu=0")
stock_conn.execute("update [GupiaoConfig] set TodayBuy=0,TodaySale=0,TodayTotal=0,TodayDate=date()") '
mairunum=0
maichunum=0
ChengJiaoNum=0
ChengJiaoMoney=0
else
mairunum=rs("TodayBuy")
maichunum=rs("TodaySale")
ChengJiaoNum=rs("TodayBuy")+rs("TodaySale")
ChengJiaoMoney=rs("TodayTotal")
end if
StopGPReadme=rs("StopReadme")
Gupiao_Setting=split(rs("Gupiao_Setting"),",")
Gupiao_Setting(0)=CLNG(Gupiao_Setting(0))
Gupiao_Setting(1)=CLNG(Gupiao_Setting(1))
Gupiao_Setting(2)=CLNG(Gupiao_Setting(2))
Gupiao_Setting(5)=CLNG(Gupiao_Setting(5))
Gupiao_Setting(6)=CLNG(Gupiao_Setting(6))
Trade_Setting=split(rs("Trade_Setting"),"|")
Trade_Setting(0)=CLNG(Trade_Setting(0))
Trade_Setting(1)=CLNG(Trade_Setting(1))
Trade_Setting(2)=CLNG(Trade_Setting(2))
rs.close
Totalzs=stock_conn.execute("select sum(zuoshoupan) from [stock] where dangqianjiage>0")(0)
Totaldq=stock_conn.execute("select sum(dangqianjiage) from [stock] where dangqianjiage>0")(0)
zhzs=round(totaldq/totalzs,5)
if not (format_power(login_mode,0)="admin") then
if Gupiao_Setting(0)=0 then
stats="交易大厅"
call nav(0,0,0,2)
call head_var(0,0,GuPiao_Setting(4),"z_gp_gupiao.asp")
call CloseGuPiao(0)
response.end
elseif Gupiao_Setting(2)=1 then '股票 是否 收市
if hour(time)<CLNG(split(Gupiao_Setting(3),"||")(0)) or hour(time)>=CLNG(split(Gupiao_Setting(3),"||")(1)) then
stats="交易大厅"
call nav(0,0,0,2)
call head_var(0,0,GuPiao_Setting(4),"z_gp_gupiao.asp")
call CloseGuPiao(1)
response.end
end if
end if
end if
if Gupiao_Setting(7)=1 and (not (format_power(login_mode,0)="admin")) then
DoReflashPage=false
ScriptName=lcase(request.ServerVariables("PATH_INFO"))
if trim(Gupiao_Setting(7))<>"" then
SplitReflashPage=split(Gupiao_Setting(7),"|")
for i=0 to ubound(SplitReflashPage)
if instr(scriptname,SplitReflashPage(i))>0 then
DoReflashPage=true
exit for
end if
next
end if
if (not isnull(session("GP_ReflashTime"))) and Gupiao_Setting(6)>0 and DoReflashPage then
if DateDiff("s",session("GP_ReflashTime"),Now())<Gupiao_Setting(6) then
stats="交易大厅"
call nav()
call head_var(0,0,GuPiao_Setting(4),"z_gp_gupiao.asp")
call CloseGuPiao(2)
response.end
else
session("GP_ReflashTime")=Now()
end if
elseif isnull(session("GP_ReflashTime")) and Gupiao_Setting(6)>0 and DoReflashPage then
Session("GP_ReflashTime")=Now()
end if
end if
REM 读取用户讯息
set rs=stock_conn.execute("select SuoDing,ZiJin,JinRiMaiRu,JinRiMaiChu,id,ZongZiJin from [KeHu] where ZhangHao='"&login_username&"'" )
if rs.eof and rs.bof then
HaveAccount=false
MyCash=0
MyBiShu=0
MyUserID=0
elseif rs(0)=1 then
rs.close
response.write "<title>"&Gupiao_Setting(4)&"-账号被冻结</title><style type=text/css>td { font-family: 宋体; font-size: 9pt}</style>"
errmess="<li>您的股票账户被冻结，请与管理员联系！"
call endinfo(0)
response.end
elseif rs(0)=2 then
rs.close
response.write "<title>"&Gupiao_Setting(4)&"-账号被清除</title><style type=text/css>td { font-family: 宋体; font-size: 9pt}</style>"
errmess="<li>您因违规操作，股票账户被删除，请与管理员联系！"
call endinfo(0)
response.end
else
HaveAccount=True '是否已经开户
MyCash=rs(1) '可用的资金
MyBiShu=rs(2)+rs(3) '今日买卖笔数
MyUserID=rs(4) 'UserID
end if
rs.close
dim KaiHu_Setting
KaiHu_Setting=stock_conn.execute("select top 1 KaiHu_Setting from GupiaoConfig order by id")(0)
KaiHu_Setting=split(KaiHu_Setting,"|")
KaiHu_Setting(0)=CLNG(KaiHu_Setting(0))
KaiHu_Setting(1)=CLNG(KaiHu_Setting(1))
KaiHu_Setting(2)=CLNG(KaiHu_Setting(2))
KaiHu_Setting(3)=CLNG(KaiHu_Setting(3))
KaiHu_Setting(4)=CLNG(KaiHu_Setting(4))
KaiHu_Setting(5)=CLNG(KaiHu_Setting(5))
sub DispPageNum(CurPage, PageCount, URLPrefix, URLPostfix)
dim p,ii
if PageCount=0 then
response.write "无 "
else
p=(CurPage-1) \ 10
if CurPage=1 then
response.write "<SPAN class=pagenumstatic><font face=webdings >9</font></SPAN> "
else
response.write "<SPAN class=pagenum><a href="&URLPrefix&"1"&URLPostfix&" title=首页><font face=webdings>9</font></a></SPAN> "
end if
if p>0 then response.write "<SPAN class=pagenum><a href="&URLPrefix&Cstr(p*10)&URLPostfix&" title=上十页><font face=webdings>7</font></a></SPAN> "
response.write "<b>"
for ii=p*10+1 to P*10+10
if ii=CurPage then
response.write "<SPAN class=pagenumstatic><B><font color=""#0000ff"">"+Cstr(ii)+"</font></B></SPAN> "
else
response.write "<SPAN class=pagenum><a href="&URLPrefix&Cstr(ii)&URLPostfix&">"+Cstr(ii)+"</a></SPAN> "
end if
if ii=PageCount then exit for
next
if ii>p*10+10 then ii=ii-1
response.write "</b>"
if ii<PageCount then response.write "<SPAN class=pagenum><a href="&URLPrefix&Cstr(ii+1)&URLPostfix&" title=下十页><font face=webdings>8</font></a></SPAN> "
if CurPage=PageCount then
response.write "<SPAN class=pagenumstatic><font face=webdings color==""#0000ff"">:</font></SPAN>"
else
response.write "<SPAN class=pagenum><a href="&URLPrefix&Cstr(PageCount)&URLPostfix&" title=尾页><font face=webdings>:</font></a></SPAN> "
end if
end if
end sub%>
上面是全部的代码,我都有定义呀?怎么还会出错了,帮忙看下,急急!Top
5 楼monkeyhjl（爬上墙头等红杏）回复于 2005-11-03 13:20:06 得分 0
我怎么没有看到你定义了？
把Dim errmess,sucmess,rUrl改成
Dim errmess,sucmess,rUrl,statsTop
6 楼cd520（尖叫男孩）回复于 2005-11-03 13:29:03 得分 0
改成那种后就出现这个错误了!
错误类型：
Microsoft VBScript 运行时错误 (0x800A01F4)
变量未定义: 'nav'
/z_gp_Const.asp, 第 56 行Top
7 楼rob123（萝卜[http://www.robchen.cn]）回复于 2005-11-03 13:43:59 得分 0
建议打开option explicit开关，定义变量用dim,养成好习惯。Top
8 楼itzhiren（itzhiren）回复于 2005-11-03 13:48:09 得分 0
Dim errmess,sucmess,rUrl,stats
改成
Dim errmess,sucmess,rUrl,stats,navTop
9 楼itzhiren（itzhiren）回复于 2005-11-03 13:48:36 得分 0
哪一个变量没有定义就把哪一个变量加上就是了Top
10 楼cd520（尖叫男孩）回复于 2005-11-03 13:53:34 得分 0
这下出来的是另一种情况了!
错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配
/z_gp_Const.asp, 第 56 行
Top
11 楼cd520（尖叫男孩）回复于 2005-11-03 13:54:04 得分 0
option explicit开关 这个在哪打开呀?Top
12 楼cd520（尖叫男孩）回复于 2005-11-04 13:17:36 得分 0
有没有人告诉我呀?万分感谢啦Top
13 楼itzhiren（itzhiren）回复于 2005-11-04 13:35:55 得分 0
错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配
/z_gp_Const.asp, 第 56 行
56行是哪一行？Top
14 楼jianxuan（jianxuan）回复于 2005-11-04 13:59:19 得分 0
这个变量定义开关很可能是你在包含文件中打开的。Top
