asp 这种方式何解
本帖最后由 wxdesign 于 2019-10-22 01:43 编辑Set AspCoding_=Server.CreateObject("ASPEncodeDLL.AspCoding")
AspCoding_Num =AspCoding_.GetMD5(Request.ServerVariables("LOCAL_ADDR")& AspCoding_.GetCPU& Chr(56)& Chr(53)& Chr(56)& Chr(49)& Chr(55)& Chr(52)& Chr(106)& Chr(105)& Chr(110)& Chr(115)& Chr(104)& Chr(64)& Chr(35)& Chr(36)& Chr(37)& Chr(36))
AspCoding_Num2=AspCoding_.GetMD5(AspCoding_Num& Chr(56)& Chr(53)& Chr(56)& Chr(49)& Chr(55)& Chr(52)& Chr(106)& Chr(105)& Chr(110)& Chr(115)& Chr(104)& Chr(64)& Chr(35)& Chr(36)& Chr(37)& Chr(36))
%>
<!--#include file="../conn.asp" -->
<%
sz=server.mappath("/User_Key.ini")
Set fso = CreateObject("Scripting.FileSystemObject")
if fso.fileexists(server.mappath("/User_Key.ini")) then
%>
<!DOCTYPE html>
<html class="bootstrap-admin-vertical-centered">
<head>
<title>XXXX系统后台</title>
<meta name="renderer" content="webkit">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="viewport" content="width=device-width, initial-scale=1.0, minimum-scale=0.5, maximum-scale=2.0, user-scalable=no" />
<link href="css/bootstrap.min.css" rel="stylesheet" media="screen">
<link href="css/bootstrap-theme.min.css" rel="stylesheet" media="screen">
<link href="css/bootstrap-admin-theme.css" rel="stylesheet" media="screen">
<style type="text/css">
.alert{
margin: 0 auto 20px;
}
</style>
</head>
<body class="bootstrap-admin-without-padding">
<div class="container">
<div class="row">
<form method="post" action="check.asp?action=login" class="bootstrap-admin-login-form">
<h3>XXXX系统后台</h3>
<div class="form-group">
<input class="form-control" type="text" name="admin_name" placeholder="账号">
</div>
<div class="form-group">
<input class="form-control" type="password" name="admin_pass" placeholder="密码">
</div>
<!--
<div class="form-group">
<input class="form-control" type="password" name="key" placeholder="密匙" style="width:40%;">
</div>
-->
<div class="form-group">
<label>
<input type="checkbox" name="remember_me">
记住密码
</label>
</div>
<button class="btn btn-lg btn-primary" type="submit">登 录</button>
</form>
</div>
</div>
</body>
</html>
<% else %>
<%
Set AspCoding_=Server.CreateObject("ASPEncodeDLL.AspCoding")
AspCoding_Num =AspCoding_.GetMD5(Request.ServerVariables("LOCAL_ADDR")& AspCoding_.GetCPU& Chr(56)& Chr(53)& Chr(56)& Chr(49)& Chr(55)& Chr(52)& Chr(106)& Chr(105)& Chr(110)& Chr(115)& Chr(104)& Chr(64)& Chr(35)& Chr(36)& Chr(37)& Chr(36))
AspCoding_Num2=AspCoding_.GetMD5(AspCoding_Num& Chr(56)& Chr(53)& Chr(56)& Chr(49)& Chr(55)& Chr(52)& Chr(106)& Chr(105)& Chr(110)& Chr(115)& Chr(104)& Chr(64)& Chr(35)& Chr(36)& Chr(37)& Chr(36))
%>
<style>
*, *:before, *:after {
-moz-box-sizing: border-box;
-webkit-box-sizing: border-box;
-o-box-sizing: border-box;
-ms-box-sizing: border-box;
box-sizing: border-box;
}
.clearfix {*zoom: 1;}
.clearfix:before, .clearfix:after {
display: table;
line-height: 0;
content: "";
}
.clearfix:after {clear: both;}
html, body {
margin: 0;
padding: 0;
height:100%;
}
html{
-ms-text-size-adjust: 100%;
-webkit-text-size-adjust: 100%; /*Safari文字缩放*/
}
body {
font-family: "微软雅黑", Tahoma, Arial, Helvetica, sans-serif;
font-size: 12px;
text-align: left;
}
a {
color: #0088cc;
text-decoration: none;
transition: all 0.4s ease 0s
}
a:hover {
text-decoration: underline;
}
a:focus, input:focus, button:focus, select:focus, textarea:focus , option:focus {
outline: none;
}
.btn {
display: inline-block;
margin-right: 5px;
padding: 4px 20px;
background: #fff;
border: 1px solid #ddd;
font-size: 12px;
color: #89949b;
text-align: center;
cursor: pointer;
transition: all 0.4s ease 0s;
}
.btn_blue {
background: #3e8cd4;
border: 1px solid #3e8cd4;
color: #fff;
}
/*通知推送展示*/
.announce_body{ background-color:#efefef;}
.announce_box{ width:90%; max-width:800px; background-color:#FFF; border:1px solid #ddd; position:relative; margin:0 auto; padding:0; top:15%; }
.announce_tit{ padding:20px 0 10px 0; border-bottom: 1px solid #efefef; margin:0 30px ;}
/* background:url( ../images/ico/announce_tit.png) 0 50% no-repeat; */
.announce_tit h3{ font-size:16px; font-weight:inherit; min-height:24px; padding: 0; margin: 0;}
.announce_content{ padding:20px 30px; min-height: 380px;}
.announce_bottom{ text-align:center; padding:10px 30px 20px 30px;}
.announce_bottom .btn_blue:hover{ text-decoration:none;}
.form-keywords {
/*display: block;*/
width: 20%;
height: 25px;
width: 250px;
padding: 2px 12px;
font-size: 14px;
line-height: 1.428571429;
color: #555;
vertical-align: middle;
background-color: #fff;
border: 1px solid #ccc;
border-radius: 4px;
-webkit-box-shadow: inset 0 1px 1px rgba(0,0,0,0.075);
box-shadow: inset 0 1px 1px rgba(0,0,0,0.075);
-webkit-transition: border-color ease-in-out .15s,box-shadow ease-in-out .15s;
transition: border-color ease-in-out .15s,box-shadow ease-in-out .15s;
}
.btnbtn {
display: inline-block;
padding: 1px 12px;
margin-bottom: 0;
height: 25px;
font-size: 14px;
font-weight: normal;
line-height: 1.428571429;
text-align: center;
white-space: nowrap;
vertical-align: middle;
cursor: pointer;
border: 1px solid transparent;
border-radius: 4px;
-webkit-user-select: none;
-moz-user-select: none;
-ms-user-select: none;
-o-user-select: none;
user-select: none;
}
</style>
</head>
<%
Response.Buffer = True
Response.Expires = 0
Response.CacheControl = "Private"
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set drv = fs.GetDrive(Left(Server.MapPath("."), 2))
ssn=drv.SerialNumber
Set drv = Nothing
Set fs = Nothing
action=Trim(Request.QueryString("action"))
if action="modify" then
sn=Trim(Request.Form("sn"))
If sn =AspCoding_Num2 then
sn=Trim(Request.Form("sn"))
FirstUseUrl=Trim(Request.Form("FirstUseUrl"))
Expire=Trim(Request.Form("Expire"))
set rs=server.createobject("adodb.recordset")
sql="select * from domain where ID=1"
rs.open sql,conn,2,3
rs("sn")=sn
rs("FirstUseUrl")=FirstUseUrl
rs("Expire")=Expire
rs.update
Set AspCoding_=Server.CreateObject("ASPEncodeDLL.AspCoding")
AspCoding_Null=AspCoding_.CreateFile(Server.Mappath("/User_Key.ini"),sn)
rs.close
set rs=nothing
conn.close
response.write "<script>window.location.href='index.asp';</script>"
Response.end()
else
erro="注册码不正确请检查！"
End If
end if
%>
<body class="announce_body">
<div class="announce_box">
<div class="announce_tit">
<h3>注册授权写入</h3>
</div>
<div class="announce_content">
<form method="POST" action="?action=modify">
<div align="center">
<table border="0" width="600" id="table1" cellpadding="3" height="345">
<tr>
<td height="54" colspan="2"></font></td>
</tr>
<tr>
<td width="113" align="right">机器码：</td>
<td><divclass="form-keywords" style="width:80% ;"><%=AspCoding_Num%></div><input type="hidden" name="FirstUseUrl" value="<%=AspCoding_Num%>"></td>
</tr>
<tr>
<td width="113" align="right">授权码：</td>
<td><input type="text" name="sn" size="30" class="form-keywords" value="<%=erro%>"> 例如：54EAF3*******</td>
</tr>
<tr>
<td width="113" align="right">授权时间：</td>
<td><divclass="form-keywords" ><%=Date%></div><input type="hidden" name="Expire" value="<%=Date%>"></td>
</tr>
<tr>
<td width="113" align="right" height="6"></td>
<td height="6"> </td>
</tr>
<tr>
<td width="113" align="right"> </td>
<td><input type="submit" value="提交" name="B1" class="btnbtn "></td>
</tr>
<tr>
<td width="113" align="right"> </td>
<td> </td>
</tr>
<tr>
<td width="113" align="right"> </td>
<td>注意！<br><font size="2">
请提交后保存好注册码，预防丢失！</td>
</tr>
<tr>
<td width="113"> </td>
<td> </td>
</tr>
</table>
</form>
</div>
</div><div class="announce_bottom">
<div id="know60s" style="display: block;margin-top:15px;"> </div>
</div>
</div>
<%
end if
Set fso = nothing
%>
页:
[1]