asptbfunction.asp

可以做论坛

<!--#include file="conn.asp"-->
<!--#include file="sysinfo.asp"-->
<%

function mystr(mystring,allstr,leng)
    j=1
    leng=0
    for i=1 to len(mystring)
    if instr(j,mystring,"|")>0 then
    j=instr(j,mystring,"|")+1
    leng=leng+1
    end if
    next
    allstr = Split(mystring, "|",leng+1) 
end function
function ornonemer(nemerstr,nonemer)
    lengstr=len(nemerstr)
    nonemer=0
    for i=0 to lengstr-1
    redim preserve strn(i)
    strnn= Right(nemerstr,lengstr)
    strn(i) = Left(strnn,1)
    lengstr=lengstr-1
    if not IsNumeric(strn(i)) then
    nonemer=nonemer+1
    end if
    next
end function
function ip3(ipstr)
    i=0
	ips=""
	ipfen = Split(ipstr, ".",4)
	for i=0 to 2
	ips=ips&ipfen(i)&"."
	next
	ipstr=ips&"***"
end function
function addtoip(ipstr,newip,yon)
    yon=0
	j=1
    leng=0
    for i=1 to len(ipstr)
    if instr(j,ipstr,"|")>0 then
    j=instr(j,ipstr,"|")+1
    leng=leng+1
    end if
    next
    allstr = Split(ipstr, "|",leng+1) 
	for i=0 to leng
	  if allstr(i)=newip then
	  yon=yon+1
	  end if
	  next
end function

luntantuijian1=""
set rst=server.createobject("adodb.recordset")
rst.open "select * from luntan where tuijian=1 and shanzhu=0 order by tjtime desc",conn,1,1
if not rst.eof then
do while not rst.eof 
luntant=rst("luntan")
if rst("html")=1 then
luntantuijian1=luntantuijian1&"<font color=#FF0000>[<a href=../../jinghuau/"&rst("IDL")&" target=_self>"&luntant&"</a>]</font>"
else        
luntantuijian1=luntantuijian1&"<font color=#FF0000>[<a href=../../list.asp?IDL="&rst("IDL")&" target=_self>"&luntant&"</a>]</font> "
end if       
rst.MoveNext
Loop
else 
luntantuijian1=luntantuijian1&"还没推荐"
end if
rst.close
set rst=nothing

newshowtop1=""
zxtei=spageshu-5
cczx="select top "&zxtei&" * from neirong  where zt=1 and shanzhu=0"
set rszxl=server.createobject("adodb.recordset")
cczx=cczx+" order by huitime desc"
rszxl.open cczx,conn,1,1
 if rszxl.eof then
newshowtop1=newshowtop1&"还没新贴"
		  else
		  do while not rszxl.eof
		      if len(rszxl("zhuti"))<18 then
			  zhuti=rszxl("zhuti")
			  else
			  zhuti=left(rszxl("zhuti"),16)&"…"
			  end if
			  if rszxl("html")=1 then 
newshowtop1=newshowtop1&"·<a href=../"&rszxl("idl")&"/"&rszxl("ids")&".htm target=_self>"&zhuti&"</a><br>"			  
              else
newshowtop1=newshowtop1&"·<a href=../../show.asp?ids="&rszxl("ids")&">"&zhuti&"</a><br>"
		      end if
		  rszxl.MoveNext
          Loop
		  end if
		  rszxl.close
		  set rszxl=nothing
%>