view.asp

主要功能是为大家提供一个免费的校园平台网站,有新闻发布、会员及管理、论坛

<!--#include file="inc/config.asp"-->
<!--#include file="mdb.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>")
end if
if request.QueryString("action")="news" then
sql="select * from news where news_id="&request.querystring("news_id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
Response.Write "<TABLE id=navsub cellSpacing=0 cellPadding=0 align=center><TBODY>" & vbCrLf
Response.Write "<TR><TD class=l></TD><TD class=m height=""25"">&nbsp; <a href='index.asp'>首 页</a> - <a href='news.asp'>新闻动态</a>" & vbCrLf
Response.Write "</TD><TD class=r></TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "<TABLE width=""100%"" id=middle cellSpacing=0 cellPadding=0 align=center boder=""0"">" & vbCrLf
Response.Write "<TBODY><TR vAlign=top bgcolor=""#FCFCFC""><TD>" & vbCrLf
Response.Write "<DIV class=mframe>" & vbCrLf
Response.Write "<SCRIPT type=text/javascript>lanyutable(""共有评论<font color=#CC0000>"&rs("reviewcount")&"</font>篇"");</SCRIPT>"
Response.Write "<br><div align=""center""><font style=""font-size:16px""><b>"&rs("news_title")&"</b></font></div><br>" & vbCrLf
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 "<SCRIPT type=text/javascript>lanyutable(""发表评论"");</SCRIPT>" & vbCrLf
Response.Write "<form action=""viewsave.asp?action=news&news_id="&rs("news_id")&""" method=""POST"" name=""form"" onsubmit=""return checkRemark();"">" & vbCrLf
set rscount=conn.execute("select * from news")
sql="UPDATE news SET news_count = news_count + 1 where news_id="&request.querystring("news_id")
conn.execute (sql)
rscount.close
set rscount=nothing
end if
if request.QueryString("action")="dj" then
sql="select * from dj where dj_id="&request.querystring("dj_id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
Response.Write "<TABLE id=navsub cellSpacing=0 cellPadding=0 align=center><TBODY>" & vbCrLf
Response.Write "<TR><TD class=l></TD><TD class=m height=""25"">&nbsp; <a href='index.asp'>首 页</a> - <a href='dj.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><TD class=r></TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "<TABLE id=middle cellSpacing=0 cellPadding=0 align=center boder=""0"">" & vbCrLf
Response.Write "<TBODY><TR vAlign=top bgcolor=""#FCFCFC""><TD>" & vbCrLf
Response.Write "<DIV class=mframe>" & vbCrLf
Response.Write "<SCRIPT type=text/javascript>lanyutable(""相关评论<font color=#CC0000>"&rs("reviewcount")&"</font>篇"");</SCRIPT><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("dj_name")&"</b></font><br><BR>" & vbCrLf
Response.Write "</div>"
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")&""" onclick=""LyWindow(this.href,'dj','400','330','no','no','center');return false"">查看所评论的音乐</a>&nbsp;&nbsp;</td></tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "<SCRIPT type=text/javascript>lanyutable(""发表评论"");</SCRIPT>" & vbCrLf
Response.Write "<form action=""viewsave.asp?action=dj&dj_id="&rs("dj_id")&""" method=""POST"" name=""form"" onsubmit=""return checkRemark();"">" & vbCrLf
set rscount=conn.execute("select * from dj")
sql="UPDATE dj SET dj_count = dj_count + 1 where dj_id="&request.querystring("dj_id")
conn.execute (sql)
rscount.close
set rscount=nothing
end if
if request.QueryString("action")="down" then
sql="select * from soft where soft_id="&request.querystring("soft_id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
Response.Write "<TABLE id=navsub cellSpacing=0 cellPadding=0 align=center><TBODY>" & vbCrLf
Response.Write "<TR><TD class=l></TD><TD class=m 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><TD class=r></TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "<TABLE id=middle cellSpacing=0 cellPadding=0 align=center boder=""0"">" & vbCrLf
Response.Write "<TBODY><TR vAlign=top bgcolor=""#FCFCFC""><TD>" & vbCrLf
Response.Write "<DIV class=mframe>" & vbCrLf
Response.Write "<SCRIPT type=text/javascript>lanyutable(""共有评论<font color=#CC0000>"&rs("reviewcount")&"</font>篇"");</SCRIPT>"
%>
<br><div align="center"><font style="font-size:16px"><b><%=rs("soft_name")%></b></font></div><br>
<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)%>
<tr><td style="word-break:break-all;table-layout:fixed;text-align:left;LINE-HEIGHT: 180%"><%=temp(i)%></td></tr>
<%
next
else
Response.Write "<tr><td style=""LINE-HEIGHT: 180%"">当前没有评论</td></tr>"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<tr><td align="right"><a href="showdown.asp?soft_id=<%=request.querystring("soft_id")%>">查看所评论的文件</a>&nbsp;&nbsp;</td></tr>  
</table>
<SCRIPT type=text/javascript>lanyutable("发表评论");</SCRIPT>
<form action="viewsave.asp?action=down&soft_id=<%=request.querystring("soft_id")%>" method="POST" name="form" onsubmit="return checkRemark();">
<%
set rs=conn.execute("select soft_id,soft_rcount from soft")
sql="UPDATE soft SET soft_rcount = soft_rcount + 1  WHERE soft_id="&request.querystring("soft_id")
conn.execute (sql)
rs.close
set rs=nothing
end if
if request.QueryString("action")="js" then
sql="select * from js where js_id="&request.querystring("js_id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
Response.Write "<TABLE id=navsub cellSpacing=0 cellPadding=0 align=center><TBODY>" & vbCrLf
Response.Write "<TR><TD class=l></TD><TD class=m 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><TD class=r></TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "<TABLE id=middle cellSpacing=0 cellPadding=0 align=center boder=""0"">" & vbCrLf
Response.Write "<TBODY><TR vAlign=top bgcolor=""#FCFCFC""><TD>" & vbCrLf
Response.Write "<DIV class=mframe>" & vbCrLf
Response.Write "<SCRIPT type=text/javascript>lanyutable(""相关评论<font color=#CC0000>"&rs("reviewcount")&"</font>篇"");</SCRIPT><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