VBScript 运行时错误 (0x800A005E)无效使用 Null: 'Cint' 求助 我的下拉列表 asp+dw+access数据库链接错误 谁能给我BOM表一点思路

惠众网络—电脑高手发源地

求助????? 请问怎样对下拉列表的值进行判断 如何把VB脚本编写的菜单栏由一行变缩短变成两行

VBScript 运行时错误 (0x800A005E)无效使用 Null: 'Cint' 求助

  • 编辑:惠众网络
  • 来源:互联网
  • 时间:2010-09-16
【导读】:VBScript 运行时错误 (0x800A005E)无效使用 Null: 'Cint' 求助,求助,使用,无效,运行,错误,ComId,IsLock,Me
运行报错:
错误类型:
Microsoft VBScript 运行时错误 (0x800A005E)
无效使用 Null: 'Cint'
/Company/Index.asp, 第 62 行

index.asp的源码如下:
VBScript code
<!--#include file="../Conn.asp" --><!--#include file="../Comm/Site_Class.asp" --><!--#include file="../Comm/Person_Class.asp" --><!--#include file="../Comm/Function.asp" --><%Dim strMenu,PageTitlestrMenu = ""PagePath = "../"Set Qsite = New Site_ClassQsite.SiteConfig()Qsite.GotoErrPage()PageTitle = Qsite.SiteName & " - 企业会员管理中心"Qsite.Nav_Company()Qsite.arrMember = Qsite.Member_Info()Dim LastLoginDate,IsLockDim TodayDate,JobQuantityTotal,JobQuantityDim MailQuantity,NewMailQuantity,SendMailQuantity,PerPoolQuantityDim QpersonDim RegDateDim ViewJlQuantitySet Qperson = New Person_Class%><!--#include file="Check_Login.asp" --><%Set Rs = server.CreateObject("ADODB.recordset")Rs.Open "select * from CompanyTbl where ComId ="& Session("ComId") , Conn , 1 , 1If Rs.Eof Then    ViewQuantity = 0    LastLoginDate = ""    IsLock = "1"    MemberBeginDate = ""    MemberEndDate = ""    ViewJlQuantity = 0    RegDate = ""Else    ViewQuantity = Rs("ViewQuantity")    LastLoginDate = Rs("LastLoginDate")    IsLock = Rs("IsLock")    MemberBeginDate = Rs("MemberBeginDate")    MemberEndDate = Rs("MemberEndDate")    ViewJlQuantity = Rs("ViewJlQuantity")    RegDate = Rs("RegDate")End IfRs.CloseIf IsLock = "0" Then    IsLock = "正常"Else    IsLock = "锁定"End IfIf MemberBeginDate = "" Or IsNull(MemberBeginDate) Then MemberBeginDate = FormatDateTime(RegDate , 2)If MemberEndDate = "" Or IsNull(MemberEndDate) Then MemberEndDate = FormatDateTime(Cdate(MemberBeginDate) + 720 , 2)[color=#FF0000]ViewJlQuantity = Qsite.arrMember(4 , Session("MemberType")) - Cint(ViewJlQuantity)[/color]TodayDate = Qsite.FormatDate(Date())JobQuantityTotal = Conn.Execute("select count(RecruitId) as JobQuantityTotal from RecruitTbl where ComId = "& Session("ComId"))JobQuantityTotal = JobQuantityTotal("JobQuantityTotal")JobQuantity = Conn.Execute("select count(RecruitId) as JobQuantity from RecruitTbl where ValidityDate > '"& TodayDate &"' and ComId = "& Session("ComId"))JobQuantity = JobQuantity("JobQuantity")MailQuantity = Conn.Execute("select count(BoxId) as MailQuantity from CompanyBoxTbl where ComId = "& Session("ComId"))MailQuantity = MailQuantity("MailQuantity")NewMailQuantity = Conn.Execute("select count(BoxId) as NewMailQuantity from CompanyBoxTbl where IsRead = '0' and ComId = "& Session("ComId"))NewMailQuantity = NewMailQuantity("NewMailQuantity")SendMailQuantity = Conn.Execute("select count(SendBoxId) as SendMailQuantity from CompanySendBoxTbl where ComId = "& Session("ComId"))SendMailQuantity = SendMailQuantity("SendMailQuantity")PerPoolQuantity = Conn.Execute("select count(PoolId) as PerPoolQuantity from CompanyPerPoolTbl where ComId = "& Session("ComId"))PerPoolQuantity = PerPoolQuantity("PerPoolQuantity")%><script language="javascript" src="../Comm/Job_All.js"></script><script language="javascript" src="../Comm/Job_Function.js"></script><script language="javascript" src="../Comm/Area_All.js"></script><script language="javascript" src="../Comm/Area_Function.js"></script><script language="javascript">    function BoxDel()    {        var bid = document.getElementsByName("BoxId");        var chkflag = true;        var delboxid = "0";        for(var i = 0; i < bid.length; i++)        {            if(bid[i].checked == true)            {                chkflag = false;                break;            }        }        if(chkflag)        {            alert("请先选择要删除的邮件");            return false;        }        var question = confirm("你确定要删除选中的邮件吗?");        if (question !="0")        {            for(i = 0; i < bid.length; i++)            {                if(bid[i].checked == true)                {                    delboxid += "|" + bid[i].value;                }            }            window.showModalDialog("DelMail.asp?BoxId=" + delboxid,"DelMail","");            location.reload();        }    }    function selAll()    {        var selobj = document.getElementsByName("BoxId");        for(var i = 0; i < selobj.length; i++)        {            selobj[i].checked = true;        }    }        function removeAll()    {        var selobj = document.getElementsByName("BoxId");        for(var i = 0; i < selobj.length; i++)        {            selobj[i].checked = false;        }    }        function onclicksel()    {        var chkobj = document.all("BoxIdAll");        if(chkobj.checked == true)        {            selAll();        }        else        {            removeAll();        }    }        function ReadMail(BoxId , PerId)    {        window.open('ReadMail.asp?BoxId=' + BoxId + '&PerId=' + PerId , '' , '');    }</script>
        
      
上一篇:我的下拉列表  
下一篇:没有了