<% ipp = 18 set fso = Server.CreateObject("Scripting.FileSystemObject") set f = fso.OpenTextFile("C:\cons7.dat") strconnect = f.Readline set Dbcon=Server.CreateObject("ADODB.Connection") Dbcon.Open strconnect Set DbRec=Server.CreateObject("ADODB.RecordSet") DbRec.CursorType = 1 DbRec.Open "SELECT NEWSKEY, CMSRELATIONNAME,SVC_DATE,MODIFYDATE,NEWSTITLE,ISWEBSERVICETYPE FROM NEWSINFO where SVC_CODE = '030305' ORDER BY newskey DESC limit 18",DbCon i = 1 Do until DbRec.EOF Or i>ipp Title = DbRec("NEWSTITLE") If Len(Title) > 24 Then Title = Left(Title, 24) & "..." End If If (i = 1 OR i = 7 OR i = 13) Then %>

  • À±ÁÖÇÏ
    ÀÌÈ¿¿µ
  • ÀÌ¿¬¾Æ
    ÀÌ¿¬¾Æ
  • Â÷¼±È­
    Ȳ°¡Èñ