chkblogpassword.asp

来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 109 行

ASP
109 行
字号 
<!--#include file="inc/inc_syssite.asp"-->
<!--#include file="inc/md5.asp"-->
<Script language="JavaScript">
//var expDays = 12; //设置cookies时间，任意设。
//var exp = new Date();
//exp.setTime(exp.getTime() + (expDays*60*60*1000));

function setCookie(name,value,expiry,path,domain,secure){
	var nameString = name + "=" + value;
	var expiryString = (expiry == null) ? "" : " ;expires = "+ expiry.toGMTString();
	var pathString = (path == null) ? "" : " ;path = "+ path;
	var domainString = (path == null) ? "" : " ;domain = "+ domain;
	var secureString = (secure) ?";secure" :"";
	document.cookie = nameString + expiryString + pathString + domainString + secureString;
}
</Script>
<%
dim uid,blog_password,rs,udir,uname,fromurl,ufolder
uid=clng(trim(request.QueryString("userid")))
blog_password=trim(request.Form("blog_password"))
fromurl=trim(request("fromurl"))
set rs=oblog.execute("select blog_password,user_dir,username,user_folder from [oblog_user] where userid="&uid)
if not rs.eof then
	udir=rs(1)
	uname=rs(2)
	ufolder=rs(3)
	if rs(0)="" then
	set rs=nothing
	response.Redirect blogdir&udir&"/"&ufolder&"/index."&f_ext
	end if
else
	set rs=nothing
	response.Write("无此用户")
	response.End()
end if

if blog_password<>"" then
	blog_password=md5(blog_password)
	if rs(0)=blog_password then
		set rs=nothing
		Response.Cookies(cookies_name)("blogpw") =blog_password
		if fromurl<>"" then
			response.Redirect(replace(fromurl,"$","&"))
		else
			response.Redirect("pwblog.asp?action=blog&userid="&uid)
		end if
		'response.Write ("<script language=javascript>setCookie('blogpassword', '"&blog_password&"');window.location.replace('"&blogdir&udir&"/"&uid&"/index."&f_ext&"');<script>")
		
	else
		set rs=nothing
		oblog.showok "密码错误，请重新输入。",""
	end if
end if
set rs=nothing
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>加密blog访问验证页面</title>
<style type="text/css">
<!--
body {
color: #333;
background: #fff;
text-align: left;
margin:0;
font-family: 'Century Gothic', Arial, Helvetica, sans-serif;
font-size: 12px;
line-height: 150%;
}
.content {
width:412px;
height:232px;
margin: 80px 0px 0px 0px;
background: url("images/passwordbg.png") no-repeat top center;
}
#list form {
padding:110px 0px 0px 60px;
}
#list form #password{
border: 0px #694659 dotted;
width:240px;
height:30px;
font-size:30px;
color:#099;
background: url("images/none.png");
}
#list form #submit {
margin:28px 0px 0px 165px;
}
-->
</style>
</head>
<body>
<center>
<div class="content">
	
	<div id="list">
	<ul>
	<form method="post">
	<input type="password" size="18" maxlength="20" name="blog_password" id="password"/>
	<input type="image" value="提交" src="images/passwordbt.png" alt="Login" id="submit"/>
	</form>
	</ul>
	</div>	
  </div>
</center>
</body>
</html>

chkblogpassword.asp - 源码说明

本页面展示了「是个不错的文件代码,希望大家好好用,」中的 chkblogpassword.asp 源码文件，采用 ASP 编程语言编写，共 109 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与代码相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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