 |
 |
 |
 |
 |
 |
掲示板
誹謗、中傷などの内容は削除される場合がありますのでご了承下さい。
全文表示 新しく投稿された順に表示します。目次表示 投稿された目次を掲載します。書き込み 新しい話題を提供して下さる時はこちらです。
<%
set Conn = CreateObject("ADODB.Connection")
Conn.ConnectionString = "uid=sa;pwd=;driver={SQL Server};server=pserver;database=ASP;dsn=''"
Conn.Open
set cmd = CreateObject("ADODB.Command")
cmd.ActiveConnection = Conn
strSQL = "SELECT * FROM message WHERE((message.parent)=0) ORDER BY mday DESC"
cmd.CommandText = strSQL
set rs = CreateObject("ADODB.Recordset")
rs.Open strSQL,Conn,0,1
rs.MoveFirst %>
<% Do While not rs.EOF %> <% Response.Write Mid(rs("mday"),1,8) & " "%>
" width="32" height="32" border="0">
<% Response.Write "" & rs("name") & ""%><% Response.Write " " & rs("title") %>
<% strSQL = "SELECT * FROM message WHERE((message.parent)=" & rs("id") & ") ORDER BY mday ASC" cmd.CommandText = strSQL set rs1 = CreateObject("ADODB.Recordset") rs1.Open strSQL,Conn,3,2 If rs1.EOF=False Then Call disp(rs1) End If rs.MoveNext cnt=cnt+1 If cnt>100 Then Exit Do Loop rs.Close rs1.Close set cmd = nothing conn.Close %>
<% Do While not rs.EOF %> <% Response.Write Mid(rs("mday"),1,8) & " "%>
" width="32" height="32" border="0">
<% Response.Write "" & rs("name") & ""%><% Response.Write " " & rs("title") %><% strSQL = "SELECT * FROM message WHERE((message.parent)=" & rs("id") & ") ORDER BY mday ASC" cmd.CommandText = strSQL set rs1 = CreateObject("ADODB.Recordset") rs1.Open strSQL,Conn,3,2 If rs1.EOF=False Then Call disp(rs1) End If rs.MoveNext cnt=cnt+1 If cnt>100 Then Exit Do Loop rs.Close rs1.Close set cmd = nothing conn.Close %>