<% Dim strSQL,SQL Set conn = Server.CreateObject ("ADODB.Connection") Set rs = Server.CreateObject ("ADODB.Recordset") Set rs1 = Server.CreateObject ("ADODB.Recordset") 'conn.Open ("Provider=SQLOLEDB;User ID=usenetsolution;Password=ksing007;Data Source=se.netsvill.net") conn.Open ("Provider=SQLOLEDB;User ID=usenetsolution;Password=ksing007;Data Source=F2") %>

Web usenetsolution

°øÁö»çÇ× <% strSQL = "select * from Announce order by a_num desc" rs.pagesize = 5 rs.Open strSQL,conn,1 i = 1 %> <% Do until rs.EOF Or i>rs.PageSize a_branch = rs("a_branch") a_title = rs("a_title") a_date = rs("a_date") %> <% rs.Movenext i = i + 1 Loop rs.Close conn.close %> <% if len(a_title) > 20 then response.write left(a_title,18)&"..." else response.write a_title end if%> ÇöÀç À¥»çÀÌÆ® ¼öÁ¤ÁßÀÔ´Ï´Ù...  [<%=a_date%>]

Family site ¹Ù·Î°¡±â ¹Ù´Ù¸ÞÀÏEMS