<%''on error resume next
function top_hf(cc,zs)%>
<%set rslist = server.createobject("adodb.recordset")
exec="select top "+cstr(cc)+" zid,ly from yrwl_tb_lt where zid<>'s' order by id desc"
rslist.open exec,conn,3,1
while not rslist.eof
zid = rslist("zid")
furl = "bbsview.asp?id="&zid
zt = xszh(rslist("ly"))
zt = replace(zt,"","")
zt = replace(zt,"
","")
zt = replace(zt,"
","")
if len(zt) >= zs then zt = left(zt,zs)&"."
if instr(zt,"http")=0 then%>
<%=zt%>
<%end if
rslist.movenext
wend
rslist.close
set rslist=nothing%>
<%end function
function hfdel(scid,wjm)
wjm = lcase(wjm)
if instr(wjm,"fj") > 0 then
xwjm = split(wjm,";")
Set fso = CreateObject("Scripting.FileSystemObject")
for i = 0 to ubound(xwjm)
path = Server.mappath(xwjm(i))
if fso.fileExists(path) then fso.DeleteFile path
next
end if
exec="delete from yrwl_tb_lt where id="+scid
conn.execute exec
end function
function top_list(cc,jg,title,zS,tjandorder,sj,ctype)%>
<%set rslit = server.createobject("adodb.recordset")
exec="select top "+cstr(cc)+" * from yrwl_tb_lt where zid='s' " & tjandorder
rslit.open exec,conn,3,1
for i=1 to cc
if rslit.eof then exit for
wjm = rslit("fj")
furl = "bbsview.asp?id="&rslit("id")
if isnull(wjm) then wjm = ""
if len(wjm)>0 and instr(wjm,"http://")=0 then
fjsc = "[¸½]"
else
fjsc = ""
end if
if instr(wjm,"http://") then
fjsc = "[Á´]"
else
fjsc = ""
end if
zt =btxszh( rslit("zt"))
''if len(zt) >= zs then zt = left(zt,zs)&".."
if not isnull(zt) then zt = replace(zt,"
"," ")
if sj <> "" then
zhhf = rslit("zhhf")
sj = left(zhhf,8)
end if
lb = rslit("lb")%>
<%=jg%>
<%response.write ""
if title <> "" then%>[<%=title%>]<%end if%><%=zt%><%=fjsc%>
<%if sj <> "" then%>
<%=sj%>
<%end if%>
<%'if sslx <> "" then
' response.write "["&sslx&"]"
''end if%>
<%rslit.movenext
next
rslit.close
set rslit=nothing%>
<%end function%>