´ç½Å¿¡°Ô·Î ¶°³ª´Â ²Þ¼Ó¿©Çà - ²Þ¼Ó³ª¶ó(http://www.inyourdream.net)
ID¿Í Password¸¦ ÀÔ·ÂÇϼ¼¿ä.
ÀÔ±¹Çϱâ
|
¿µÁÖ±Ç ½Åû
¸öºÎ¸² °ñ¶ó°ñ¶ó
¼Ò±Ù¼Ò±Ù
µµ¶õµµ¶õ
³«¼¸¶´ç
Âø°¢ÇѾÆÀÌ
¼ýÀÚ¸ÂÃß±â
¼Ò¿øºô±â
ÈçÀû³²±â±â
²Þ¼Ó¿©Çà
Ä£±¸Áý ³î·¯°¡±â
¸ðµÎµå¸²´ÔÀÇ È¨
î¤éÞ´ÔÀÇ È¨
Çö¿ì´ÔÀÇ È¨
º°¾ÆÇØ´ÔÀÇ È¨
ÇÞ»ì´ÔÀÇ È¨
À̳ª´Ï´ÔÀÇ È¨
À¯¸®¾Ë´ÔÀÇ È¨
³È³ÈÀÌ´ÔÀÇ È¨
²ÀÁö´ÔÀÇ È¨
´ë¼º´ÔÀÇ È¨
¼öÁ¤ÇϽǶ§´Â ÇʼöÇ׸ñÀ» ¸ðµÎ ÀÔ·ÂÇÏ¼Å¾ß ÇÕ´Ï´Ù.
À̸§
*
°øÁö»çÇ×
ºñ°ø°³
HTML »ç¿ë
Á¦¸ñ
*
¼±ÅÃ
ÀÚÀÛ
»ç¶û
À¯¸Ó
ÀÚÀ¯
̵̧
¾Ë¸²
Áú¹®
±âŸ
³»¿ë
*
´Ù Àßµé¾î°¡´Âµ¥ Æнº¿öµå¸¸ ¾Èµé¾î°¡³×¿ä ¾Ë·ÁÁÖ¼¼¿ä. ¿¡·¯´Â ¾ø´Âµ¥ Æнº¿öµå¸¸ ¹®Á¦ÀÔ´Ï´Ù <% ' »ç¿ëÀÚ Á¤º¸ ÀÔ·Â USER_ID = Request("USER_ID") USER_PASSWORD = Request("USER_PASSWORD") USER_NAME = Request("USER_NAME") USER_NAME1 = Request("USER_NAME1") COUNTRY = Request("COUNTRY") TEL = Request("TEL") FAX = Request("FAX") EMAIL = Request("EMAIL") ADDRESS = Request("ADDRESS") '½Ã¸®¾ó ³Ñ¹ö »ý¼º¿£Áø ¼Ò½º---------------------------------- '************************************************************************** set DBconnection = server.CreateObject("ADODB.connection") DBconnection.Open ("DSN=sql;UID=sa;PWD=") 'À§ÀÇ ADOdbÄ¿³Ø¼Ç °³Ã¼°¡ µé¾î°¡¾ßÁö µ¥ÀÌŸº£À̽º¿Í ¿¬°á '######################################################################### sql = "select top 1 num from member order by num desc" 'Ä¿³Ø¼Ç ÀÎÀÚ¸¦ ¹Ù²ãÁáÀ½ DBconnection set aa = DBconnection.execute (sql) if aa.EOF then num_1 = 1 + 1 '³Ñ¹ö°¡ Çϳªµµ ¾øÀ¸¸é else num_1 = 1 + aa("num") '³Ñ¹ö°¡ ÀÖÀ¸¸é °¡ÀåÅ«¼öÀÇ +1 : º¸¶ó³Ý Àü¿ë end if 'else ' num_1 = 1 + aa("no") '³Ñ¹ö°¡ ÀÖÀ¸¸é °¡ÀåÅ«¼öÀÇ +1 Áö¿ìÁö ¸»°Í num = len(num_1) '³Ñ¹öÀÇ ±æÀÌ '############################################################################# 'À̺κÐÀÌ À߸ø µÇ¾ú´Ù¸é...¾Æ·¡ ºÎºÐÀÇ no ¶ó´Â Çʵ尡 ¾ø¾î¼ no ´ë½Å¿¡ numÀ» ³Ö¾úÀ¾´Ï´Ù. 'response.write num_1 & "/" & aa("no")& "|" 'À§ÀÇ °ÍÀÌ ¾Æ´Ï¶ó... 'response.write num_1 & "/" & aa("num_1")& "|" 'À̺κп¡·¯³´Ù 'ÀÌ°É·Î ¹Ù²î¾î¾ß °ÚÁÒ..,. '########################################################################### totalnum = 13 - num '13ÀÚ¿¡¼ »©±â ³Ñ¹öÀÇ ±æÀÌ number = 1 Result = left("0000006000000" & CStr(Number), totalnum) '13ÀÚ¸®¼ýÀÚ¿¡¼ ³²Àº ¼ö ¿À¸¥ÂʺÎÅÍ ÀÚ¸£±â jumin = Result & num_1 '¿À¸¥ÂʺÎÅÍ ÀÚ¸¥¼ö ¿¡ ¼øÂ÷³Ñ¹ö ºÙÀ̱â response.write jumin & "
" '¿©±â±îÁö------------------------------------------------- ' ÀÛÀº µû¿ÈÇ¥ ÀúÀåÀ» À§ÇÑ Replace »ç¿ë INTRO = Request("INTRO") INTRO = Replace(INTRO,"'","''") ' µ¥ÀÌÅͺ£À̽º ¿¬°á ¼³Á¤ Set dbCon = Server.CreateObject("ADODB.Connection") dbCon.Open ("DSN=sql;UID=sa;PWD=;") ' ¾ÆÀ̵ð Áߺ¹ ¿©ºÎ °Ë»ç sqlstr = "select Count(Num) from member where USER_ID ='" & USER_ID & "'" set Rs = dbCon.execute(sqlstr) if Rs(0) = 0 then ' Áߺ¹µÇ´Â ¾ÆÀ̵𰡠¾øÀ» °æ¿ì Å×ÀÌºí¿¡ ȸ¿øÁ¤º¸ ÀúÀå sqlstr = "INSERT INTO member(USER_ID, USER_PASSWORD, USER_NAME,USER_NAME1,COUNTRY,TEL,FAX, EMAIL,ADDRESS,INTRO,REGISTER,JUMIN)" sqlstr = sqlstr & " VALUES ('" & USER_ID & "','" & USER_PASSWORD & "','" & USER_NAME & "','" & USER_NAME1 & "','" & COUNTRY & "','" & TEL &"','" & FAX & "','" &EMAIL & "','" & ADDRESS & "','" & INTRO & "',getdate(),'" & JUMIN &"')" Set MemberInsert = dbCon.execute(sqlstr) %> ¡¡¡¡ <% else ' Áߺ¹µÇ´Â ¾ÆÀ̵𰡠ÀÖ´Â °æ¿ì Áߺ¹ ¸Þ½ÃÁö Ãâ·Â %> ¡¡¡¡ ¡¡¡¡¡¡<%end if%>
boranet
<%time1 = date() & " " &hour(now) & ":" & minute(now) & ":" & second(now)%>
<%'·ÎµòÀÌ ¼öÁ¤ SQL ·Î ³¯Â¥ ¸¸µå´Â¹ý... Que = "select convert(varchar(24), getdate(), 113)" Set Rs = DBconnection.Execute(QUE) time2 = Rs(0) 'reg1 & reg2 %>
ÀÇ È¸¿øÀÌ µÇ½Å°ÍÀ»
ÃàÇϵ帳´Ï´Ù.
Ãß°¡ÇÒ À̹ÌÁö¸¦ ÀÔ·ÂÇϼ¼¿ä.
À̹ÌÁö 1
À̹ÌÁö¼³¸í 1
Ãß°¡ÇÒ ÀڷḦ ÀÔ·ÂÇϼ¼¿ä.
ÀÚ·á 1
ÀÚ·á¼³¸í 1
Ãß°¡ÇÒ ½ÎÀÌÆ®¸¦ ÀÔ·ÂÇϼ¼¿ä.
°ü·Ã½ÎÀÌÆ® 1
½ÎÀÌÆ®¼³¸í 1
Password
*