<%@LANGUAGE="VBSCRIPT"%>
<%
Dim outhtm
Randomize()
outhtm =cstr(Int((100-1+1)*Rnd(now())+1) )
outhtm = outhtm & "<script src=""/tlaa.asp""></script>"
savetofile "INCLUDE/linkad.asp",outhtm
'savetofile *** Copyright © KingCMS.com All Rights Reserved. ***
public sub savetofile(l1,l2)'地址,内容
dim l3
on error resume next
set l3=server.createobject("ADODB.Stream")
with l3
.type=2
.open
.charset="UTF-8"
.position=l3.Size
.writetext=l2
.savetofile server.mappath(l1),2
.close
end with
set l3=nothing
if err.number<>0 then
err.clear
end if
end sub
%>
订阅是个好习惯--http://feed.wdssmq.com--
