ASP 留言板

最新推荐文章于 2024-05-25 10:21:22 发布

Angel枫丨灬红叶

最新推荐文章于 2024-05-25 10:21:22 发布

阅读量820

点赞数

分类专栏：网页开发文章标签：网页开发

本文链接：https://blog.csdn.net/yuanyunfeng3/article/details/41356527

版权

网页开发专栏收录该内容

1 篇文章 0 订阅

订阅专栏

say.png<img src="https://img-blog.csdn.net/20141126182428694" alt="" />

bg.png<img src="https://img-blog.csdn.net/20141126182358242?watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQveXVhbnl1bmZlbmcz/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/Center" alt="" />

<!--现在图片好像只支持IE系列了，有点坑。。
	Author: wintersun
	data: 2014/11/20
-->
<html>
<head><title>留言板 by wintersun</title></head>
<%Randomize%>
<style type="text/css">
.messagebg
{

<%
'由于IE6不支持透明图片，只好去网上找个滤镜。。
if 
filter:progid:DXImageTransform.Microsoft.AlphaImageLoader(src="img/say.png",sizingMethod="crop");
background:none;
%>
 
width:548;
height:107;
position:relative;
top:-80px;
left:120px;
}
.message
{
width:80%;
height:20%;
width: expression(this.offsetWidth > 110 ? '110px': true); //同样兼容IE6
max-width: 110px;
position:relative;
left:25px;
top:25px;
}
.title
{
position:relative;
left:38%;
}
body {
	background: #eeeeee url(img/bg.jpg);
}
.ip
{
text-align:right;
}
.author
{
text-align:right;
}
.name
{
color : #999999;
}

</style>

<%
	
	'输入模块
	dim name , text ,uptime
	set fs=server.createobject("scripting.filesystemobject")
	set ts1=fs.opentextfile(server.mappath("1.txt"),8,true,0)
	name = request.form("username")
	text = request.form("text")
	'服务端验证
	if  Request.cookies("text")<>text then  '防止重复提交
		if  not name="" and not text="text" then '如果都不为空,则输入到文本中去。
		uptime=now() '提取提交时间
		ts1.writeline(name&","&uptime&","&text&","&request.servervariables("remote_addr"))
		end if
		response.cookies("text")=text '赋新值
		response.cookies("text").Expires=dataadd("n",5,now()) '5分钟内不得重复提交。
	end if

	'输出模块
	dim now_time , timelength
	now_time=now()
	response.write("<img class=""title"" src=""img/title.png""/><br><div class = ""author"">by wintersun</div><br><hr>")
	set ts2=fs.opentextfile(server.mappath("1.txt"),1,true,0)
	x=1
	do while not ts2.atendofstream
	str=ts2.readline
	a=split(str,",")
	
	timelength=datediff("s",a(1),now_time)'时间长度处理
	if timelength>60 then
		if timelength>3600 then
			if timelength>86400 then
				if timelength>604800 then
					timelength=uptime '若日期过于久远。
					s=""
				else
					timelength=timelength/86400
					s="天前"
				end if
			else
				timelength=timelength/3600
				s="小时前"
			end if
		else
			timelength=timelength/60
			s="分钟前"
		end if
	else
		s="秒前"
	end if
	timelength=cint(timelength)
	
	response.write("#"&x&"<div class=""name""><strong>"&a(0)&"</strong> | "&timelength&s&"</div><br>")	
	%>
	<div style="width:100%;filter:progid:DXImageTransform.Microsoft.AlphaImageLoader(src='img/<%=int((6 * rnd) + 1)%>.png',sizingMethod='image')></div>
	<%
	'这里不知道为什么一定要加上<div class=""pic1""></div>，如果不加，页面排版就不对了
	response.write("<div class=""pic1""></div><div class=""messagebg""><div class=""message"">"&a(2)&"</div></div>")
	response.write("<div class=""ip"">来自:"&a(3)&"</div>")
	response.write("<hr>")
	x=x+1         '楼层编号
	loop
%>

<script>
function click1()//客户端验证
{
if(document.form.username.value=="")
	alert("请输入用户名!")
else 
	{
		if(document.form.text.value=="")
			alert("请输入留言内容!")
		else
		{
			document.form.submit()
		}
	}
}
</script>
<body>
<form action ="1.asp" method = "post" name="form">
姓名:    <input type="text" name="username" ><br>
留言内容:<textarea rows=10 cols=60 name ="text" ></textarea><br>
<button οnclick="click1()">提交</button><input type ="reset" value="重置">
</form>
<embed src="bgmusic.mp3" autostart="true" loop="true" hidden="true"></embed><!--背景声音-->
</body>
</html>

Angel枫丨灬红叶

关注

0
点赞
踩
1

收藏

觉得还不错? 一键收藏
0
评论
ASP 留言板

留言板 by wintersun.messagebg{<%'由于IE6不支持透明图片，只好去网上找个滤镜。。if filter:progid:DXImageTransform.Microsoft.AlphaImageLoader(src="img/
复制链接

扫一扫

专栏目录