|
<%=rs("review")%>
<%
dim id
id=request("id")
if request("dd")<>"" then
set Rs=GrateRs("select * from Pic where id="&id,3)
if len(request("review"))>200 then
response.write("对不起，您评论不能这么长[大于200字符]，阿赛的空间有限。
")
else
select case request("dd")
case 1
Rs("review")=" "&request("review")&"
"&Rs("review")
response.write "您发表的 “普通评论” 已成功记录在案！请退后再刷新本页！"
case 2
Rs("review")=" "&request("review")&"
"&Rs("review")
response.write "您发表的 “打分评价” 已成功记录在案！请退后再刷新本页！"
case 3
Rs("review")=" "&request("review")&"
"&Rs("review")
response.write "您发表的 “友情报错” 已成功记录在案！请勿退后再刷新本页！"
end select
Rs.update
end if
end if
set Rs=GrateRs("select * from Pic",1)
do while not Rs.eof
Rs.movenext
loop
%>
| 评论类别： |
普通评论
打分评价
友情报错
|
评论发表员，请您注意：
1.请控制在200个字符以内！
2.非关于本页面的评论，请到论坛上！
3.请别发表猥琐的评论！否则立马封IP！
4.评论的负面影响、法律责任与本站无关！ |
|