检测用户名和密码是否正确

2006-6-30 8:01:06　　作者：模板天下收集整理　　来源：未知　网友评论 0 条　论坛

　　'**************************************************
'检测用户名和密码是否正确]
'函数名：DecodeCookie
'作  用：检测用户名和密码是否正确
'参  数：ConnStrs    ---- 数据库链接字串
'参  数：Tabnamestr  ---- 数据表名称
'参  数：Tumc        ---- 用户名称字段名称
'参  数：Cumc        ---- 用户名称
'参  数：TCumm       ---- 用户密码字段名称
'参  数：Cumm        ---- 用户密码
'参  数：TUid        ---- 用户ID（标识）字段名称
'返回值：检测成功返回 用户ID 否则 空字符串
'示  例：
'**************************************************
Public Function CKUSMCMM(ByVal ConnStrs,ByVal Tabnamestr,ByVal Tumc,ByVal Cumc,ByVal Tumm,ByVal Cumm,ByVal TUid)
  CKUSMCMM=""
  On Error GoTo 0
  On Error Resume Next
  Set sfu_Conn=server.createobject("ADODB.Connection")
  Set sfu_Rs  =server.createobject("ADODB.Recordset")
  sfu_Conn.open ConnStrs
  sfu_sql_str="select " & TUid & "," & Tumc & "," & Tumm & " from " & Tabnamestr
  sfu_Rs.open sfu_sql_str,sfu_Conn,1,1
  If sfu_Rs.RecordCount >0 Then
     Do While Not sfu_Rs.Eof
        If (sfu_Rs(Tumc)=Cumc) AND (exmw(sfu_Rs(Tumm))=Cumm) Then
           CKUSMCMM=sfu_Rs(TUid)
           Exit Do
        End If
        sfu_Rs.MoveNext
     Loop
  End If
  sfu_Rs.Close
  sfu_Conn.Close
  Set sfu_Rs = Nothing
  Set sfu_Conn=Nothing
  On Error GoTo 0
End Function

>> 相关文章