|
|
|
|
俵ÀÌ / 2000-10-21 / ¿ÀÈÄ 7:10:25 / 203.255.3.190
Á¶È¸¼ö : 136
|
[Áú¹®] µ¥ÀÌÅÍ º£À̽º¿¡ Æнº¿öµå°¡ ¾Èµé¾î°¡¿ä |
> ´Ù Àßµé¾î°¡´Âµ¥ Æнº¿öµå¸¸ ¾Èµé¾î°¡³×¿ä
> ¾Ë·ÁÁÖ¼¼¿ä. ¿¡·¯´Â ¾ø´Âµ¥ Æнº¿öµå¸¸ ¹®Á¦ÀÔ´Ï´Ù
>
> <%
> ' »ç¿ëÀÚ Á¤º¸ ÀÔ·Â
> 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
> %>
>
>
>
>
>
>
>
>
>
>
>
>
> |
>
>
>
>
>
>
>
>
> ÀÇ
> ȸ¿øÀÌ µÇ½Å°ÍÀ»
> ÃàÇϵ帳´Ï´Ù.
>
> |
>
>
>
>
>
>
>
>
>
>
>
>
>
-----------------------------------------------------------
USER_PASSWORD = Request("USER_PASSWORD")
À̺κп¡¼ Æнº¿öµå°¡ Á¦´ë·Î ³Ñ¾î ¿À´ÂÁö üũÇØ º¸½Ã±â ¹Ù¶ø´Ï´Ù.
±×·³...
|
|
|
|