<%
act = request("act")
if act="mod" then
if session("usersn")="" then
response.redirect("member1.asp")
end if
set objDBConn = Server.CreateObject("ADODB.Connection")
objDBConn.Provider = ConnectionProvider
objDBConn.Open ConnectionString
set rs = objDBConn.execute("select * from member where sn="&session("usersn"))
if rs.eof=false then
name = Outputstr(rs("name"))
nickname = Outputstr(rs("nickname"))
gender = Outputstr(rs("gender"))
birthday = Outputstr(rs("birthday"))
BYY = year(birthday)
BMM = month(birthday)
BDD = day(birthday)
company = Outputstr(rs("company"))
jobtitle = Outputstr(rs("jobtitle"))
mphone = Outputstr(rs("mphone"))
email = Outputstr(rs("email"))
userid = Outputstr(rs("userid"))
passwd = Outputstr(rs("passwd"))
end if
end if
%>
