📄 bless.asp
字号:
<!--#include file="../../../js/conn.asp"-->
<!--#include file="safety.asp"-->
<%
if request.servervariables("request_method")="POST" then '用户删除留言
sql = "select owner_id from W_useralbum where uid="&uid&" "
rs.Open sql,conn,3
owner_id=rs("owner_id")
rs.close
error_tip=false
if Cstr(owner_id)<>request.cookies("user_id") then
error_tip=true
else
sql = "delete from Wed_bless where id="&request.form("id")&" "
conn.execute sql
end if
end if
Function EncodeTxt(fString)
if not(isnull(fString)) then
fString = Replace(fString, ">", ">")
fString = Replace(fString, "<", "<")
fString = Replace(fString," ", " ")
fString = Replace(fString,"""", """)
fString = Replace(fString,CHR(13), "<br>")
fString = Replace(fString, CHR(32), " ")
EncodeTxt = fString
end if
End Function
'查询是否允许用户留言
sql = "select Bless1_Write,Bless2_Write,Bless3_Write from Wed_wedding where uid="&uid&" "
rs.Open sql,conn,3
bless1=rs("bless1_Write")
bless2=rs("bless2_Write")
bless3=rs("bless3_Write")
rs.close
'查询显示所有留言
sql = "select * from W_wedbless_view where uid="&uid&" order by msgdate desc "
rs.Open sql,conn,3
'分页
rs.pagesize=10
if request("page")="" then
page=0
else
page=cint(request("page"))
end if
if page<1 then
page=1
end if
if page>rs.pagecount then
page=rs.pagecount
end if
if rs.recordcount<>0 then rs.absolutepage=page end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../../common.css" rel="stylesheet" type="text/css">
<SCRIPT LANGUAGE=JavaScript SRC="../../wed_bless.js"></SCRIPT>
<SCRIPT LANGUAGE=JavaScript SRC="/js/leftstr.js"></SCRIPT>
<SCRIPT LANGUAGE=JavaScript SRC="/js/showtip.js"></script>
<%="<script>"%>
uid="<%=request("uid")%>"
</script>
<script>
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
MM_preloadImages('/templet/images/wedbbs/player_play.gif','/templet/images/wedbbs/player_paus.gif','/templet/images/wedbbs/player_stop.gif','/templet/images/wedbbs/wave1.gif')
function newopen(x) {
var newwin=window.open(x + "?uid=" + uid,"music","width=526,height=500,scrollbars=yes");
newwin.focus();
}
function delmsg() {
if (confirm('确定删除此条留言吗 ?'))
return true
else
return false
}
function idput(x,y) {
eval("form"+x).id.value=y
}
function tikk() {
alert("请以管理员身份登陆 !!")
}
</script>
<style>
.title {color:#993300;}
.txt {color:#91765A;line-height:140%}
.frame_title {letter-spacing: 1px;color:#cc6633}
.timeinfo {color:#996633}
.music {color:#669966}
.msgname {color:#A85100}
.nameinfo {color:#FF8A00}
.page {color:#CC3333}
</style>
<title>婚礼在线</title>
</head>
<%
if error_tip then
response.write("<script>")
response.write("alert('您不拥有该权限,或该相册已经赠送他人 !!')")
response.write("</script>")
end if
%>
<body topmargin="0" leftmargin="0" marginwidth="0" marginheight="0" onload="init()">
<div align="center">
<!--#include file="menu.asp"-->
<div style="visibility: hidden">
<label id="playerinfo"></lable><label id="playtime"></lable><img name="toshiba" src="/images/empty.gif">
<img name="wavea" src="/images/empty.gif">
<img name="waveb" src="/images/empty.gif">
<OBJECT classid=CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6 height=1 width=1 id="mplayer" style="LEFT: 0px; POSITION: relative; TOP: 0px" type=application/x-oleobject standby="Loading.... Microsoft Windows Media Player"></OBJECT>
<div id="span"></div><div id="mar"></div>
</div>
<table cellpadding="0" cellspacing="0" height="10"><tr><td></td></tr></table>
<table cellpadding="0" cellspacing="0" width="780" height="160" background="../../images/wedbbs/top.jpg">
<tr>
<td width="190"></td>
<td width="118" valign="top" style="padding-top:68"><img src="../../images/wedbbs/b1.jpg" onclick="<%if bless1 then%>newopen('../../wed_music_add.asp')<%else%>javascript:alert('管理员已禁止访问点歌台 !!')<%end if%>" style="cursor:hand"></td>
<td width="118" valign="top" style="padding-top:68"><img src="../../images/wedbbs/b2.jpg" onclick="<%if bless2 then%>newopen('../../wed_gift_add.asp')<%else%>javascript:alert('管理员已禁止访问礼品店 !!')<%end if%>" style="cursor:hand"></td>
<td width="118" valign="top" style="padding-top:68"><img src="../../images/wedbbs/b3.jpg" onclick="<%if bless3 then%>newopen('../../wed_txt_post.asp')<%else%>javascript:alert('管理员已禁止文本留言 !!')<%end if%>" style="cursor:hand"></td>
<td valign="top">
<table width="100%">
<tr><td height="90" valign="top" style="padding:38 0 0 26"><%if rs.recordcount>0 then%><div id="scroll_main_1" style="position: absolute; overflow:hidden; width:160;" onmouseover="scrolling_stop_1();" onmouseout="mainFrame2_1();" ></div><%end if%></td></td></tr>
<tr><td align="right" style="padding-right:90">
<img src="../../images/wedbbs/msgcount.gif" hspace="5" align="absbottom"><font color="#669966"><%=rs.recordcount%>条留言</font></td></tr>
</table>
</tr>
</table>
<table cellpadding="0" cellspacing="0" background="../../images/wedbbs/linebg.gif">
<tr>
<td width="23" valign="top"><img src="../../images/wedbbs/left.gif"></td>
<td width="734" align="center" valign="top">
<table width="700"><tr><td>
<table width="700" cellpadding="0" cellspacing="0">
<%if rs.recordcount>0 then%>
<%for i= 1 to rs.pagesize%>
<%select case rs("ty")%>
<%case 1%>
<tr>
<td width="160" valign="top" align="center" style="padding-top:14">
<table cellpadding="0" cellspacing="0">
<tr><td background="../../images/wedbbs/icon_bg2.gif">
<table cellpadding="0" cellspacing="0" width="129" style="background:url('../../images/wedbbs/icon_bg1.gif') no-repeat">
<tr>
<td width="40" valign="top" style="padding:8 0 0 15"><img src="../../images/wedbbs/no<%=i%>.gif"></td>
<td style="padding:8 0 0 0"><img src="/images/icon/<%=rs("portrait")%>.gif"></td>
</tr>
<tr><td colspan="2" height="4"></td></tr>
<tr><td colspan="2" height="38" background="../../images/wedbbs/nameinfo_bg.gif" valign="top" style="padding:4 0 0 35">
<table cellpadding="0" cellspacing="0"><tr><td class="nameinfo" bgcolor="#F5F5F5"><%="<script>"%>document.write(leftstr("<%=rs("msgpeople")%>",13))</script> </td></tr></table>
<table cellpadding="0" cellspacing="0" height="2"><tr><td></td></tr></table>
<table cellpadding="0" cellspacing="0"><tr><td width="17"><img src="../../images/wedbbs/nameinfo_url.gif" alt="个人主页:<%=rs("msgurl")%>"></td><td width="17"><img src="../../images/wedbbs/nameinfo_tel.gif" alt="联系电话:<%=rs("msgtel")%>"></td><td width="17"><img src="../../images/wedbbs/nameinfo_mail.gif" alt="电子邮件:<%=rs("msgmail")%>"></td><td width="17"><img src="../../images/wedbbs/nameinfo_heart.gif" alt="个人QQ:<%=rs("msgqq")%>"></td></tr></table>
</td></tr>
<tr><td colspan="2" height="6"></td></tr>
</table>
</td></tr>
<tr><td height="1" background="../../images/wedbbs/icon_bg3.gif"></td></tr>
</table>
</td>
<td valign="top" style="padding-top:5">
<table width="540" cellpadding="0" cellspacing="0">
<tr><td><form method="POST" onSubmit="return delmsg()" name="form<%=i%>"><table cellpadding="0" cellspacing="3"><tr><td width="400" class="title" valign="bottom"><img src="../../images/wedbbs/cell.gif"> <%=rs("msgpeople")%> 发表于 <%=rs("msgdate")%></td><td><%if request.cookies("isvalid")<>"yes" then%><a href="/htm/login.asp" onfocus="this.blur()"><img src="../../images/wedbbs/menu_1.gif" onclick="tikk()" onmouseover="showTip(this, popTip, '删除留言')" onmouseout="hideTip(this, popTip)"></a><%else%><input type="image" src="../../images/wedbbs/menu_1.gif" onclick="idput(<%=i%>,<%=rs("id")%>)" onfocus="this.blur()" onmouseover="showTip(this, popTip, '删除留言')" onmouseout="hideTip(this, popTip)"><input type="hidden" name="id"><%end if%></td></tr></form></table>
<tr><td height="1" bgcolor="#F3E4D7"></td></tr>
<tr><td height="5"></td></tr>
<tr><td align="center">
<table width="504" height="62" cellpadding="0" cellspacing="0" background="../../images/wedbbs/frame_title.gif"><tr><td width="72" style="padding-left:14"><img src="../../images/wedbbs/frame_music.gif"></td><td valign="top" style="padding-top:37" class="frame_title">好友[<%=rs("msgpeople")%>]为<%=rs("bridegroom")%>和<%=rs("bride")%>点播歌曲！</td></tr></table>
<table width="504" cellpadding="0" cellspacing="0" background="../../images/wedbbs/frame_bg.gif">
<tr><td style="padding-left:18">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -