<% 
'//查询方法 
'//----------------------------(1)------------------------------- 
Set RsWorkUserInfo = Server.CreateObject("ADODB.RecordSet") 
StrSql = "Select UsersId, LoginName, UserName, Password" 
StrSql = StrSql & " From Users" 
StrSql = StrSql & " Where UsersId=" & SqlStr(tUserID) 
If RsWorkUserInfo.State = 1 Then 
RsWorkUserInfo.Close 
End If 
RsWorkUserInfo.Open StrSql,Conn,1,1 
If Not RsWorkUserInfo.Eof Then 
LoginName = RsWorkUserInfo("LoginName") 
UserName = RsWorkUs...[ 查看全文 ]