<%
dim web_Comment
Set web_Comment=Server.CreateObject("Adodb.RecordSet")
SQL="SELECT * from Web_Goods where Goods_Class=1 ORDER BY Goods_PostTime desc"
web_Comment.Open SQL,Conn,1,1
while not web_Comment.eof
%>
<%
web_Comment.movenext
wend
web_Comment.close
set web_Comment=nothing
%>
<%
Set web_Comment=Server.CreateObject("Adodb.RecordSet")
SQL="SELECT * from Web_Goods where Goods_Class=2 ORDER BY Goods_PostTime desc"
web_Comment.Open SQL,Conn,1,1
while not web_Comment.eof
%>
<%
web_Comment.movenext
wend
web_Comment.close
set web_Comment=nothing
%>
<%
dim weblog,logid
Set weblog=Server.CreateObject("ADODB.RecordSet")
logid=request.QueryString("id")
if logid="" then
SQL="SELECT top 1 * FROM Web_Goods where Goods_Class=1 order by Goods_PostTime desc"
else
SQL="SELECT * FROM Web_Goods where Goods_ID="&request.QueryString("id")
end if
weblog.Open SQL,Conn,1,1
%>
<%=UnCheckStr(weblog("Goods_Title"))%>
<%=UnCheckStr(weblog("Goods_Content"))%>
Mirror>
