<%
h_page=Session("HomePage")
user_id="nexgenbiotech"
Set DBConnn = Server.CreateObject("ADODB.Connection")
DBConnn.Open "DSN=openbbs;UID=sa;PWD="
SQLString = "SELECT count_num FROM counter WHERE user_id = '"&user_id&"'"
'response.write sqlstring
Set Result = DBConnn.Execute( SQLString )
SQLString = ""
Count = result("count_num")
for i = 1 to 7 '몇자리 카운터이냐에 따라서....
select case Mid(Count,i,1)
case "1"
response.write "
"
case "2"
response.write "
"
case "3"
response.write "
"
case "4"
response.write "
"
case "5"
response.write "
"
case "6"
response.write "
"
case "7"
response.write "
"
case "8"
response.write "
"
case "9"
response.write "
"
case "0"
response.write "
"
End select
Next
%>
<%
h_page=Session("HomePage")
Set DBConnn = Server.CreateObject("ADODB.Connection")
DBConnn.Open "DSN=openbbs;UID=sa;PWD="
SQLString = "SELECT count_num FROM counter WHERE user_id = '"&user_id&"'"
'response.write sqlstring
Set Result = DBConnn.Execute( SQLString )
SQLString = ""
count_num=result("count_num")
'count=Cint(count_num)+1
count=count_num+1
SQLString = "UPDATE counter SET "
SQLString=SQLString & "count_num = '"&count&"'"
SQLString = SQLString & " WHERE user_id = '"&user_id&"'"
'Response.Write SQLString
DBConnn.Execute(SQLString)
Set Upload = Nothing
DBConnn.Close
Set DBConnn = Nothing
%>
since 2000.7.21.
