<!--#include file="mdb.asp"-->
<!--#Include File="Check_hx.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/inc.asp"-->
<%
start="查看、发表评论"
call head()
call menu()
if request.QueryString("action")="" then
Response.Write("<script language=javascript>alert('请指定操作的对象！');history.back(1);</script>")
Response.End
end if

sub review()
Response.Write "<table width=""100%"" cellpadding=""5"" cellspacing=""0"" border=""0"">" & vbCrLf
Response.Write "<tr><td  align=""center""><input type=""radio"" value=""1"" name=""face"" checked>" & vbCrLf
Response.Write "        <img src=""img/mood1.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write "        <input type=""radio"" value=""2"" name=""face"">" & vbCrLf
Response.Write "        <img src=""img/mood2.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write "        <input type=""radio"" value=""3"" name=""face"">" & vbCrLf
Response.Write "        <img src=""img/mood3.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write "        <input type=""radio"" value=""4"" name=""face"">" & vbCrLf
Response.Write "        <img src=""img/mood4.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write "        <input type=""radio"" value=""5"" name=""face"">" & vbCrLf
Response.Write "        <img src=""img/mood5.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write "        <input type=""radio"" value=""6"" name=""face"">" & vbCrLf
Response.Write "        <img src=""img/mood6.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write "        <input type=""radio"" value=""7"" name=""face"">" & vbCrLf
Response.Write "        <img src=""img/mood7.gif"" tppabs="""" width=""15"" height=""15""> <br>" & vbCrLf
Response.Write "        <input type=""radio"" value=""8"" name=""face"">" & vbCrLf
Response.Write "        <img src=""img/mood8.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write "        <input type=""radio"" value=""9"" name=""face"">" & vbCrLf
Response.Write "        <img src=""img/mood9.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write "        <input type=""radio"" value=""10"" name=""face"">" & vbCrLf
Response.Write "        <img src=""img/mood10.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write "        <input type=""radio"" value=""11"" name=""face"">" & vbCrLf
Response.Write "        <img src=""img/mood11.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write "        <input type=""radio"" value=""12"" name=""face"">" & vbCrLf
Response.Write "        <img src=""img/mood12.gif"" tppabs="""" width=""15"" height=""15"">&nbsp;字数：<input type='text' value='0' id='reviewLen' size='3' style='border-width:0;background:transparent;'><font title='等于或小于255个字！'>≤255</font><br>" & vbCrLf
Response.Write "点评：<textarea name=""review"" cols=""40"" rows=""3"" onkeydown=""showLen(this)"" onkeyup=""showLen(this)""></textarea><br>" & vbCrLf
if UserLogined=True then 
Response.Write "<input type=""hidden"" name=""reviewemail"" value="&Hx66_Email&" autocomplete=""off""/ >" & vbCrLf
Response.Write "<input type=""hidden"" name=""reviewname"" value="&Hx66_name&" autocomplete=""off""/>" & vbCrLf
Response.Write ""&Hx66_name&"，你已登陆请直接发表你的评论。" & vbCrLf
else
Response.Write "邮箱：<input type=""text"" name=""reviewemail"" value="""" maxlength=""25"" size=""18"" autocomplete=""off""/>" & vbCrLf
Response.Write "姓名：<input type=""text"" name=""reviewname"" value="""" maxlength=""25"" size=""18"" autocomplete=""off""/><br>" & vbCrLf
end if
if Commentview="会员" and UserLogined<>True then
Response.Write"评论开启了会员发表模式，请注册或登陆后操作！！</td>"
else
Response.Write "<input type=""submit"" name=""submit"" value=""发表"" onmouseover=""this.className='boton'"" onmouseout=""this.className='botoff'"" class=""botoff""> <input type=""reset"" value=""重填"" onmouseover=""this.className='boton'"" onmouseout=""this.className='botoff'"" class=""botoff""></td>" & vbCrLf
end if
Response.Write "		<td width=""400"">" & vbCrLf
Response.Write "		<ul style=""list-style-type:square;margin-left:1em;line-height:180%"">" & vbCrLf
Response.Write "		<li>尊重网上道德，遵守中华人民共和国的各项有关法律法规</li>" & vbCrLf
Response.Write "		<li>承担一切因您的行为而直接或间接导致的民事或刑事法律责任</li>" & vbCrLf
Response.Write "		<li>本站管理人员有权保留或删除其管辖留言中的任意内容</li>" & vbCrLf
Response.Write "		<li>本站有权在网站内转载或引用您的评论</li>" & vbCrLf
Response.Write "		<li>参与本评论即表明您已经阅读并接受上述条款</li>" & vbCrLf
Response.Write "		</ul>" & vbCrLf
Response.Write "		</td></tr>" & vbCrLf
Response.Write "		</table>" & vbCrLf
end sub

