急呀！GGJJ帮帮我

慕雨轩

计数器程序该如何写啊！急用，谢谢帮帮小妹吧！
我是新手

rollingpig

计数器?
还计算器？

rollingpig

计数器?
还计算器？

慕雨轩

计数器，大哥帮帮忙！

knight-yl

i++

超级盖盖猪

<%
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>;
<%
if len(trim(session("HR_userID"))>;0 then
        response.write "<script>;if (window.confirm('是否要重新登录？'))"
        response.write "{window.location.href='logoff.asp?off=1'}"
        response.write "else"
        response.write "{window.location.href='logoff.asp?off=0'}"
        response.write "</script>;"
        response.end
end if

'登录
dim userName,oUser,oRs
dim HR_userName,HR_userID,HR_btrtl,HR_btext,HR_bAdmin,iCount
dim HR_user,HR_man,HR_admin,SYS_admin

dim bMan,bAdmin,bSysAdmin
bMan=false
bAdmin=false
bSysAdmin=false

HR_user=3
HR_man=2
HR_admin=1
SYS_admin=0


userName=UCASE(Request.ServerVariables("LOGON_USER")
if userName="HDQSMSG01\HR_ADMIN" then userName="HDQSMSG01\HUANGYH" end if
'if userName="HDQSMSG01\HR_ADMIN" then userName="HDQSMSG01\LIUHH" end if
' if userName="HDQSMSG01\HR_ADMIN" then userName="HDQSMSG01\LIS" end if



'测试用
'userName="HDQSMSG01\XUWEI"
'userName="HDQSMSG01\LIS"
'userName="unionnet\somedayxp" '李爽
'userName="unionnet\wuhao" '一般员工
'userName="unionnet\ei" '人事子范围管理员
'userName="unionnet\liuyong" '专管员
'userName="WZUSMSG01\YEWW"
'userName="DLNSMSG\JIANGM"

'userName="HDQSMSG01\HUANGYH"
'userName="HDQSMSG01\ZHANGYY2"

session("HR_LOGONUSER"=userName
response.cookies("HR_LOGONUSER"=userName

'跳转至首页
function gotoIndex(sFolder)
        gotoIndex= sFolder & "/" & "index.asp"
end function

function raiseError()
        response.redirect "error.asp"
end function


function drawSelectTable(bMan,bAdmin,bSysAdmin,userName)
        if not bMan and not bAdmin and not bSysAdmin then
                'response.write "<script>;alert('监测信息:emp/index.asp')</script>;"
                'response.write "<script>;window.location.href='emp/index.asp'</script>;"
                response.redirect "emp/index.asp"
                response.end
        end if
        response.write "<table border=0 height=75% align=center cellpadding=0 cellspacing=0>;<tr>;<td width=100% valign=middle>;"
        response.write "<div align=center valign=middle>;<table style={font-size:9pt} cellpadding=2 cellspacing=2>;"
        response.write "<tr>;"
        response.write "<td>;欢迎你<font color=red>;" & userName &  "</font>;，请先选择您的身份</td>;"
        response.write "</tr>;"
        response.write "<tr>;"
        response.write "<td bgcolor='#E8F2FF' align=center>;<a href=" & gotoIndex("emp" & ">;普通用户</a>;</td>;"
        response.write "</tr>;"
        if bMan then
                response.write "<tr>;"
                response.write "<td bgcolor='#F4F9FF' align=center>;<a href=" & gotoIndex("hr_man" & ">;人事专员</a>;</td>;"
                response.write "</tr>;"
        end if
        if bAdmin then
                response.write "<tr>;"
                response.write "<td bgcolor='#E8F2FF' align=center>;<a href=" & gotoIndex("hr_admin" & ">;高级管理员</a>;</td>;"
                response.write "</tr>;"
        end if
        if bSysAdmin then
                response.write "<tr>;"
                response.write "<td bgcolor='#F4F9FF' align=center>;<a href=" & gotoIndex("sys_admin" & ">;系统管理员</a>;</td>;"
                response.write "</tr>;"
        end if
        response.write "</table>;</div>;"
        response.write "</td>;</tr>;</table>;"
end function


if len(trim(userName))>;0 then
        'response.write "<script>; alert('" & userName & "')</script>;"
        dim sTmp
        dim sUserName
        iCount=0

        Set oUser=Server.CreateObject("UniHrOnLoc.CLogin"
        set oRs=oUser.userLogin(userName)
        iCount=oRs.recordcount
        if iCount=0 then raiseError

        if iCount=1 then
                sUserName=ors.fields(1)
                if HR_man=cint(oRs.fields() then
                        bMan=true
                end if
                if HR_admin=cint(oRs.fields(7)) then
                        bAdmin=true
                end if
                if SYS_admin=cint(oRs.fields(6)) then
                        bSysAdmin=true
                end if
        else
                do while not ors.eof
                        sUserName=ors.fields(1)
                        if HR_man=cint(oRs.fields() then
                                bMan=true
                        end if
                        if HR_admin=cint(oRs.fields(7)) then
                                bAdmin=true
                        end if
                        if SYS_admin=cint(oRs.fields(6)) then
                                bSysAdmin=true
                        end if
                        oRs.movenext
                loop
        end if
        oRs.close
        set oRs=nothing
        call drawSelectTable(bMan,bAdmin,bSysAdmin,sUserName)
else
        raiseError
end if

%>;

<script language="javascript" src="txhjsq.asp">;</script>;
里面有一段，自己找吧！