skin.asp

注意本程序是小偷代码,运用到某些类,卡巴会对INC.ASP误杀,其实并非木马,请大家放心使用,不相信请勿用!

<%Function NB_Skin(c)
Dim SkinHTM,i
SkinHTM=NB_ReadFile(NB_SkinList&c&".htm")
SkinHTM=Replace(SkinHTM,"{NB:website}",NB_website)
SkinHTM=Replace(SkinHTM,"{NB:count}",NB_Count)
If InStr(SkinHTM,"{NB:ver}") > 1 Then
NB_Skin=Replace(SkinHTM,"{NB:ver}","")
Else
NB_Skin=SkinHTM&""
End If
End Function%>