Question

急求无效使用 Null: 'Replace'的解决办法

以下是程序代码
<%
'新闻排行
'ClassID类别ID
'NewNum新闻条数
'TitleLen标题字符长度
'OrderType排序类型：0-日排行，1周排行，2月排行
sub NewsListOrderBy(ClassID,NewNum,TitleLen,OrderType)
dim whereString
sql = "select top " & NewNum & " htmlPath,title,Hits from ["& Cfg.tablePrefix &"news]"
if ClassID = "" then
sql = sql & " where isRec = 0 and isSign = 1"
else
sql = sql & " where classId = " & ClassID & " and isRec = 0 and isSign = 1"
end if
Select Case OrderType
Case 0
whereString = "and datediff(hour,createDate,getDate()) < 24"
Case 1
whereString = "and DATEPART(wk, createDate) = DATEPART(wk, GETDATE()) and DATEPART(yy, createDate) =

DATEPART(yy, GETDATE())"
Case 2
whereString = "and datediff(m,getdate(),createDate)=0"
End Select
sql = sql & whereString
sql = sql & " order by Hits desc"
rs = dbo.query(sql)
if isnull(rs) or isempty(rs) then
response.Write("暂无数据")
else
for i = 0 to ubound(rs,2)
htmlPath = rs(0,i)
title = rs(1,i)
Hits = rs(2,i)
（错误行） htmlPath = replace(htmlPath,"/news/","")

%>
<tr>
<td width="20" align="middle" ><img src="images/0731_t<%=i+1%>.gif" width="15" height="14" /></td>
<td height="24" align="left"><a href="<%= htmlPath %>" title="<%= title %>" target="_blank"><% =

lib.cut_Title(title,TitleLen) %></a></td>
<td width="30"><% = Hits %></td>
</tr>
<%
next
end if
set rs = nothing
end sub
%>

Answer 1

数据库NULL值的问题
如果真这样，程序由于NULL值出了问题
还不如改改数据库结构简单的多
字段不为NULL，插入赋空就行了。

Answer 2

ASP???