config root man

Current Path : /var/sites/m/makeitez.co.uk/public_html/

Linux lin101.gridhost.co.uk 3.2.83 #4 SMP Thu Oct 27 23:38:08 BST 2016 x86_64
Upload File :
Current File : /var/sites/m/makeitez.co.uk/public_html/admin_default.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/blog.asp" -->
<%
Function IsValidString(sValidate)
    Dim sInvalidChars
    Dim bTemp
    Dim i 
    ' Disallowed characters
    sInvalidChars = "!#$%^&*()=+{}[]|\\;?><'"
    for i = 1 To Len(sInvalidChars)
        if InStr(sValidate, Mid(sInvalidChars, i, 1)) > 0 then bTemp = True
        if bTemp then Exit For
    next
    for i = 1 to Len(sValidate)
        if Asc(Mid(sValidate, i, 1)) = 160 then bTemp = True
        if bTemp then Exit For
    next


    if not bTemp then
        bTemp = InStr(sValidate, "..") > 0
    end if
    if not bTemp then
        bTemp = InStr(sValidate, "  ") > 0
    end if
    if not bTemp then
        bTemp = (len(sValidate) <> len(Trim(sValidate)))
    end if 'Addition for leading and trailing spaces

    ' if any of the above are true, invalid string
    IsValidString = Not bTemp
End Function
if IsValidString(Request.Form("username")) AND IsValidString(Request.form("remember")) AND IsValidString(Request.Form("password")) AND IsValidString(Request.QueryString("accessdenied")) Then
If cstr(Request.Form("username"))<>"" Then
  If Request.form("remember") ="1" Then
     Response.Cookies("ckUsername") = Request.Form("username")
     Response.Cookies("ckPassword") = Request.Form("password")
     Response.Cookies("ckRemember") = "1"
     Response.Cookies("ckUsername").expires = Date + 30
     Response.Cookies("ckPassword").expires = Date + 30
     Response.Cookies("ckRemember").expires = Date + 30
  Else
     Response.Cookies("ckRemember") = ""
     Response.Cookies("ckUsername") = ""
     Response.Cookies("ckPassword") = ""
  End If
End If
%>
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)
MM_valUsername=CStr(Request.Form("username"))
If MM_valUsername <> "" Then
  MM_fldUserAuthorization="Approved"
  MM_redirectLoginSuccess="main.asp"
  MM_redirectLoginFailed="admin_default.asp?lf=true"
  MM_flag="ADODB.Recordset"
  set MM_rsUser = Server.CreateObject(MM_flag)
  MM_rsUser.ActiveConnection = MM_blog_STRING
  MM_rsUser.Source = "SELECT fldAuthorUsername, fldAuthorPassword"
  If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
  MM_rsUser.Source = MM_rsUser.Source & " FROM tblAuthor WHERE fldAuthorUsername='" & Replace(MM_valUsername,"'","''") &"' AND fldAuthorPassword='" & Replace(Request.Form("password"),"'","''") & "' AND Approved = 1"
  MM_rsUser.CursorType = 0
  MM_rsUser.CursorLocation = 2
  MM_rsUser.LockType = 3
  MM_rsUser.Open
  If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then 
    ' username and password match - this is a valid user
    Session("MM_Username") = MM_valUsername
    If (MM_fldUserAuthorization <> "") Then
      Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
    Else
      Session("MM_UserAuthorization") = ""
    End If
    if CStr(Request.QueryString("accessdenied")) <> "" And true Then
      MM_redirectLoginSuccess = Request.QueryString("accessdenied")
    End If
    MM_rsUser.Close
    Response.Redirect(MM_redirectLoginSuccess)
  End If
  MM_rsUser.Close
  Response.Redirect(MM_redirectLoginFailed)
End If
end if
%>

<%
Dim rsBlogSite
Dim rsBlogSite_numRows

Set rsBlogSite = Server.CreateObject("ADODB.Recordset")
rsBlogSite.ActiveConnection = MM_blog_STRING
rsBlogSite.Source = "SELECT * FROM tblBlogRSS"
rsBlogSite.CursorType = 0
rsBlogSite.CursorLocation = 2
rsBlogSite.LockType = 1
rsBlogSite.Open()

rsBlogSite_numRows = 0
%>
<%
Dim rsLayout
Dim rsLayout_numRows

Set rsLayout = Server.CreateObject("ADODB.Recordset")
rsLayout.ActiveConnection = MM_blog_STRING
rsLayout.Source = "SELECT * from tblLayout WHERE layoutid = " & (rsBlogSite.Fields.Item("blogLayout").Value)
rsLayout.CursorType = 0
rsLayout.CursorLocation = 2
rsLayout.LockType = 1
rsLayout.Open()

rsLayout_numRows = 0
%>

<%=(rsLayout.Fields.Item("layout1").Value)%>
<title>Login</title>


<%=(rsLayout.Fields.Item("layout2").Value)%>
<!--new bit -->
<!-- header starts here -->
	<div id="header">
	  <div id="header-content">
        <h1 id="logo">make IT easy</h1>
	    <h2 id="slogan"> business computing made easy</h2>
	    <!-- Menu Tabs -->
        <ul>
          <li><a href="index.asp">Home</a></li>
          <li><a href="services.asp">Services</a></li>
          <li><a href="contact.asp">Contact</a></li>
          <li><a href="default.asp" id="current">Blog</a></li>
          <li><a href="uploads/vids/vids.asp">Videos</a></li>     
        </ul>
      </div>
	</div>
