如题,是否有高手指教一下,我比较笨,
最好能提供以下例程:Function userinfo(userid,num)连接数据库:地址192.168.0.88 用户 sa 密码 123456 数据库 testdb根据传进来的userid查找数据表,然后把用户字段aa累加数字num,最后返回是否update成功End Function
然后在ASP中建立对象,调userinfo函数
最好能提供以下例程:Function userinfo(userid,num)连接数据库:地址192.168.0.88 用户 sa 密码 123456 数据库 testdb根据传进来的userid查找数据表,然后把用户字段aa累加数字num,最后返回是否update成功End Function
然后在ASP中建立对象,调userinfo函数
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
在VB中新建个组建工程,然后变写一个添家数据库的函数,编译生成.dll文件。在利用Asp引用.dll文件,最后用Asp代码调用这个函数就可以