|
항상 많은 도움감사드립니다.
200명이 동시에 접속하여 50개의 프로그램 중 1개를 선착순으로 신청하는 프로그램입니다.
아래 Lock 구문이 정확히 작동될 수 있는지 봐 주십시오.
혹시 더 좋은 방법있으면 가르쳐 주십시오.
aa = 0
m_no = request("m_no")
sch_id = Session("m_no")
SQL = "Lock Tables tbl1 Write"
db.Execute(SQL)
SQL = "select s_ok from tbl1 where m_no = "& m_no
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL,db
If Not rs.eof Then
aa = rs(0)
If CInt(aa) > 0 Then
SQL = "UnLock Tables"
db.Execute(SQL)
<script language="javascript">
alert("이 프로그램은 이미 신청되었습니다 \n\n다른 프로그램을 신청하세요");
location.href="../index.asp";
</script>
rs.close
Set rs = Nothing
db.close
Set db=Nothing
Response.End
Else
SQL = "Update tbl1 Set s_ok = "& sch_id &" where m_no = "& m_no
db.Execute(SQL)
SQL = "UnLock Tables"
db.Execute(SQL)
rs.close
Set rs = Nothing
db.close
Set db=Nothing
<script language="javascript">
alert("정상적으로 신청되었습니다.");
location.href="../index.asp";
</script>
End If
|
