작성일 : 11-11-21 14:44
|
[ASP] dbhelper 한줄 1줄
|
 |
|
글쓴이 :
조형래
 조회 : 5,606
|
strSql = "Select COUNT(*) FROM [S_TB_BOARD_LIST] WHERE THREAD = '" &rsList(0, i)& "'"
Set objRs = DBHelper.ExecSQLReturnRs(strSql, Nothing, Nothing)
If Not objRs.eof Then
countt = objRs(0)
End If
objRs.close()
Set objRs = Nothing
------------ 반환값 없는 dbhelp -------------
Set DBHelper = new clsDBHelper 'DBHelper 생성
'SQL 쿼리를 실행한다.
'맨 마지막 매개변수가 Nothing이면 기본 연결문자열 사용
Call DBHelper.ExecSQL("DELETE Customers WHERE customerID='ALFKI' ", Nothing, Nothing)
DBHelper.Dispose
Set DBHelper = Nothing
-----------------------------------------------------------------------------------------------------------------
<select name="cha" id="cha" style="width:100; height:20; font-family:돋움; background-color:#eee7f9; border:1 solid #A0DBE4" onchange="javascript:select_box_s(this.value)">
<%
strSql = "SELECT ROW_NUMBER() OVER (ORDER BY LRN_SEQ ASC) AS SEQ_S ,LRN_SEQ AS LRN_SEQ_S FROM S_TB_LRNINFO WHERE USER_ID = '"& USER_ID &"'"
Set objRs = DBHelper.ExecSQLReturnRs(strSql, Nothing, Nothing)
If not(objRs.Eof) Then
Do Until objRs.Eof
SEQ_S = objRs("SEQ_S")
LRN_SEQ_S = objRs("LRN_SEQ_S")
%>
<OPTION VALUE="<%=LRN_SEQ_S%>" <% IF Clng(LRN_SEQ_S) = Clng(LRN_SEQ) THEN %> selected <% END IF %>><%=SEQ_S%> 차</OPTION>
<%
objRs.MoveNext
Loop
End If
objRs.Close()
Set objRs = Nothing
%>
</select>
|
|
1016
