相关代码 |
|
function popwin2(id,path)
{ window.open("openarticle.asp?id="+id+"&ppath="+path,"","");
}
sql="SELECT TOP 1 * FROM learning ORDER BY hits DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "还 没 有 任 何 文 章"
else
%>
→
...
end if
%>
sql="SELECT TOP 1 * FROM learning ORDER BY articleid DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "还 没 有 任 何 文 章"
else
%>
→
...
end if
%>
sql="SELECT * FROM type"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "还 没 有 任 何 文 章 分 类"
else
i=0
do while not rs.eof
i=i+1
%>
more..
rs.movenext
loop
end if
%>
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
Function RmHtml(fString)
fString = Replace(fString, CHR(13), " ")
fString = Replace(fString, CHR(10) & CHR(10), " ")
fString = Replace(fString, CHR(10), " ")
fString = Replace(fString, "", " ")
fString = Replace(fString, "", " ")
fString = Replace(fString, "", " ")
fString = Replace(fString, "", " ")
fString = Replace(fString, "", " ")
fString = Replace(fString, "", " ")
fString = replace(fString, ">", ">")
fString = replace(fString, " fString = replace(fString, " ", "")
fString = replace(fString, " ", "")
fString = replace(fString, "&nbs", "")
fString = replace(fString, "&nb", "")
fString = replace(fString, "&n", "")
fString = replace(fString, "&", "")
RmHtml=fString
End Function
%>
相关资源 |
|