Asp常用通用函数之检测用户名和密码是否正确

jsedy

'函数名：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

文章来源(WEB开发技术知识库)：http://www.cn-web.com/cnweb/40/357/article/