p_pinglun.asp

网上购物系统 asp+sql server 2005

<%
randomize
yzm=int(8999*rnd()+1000)

set rs=conn.execute("select * from s_setup")
jianju=clng(rs("book_jianju"))		'间距
bad=cstr(rs("bad"))			'脏话过滤
maxlength=clng(rs("maxlength"))		'最长字符数
rs.close
%>

<script language="javascript">
<!--
function check()
{
	if (document.pinglunform.name.value.length < 3 || document.pinglunform.name.value.length >16) {
		alert("出错了，请输入有效的用户名。");
		document.pinglunform.name.focus();
		return false;
	}
<%
response.write "if (document.pinglunform.yzm.value.length <1){"
%>		alert("出错了，您没有填写验证码。");
		document.pinglunform.yzm.focus();
		return false;
	}
<%
response.write "if (document.pinglunform.yzm.value!="&yzm&"){"
%>		alert("出错了，您填写的验证码不正确。");
		document.pinglunform.yzm.focus();
		return false;
	}
	if (document.pinglunform.nr.value.length < 1) {
		alert("出错了，请您填写评论内容。");
		document.pinglunform.nr.focus();
		return false;
	}
<%
response.write "if (document.pinglunform.nr.value.length >"&maxlength&") {"
%>
		alert("出错了，您的评论内容太长了。");
		document.pinglunform.nr.focus();
		return false;
	}
return true;
}
//-->
</script>


<%
sql="select top 5 * from s_pinglun where prodid='"&id&"' and status='1' order by AddDate desc"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
response.write "<br>暂时没有用户对此商品提交评论。<br><br>"
else
do while not rs.eof
%>

<table cellSpacing=1 cellPadding=0 width=560 bgColor=#CCCCCC border=0 style="table-layout:fixed;word-break:break-all" align="center">
<tr><td>
<table cellSpacing=3 cellPadding=3 width=100% align=center bgColor=#F7FAFD border=0 onMouseOver="bgColor='#ebebeb'" onMouseOut="bgColor='#F7FAFD'">
<%
nr=rs("nr")			'内容
bad1=split(bad,"/")		'过滤脏话
for t=0 to ubound(bad1)
nr=replace(nr,bad1(t),"***")
next
response.write "<tr><td width=33% >姓名："&rs("name")&"<td widht=33% ><a href='mailto:"&rs("mail")&"'><img border=0 src=images/small/e-mail.gif></a></td><td width=33% align=right>"&rs("IP")&"&nbsp;&nbsp;&nbsp;</td></tr>"
response.write "<tr><td>时间："&rs("adddate")&"</td><td> </td><td align=right>"
for j=1 to rs("jibie")
response.write "<font color=orange>☆</font>"
next
response.write "&nbsp;&nbsp;&nbsp;</td></tr><tr><td colspan=3><font color=darkgray><span style='line-height=100%'>"&replace(server.htmlencode(nr),vbCRLF,"<BR>")&"</span></font></td></tr></table></td></tr></table>"
response.write "<table border=0 height='"&jianju&"'><tr><td></td></tr></table>"
rs.movenext
loop
response.write "<table border=0 width=96% ><tr><td align=right height=40 valign=middle><a href=pinglun.asp?prodid="&prodid&" target='_blank'>浏览该商品的全部评论>></a>&nbsp;&nbsp;&nbsp;</td></tr></table>"
end if
%>

</td></tr>

<tr><td align=center>

<table cellSpacing="1" cellPadding="2" width="96%" align="center" bgColor="#cccccc" border="0">
	<tr bgColor="#F7FAFD">
	<form name="pinglunform" action="pinglun_save.asp" method="post">
	<td>
	<table cellSpacing="1" cellPadding="2" width="95%" align="center" border="0">
		<tr>
		<td width="15%">姓&nbsp;&nbsp;名：</td>
		<td width="85%"><input id="name" value="<%=request.cookies("buyok")("userid")%>" maxLength="16" name="name" size="15" style="BORDER-RIGHT: #ece2d2 1px solid; BORDER-TOP: #ece2d2 1px solid; FONT-SIZE: 8pt; BORDER-LEFT: #ece2d2 1px solid; COLOR: #666666; BORDER-BOTTOM: #ece2d2 1px solid; FONT-FAMILY: verdana"><font color=orange> 
		<input type="radio" value="1" name="jibie">☆
		<input type="radio" value="2" name="jibie">☆☆
		<input type="radio" value="3" name="jibie">☆☆☆
		<input type="radio" value="4" name="jibie">☆☆☆☆
		<input type="radio" checked value="5" name="jibie">☆☆☆☆☆</font></td>
		</tr>
		<tr>
		<td width="10%">邮&nbsp;&nbsp;箱：</td>
		<td width="90%"><input id="mail" size="30" name="mail" style="BORDER-RIGHT: #ece2d2 1px solid; BORDER-TOP: #ece2d2 1px solid; FONT-SIZE: 8pt; BORDER-LEFT: #ece2d2 1px solid; COLOR: #666666; BORDER-BOTTOM: #ece2d2 1px solid; FONT-FAMILY: verdana"></td>
		</tr>
		<tr>
		<td width="10%">验证码：</td>
		<td width="90%"><input id="yzm" size="6" maxlength=5 name="yzm" style="BORDER-RIGHT: #ece2d2 1px solid; BORDER-TOP: #ece2d2 1px solid; FONT-SIZE: 8pt; BORDER-LEFT: #ece2d2 1px solid; COLOR: #666666; BORDER-BOTTOM: #ece2d2 1px solid; FONT-FAMILY: verdana">
<%
a=int(yzm/1000)
b=int((yzm-a*1000)/100)
c=int((yzm-a*1000-b*100)/10)
d=int(yzm-a*1000-b*100-c*10)
response.write "<img align=top height=15 border=0 src=images/yzm/"&a&".gif><img align=top height=15 border=0 src=images/yzm/"&b&".gif><img  align=top height=15 border=0 src=images/yzm/"&c&".gif><img align=top height=15 border=0 src=images/yzm/"&d&".gif>"
%></td>
 </tr>
		<tr>
		<td vAlign="top">评&nbsp;&nbsp;论：<br><font color=red>≤<%=maxlength%>字</font></td>
		<td><textarea id="nr" name="nr" rows="4" cols="70" style="BORDER-RIGHT: #ece2d2 1px solid; BORDER-TOP: #ece2d2 1px solid; FONT-SIZE: 8pt; BORDER-LEFT: #ece2d2 1px solid; COLOR: #666666; BORDER-BOTTOM: #ece2d2 1px solid; FONT-FAMILY: verdana" style="overflow:auto;"></textarea>
		</td></tr>
		<tr>
		<td></td>
		<td>
		<input type=hidden name='prodid' value='<%=prodid%>'>
		<input type=hidden name='save' value='ok'>
		<input onclick="return check();" type="submit" value=" 提交 " name="submit"> &nbsp; 
		<input type="reset" value=" 重写 " name="Submit2">
		</td></tr>
	</table>
        </td>
        </form>
        </tr>
</table>