沉冰浮水

置百丈玄冰而崩裂,掷须臾池水而漂摇。

【备忘】ASP生成文件

备忘 - ASP生成文件

<%@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 &copy 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
%> 

 

相关文章

全都看不懂
回复
沉冰浮水
沉冰浮水 发布于 2010-07-12 16:41:47  
http://www.wdssmq.com
好吧。。下次更新时就没有了。。
回复
虽然我不知道您是出于什么样儿的母的,我不是任何群组,也不参加什么展览。
回复
那您帮我把链接删了吧,别留着了,谢谢。
回复
沉冰浮水
沉冰浮水 发布于 2010-07-11 09:13:32  
http://www.wdssmq.com
ASP我也不会的。呵。。
回复
我也挺水的!看不懂啊!杯具!
回复
了解一下 不过没有看懂 呵呵
回复
感觉现在ASP空间都好少了,
回复
沉冰浮水
沉冰浮水 发布于 2010-07-10 18:34:20  
http://www.wdssmq.com
还真可以
回复
沉冰浮水
沉冰浮水 发布于 2010-07-10 18:33:50  
http://www.wdssmq.com
很不幸,,可以。。
回复

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

召唤伊斯特瓦尔