<%
function cutstr(tempstr,tempwid)
if len(tempstr)>tempwid then
cutstr=left(tempstr,tempwid)&"..."
else
cutstr=tempstr
end if
end function%>
<%
Set rsus = Server.CreateObject("ADODB.Recordset")
rsus.Open "Select * from Aboutus where Title='主治范围'", conn,1,1
response.write "" & cutstr(rsus("Content"),70) & ""
rsus.close
set rsus=nothing
%>
<%
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
%>
<%
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
%>
<%
set rsgg=server.createobject("adodb.recordset")
sqltext="select top 5 Id,Title,UpdateTime from lanmu where BigClassName='相关知识' and Newproduct=True order by ID desc"
rsgg.open sqltext,conn,1,1
x=0
do while not rsgg.eof
%>
<%
set rsgg=server.createobject("adodb.recordset")
sqltext="select top 5 Id,Title,UpdateTime from lanmu where BigClassName='面瘫' and Newproduct=True order by ID desc"
rsgg.open sqltext,conn,1,1
x=0
do while not rsgg.eof
%>
<%
set rsgg=server.createobject("adodb.recordset")
sqltext="select top 5 Id,Title,UpdateTime from lanmu where BigClassName='面肌痉挛' and Newproduct=True order by ID desc"
rsgg.open sqltext,conn,1,1
x=0
do while not rsgg.eof
%>
<%
set rsgg=server.createobject("adodb.recordset")
sqltext="select top 6 Id,Title,UpdateTime from lanmu where BigClassName='三叉神经痛' and Newproduct=True order by ID desc"
rsgg.open sqltext,conn,1,1
x=0
do while not rsgg.eof
%>
