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

admin 2021年4月3日19:04:39评论135 views字数 895阅读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文本编辑 - 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架构。创新型内容管理模式,建立频道后可定义内容模型,均在后台可以控制,非常方便。     模…

  • 左青龙
  • 微信扫一扫
  • weinxin
  • 右白虎
  • 微信扫一扫
  • weinxin
admin
  • 本文由 发表于 2021年4月3日19:04:39
  • 转载请保留本文链接(CN-SEC中文网:感谢原作者辛苦付出):
                   【原创】Asp简易在线文本编辑器(支持密码)https://cn-sec.com/archives/319808.html

发表评论

匿名网友 填写信息