<%
Call System_Initialize()
Call GetUser()
Dim objRS,i,j
Set objRS=Server.CreateObject("ADODB.Recordset")
objRS.CursorType = adOpenKeyset
objRS.LockType = adLockReadOnly
objRS.ActiveConnection=objConn
If CInt(Request.Form("userid"))>0 Then
Response.Cookies("username") = vbsescape(Users(CInt(Request.Form("userid"))).Name)
Response.Cookies("username").Expires = DateAdd("y", 1, now)
Response.Cookies("username").Path = "/"
Response.Cookies("password") = Users(CInt(Request.Form("userid"))).PassWord
Response.Cookies("password").Expires = DateAdd("y", 1, now)
Response.Cookies("password").Path = "/"
Response.Redirect "zb_system/cmd.asp?act=admin "
End If
objRS.Source="SELECT * FROM [blog_Member] WHERE [mem_Level]<5"
objRS.Open()
If (Not objRS.bof) And (Not objRS.eof) Then
For i=1 To objRS.RecordCount
Response.Write "
"+ZVA_User_Level_Name(objRS("mem_level"))+":"+objRS("mem_Name")+"
"
objRS.MoveNext
If objRS.eof Then Exit For
Next
End If
objRS.Close()
Call System_Terminate()
%>