<% Str = "abcdefghijklmnopqrstuvwxyz" Randomize Ran_Num1 = Int(Rnd * 26 + 1) Sel_Str1 = Mid(Str, Ran_Num1,1) Ran_Num2 = Int(Rnd * 26 + 1) Sel_Str2 = Mid(Str, Ran_Num2,1) Ran_Num3 = Int(Rnd * 26 + 1) Sel_Str3 = Mid(Str, Ran_Num3,1) Ran_Num4 = Int(Rnd * 26 + 1) Sel_Str4 = Mid(Str, Ran_Num4,1) Ran_Num5 = Int(Rnd * 26 + 1) Sel_Str5 = Mid(Str, Ran_Num5,1) title = trim(request("title")) session("szo_title") = title title = replace(title, "&", "'") title = replace(title, "'", "&") title = replace(title, "", "") title = replace(title, "", "") filename = trim(request("filename")) session("szo_filename") = filename ipp = 5 set fso = Server.CreateObject("Scripting.FileSystemObject") set f = fso.OpenTextFile("C:\cons5.dat") strconnect = f.Readline set Dbcon=Server.CreateObject("ADODB.Connection") Dbcon.Open strconnect sql = "SELECT COUNT(num) AS cnt FROM gisa_reply WHERE filename='" & filename & "'" set rs=Dbcon.Execute(sql) postcount = rs("cnt") Set Grs = Server.CreateObject("ADODB.Recordset") Grs.Open "SELECT num, wdate, name, id, content, icon FROM gisa_reply WHERE filename='" & filename & "' ORDER BY wdate DESC",DbCon %> "> "> <% Dbcon.Close Set Grs = Nothing Set rs = Nothing Set Dbcon = Nothing %>
웃음

* 스팸방지 문자열을 입력하세요. <%=Sel_Str1%><%=Sel_Str2%><%=Sel_Str3%><%=Sel_Str4%><%=Sel_Str5%>  
네티즌 댓글 <%=postcount%>
<% i = 1 Do until Grs.EOF Or i>ipp %> <% Grs.Movenext i = i + 1 Loop %>
.gif" border="0" align="absmiddle">
  <%=Grs("wdate")%> &ktf=<%=Session("szo_id")%>">  

<%=Grs("content")%>