'**************************************************

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

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