% RESPONSE.EXPIRES = 0 Dim strYear, strMonth, strDay, i, m, var_onload strYear = Year(now) strMonth = GetNumberZero(Month(now)) strDay = GetNumberZero(Day(now)) If request("mode") = "confirm" Then var_onload = "js_popConfirm();" strLoginName = request("uname") strSSN = request("ujumin") If Mid(strSSN,7,1) = "1" Or Mid(strSSN,7,1) = "2" Then strYear = "19" & Mid(strSSN,1,2) strMonth = Mid(strSSN,3,2) strDay = Mid(strSSN,5,2) ElseIf Mid(strSSN,7,1) = "3" Or Mid(strSSN,7,1) = "4" Then strYear = "20" & Mid(strSSN,1,2) strMonth = Mid(strSSN,3,2) strDay = Mid(strSSN,5,2) End If Else var_onload = "" End if If strUsrChkID <> "" Then Set RS = Server.CreateObject("ADODB.Recordset") strSQL = "select strLoginID, strGroup, strLoginPwd, strLoginName, strEmail, bitMailing, strSSN " strSQL = strSQL &", strBirthday, strNick, strIcq, strMsn, strHomepage, strHomePost, strHomeAddr1, strHomeAddr2, strHomeTel " strSQL = strSQL &", strMobile, strCompPost, strCompAddr1, strCompAddr2, strCompTel, strJob, strJobLevel, strHobby, strMarry " strSQL = strSQL &", strJoinMemo, strPhotoFile, strNameFile, strMemo, bitUserInfo, strRecLoginID, strMemberAdd1, strMemberAdd2 " strSQL = strSQL &", strMemberAdd3, strMemberAdd4, strMemberAdd5, strMemberAdd6, strMemberAdd7, strMemberAdd8, strMemberAdd9 " strSQL = strSQL &", strMemberAdd10, bitAuth, strJoinType, m_code " strSQL = strSQL & " from MPLUS_MEMBER_LIST(NOLOCK) " strSQL = strSQL & " where strLoginID = '"& strUsrChkID &"'" rs.cursorlocation=3 rs.open strSQL,DbCon,1,3 If Not Rs.eof Then strLoginID = rs("strLoginID") strGroup = rs("strGroup") strLoginPwd = rs("strLoginPwd") strLoginName = rs("strLoginName") strEmail = rs("strEmail") bitMailing = rs("bitMailing") strSSN = rs("strSSN") strBirthday = rs("strBirthday") strNick = rs("strNick") strIcq = rs("strIcq") strMsn = rs("strMsn") strHomepage = rs("strHomepage") strHomePost = rs("strHomePost") strHomeAddr1 = rs("strHomeAddr1") strHomeAddr2 = rs("strHomeAddr2") strHomeTel = rs("strHomeTel") strMobile = rs("strMobile") strCompPost = rs("strCompPost") strCompAddr1 = rs("strCompAddr1") strCompAddr2 = rs("strCompAddr2") strCompTel = rs("strCompTel") strJob = rs("strJob") strJobLevel = rs("strJobLevel") strHobby = rs("strHobby") strMarry = rs("strMarry") strJoinMemo = rs("strJoinMemo") strPhotoFile = rs("strPhotoFile") strNameFile = rs("strNameFile") strMemo = rs("strMemo") bitUserInfo = rs("bitUserInfo") strRecLoginID = rs("strRecLoginID") bitAuth = rs("bitAuth") strJoinType = Trim(rs("strJoinType")) m_code = rs("m_code") Dim arrHomeTel(2),arrMobile(2),arrCompTel(2) intHome = instr(1,strHomeTel,"-",0) 'ÀüȹøÈ£ Çü½Ä -ÀÖ´ÂÁö È®ÀÎ If intHome > 0 Then tmpHomeTel = split(strHomeTel,"-") arrHomeTel(0) = tmpHomeTel(0) arrHomeTel(1) = tmpHomeTel(1) arrHomeTel(2) = tmpHomeTel(2) else arrHomeTel(0) = "" arrHomeTel(1) = "" arrHomeTel(2) = "" End if intMobile = instr(1,strMobile,"-",0) 'ÀüȹøÈ£ Çü½Ä -ÀÖ´ÂÁö È®ÀÎ If intMobile > 0 Then tmpMobile = split(strMobile,"-") arrMobile(0) = tmpMobile(0) arrMobile(1) = tmpMobile(1) arrMobile(2) = tmpMobile(2) else arrMobile(0) = "" arrMobile(1) = "" arrMobile(2) = "" End if intComp = instr(1,strCompTel,"-",0) 'ÀüȹøÈ£ Çü½Ä -ÀÖ´ÂÁö È®ÀÎ If intComp > 0 Then tmpCompTel = split(strCompTel,"-") arrCompTel(0) = tmpCompTel(0) arrCompTel(1) = tmpCompTel(1) arrCompTel(2) = tmpCompTel(2) else arrCompTel(0) = "" arrCompTel(1) = "" arrCompTel(2) = "" End if End if rs.close strNameReadonly = "Readonly" If strJoinType = "4" Then strJoinTypeChk1 = "" strJoinTypeChk2 = "checked " Else If Mid(strSSN,7,1) = "1" Or Mid(strSSN,7,1) = "2" Then strYear = "19" & Mid(strSSN,1,2) strMonth = Mid(strSSN,3,2) strDay = Mid(strSSN,5,2) ElseIf Mid(strSSN,7,1) = "3" Or Mid(strSSN,7,1) = "4" Then strYear = "20" & Mid(strSSN,1,2) strMonth = Mid(strSSN,3,2) strDay = Mid(strSSN,5,2) End If If Mid(strSSN,7,1) = "1" Or Mid(strSSN,7,1) = "3" Then strSexChk1 = "checked" strSexChk2 = "" Else strSexChk1 = "" strSexChk2 = "checked" End if strJoinTypeChk1 = "checked readonly " strJoinTypeChk2 = "" End if End If %>