asp图片验证代码察看

[复制链接]

DJ敗類ヤ傲天

电梯直达

1^#

发表于 2010-1-7 03:27:41 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

<%

dim aspdir,Dir
aspdir=request.servervariables("SCRIPT_NAME")

Dir = "aspdir"
HitsFile = Server.MapPath(Dir) & "\ntcount\hits.txt"
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
File2 = "dir\file1.txt"

On Error Resume Next
Set InStream= FileObject.OpenTextFile (File2, 1, false )
content = CStr(Trim(InStream.ReadLine))
response.write content

%>
<%
newContent="大家好才是真的好！"
Set OutStream= FileObject.CreateTextFile (File2, True)
OutStream.WriteLine(newContent)
%>

收藏0

使用道具举报

大陆猪头

2^#

发表于 2010-1-7 03:27:44 | 只看该作者

不错，支持！！！！！！！！！！
-------------------------------------------------
现108网址站免费收录各种网站，详细请看
http://www.108.hk/
或
http://bbs.108.hk/
108网址站，要您发网址站，做中国最好用的网址大全！
欢迎各大站长前来交换练接！
108网址站现有免费超酷二极域名申请，还带域名证书，还可设置三给域名.....`
是否还在为您的主页地址太长难记而发愁？
在这里您可以免费申请到以108.hk为后缀的域名！
您的http://xiaoxiao.home.chinaren.com/index.html马上就可以变为www.xxx.108.hk或xxx.108.hk!
同时你还可以在xxx.108.hk下添加次级域名!
申请二级域名地址：
http://my.108.hk

回复支持反对

使用道具举报

返回列表

GMT+8, 2024-11-20 00:50 , Processed in 0.099782 second(s), 9 queries , Gzip On, Memcache On.

		自动登录	找回密码
密码			注册