只要输出显示 news2 这个表里面的有数据的字段,目前的代码是所有数据都输出显示,但是数据里有一些是空字段,所以只想输出有字段的数据,想通过判断news2 某个字段为空时 不输出显示,以下为代码,,要怎么改??
<%
sql = "select id,title,content,news_cate from [news2]"
dim where
dim condi
condi = getSearchs(readySearch(request("q")))
if condi<>"" then
sql =sql&" where "&condi
end if
if request("id")<>"" then
if instr(sql,"where")>0 then
sql = sql&" and news_cate='"&request("id")&"'"
else
sql = sql&" where news_cate='"&request("id")&"'"
end if
end if
rs.pagesize=9
sql=sql&" order by datetime desc"
rs.open sql,conn,1,1
if not(rs.eof or rs.bof) then
if request("page")="" or request("page")=0 then
page=1
else
page=cint(trim(request("page")))
end if
if page>rs.pagecount then page=rs.absolutepage
rs.absolutepage=page
for i=1 to rs.pagesize
dim str
str=""&rs("content")&""
response.write("<a href='sqnews.asp?id="&rs("id")&"' class='listbox' style='padding: 30px 0 0 0;' >")
response.write("<span class='tis'>"&left(rs("title"),18)&"<i class='newscl' style='display: none'>"&rs("news_cate")&"</i></span>")
response.write("<span class='newcons'>"&left(RemoveHTMLTag(str),64)&"...</span>")
response.write("<span class='time clearfix'><i></i></span><span class='more'>More ></span></a>")
rs.movenext
if rs.eof then exit for
next
Function RemoveHTMLTag(fString)
Dim ObjReg
If(Isnull(fString))Then fString=""
fString = Replace(Replace(fString,"<","<"),">",">")
Set ObjReg = New RegExp
ObjReg.Pattern = "<[^>]+>|</[^>]+>"
ObjReg.Global = true
fString = ObjReg.Replace(fString,"")
RemoveHTMLTag = fString
End Function
%>
有没有老哥帮忙啊