【原创】Asp简易在线文本编辑器(支持密码)

admin 2021年4月3日19:04:39lcx评论30 views895字阅读2分59秒阅读模式

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<a href="http://cn-sec.com/archives/tag/%e6%96%87%e6%9c%ac%e7%bc%96%e8%be%91">文本编辑</a> - By:Nuclear'Atk

网马地址一行一个
支持无限行

" & vbcrlf
    Response.Write "

" & vbcrlf
    Response.write "

" & vbcrlf
    Response.Write "

" & 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架构。创新型内容管理模式,建立频道后可定义内容模型,均在后台可以控制,非常方便。     模…

特别标注: 本站(CN-SEC.COM)所有文章仅供技术研究,若将其信息做其他用途,由用户承担全部法律及连带责任,本站不承担任何法律及连带责任,请遵守中华人民共和国安全法.
  • 我的微信
  • 微信扫一扫
  • weinxin
  • 我的微信公众号
  • 微信扫一扫
  • weinxin
admin
  • 本文由 发表于 2021年4月3日19:04:39
  • 转载请保留本文链接(CN-SEC中文网:感谢原作者辛苦付出):
                  【原创】Asp简易在线文本编辑器(支持密码) http://cn-sec.com/archives/319808.html

发表评论

匿名网友 填写信息

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: