%@ Language=VBScript %> <% set rs=Server.CreateObject("ADODB.recordset") isvisit=Request.Cookies ("isvisit") userName=Request.Cookies ("userName") user_id=Request.Cookies ("user_id") if isvisit="YES" or name<>"" or user_id<>"" then sql="select * from users where user_id="&user_id 'Response.Write sql rs.Open sql,conn if not (rs.EOF and rs.BOF) then user_id=rs("user_id") views=rs("views") name=rs("name") session ("memberEntry")="GOOD" session ("name")=name session ("user_id")=user_id sql="update users set views="&views+1&" WHERE user_id="&user_id 'conn.execute sql rs.Close sql="select * from sub_users where user_id="&user_id rs.Open sql,conn,3 if rs.RecordCount>1 then link3="chooseSubUser_k.asp" else sub_user_id=rs("sub_user_id") max_page=rs("maxpage") sub_name=rs("sub_name") session("sub_name")=sub_name session("sub_user_id")=sub_user_id session("maxPage")=maxPage sql="update sub_users set visits="&rs("visits")+1&" WHERE sub_user_id="&sub_user_id 'conn.execute sql 'Response.Write sql link3="enterMapWithSubUser_k.asp?sub_user_id="&sub_user_id&"&sub_name="&sub_name end if set rs=nothing conn.close set conn=nothing else rs.Close link3="entry_k.asp" end if else link3="entry_k.asp" end if %>
|
|
|
|
לימוד קריאה לילדים בשיטת "צלילים בצבעים"
הדרך המהירה ביותר ללימוד קריאה מגיל 4 וחצי
|