我的代码如下,请问我要将Format_TitleURL(HTML_Article_Path,oRs("ID"),"<b class="" "">上一篇:</b>" & oRs("Title"),oRs("TitleColor"),oRs("TitleURL"),50)这段代码修改成带a href=的形式要如何修改呢,主要是想加样式
Private Sub Ok3w_Article_syp(ClassID,ID)
Sql="select ID,Title,TitleColor,TitleURL from Ok3w_Article where SortPath like '%," & ClassID & ",%' and IsPass=1 and IsDelete=0 and ID>" & ID & " order by ID asc"
Set oRs = Conn.Execute(Sql)
If oRs.Eof And oRs.bof Then
Response.Write("<a href=""javascript:;"" class=""link-info prev fl"" id=""syp1""><span class=""link-ico""><i></i></span><span class=""tit-box"">上一篇:没有了</span></a>")
Else
Response.Write(Format_TitleURL(HTML_Article_Path,oRs("ID"),"<b class="" "">上一篇:</b>" & oRs("Title"),oRs("TitleColor"),oRs("TitleURL"),50))
End If
End Sub