<%
set cnn=server.createobject("adodb.connection")
cnn.provider="Microsoft.jet.oledb.4.0"
cnn.connectionstring="data source="&server.MapPath("../ysz/szdat/#qiyexinxi$$.asp")
cnn.open
sql="select top 8 * from News where lanmu='温湿度表' order by newID desc"
set rscomm=server.CreateObject("adodb.recordset")
rscomm.open sql,cnn,1,1
lanmu=rscomm("lanmu")
sqlpt="select * from createHtm where lanmu='温湿度表'"
set rspt=cnn.execute(sqlpt)
pt=rspt("path")
fN=rspt("fileName")
%>
温湿度表:
<%
if rscomm.eof and rscomm.bof then
response.Write("暂无记录")
response.end
end if
do while not rscomm.eof%>
<%
rscomm.movenext
loop
rscomm.close
set rscomm=nothing
%>
<%
set cnn=server.createobject("adodb.connection")
cnn.provider="Microsoft.jet.oledb.4.0"
cnn.connectionstring="data source="&server.MapPath("../ysz/szdat/#qiyexinxi$$.asp")
cnn.open
sql="select top 8 * from News where lanmu='凝露控制器' order by newID desc"
set rscomm=server.CreateObject("adodb.recordset")
rscomm.open sql,cnn,1,1
lanmu=rscomm("lanmu")
sqlpt="select * from createHtm where lanmu='凝露控制器'"
set rspt=cnn.execute(sqlpt)
pt=rspt("path")
fN=rspt("fileName")
%>
凝露控制器:
<%
if rscomm.eof and rscomm.bof then
response.Write("暂无记录")
response.end
end if
do while not rscomm.eof%>
