<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% webid = "member" webtitle = "Member Center" user = session("session-users") umame = session("member_name") %> <% if request("as")="out" then session("session-users") = "" session("member_name") = "" end if title="Member login" myuser = trim(request.Form("v_user")) mypwd = trim(request.Form("v_pass")) uname = request("u") 'getcode=request.Form("getcode") if myuser <> "" and mypwd <> "" then sqluser = "select * from cuser where c_user='"&myuser&"'" set rsuser = conn.execute ( sqluser ) if rsuser.bof and rsuser.eof then response.Write("") else if rsuser("c_user") = myuser then if rsuser("c_pass") <> mypwd then response.write("") else if rsuser("c_sheng") <> true then response.write("") else session("session-users") = rsuser("c_user") session("login-admin") = true session("member_name")=rsuser("c_name") end if end if end if end if rsuser.close set rsuser = nothing end if %>

<%= webtitle %>

<% If session("session-users")<>"" Then %>

Hello, <%= session("member_name") %> [ Sing out ], Now you can see only members can see products!

<%if request("zid")<>"" then %>
<%else%>
<% end if %> <% Else %>
<%= title %>
Username:     
Password:     
Not yet a Member? Become a JUNWELL Member NOW!
  
<% End If %>