胸腔外科

<%language = "VBSCRIPT" set conn = Server.CreateObject("ADODB.Connection") conn.provider="Microsoft.Jet.OLEDB.4.0" conn.Open "Data Source="&server.mapPath("gb.mdb") SQL_check="Select * from msg where msg <> '' and msg <> ' ' order by creatime desc " Set check=conn.execute(sql_check) If check.eof then Response.Write "" conn.close Set conn=nothing Set check=nothing Response.END Else %> 胸腔外科

我要留言

<% response.write "" response.write "" Do while not check.eof MSG=replace(check("msg"),"。","。
") response.write "" Loop response.write "

" response.write "

" response.write "
" response.write "

" response.write "

" & check("Name") & "　　" response.write "" & left(check("creatime"),18) & "　
" response.write "
" response.write "" & MSG & "
" response.write "
" response.write "

" response.write "

" check.movenext response.write "

"%>

<% conn.close Set conn=nothing Set check=nothing Response.END End IF %>