<%
dim name1
name1=Request("leibie")
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from leibie where typename='"& name1 &"'",conn,1,1
if not rs.eof then
if rs("content") <>"" then '这行..
response.Write(rs("content"))
else
response.Write("暂无信息")
end if
else
response.Write("暂无信息")
end if
rs.close
%>