2SBlog“空间快速登陆”插件

截面预览:


管理员未登陆时截面


管理员登陆时截面


数据库修改:
/////////////////////////////////////////////////////////////////////////////////
①。
打开数据库blog_Sidebar表


新建一个字段名:Ftplogin



文件修改:
/////////////////////////////////////////////////////////////////////////////////
第一步:
在common.asp文件中
找到:(大约在第15行左右)
'定义所需Cookie,Application Namespace
Const CookieName="myblogsite"  '如果你在此服务器上使用了多个cookie请修改此项

在其后添加:

'定义blog所在空间ftp快速登陆(也可为其他任意ftp)
Const ftpname="www.chinahubei.net"  '如空间地址为:"ftp://www.chinahubei.net"只需输入"www.chinahubei.net"
Const ftpid="wpb1987" '空间ID用户名
Const ftppassword=""  'ID密码,不输入为空(不推荐输入).可以在首页登陆空间的时候再输入

第二步:
在sidebar.asp文件中
找到:(大约在第1行)
<!--#include file="include/calendar.asp"-->

在其后添加:

<script janguage="javascript">
<!--
//空间FTP快速登陆
function myftpspace() {
javascript:window.open(document.href = "ftp://" + document.ftp.login.value + ":" + document.ftp.password.value + "@" + document.ftp.url.value);}
//-->
</script>

第三步:
同样在sidebar.asp文件中
找到:(大约在第70行左右)
    End If
    Response.Write(" ●<a href='gbook.asp#leaveword'>签写留言</a><br> ●<a href='member.asp?action=edit&memID="&memID&"'>资料修改</a><br> ●<a href='login.asp?action=logout'>退出登陆</a></td></tr></table>")
End IF
Response.Write("<br>")%>
<%end if%>

在其后添加:

<%
    Dim ftShow
    set ftShow=Conn.ExeCute("select sb_Show,sb_Img FROM blog_Sidebar where sb_Name='ftplogin'")
    if ftShow("sb_Show")=False then
    Response.Write("")
  %>
<%else%>
<table width="99%" border="0" align="center" cellpadding="4" cellspacing="1" class='panel'>
<tr>
    <td class='panel-title'>
      <%if ftShow("sb_Img")<>empty then Response.Write("<img src='"&ftShow("sb_Img")&"' align='absmiddle'>") else Response.Write("") end if%>
      空间登陆</td>
</tr>
  <tr>
    <td><form name='ftp'><%If memStatus=1 Then
        Response.Write("<img src='images/i_ftp.gif' align='absmiddle'><input type='text' size='12' name='url' value="&ftpname&"><br><img src='images/i_user.gif' align='absmiddle'><input type='text' size='12' name='login' maxlength='20' value="&ftpid&"><br><img src='images/i_pass.gif' align='absmiddle'><input type='password' size='12' name='password' maxlength='20' value="&ftppassword&"><br><input type=button onclick='myftpspace();' value=' 登陆 '> <input type=reset value=' 重置 '>")
            Else
        Response.Write("您无权登陆本站空间<br>请以管理员身份登陆")end if%></form>
</td>
</tr>
</table>
<%end if%>
这样在sidebar.asp文件中就添加了一个"空间登陆"项,方便直接登陆空间.


文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志:
评论: -1 | 引用: 0 | 查看次数: 3517
发表评论
昵 称:
密 码: 游客发言不需要密码.
内 容:
验证码: 验证码
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 1000 字 | UBB代码 开启 | [img]标签 关闭