|
|
|
|
Leader / 2001-08-29 / ¿ÀÈÄ 3:41:42 / 211.189.136.10
Á¶È¸¼ö : 129
|
[Áú¹®] ¹ú·¹¸¦ Àâ¾Æ¶ó...¤Ì_¤Ìyl |
<% response.expires=0 %>
<%if isEmpty(Session("¿ì¾î¾î_ID")) then %>
<SCRIPT LANGUAGE="JavaScript">
<!--
alert("·Î±×ÀÎ ÈÄ ½ÅûÀÌ °¡´ÉÇÕ´Ï´Ù.");
history.go(-1);
//-->
</SCRIPT>
<%
response.end
else %>
<!-- #Include File="../include/ConnectString.asp" -->
<%
IDNO = Session("¿ì¾î¾î_ID")
ITEMNO = request("ITEMNO")
QTY = request("QTY")
Set conn = Server.CreateObject("ADODB.Connection")
conn.provider = "SQLOLEDB"
conn.Open strConn
Set rs = Server.CreateObject("ADODB.RecordSet")
lager = "select ITEMNO, IDNO, ITEMEA from MICART where ITEMNO='" & ITEMNO & "' and IDNO=" & IDNO & ""
'response.write lager
rs.open lager, conn, adOpenKeyset, adLockReadOnly
if rs.eof then
sql = "insert into MICART(ITEMNO,IDNO,ITEMEA) values ('" & ITEMNO & "'," & IDNO & "," & QTY & ")"
'response.write sql
conn.execute sql
response.redirect "cart.asp"
else
UP_QTY = rs(2) + QTY
sql = "Update MICART set ITEMEA = " & UP_QTY & " where ITEMNO='" & ITEMNO & "' and IDNO=" & IDNO & ""
'response.write sql
conn.Execute sql
response.redirect "cart.asp"
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
end if
%>±¸¹®¿¡´Â ÀÌ»óÀÌ ¾ø´Âµ¥¿ä... ¤Ñ¤Ñ¤» ÀÌ»óÇÏ°Ô ¾È³¯¶ó°¡³×¿°... ¤Ì_¤Ì ¤Ñ¤Ñ¤» ±Ùµ¥ ¶Ç ÀÌ»óÇÑ°Ô...
óÀ½ ¸¸µé¶§´Â µÆ´Âµ¥... ¤Ñ¤Ñ¤»
ÀÌ°Å Çѹø¾¿µé ºÁÁֽðí... ÀÌ»ó¾ø´ÂÁöÁ» ¤Ñ¤Ñ¤»
°Ë¿ ºÎŹµå¸³´Ï´Ù... (__) |
|
|
|