 |
<%
dim cng_id
cng_id = Session("CNGID")
strSQL = "select * from wtf_info where convert(char(12),wtf_date,101) = convert(char(12),getdate(),101) and cng_id = '" & cng_id & "'"
set rsoTable = objConn.Execute(strSQL)
do while rsoTable.bof and rsoTable.eof
dim rsoTable1
strSQL = "select * from cng_info where cng_id = '" & cng_id & "'"
set rsoTable1 = objConn.Execute(strSQL)
if not(rsoTable1.bof and rsoTable1.eof) then
cng_id = rsoTable1("cng_parent")
else
exit do
end if
rsoTable1.Close
if not(cng_id = 0) then
rsoTable.Close
strSQL = "select * from wtf_info where convert(char(12),wtf_date,101) = convert(char(12),getdate(),101) and cng_id = '" & cng_id & "'"
set rsoTable = objConn.Execute(strSQL)
else
exit do
end if
loop
if not(rsoTable.bof and rsoTable.eof) then
Session("WTFCONTENT")=rsoTable("wtf_date")&" "&rsoTable("wtf_area")&" "&rsoTable("wtf_content")
else
Session("WTFCONTENT")="今天是 "&date()
end if
%>
|
|
|
