www.gusucode.com > 雨点单用户免雨点单用户免费留言板 2.0 Build 080828 > index.asp
<%@ Language=VBScript %>
<%response.buffer=false%>
<%response.expires = 0 %>
<!--#include file="conn.asp"-->
<!--#include file="ubbcode.asp"-->
<%
set rs1=conn.execute("select * from [userlist]")
session("ischeck")=rs1("ischeck")
myforbid=rs1("forbid")
set rs_color=conn.execute("select bg1,bg2,bg3 from [color] where id="&rs1("color_id"))
s_bg1=rs_color(0)
s_bg2=rs_color(1)
s_bg3=rs_color(2)
sql="select * from message where 1=1"
keyword=HTMLEncode(request("keyword"))
if session("ischeck")=true then
sql=sql&" and ischeck=1"
end if
if keyword<>"" then
sql=sql&" and T_content like '%"&keyword&"%'"
end if
sql=sql&" order by addtime desc"
Call RsName(rs,sql,1,1)
%>
<html>
<head>
<title><%=rs1("web")%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="免费留言板">
<meta name="description" content="雨点免费留言板,单用户免费留言本">
<link href="css.css" rel="stylesheet" type="text/css">
<script language="javascript" src="inc/myjs.js"></script>
<script language="javascript">
//*****************************************
//程序开发：义乌知道
//http://www.ywask.com
//E-mail: ywask@126.com
//源码共享 http://www.ywask.com/democode.html
//本程序：雨点单用户免费留言板V2.1 Build080828
//请保留以上信息，谢谢！！！
//*****************************************
function Mpic(f){
if (pass.style.display=="none"){
pass.style.display='';
f.checked=true;
}else{
pass.style.display='none';
f.checked=false;
}
}
</script>
</head>
<%
dim MaxPerPage
MaxPerPage=rs1("everypage")
dim text,checkpage
text="0123456789"
Rs.PageSize=MaxPerPage
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next
If checkpage<>0 then
If NOT IsEmpty(request("page")) Then
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
Else
CurrentPage= 1
End If
If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if
%>
<body background="image/bg1.gif" topmargin="5">
<!--#include file="top.asp"-->
<table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="12"> </td>
</tr>
</table>
<table width="740" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="678" height="20" class="f12"><marquee scrolldelay=50; scrollamount=3; onMouseOver=stop(); onMouseOut=start(); direction=left >
<font color="#3300FF"> <%=rs1("web")%> 欢迎您！</font>
</marquee></td>
</tr>
</table>
<table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="12"> </td>
</tr>
</table>
<%if session("adminok_guest")<>"mysinglegb" then%>
<table width="740" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="<%=s_bg1%>" class="f12">
<form name="form1" method="post" action="message_save.asp" onSubmit="return Juge(this)">
<tr bgcolor="<%=s_bg2%>">
<td height="30" colspan="4"><div align="center">访 客 留 言 (加*号为必填项)</div></td>
</tr>
<tr>
<td width="100" height="30" bgcolor="<%=s_bg3%>"><div align="center">用户网名：</div></td>
<td width="192" bgcolor="<%=s_bg3%>">
<input name="u_name" type="text" class="input" id="u_name" size="25" maxlength="40" value=<%=session("u_name")%>>
* </td>
<td width="90" bgcolor="<%=s_bg3%>"><div align="center">用户信箱：</div></td>
<td width="353" bgcolor="<%=s_bg3%>">
<input name="email" type="text" class="input" id="email" value="<%=session("email")%>" size="30" maxlength="40">
</td>
</tr>
<tr>
<td height="30" bgcolor="<%=s_bg3%>"><div align="center">联系电话：</div></td>
<td bgcolor="<%=s_bg3%>">
<input name="u_tel" type="text" class="input" id="u_tel" value="<%=session("u_tel")%>" size="25" maxlength="40">
</td>
<td bgcolor="<%=s_bg3%>"><div align="center">您的地址：</div></td>
<td bgcolor="<%=s_bg3%>">
<input name="u_add" type="text" class="input" id="u_add" value="<%=session("u_add")%>" size="30" maxlength="40">
</td>
</tr>
<tr>
<td height="30" bgcolor="<%=s_bg3%>"><div align="center">您的主页：</div></td>
<td bgcolor="<%=s_bg3%>">
<input name="u_web" type="text" class="input" id="u_web" value="<%if session("u_web")="" then%>http://<%else%><%=session("u_web")%><%end if%>" size="25" maxlength="50">
</td>
<td bgcolor="<%=s_bg3%>"><div align="center">用户头像：</div></td>
<td bgcolor="<%=s_bg3%>"> <img name=showimages src="image/a1.jpg" width="20" height="20"> <select name="image" size="1" id="image" onChange="changeimage();" >
<option value="image/a1.jpg">images 1</option>
<option value="image/a2.jpg">images 2</option>
<option value="image/a3.jpg">images 3</option>
<option value="image/a4.jpg">images 4</option>
<option value="image/a5.jpg">images 5</option>
<option value="image/a6.jpg">images 6</option>
<option value="image/a7.jpg">images 7</option>
<option value="image/a8.jpg">images 8</option>
<option value="image/a9.jpg">images 9</option>
<option value="image/a10.jpg">images 10</option>
<option value="image/a11.jpg">images 11</option>
<option value="image/a12.jpg">images 12</option>
<option value="image/a13.jpg">images 13</option>
<option value="image/a14.jpg">images 14</option>
<option value="image/a15.jpg">images 15</option>
<option value="image/b1.jpg">images 16</option>
<option value="image/b2.jpg">images 17</option>
<option value="image/b3.jpg">images 18</option>
<option value="image/b4.jpg">images 19</option>
<option value="image/b5.jpg">images 20</option>
<option value="image/b6.jpg">images 21</option>
<option value="image/b7.jpg">images 22</option>
<option value="image/b8.jpg">images 23</option>
<option value="image/b9.jpg">images 24</option>
<option value="image/b10.jpg">images 25</option>
<option value="image/b10.jpg">images 26</option>
<option value="image/b12.jpg">images 27</option>
<option value="image/b13.jpg">images 28</option>
<option value="image/b14.jpg">images 29</option>
<option value="image/b15.jpg">images 30</option>
</select> <a href="head.asp" target="_blank"><font color="#0033FF">|所有头像列表|</font></a>
性别：
<select name="u_sex" id="u_sex">
<option value="美女">美女</option>
<option value="帅哥">帅哥</option>
</select></td>
</tr>
<tr>
<td height="26" bgcolor="<%=s_bg3%>"><div align="center">UBB代码支持：</div></td>
<td colspan="3" bgcolor="<%=s_bg3%>">
<script src="inc/ubbcode.js"></script>
<script src="inc/ubbhelp.js"></script>
<!--#include file="Inc_ubb.asp"--> </td>
</tr>
<tr>
<td height="26" bgcolor="<%=s_bg3%>"><div align="center">您的留言：</div></td>
<td height="100" colspan="3" bgcolor="<%=s_bg3%>">
<textarea name="T_Content" cols="80" rows="6" class="input" id="T_Content"><%=session("T_content")%></textarea>
*
<div align="center"></div>
<div align="center"></div></td>
</tr>
<tr bgcolor="efeff7">
<td height="30" bgcolor="<%=s_bg3%>"><div align="center">附加码：</div></td>
<td height="30" colspan="3" bgcolor="<%=s_bg3%>">
<input name=verifycode type=text class="input" value="<%If GetCode=9999 Then Response.Write "9999"%>" size="25" maxlength="50">
请在附加码框输入 <img src="getcode.asp"></td>
</tr>
<tr bgcolor="efeff7">
<td height="30" bgcolor="<%=s_bg3%>"><div align="center">加密留言：</div></td>
<td height="30" colspan="3" bgcolor="<%=s_bg3%>">
<input name="ispass" type="checkbox" id="ispass" onClick="Mpic(this)" value="1">
是否为加密留言</td>
</tr>
<tr bgcolor="efeff7" id="pass" style="display:none ">
<td height="30" bgcolor="<%=s_bg3%>"><div align="center">预留密码：</div></td>
<td height="30" colspan="3" bgcolor="<%=s_bg3%>">
<input name="pass" type="password" id="pass">
(查看自己的加密留言回复时需要使用到的密码)</td>
</tr>
<tr bgcolor="efeff7">
<td height="30" bgcolor="<%=s_bg3%>"> </td>
<td height="30" colspan="3" bgcolor="<%=s_bg3%>"><font color="#FF3300">(您要为您所发的言论的后果负责，故请各位遵纪守法并注意语言文明)</font></td>
</tr>
<tr bgcolor="<%=s_bg3%>">
<td height="30" colspan="4"><div align="center">
<input name="Submit" type="submit" class="button" value="提交留言">
<input name="Submit2" type="reset" class="button" value="重新填写">
</div></td>
</tr>
</form>
</table>
<%end if%>
<%if session("adminok_guest")="mysinglegb" then%>
<table width="740" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="<%=s_bg1%>" class="f12">
<form name="form3" method="post" action="">
<tr bgcolor="<%=s_bg1%>">
<td height="26" colspan="5"><div align="center"><font color="#FFFFFF"><strong>未审核的留言</strong></font></div></td>
</tr>
<tr bgcolor="<%=s_bg2%>">
<td width="90" height="26">网名</td>
<td width="94">电话</td>
<td width="125">地址</td>
<td width="380">留言内容</td>
<td width="45">选择</td>
</tr>
<%set temp=conn.execute("select * from [message] where ischeck=0 order by id desc")
do while not temp.eof
%>
<tr bgcolor="<%=s_bg3%>">
<td height="26" style="WORD-BREAK: break-all"><%=temp("u_name")%></td>
<td style="WORD-BREAK: break-all"><%=temp("u_tel")%></td>
<td style="WORD-BREAK: break-all"><%=temp("u_add")%></td>
<td style="WORD-BREAK: break-all"><%=temp("T_content")%></td>
<td><input name="chkNo" type="checkbox" value="<%=temp(0)%>"></td>
</tr>
<%temp.movenext
loop
temp.close
set temp=nothing%>
<tr bgcolor="<%=s_bg3%>">
<td height="30" colspan="5"><div align="right">
<input name="Button3" type="button" class="button" style="font-size=12" onclick="CheckAll(this.form)" value="全选">
<input name="Button2" type="button" class="button" style="font-size=12" onclick="CheckOthers(this.form);" value="反选">
<input name="checkgo" type="button" class="button" id="checkgo" onClick="doSubmit(document.form3,this)" value="批量审核">
<input name="mydel" type="button" class="button" id="mydel" onClick="doSubmit(document.form3,this)" value="批量删除">
</div></td>
</tr>
</form>
</table>
<%end if%>
<table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
<%
j=0
do while not rs.eof
%>
<table width="740" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="<%=s_bg1%>">
<tr bgcolor="<%=s_bg3%>">
<td width="140" rowspan="3" valign="top"><div align="center">
<table width="96%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="24" valign="bottom" style="filter:glow(color=#ff0000,direction=10)"><div align="center" class="text">
<p class="f12"><font color="#FFFFFF"><%=rs("u_name")%></font></p>
</div></td>
</tr>
<tr>
<td height="110"><div align="center"><img src="<%=rs("image")%>" width="90" height="107"></div></td>
</tr>
<tr>
<td height="24"><div align="center">
<p class="f12">我是：<%=rs("u_sex")%></p>
</div></td>
</tr>
</table>
</div></td>
<td width="600" height="26" class="f12"> <%if rs("ispass")=false or session("adminok_guest")="mysinglegb" then%><img src="image/email.gif" alt="<%=rs("email")%>" width="16" height="16"><a href="mailto:<%=rs("email")%>">信箱</a> <img src="image/call.gif" alt="<%=rs("u_tel")%>" width="16" height="16"><font title="<%=rs("u_tel")%>">电话</font> <img src="image/home.gif" alt="<%=rs("u_add")%>" width="16" height="16"><font title="<%=rs("u_add")%>">地址</font> <img src="image/add.gif" alt="<%=rs("u_web")%>" width="16" height="15"><a href="<%=rs("u_web")%>" target=_blank>主页</a><%end if%></td>
</tr>
<tr>
<td width="600" height="110" valign="top" bgcolor="<%=s_bg3%>"><table width="96%" border="0" align="center" cellpadding="0" cellspacing="0" class="message">
<tr>
<td height="10"> </td>
</tr>
<tr>
<td style="WORD-BREAK: break-all" >
<%
last_message=ubbcode(rs("T_content"))
forbid=myforbid
forbid=split(forbid,"|")
for i=0 to ubound(forbid)
last_message=replace(last_message,forbid(i),"*")
next
if rs("ispass")=false or session("adminok_guest")="mysinglegb" then
response.write(replace(last_message,keyword,"<font color=red>"&keyword&"</font>"))
else
response.Write("<font color=red>[加密留言] <a href='ViewPass.asp?id="&rs(0)&"' target=_blank>查看留言与回复</a></font>")
end if
%></td>
</tr>
<tr>
<td height="10"> </td>
</tr>
</table></td>
</tr>
<tr>
<td width="600" height="24" bgcolor="<%=s_bg2%>"><div align="right">
<p class="f12">发表于:<%=rs("addtime")%> <% if rs("reply")<>"无" then%>回复于:<%=rs("replytime")%><%end if%>
<%if session("adminok_guest")="mysinglegb" then%>
<img src="image/re.gif" width="16" height="16"><a href="reply.asp?id=<%=rs("id")%>">回复</a>
<img src="image/del.gif" width="16" height="16"><a href="javascript:confirmdel(<%=rs("id")%>)">删除</a>
<%end if%> </p>
</div></td>
</tr>
<%if rs("reply")<>"" then%>
<tr bgcolor="<%=s_bg3%>">
<td width="140" height="60"><div align="center">
<table width="96%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="22">
<div align="center">
<p class="f12"><font color="#FF0000">【版主回复】</font></p>
</div></td>
</tr>
<tr>
<td height="26"><div align="center"><img src="image/repost.gif" width="22" height="23"></div></td>
</tr>
<tr>
<td height="22"><div align="center">
<p class="f12"><font color="#FF0000"><%=user%></font></p>
</div></td>
</tr>
</table>
</div></td>
<td width="600"><table width="96%" border="0" align="center" cellpadding="0" cellspacing="0" class="message">
<tr>
<td height="10"> </td>
</tr>
<tr>
<td style="WORD-BREAK: break-all"><strong><%if rs("ispass")=false or session("adminok_guest")="mysinglegb" then response.write(rs("reply"))else response.write("[加密回复]")%> </strong></td>
</tr>
<tr>
<td height="10"> </td>
</tr>
</table></td>
</tr>
<%end if%>
</table>
<table width="700" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
</table>
<%
j=j+1
if j >= MaxPerpage then exit do
rs.movenext
loop
%>
<%Call PageGo("keyword="&keyword&"&")%>
<table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="658"><script type="text/JavaScript">
alimama_pid="mm_10087996_172912_2250551";
alimama_titlecolor="0000FF";
alimama_descolor ="000000";
alimama_bgcolor="FFFFFF";
alimama_bordercolor="E6E6E6";
alimama_linkcolor="008000";
alimama_bottomcolor="FFFFFF";
alimama_anglesize="0";
alimama_bgpic="0";
alimama_icon="0";
alimama_sizecode="16";
alimama_width=658;
alimama_height=60;
alimama_type=2;
</script>
<script src="http://a.alimama.cn/inf.js" type=text/javascript>
</script></td>
<td width="120"><script type="text/JavaScript">
alimama_pid="mm_10087996_172912_2456478";
alimama_titlecolor="0000FF";
alimama_descolor ="000000";
alimama_bgcolor="FFFFFF";
alimama_bordercolor="E6E6E6";
alimama_linkcolor="008000";
alimama_bottomcolor="FFFFFF";
alimama_anglesize="0";
alimama_bgpic="0";
alimama_icon="0";
alimama_sizecode="41";
alimama_width=120;
alimama_height=60;
alimama_type=2;
</script>
<script src="http://a.alimama.cn/inf.js" type=text/javascript>
</script></td>
</tr>
</table>
<table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
<!--#include file="copy.asp"-->
<%
Call CloseRs()
call closeconn()%>