ASP自定义函数库

ASP自定义函数库

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

'**************************************************
  '函数ID：0048[检测用户名和密码是否正确]
  '函数名：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