<!-- end of new bit --><p id="description">&nbsp;</p>
<%=(rsLayout.Fields.Item("layout3").Value)%>

 <h3> Login</h3>
 <form action="<%=MM_LoginAction%>" method="POST" name="loginFrm" id="loginFrm">
<table width="100%"  border="0" align="center" cellpadding="3" cellspacing="2" class="tabledisplay">
<% If (Request.QueryString("lf")) = ("true") Then 'script %>
<tr><th colspan="2">Login Failed, Try Again (or you may not be approved just yet)</th>
</tr>
<% End If ' end If (Request.QueryString("lf")) = ("true") script %>
<tr>
<th align="right">Username:</th>
<td>
<input value="<%= Request.Cookies("ckUsername") %>" name="username" type="text" class="txtBox" id="username" tabindex="1" /></td>
</tr>
<tr>
<th align="right">Password:</th>
<td><input value="<%= Request.Cookies("ckPassword") %>" name="password" type="password" class="txtBox" id="password" tabindex="2" /></td>
</tr>
<tr>
<th align="right">Remember Me:</th>
<td>
<input name="remember" type="checkbox" id="remember" tabindex="3" value="1" checked="checked" <%If (Request.Cookies("ckRemember") = "1") Then Response.Write("CHECKED") : Response.Write("")%> /></td>
</tr>
<tr align="center" valign="middle">
<td colspan="2">
  <input name="lgnBtn" type="submit" class="btn" id="lgnBtn" tabindex="4" value="Login &gt;&gt;" /></td>
</tr>
</table>
</form>
<%=(rsLayout.Fields.Item("layout4").Value)%><!-- #BeginLibraryItem "/Library/admin_sidebar.lbi" --><% if Session("MM_Username") <> "" Then %>
<% 
if Session("MM_Username") = "admin" Then 
	Session("isAdmin") = 1
else
	Session("isAdmin") = 0
end if
%>
<%
Dim rsComments_Pending
Dim rsComments_Pending_numRows

Set rsComments_Pending = Server.CreateObject("ADODB.Recordset")
rsComments_Pending.ActiveConnection = MM_blog_STRING
rsComments_Pending.Source = "SELECT Count(*) as CommentsPendingCount FROM tblComment WHERE commentInclude = 0"
rsComments_Pending.CursorType = 0
rsComments_Pending.CursorLocation = 2
rsComments_Pending.LockType = 1
rsComments_Pending.Open()

rsComments_Pending_numRows = 0
%>
<%
Dim rsUserID
Dim rsUserID_numRows

Set rsUserID = Server.CreateObject("ADODB.Recordset")
rsUserID.ActiveConnection = MM_blog_STRING
rsUserID.Source = "SELECT *  FROM tblAuthor WHERE fldAuthorUsername = '" + Session("MM_Username") + "'"
rsUserID.CursorType = 0
rsUserID.CursorLocation = 2
rsUserID.LockType = 1
rsUserID.Open()
Session("MM_UserID") = (rsUserID.Fields.Item("fldAuthorID").Value)

rsUserID_numRows = 0
%>
<%
rsUserID.Close()
Set rsUserID = Nothing
%>
<h2>Blog</h2>
<ul>
  <li><a href="main.asp">Blog Entries</a></li>
  <li><a href="add_blog.asp">Create a New Entry</a></li>
<% if Session("isAdmin") = 0 then %> 
<li><a href="user_update.asp?id=<%=Session("MM_UserID")%>">Profile</a></li> 
</ul>
<% end if %>  
<% if Session("isAdmin") = 1 then %>  
  <li><a href="approve_comments.asp">Approve Comments (<%=(rsComments_Pending.Fields.Item("CommentsPendingCount").Value)%> Pending)</a></li>
  <li><a href="blog_config.asp">Blog Configuration</a></li> 
</ul>
<h2>Categories</h2>
<ul>
  <li><a href="cat.asp">Categories</a></li>
  <li><a href="cat_add.asp">Add a Category</a></li>
</ul>
<h2>Pages</h2>
<ul>
  <li><a href="pages.asp">Pages</a></li>
  <li><a href="add_page.asp">Add Page</a></li>
</ul>
<h2>Gallery</h2>
<ul>
  <li><a href="gallery.asp">Gallery</a></li>
  <li><a href="gallery_config.asp">Gallery Configuration</a></li>
</ul>
<h2>Users</h2>
<ul>
  <li><a href="users.asp">Users</a></li>
  <li><a href="user_add.asp">Add User</a></li>
  <li><a href="admin_default.asp">Login</a></li>
</ul>
<h2>Layout</h2>
<ul>
  <li><a href="layout.asp">Available layouts</a></li>
  <li><a href="layout_add.asp">Add a new layout</a></li>
</ul>
<% end if %>
<h2>Errata</h2>
<ul>
  <li><a href="rss.asp">Update RSS</a></li>
</ul>
<%
rsComments_Pending.Close()
Set rsComments_Pending = Nothing
%>
<% End If %>
<!-- #EndLibraryItem --><%=(rsLayout.Fields.Item("layout5").Value)%>
<%
rsBlogSite.Close()
Set rsBlogSite = Nothing
%>
<%
rsLayout.Close()
Set rsLayout = Nothing
%>

Man Man