 |
<%
set rsgg=server.createobject("adodb.recordset")
sqltext="select top 10 Id,Title from lanmu where BigClassName='站内公告' order by ID desc"
rsgg.open sqltext,conn,1,1
x=0
do while not rsgg.eof
%>
 <%=cutstr(rsgg("title"),34)%> |
<%
rsgg.movenext
x = x+1
loop
rsgg.close
%>
|
 |
 |
 |
|
 |
|
<%
set rsgg=server.createobject("adodb.recordset")
sqltext="select top 10 Id,Title,content from lanmu where BigClassName='典型病例' order by ID desc"
rsgg.open sqltext,conn,1,1
x=0
do while not rsgg.eof
%>
<%
rsgg.movenext
x = x+1
loop
rsgg.close
%>
|
|
 |
|
<%
Set rsus = Server.CreateObject("ADODB.Recordset")
rsus.Open "Select * from Aboutus where Title='左栏联系'", conn,1,1
response.write "" & rsus("Content") & ""
rsus.close
set rsus=nothing
%>
|
|
|
|
|