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