%
Dim title,num,Direct,yy,dd,mm,fso,f,strconnect
title = Trim(request("title"))
num = request("num")
Direct = request("Direct")
yy = Request("select7")
mm = Request("select8")
dd = Request("select9")
If title = "tazza2" Then
response.redirect "http://sports.chosun.com/enter/cartoon/tazza2/cartoon_tazza1.asp?title=tazza2"
ElseIf title = "gongjaban" Then
response.redirect "http://sports.chosun.com/enter/cartoon/gongjaban/cartoon_gongjaban1.asp?title=gongjaban"
ElseIf title = "zombi" Then
response.redirect "http://sports.chosun.com/enter/cartoon/zombi/cartoon_zombi1.asp?title=zombi"
ElseIf title = "daemul" Then
response.redirect "http://sports.chosun.com/enter/cartoon/daemul/cartoon_daemul1.asp?title=daemul"
Else
Dim ObjDBConn, ObjRs, strSQL
Dim maxNum, curNum, filename
set fso = Server.CreateObject("Scripting.FileSystemObject")
set f = fso.OpenTextFile("C:\cons7.dat")
strconnect = f.Readline
set ObjDBConn=Server.CreateObject("ADODB.Connection")
ObjDBConn.Open strconnect
Set ObjRs = Server.CreateObject("ADODB.Recordset")
ObjRs.ActiveCOnnection = ObjDBConn
If Request("num") = "" Then
strSQL = "SELECT num, filename FROM " & Request("title") & " ORDER BY num DESC with ur"
Else
strSQL = "SELECT num, filename FROM " & Request("title") & " ORDER BY num DESC with ur"
End If
ObjRs.Open strSQL, ObjDBConn, 1, 2
maxNum = objRs("num")
If Request("num") = "" Then '¾Æ¹«·± °Ë»öÁ¶°Ç ¾øÀÌ Ã³À½ ÀÌ ÆäÀÌÁö¿¡ µé¾î¿À´Â °æ¿ì
curNum = objRs("num")
filename = objRs("filename")
Else 'ÀÌÀüÀ̳ª ÀÌÈÄ ¹öÆ°À» ´©¸¥ °æ¿ì
ObjRs.Find "num = " & CDbl(Request("num"))
If Request("Direct") = "Next" Then
ObjRs.MovePrevious
If Not ObjRs.EOF Then
curNum = objRs("num")
filename = objRs("filename")
Else
filename = "00000000.htm"
End If
Else
ObjRs.MoveNext
If Not ObjRs.EOF Then
curNum = objRs("num")
filename = objRs("filename")
Else
filename = "00000000.htm"
End If
End If
End If
yy = Left(filename, 4)
mm = Mid(filename, 5, 2)
dd = Mid(filename, 7, 2)
%>
|
|
|
|
|
|
|
|
|
include '../ad/menu_lotto.htm'; ?>
|
|
|
<%
objRs.Close
Set objRs = Nothing
objDbConn.Close
Set ObjDBConn =Nothing
End If
%>