'新闻
if request.QueryString("action")="news" then
sql="select * from news where news_id="&CLng(request.querystring("news_id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
IF rs.eof Then
  Response.Redirect "show_error.asp?eid=参数错误，找不到相关的记录!"
  Response.End
End IF
Response.Write "<table width=950 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class=""table-hx66s""><TBODY>" & vbCrLf
Response.Write "<TR><TD height=""25"">&nbsp; <a href='index.asp'>首 页</a> - <a href='news.asp'>兜客采风</a>" & vbCrLf
Response.Write "</TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "<table width=950 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class=""table-hx66s"">" & vbCrLf
Response.Write "<TBODY><TR vAlign=top bgcolor=""#FCFCFC""><TD>" & vbCrLf
Response.Write "<table width=""950""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""34""  class=""a1"">　共有评论<font color=#CC0000>"&rs("reviewcount")&"</font>篇</td></tr></table>" & vbCrLf
Response.Write "<br><div align=""center""><font style=""font-size:16px""><b>"&rs("news_title")&"</b></font></div><br>" & vbCrLf
if point_news="1" then
Response.Write "<table width=""98%"" align=""center"" cellspacing=""0"" cellpadding=""0"" style=""word-break:break-all;table-layout:fixed;text-align:left"">"
if rs("review")<>"" then
temp=split(Trim(rs("review")),"|")
for i = 1 to ubound(temp)
Response.Write "<tr><td style=""LINE-HEIGHT: 180%"">"&temp(i)&"</td></tr>"
next
else
Response.Write "<tr><td style=""LINE-HEIGHT: 180%"">当前没有评论</td></tr>"
end if
Response.Write "<tr><td align=""right""><a href=""shownews.asp?news_id="&rs("news_id")&""">查看所评论的新闻</a>&nbsp;&nbsp;</td></tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "<table width=""950""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""34""  class=""a1"">　发表评论</td></tr></table>" & vbCrLf
Response.Write "<form action=""viewsave.asp?action=news&news_id="&rs("news_id")&""" method=""POST"" name=""form"" onsubmit=""return checkRemark();"">" & vbCrLf
call review()
Response.Write "        </form>"& vbCrLf
elseif point_news="0" then
Response.Write "<table width=""100%"" cellpadding=""5"" cellspacing=""0"" border=""0"">" & vbCrLf
Response.Write "<tr><td  align=""center"">【兜客采风已关闭】" & vbCrLf
Response.Write "		</td></tr>" & vbCrLf
Response.Write "		</table>" & vbCrLf
End If
rs.close
set rs=nothing
end if
'音乐
if request.QueryString("action")="dj" then
sql="select * from dj where dj_id="&CLng(request.querystring("dj_id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
IF rs.eof Then
  Response.Redirect "show_error.asp?eid=参数错误，找不到相关的记录!"
  Response.End
End IF
Response.Write "<table width=950 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class=""table-hx66s""><TBODY>" & vbCrLf
Response.Write "<TR><TD height=""25"">&nbsp; <a href='index.asp'>首 页</a> - <a href='music.asp'>铃声音乐</a>"
sql="select djcat_id,djcat_name from djcat where djcat_id="&rs("djcat_id")
set rs1=conn.execute(sql)
Response.Write " - <a href=""dj.asp?djcat_id="&rs1("djcat_id")&""">"&rs1("djcat_name")&"</a>" 
rs1.close 
Response.Write "</TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "<table width=950 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class=""table-hx66s"">" & vbCrLf
Response.Write "<TBODY><TR vAlign=top bgcolor=""#FCFCFC""><TD>" & vbCrLf
Response.Write "<table width=""950""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""34""  class=""a1"">　共有评论<font color=#CC0000>"&rs("reviewcount")&"</font>篇</td></tr></table>" & vbCrLf
Response.Write "<br><div align=""center""><font style=""font-size:16px""><b>"&rs("dj_name")&"</b></font></div><br>" & vbCrLf
if point_dj="1" then
Response.Write "<table width=""98%"" align=""center"" cellspacing=""0"" cellpadding=""0"" style=""word-break:break-all;table-layout:fixed;text-align:left"">"
if rs("review")<>"" then
temp=split(Trim(rs("review")),"|")
for i = 1 to ubound(temp)
Response.Write "<tr><td style=""LINE-HEIGHT: 180%"">"&temp(i)&"</td></tr>"
next
else
Response.Write "<tr><td style=""LINE-HEIGHT: 180%"">当前没有评论</td></tr>"
end if
Response.Write "<tr><td align=""right""><a href=""showdj.asp?dj_id="&rs("dj_id")&""">试听所评论的音乐</a>&nbsp;&nbsp;</td></tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "<table width=""950""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""34""  class=""a1"">　发表评论</td></tr></table>" & vbCrLf
Response.Write "<form action=""viewsave.asp?action=dj&dj_id="&rs("dj_id")&""" method=""POST"" name=""form"" onsubmit=""return checkRemark();"">" & vbCrLf
call review()
Response.Write "        </form>"& vbCrLf
elseif point_dj="0" then
Response.Write "<table width=""100%"" cellpadding=""5"" cellspacing=""0"" border=""0"">" & vbCrLf
Response.Write "<tr><td  align=""center"">【音乐评论已关闭】" & vbCrLf
Response.Write "		</td></tr>" & vbCrLf
Response.Write "		</table>" & vbCrLf
End If
rs.close
set rs=nothing
end if
'动漫
if request.QueryString("action")="flash" then
sql="select * from flash where id="&CLng(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
IF rs.eof Then
  Response.Redirect "show_error.asp?eid=参数错误，找不到相关的记录!"
  Response.End
End IF
Response.Write "<table width=950 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class=""table-hx66s""><TBODY>" & vbCrLf
Response.Write "<TR><TD height=""25"">&nbsp; <a href='index.asp'>首 页</a> - <a href='fla.asp'>动漫频道</a>"
sql="select cat_id,cat_name from f_cat where cat_id="&rs("cat_id")
set rs1=conn.execute(sql)
Response.Write " - <a href=""flash.asp?cat_id="&rs1("cat_id")&""">"&rs1("cat_name")&"</a>" 
rs1.close 
Response.Write "</TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "<table width=950 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class=""table-hx66s"">" & vbCrLf
Response.Write "<TBODY><TR vAlign=top bgcolor=""#FCFCFC""><TD>" & vbCrLf
Response.Write "<table width=""950""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""34""  class=""a1"">　共有评论<font color=#CC0000>"&rs("reviewcount")&"</font>篇</td></tr></table>" & vbCrLf
Response.Write "<br><div align=""center""><font style=""font-size:16px""><b>"&rs("title")&"</b></font></div><br>" & vbCrLf
if point_dj="1" then
Response.Write "<table width=""98%"" align=""center"" cellspacing=""0"" cellpadding=""0"" style=""word-break:break-all;table-layout:fixed;text-align:left"">"
if rs("review")<>"" then
temp=split(Trim(rs("review")),"|")
for i = 1 to ubound(temp)
Response.Write "<tr><td style=""LINE-HEIGHT: 180%"">"&temp(i)&"</td></tr>"
next
else
Response.Write "<tr><td style=""LINE-HEIGHT: 180%"">当前没有评论</td></tr>"
end if
Response.Write "<tr><td align=""right""><a href=""showflash.asp?id="&rs("id")&""">欣赏所评论的动漫</a>&nbsp;&nbsp;</td></tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "<table width=""950""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""34""  class=""a1"">　发表评论</td></tr></table>" & vbCrLf
Response.Write "<form action=""viewsave.asp?action=flash&id="&rs("id")&""" method=""POST"" name=""form"" onsubmit=""return checkRemark();"">" & vbCrLf
call review()
Response.Write "        </form>"& vbCrLf
elseif point_dj="0" then
Response.Write "<table width=""100%"" cellpadding=""5"" cellspacing=""0"" border=""0"">" & vbCrLf
Response.Write "<tr><td  align=""center"">【动漫评论已关闭】" & vbCrLf
Response.Write "		</td></tr>" & vbCrLf
Response.Write "		</table>" & vbCrLf
End If
rs.close
set rs=nothing
end if
'下载
if request.QueryString("action")="down" then
sql="select * from soft where soft_id="&CLng(request.querystring("soft_id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
IF rs.eof Then
  Response.Redirect "show_error.asp?eid=参数错误，找不到相关的记录!"
  Response.End
End IF
Response.Write "<table width=950 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class=""table-hx66s""><TBODY>" & vbCrLf
Response.Write "<TR><TD height=""25"">&nbsp; <a href='index.asp'>首 页</a> - <a href='down.asp'>下载中心</a>" & vbCrLf
Response.Write " - <a href=""down.asp?cat_id="&rs("soft_catid")&""">"&rs("soft_catname")&"</a> - <a href=""down.asp?cat_id="&rs("soft_catid")&"&class_id="&rs("soft_classid")&""">"&rs("soft_classname")&"</a>"  & vbCrLf
Response.Write "</TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class=""table-hx66s"">" & vbCrLf
Response.Write "<TBODY><TR vAlign=top bgcolor=""#FCFCFC""><TD>" & vbCrLf
Response.Write "<table width=""950""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""34""  class=""a1"">　共有评论<font color=#CC0000>"&rs("reviewcount")&"</font>篇</td></tr></table>" & vbCrLf
if point_down="1" then
Response.Write "<table width=""98%"" align=""center"" cellspacing=""0"" cellpadding=""0"" style=""word-break:break-all;table-layout:fixed;text-align:left"">" & vbCrLf
Response.Write "<tr><td align=""center"" HEIGHT=30><b><font color=ff6600><b>"&rs("soft_name")&"</b></font><b></td></tr>" & vbCrLf 
if rs("review")<>"" then
temp=split(Trim(rs("review")),"|")
for i = 1 to ubound(temp)
Response.Write "<tr><td style=""word-break:break-all;table-layout:fixed;text-align:left;LINE-HEIGHT: 180%"">"&temp(i)&"</td></tr>" & vbCrLf
next
else
Response.Write "<tr><td style=""LINE-HEIGHT: 180%"">当前没有评论</td></tr>"
end if
Response.Write "<tr><td align=""right""><a href=""showdown.asp?soft_id="&request.querystring("soft_id")&""">查看所评论的文件</a>&nbsp;&nbsp;</td></tr></table>" & vbCrLf
Response.Write "<table width=""950""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""34""  class=""a1"">　发表评论</td></tr></table>" & vbCrLf
Response.Write "<form action=""viewsave.asp?action=down&soft_id="&request.querystring("soft_id")&""" method=""POST"" name=""form"" onsubmit=""return checkRemark();"">" & vbCrLf
call review()
Response.Write "        </form>"& vbCrLf
elseif point_down="0" then
Response.Write "<table width=""100%"" cellpadding=""5"" cellspacing=""0"" border=""0"">" & vbCrLf
Response.Write "<tr><td  align=""center"">【下载评论已关闭】" & vbCrLf
Response.Write "		</td></tr>" & vbCrLf
Response.Write "		</table>" & vbCrLf
End If
rs.close
set rs=nothing
end if

'特效
if request.QueryString("action")="js" then
sql="select * from js where js_id="&CLng(request.querystring("js_id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
IF rs.eof Then
  Response.Redirect "show_error.asp?eid=参数错误，找不到相关的记录!"
  Response.End
End IF
Response.Write "<table width=950 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class=""table-hx66s""><TBODY>" & vbCrLf
Response.Write "<TR><TD height=""25"">&nbsp; <a href='index.asp'>首 页</a> - <a href='js.asp'>网兜电子书</a>"
sql="select jscat_id,jscat_name from jscat where jscat_id="&rs("jscat_id")
set rs1=conn.execute(sql)
Response.Write " - <a href=""js.asp?jscat_id="&rs1("jscat_id")&""">"&rs1("jscat_name")&"</a>" 
rs1.close 
Response.Write "</TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class=""table-hx66s"">" & vbCrLf
Response.Write "<TBODY><TR vAlign=top bgcolor=""#FCFCFC""><TD>" & vbCrLf
Response.Write "<table width=""950""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""34""  class=""a1"">　相关评论<font color=#CC0000>"&rs("reviewcount")&"</font>篇</td></tr></table>" & vbCrLf
Response.Write "<br><div align=""center""><font style=""font-size:16px""><b>"&rs("js_name")&"</b></font></div><br>" & vbCrLf
if point_js="1" then
Response.Write "<table width=""98%"" align=""center"" cellspacing=""0"" cellpadding=""0"" style=""word-break:break-all;table-layout:fixed;text-align:left"">"
if rs("review")<>"" then
temp=split(Trim(rs("review")),"|")
for i = 1 to ubound(temp)
Response.Write "<tr><td style=""LINE-HEIGHT: 180%"">"&temp(i)&"</td></tr>"
next
else
Response.Write "<tr><td style=""LINE-HEIGHT: 180%"">当前没有评论</td></tr>"
end if
Response.Write "<tr><td align=""right""><a href=""showjs.asp?js_id="&rs("js_id")&""">查看所评论的特效</a>&nbsp;&nbsp;</td></tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "<table width=""950""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""34""  class=""a1"">　发表评论</td></tr></table>" & vbCrLf
Response.Write "<form action=""viewsave.asp?action=js&js_id="&rs("js_id")&""" method=""POST"" name=""form"" onsubmit=""return checkRemark();"">" & vbCrLf
call review()
Response.Write "        </form>"& vbCrLf
elseif point_js="0" then
Response.Write "<table width=""100%"" cellpadding=""5"" cellspacing=""0"" border=""0"">" & vbCrLf
Response.Write "<tr><td  align=""center"">【网兜电子书已关闭】" & vbCrLf
Response.Write "		</td></tr>" & vbCrLf
Response.Write "		</table>" & vbCrLf
End If
rs.close
set rs=nothing
end if

'供求
if request.QueryString("action")="gq" then
sql="select * from gq where gq_id="&CLng(request.querystring("gq_id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
IF rs.eof Then
  Response.Redirect "show_error.asp?eid=参数错误，找不到相关的记录!"
  Response.End
End IF
Response.Write "<table width=950 border=0 align=center cellpadding=0 cellspacing=0 bgcolor='#Ffffff' class=""table-hx66s""><TBODY>" & vbCrLf
Response.Write "<TR><TD height=""25"">&nbsp; <a href='index.asp'>首 页</a> - <a href='fillbuy.asp'>供求信息</a>"
sql="select gqcat_id,gqcat_name from gqcat where gqcat_id="&rs("gqcat_id")
set rs1=conn.execute(sql)
Response.Write " - <a href=""fillbuy.asp?cat_id="&rs1("gqcat_id")&""">"&rs1("gqcat_name")&"</a>" 
rs1.close 
Response.Write "</TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "<table width=950 border=0 align=center cellpadding=0 cellspacing=0 bgcolor='#Ffffff' class=""table-hx66s"">" & vbCrLf
Response.Write "<TBODY><TR vAlign=top bgcolor='#Ffffff'><TD>" & vbCrLf
Response.Write "<table width=""950""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""34""  class=""a1"">　相关评论<font color=#CC0000>"&rs("reviewcount")&"</font>篇</td></tr></table>" & vbCrLf
Response.Write "<br><div align=""center""><font style=""font-size:16px""><b>"&rs("gq_name")&"</b></font><br><BR>" & vbCrLf
Response.Write "</div>"
if point_gq="1" then
Response.Write "<table width=""98%"" align=""center"" cellspacing=""0"" cellpadding=""0"" style=""word-break:break-all;table-layout:fixed;text-align:left"">"
if rs("review")<>"" then
temp=split(Trim(rs("review")),"|")
for i = 1 to ubound(temp)
Response.Write "<tr><td style=""LINE-HEIGHT: 180%"">"&temp(i)&"</td></tr>"
next
else
Response.Write "<tr><td style=""LINE-HEIGHT: 180%"">当前没有评论</td></tr>"
end if
Response.Write "<tr><td align=""right""><a href=""showgq.asp?gq_id="&rs("gq_id")&""">查看所评论的供求信息</a>&nbsp;&nbsp;</td></tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "<table width=""950""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""34""  class=""a1"">　发表评论</td></tr></table>" & vbCrLf
Response.Write "<form action=""viewsave.asp?action=gq&gq_id="&rs("gq_id")&""" method=""POST"" name=""form"" onsubmit=""return checkRemark();"">" & vbCrLf
call review()
Response.Write "        </form>"& vbCrLf
elseif point_gq="0" then
Response.Write "<table width=""100%"" cellpadding=""5"" cellspacing=""0"" border=""0"">" & vbCrLf
Response.Write "<tr><td  align=""center"">【供求评论已关闭】" & vbCrLf
Response.Write "		</td></tr>" & vbCrLf
Response.Write "		</table>" & vbCrLf
End If
rs.close
set rs=nothing
end if

'影视
if request.QueryString("action")="vid" then
sql="select * from vid where vid_id="&CLng(request.querystring("vid_id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
IF rs.eof Then
  Response.Redirect "show_error.asp?eid=参数错误，找不到相关的记录!"
  Response.End
End IF
Response.Write "<table width=950 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class=""table-hx66s""><TBODY>" & vbCrLf
Response.Write "<TR><TD height=""25"">&nbsp; <a href='index.asp'>首 页</a> - <a href='movie.asp'>影视中心</a>"
sql="select vidcat_id,vidcat_name from vidcat where vidcat_id="&rs("vidcat_id")
set rs1=conn.execute(sql)
Response.Write " - <a href=""vid.asp?vidcat_id="&rs1("vidcat_id")&""">"&rs1("vidcat_name")&"</a>" 
rs1.close 
Response.Write "</TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "<table width=950 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class=""table-hx66s"">" & vbCrLf
Response.Write "<TBODY><TR vAlign=top bgcolor=""#FCFCFC""><TD>" & vbCrLf
Response.Write "<table width=""950""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""34""  class=""a1"">　相关评论<font color=#CC0000>"&rs("reviewcount")&"</font>篇</td></tr></table>" & vbCrLf
Response.Write "<br><div align=""center""><font style=""font-size:16px""><b>"&rs("title")&"</b></font></div><br>" & vbCrLf
if point_vid="1" then
Response.Write "<table width=""98%"" align=""center"" cellspacing=""0"" cellpadding=""0"" style=""word-break:break-all;table-layout:fixed;text-align:left"">"
if rs("review")<>"" then
temp=split(Trim(rs("review")),"|")
for i = 1 to ubound(temp)
Response.Write "<tr><td style=""LINE-HEIGHT: 180%"">"&temp(i)&"</td></tr>"
next
else
Response.Write "<tr><td style=""LINE-HEIGHT: 180%"">当前没有评论</td></tr>"
end if
Response.Write "<tr><td align=""right""><a href=""showvid.asp?vid_id="&rs("vid_id")&""">查看所评论的影视</a>&nbsp;&nbsp;</td></tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "<table width=""950""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""34""  class=""a1"">　发表评论</td></tr></table>" & vbCrLf
Response.Write "<form action=""viewsave.asp?action=vid&vid_id="&rs("vid_id")&""" method=""POST"" name=""form"" onsubmit=""return checkRemark();"">" & vbCrLf
call review()
Response.Write "        </form>"& vbCrLf
elseif point_vid="0" then
Response.Write "<table width=""100%"" cellpadding=""5"" cellspacing=""0"" border=""0"">" & vbCrLf
Response.Write "<tr><td align=""center"">【影视评论已关闭】" & vbCrLf
Response.Write "		</td></tr>" & vbCrLf
Response.Write "		</table>" & vbCrLf
End If
rs.close
set rs=nothing
end if

'图片
if request.QueryString("action")="pic" then
sql="select * from pic where pic_id="&CLng(request.querystring("pic_id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
IF rs.eof Then
  Response.Redirect "show_error.asp?eid=参数错误，找不到相关的记录!"
  Response.End
End IF
Response.Write "<table width=950 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class=""table-hx66s""><TBODY>" & vbCrLf
Response.Write "<TR><TD height=""25"">&nbsp; <a href='index.asp'>首 页</a> - <a href='pic.asp'>精美图片</a>"
sql="select piccat_id,piccat_name from piccat where piccat_id="&rs("piccat_id")
set rs1=conn.execute(sql)
Response.Write " - <a href=""pic.asp?cat_id="&rs1("piccat_id")&""">"&rs1("piccat_name")&"</a>" 
rs1.close 
Response.Write "</TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class=""table-hx66s"">" & vbCrLf
Response.Write "<TBODY><TR vAlign=top bgcolor=""#FCFCFC""><TD>" & vbCrLf
Response.Write "<table width=""950""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""34""  class=""a1"">　相关评论<font color=#CC0000>"&rs("reviewcount")&"</font>篇</td></tr></table>" & vbCrLf
Response.Write "<br><div align=""center""><font style=""font-size:16px""><b>"&rs("pic_name")&"</b></font></div><br>" & vbCrLf
if point_pic="1" then
Response.Write "<table width=""98%"" align=""center"" cellspacing=""0"" cellpadding=""0"" style=""word-break:break-all;table-layout:fixed;text-align:left"">"
if rs("review")<>"" then
temp=split(Trim(rs("review")),"|")
for i = 1 to ubound(temp)
Response.Write "<tr><td style=""LINE-HEIGHT: 180%"">"&temp(i)&"</td></tr>"
next
else
Response.Write "<tr><td style=""LINE-HEIGHT: 180%"">当前没有评论</td></tr>"
end if
Response.Write "<tr><td align=""right""><a href=""showpic.asp?pic_id="&rs("pic_id")&""">查看所评论的图片</a>&nbsp;&nbsp;</td></tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "<table width=""950""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""34""  class=""a1"">　发表评论</td></tr></table>" & vbCrLf
Response.Write "<form action=""viewsave.asp?action=pic&pic_id="&rs("pic_id")&""" method=""POST"" name=""form"" onsubmit=""return checkRemark();"">" & vbCrLf
call review()
Response.Write "        </form>"& vbCrLf
elseif point_pic="0" then
Response.Write "<table width=""100%"" cellpadding=""5"" cellspacing=""0"" border=""0"">" & vbCrLf
Response.Write "<tr><td  align=""center"">【图片评论已关闭】" & vbCrLf
Response.Write "		</td></tr>" & vbCrLf
Response.Write "		</table>" & vbCrLf
End If
rs.close
set rs=nothing
end if

'文章
if request.QueryString("action")="art" then
sql="select * from art where art_id="&CLng(request.querystring("art_id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
IF rs.eof Then
  Response.Redirect "show_error.asp?eid=参数错误，找不到相关的记录!"
  Response.End
End IF
Response.Write "<table width=950 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class=""table-hx66s""><TBODY>" & vbCrLf
Response.Write "<TR><TD height=""25"">&nbsp; <a href='index.asp'>首 页</a> - <a href='art.asp'>技术文章</a>"
sql="select cat_id,cat_name from a_cat where cat_id="&rs("cat_id")
set rs1=conn.execute(sql)
Response.Write " - <a href=""art_list.asp?cat_id="&rs1("cat_id")&""">"&rs1("cat_name")&"</a>" 
rs1.close 
Response.Write "</TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "<table width=950 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class=""table-hx66s"">" & vbCrLf
Response.Write "<TBODY><TR vAlign=top bgcolor=""#FCFCFC""><TD>" & vbCrLf
Response.Write "<table width=""950""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""34""  class=""a1"">　共有评论<font color=#CC0000>"&rs("reviewcount")&"</font>篇</td></tr></table>" & vbCrLf
Response.Write "<br><div align=""center""><font style=""font-size:16px""><b>"&rs("art_title")&"</b></font></div><br>" & vbCrLf
if point_article="1" then
Response.Write "<table width=""98%"" align=""center"" cellspacing=""0"" cellpadding=""0"" style=""word-break:break-all;table-layout:fixed;text-align:left"">"
if rs("review")<>"" then
temp=split(Trim(rs("review")),"|")
for i = 1 to ubound(temp)
Response.Write "<tr><td style=""LINE-HEIGHT: 180%"">"&temp(i)&"</td></tr>"
next
else
Response.Write "<tr><td style=""LINE-HEIGHT: 180%"">当前没有评论</td></tr>"
end if
Response.Write "<tr><td align=""right""><a href=""showart.asp?art_id="&rs("art_id")&""">查看评论文章</a>&nbsp;&nbsp;</td></tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "<table width=""950""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""34""  class=""a1"">　发表评论</td></tr></table>" & vbCrLf
Response.Write "<form action=""viewsave.asp?action=art&art_id="&rs("art_id")&""" method=""POST"" name=""form"" onsubmit=""return checkRemark();"">" & vbCrLf
call review()
Response.Write "</form>"& vbCrLf
elseif point_article="0" then
Response.Write "<table width=""100%"" cellpadding=""5"" cellspacing=""0"" border=""0"">" & vbCrLf
Response.Write "<tr><td  align=""center"">【文章评论已关闭】" & vbCrLf
Response.Write "		</td></tr>" & vbCrLf
Response.Write "		</table>" & vbCrLf
End If
rs.close
set rs=nothing
end if
Response.Write "</TD>" & vbCrLf
Response.Write "</TR></TBODY></TABLE>"
call footer()
%>

