📄 view.asp
字号:
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> </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""> <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> </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")="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=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class=""table-hx66s""><TBODY>" & vbCrLf
Response.Write "<TR><TD height=""25""> <a href='index.asp'>首 页</a> - <a href='vid.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=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_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> </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=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=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class=""table-hx66s""><TBODY>" & vbCrLf
Response.Write "<TR><TD height=""25""> <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=""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("pic_name")&"</b></font><br><BR>" & vbCrLf
Response.Write "</div>"
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> </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=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=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class=""table-hx66s""><TBODY>" & vbCrLf
Response.Write "<TR><TD height=""25""> <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=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=""showart.asp?art_id="&rs("art_id")&""">查看评论文章</a> </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=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()
'****************************************************
' Hxcms Ver7.5 Power by Hx66.net
' Web: http://www.Hx66.net,http://www.Hx66.net/home
' Copyright (C) 2006 Hx66.net All Rights Reserved.
'****************************************************
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -