view.asp

后台登陆admin.asp

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=""758""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""23""  class=""a1"">　共有评论<font color=#CC0000>"&rs("reviewcount")&"</font>篇</td></tr></table>" & vbCrLf
Response.Write "<table align=""center"" cellspacing=""0"" cellpadding=""0""" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "style=""word-break:break-all;table-layout:fixed;text-align:left"">" & vbCrLf
Response.Write "<tr><td valign=""top""><br><div align=""center""><font style=""font-size:16px""><b>"&rs("title")&"</b></font><br><BR>" & vbCrLf
Response.Write "</div>"
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=""758""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""23""  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=760 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=""758""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""23""  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=""758""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""23""  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=760 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=""758""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""23""  class=""a1"">　相关评论<font color=#CC0000>"&rs("reviewcount")&"</font>篇</td></tr></table>" & vbCrLf
Response.Write "<table align=""center"" cellspacing=""0"" cellpadding=""0""" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "style=""word-break:break-all;table-layout:fixed;text-align:left"">" & vbCrLf
Response.Write "<tr><td valign=""top""><br><div align=""center""><font style=""font-size:16px""><b>"&rs("js_name")&"</b></font><br><BR>" & vbCrLf
Response.Write "</div>"
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=""758""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""23""  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")="joke" then
sql="select * from joke 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=760 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='joke.asp'>笑话站</a>"
sql="select cat_id,cat_name from joke_cat where cat_id="&rs("cat_id")
set rs1=conn.execute(sql)
Response.Write " - <a href=""joke_list.asp?cat_id="&rs1("cat_id")&""">"&rs1("cat_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=""758""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""23""  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=""showjoke.asp?art_id="&rs("art_id")&""">查看评论文章</a>&nbsp;&nbsp;</td></tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "<table width=""758""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""23""  class=""a1"">　发表评论</td></tr></table>" & vbCrLf
Response.Write "<form action=""viewsave.asp?action=joke&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