如题,是否有高手指教一下,我比较笨,
最好能提供以下例程:Function userinfo(userid,num)连接数据库:地址192.168.0.88 用户 sa  密码 123456 数据库 testdb根据传进来的userid查找数据表,然后把用户字段aa累加数字num,最后返回是否update成功End Function 
然后在ASP中建立对象,调userinfo函数

解决方案 »

  1.   

    Dim rp As Response
    Dim rq As Request
    Dim ap As Application
    Dim sr As Server
    Dim sn As Session
    Public Sub OnStartPage(mysc As ScriptingContext)
         Set rp = mysc.Response
         
         Set rq = mysc.Request
         
         Set sr = mysc.Server
         
         Set ap = mysc.Application
         
         Set sn = mysc.Session
    End Sub
    Public Sub OnEndPage()
         Set rp = Nothing     Set rq = Nothing     Set sr = Nothing     Set ap = Nothing     Set sn = Nothing    End SubPublic Function loginInit(strUname, strPwd)
    Dim loginSQL As String
    Dim loginrec As ADODB.Recordset
    Dim loginconn As First.Class2Set loginconn = New First.Class2
    Set loginrec = New ADODB.RecordsetloginSQL = "SELECT * FROM Employees WHERE EmployeeName='" & strUname & "' and pwd='" & strPwd & "'"loginrec.Open loginSQL, loginconn.connss, 1, 1
    If Not loginrec.EOF Then
    rp.Cookies("registerID") = loginrec("employeename") '雇员编码
    rp.Cookies("empid") = loginrec("empid")           '员工编码
    rp.Cookies("mdiscount") = loginrec("mdiscount")   '墓位折扣
    rp.Cookies("tdiscount") = loginrec("Tdiscount")
    rp.Cookies("fdiscount") = loginrec("Fdiscount")
    rp.Cookies("commsales") = loginrec("commsales")
    rp.Cookies("cetrsales") = loginrec("cetrsales")
    rp.Cookies("TmSetting") = loginrec("TmSetting")
    rp.Cookies("MdDesigner") = loginrec("MdDesigner")
    rp.Cookies("OrChecker") = loginrec("OrChecker")
    rp.Cookies("managers") = loginrec("managers")
    rp.Cookies("empname") = loginrec("employeename")
    rp.Cookies("accounts") = loginrec("accounts")
    rp.Cookies("bussiness") = loginrec("bussiness")
    rp.Cookies("gridsales") = loginrec("gridsales")
    rp.Redirect "main.asp"
    Else
    rp.Write "</br></br><center>用户名或密码错误!</br><p>"
    rp.Write "<a href='default.asp'>" & "返回重新登录</a>"
    End Ifloginrec.CloseEnd FunctionPublic Sub logout()
    '用户组
    rp.Cookies("commsales") = "False"
    rp.Cookies("cetrsales") = "False"
    rp.Cookies("TmSetting") = "False"
    rp.Cookies("MdDesigner") = "False"
    rp.Cookies("OrChecker") = "False"
    rp.Cookies("manager") = "False"
    rp.Cookies("accounts") = "False"
    rp.Cookies("bussiness") = "False"
    rp.Cookies("gridsales") = "False"
    '基本信息组
    rp.Cookies("empname") = ""
    '折扣组
    rp.Cookies("mdiscount") = ""
    rp.Cookies("tdiscount") = ""
    rp.Cookies("fdiscount") = ""rp.Redirect "welcome.asp"
    End Sub
      

  2.   

    根据传进来的userid查找数据表,然后把用户字段aa累加数字num,最后返回是否update成功asp里怎么写,基本上vb里怎么写,你哪不懂的?
      

  3.   

    步骤:
    在VB中新建个组建工程,然后变写一个添家数据库的函数,编译生成.dll文件。在利用Asp引用.dll文件,最后用Asp代码调用这个函数就可以
      

  4.   

    哦,你在引用.dll时,还需要注册一下