📄 view.asp
字号:
if (isnull(URL) or URL="") and (isnull(FtpDown) or FtpDown="") then
response.write "暂停下载┊"
else
if not(isnull(URL) or URL="") then response.write geturl(URL,1)
if not(isnull(FtpDown) or FtpDown="") then
FtpDown=Split(FtpDown,"|")
response.write "<a href=get.asp?id="&id&"&type=4&url="&(FtpDown(0)+1)&">本站下载</a>┊"
end if
end if
if not(isnull(Chinese) or Chinese="") then response.write geturl(Chinese,2)
if not(isnull(Crack) or Crack="") then response.write geturl(Crack,3)
end if%>
</td>
</tr>
</table>
<br>
<table width="90%" border="0" align="center" cellpadding="2" cellspacing="0">
<tr>
<td width="3%" align="center" bgcolor="<%=SkinSetting(4)%>" class="TdBorderB"><font color="#666666">/</font></td>
<td width="15%" align="center" bgcolor="<%=SkinSetting(4)%>" class="TdBorderB"><font id="AA" STYLE="cursor:hand" onclick="CloseAll();outliner();this.className='color1';BB.className='color2';CC.className='color2'" child="A" class="color1">::软件简介::</font></td>
<td width="3%" align="center" bgcolor="<%=SkinSetting(4)%>" class="TdBorderB"><font color="#666666">/</font></td>
<td width="15%" align="center" bgcolor="<%=SkinSetting(4)%>" class="TdBorderB"><font id="BB" STYLE="cursor:hand" onclick="CloseAll();outliner();this.className='color1';AA.className='color2';CC.className='color2'" child="B" class="color2">::相关软件::</font></td>
<td width="3%" align="center" bgcolor="<%=SkinSetting(4)%>" class="TdBorderB"><font color="#666666">/</font></td>
<td width="15%" align="center" bgcolor="<%=SkinSetting(4)%>" class="TdBorderB"><font id="CC" STYLE="cursor:hand" onclick="CloseAll();outliner();this.className='color1';AA.className='color2';BB.className='color2'" child="C" class="color2">::软件点评::</font></td>
<td width="3%" bgcolor="<%=SkinSetting(4)%>" class="TdBorderB"><font color="#666666">/</font></td>
<td bgcolor="<%=SkinSetting(4)%>" class="TdBorderB"> </td>
</tr>
</table>
<DIV CLASS="expanded" ID="A">
<table width="90%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="<%=SkinSetting(2)%>" style="word-break:break-all">
<tr>
<td bgcolor="<%=SkinSetting(3)%>" style="line-height:16px">
<%=UBBCode(Brief)%></td>
</tr>
</table>
</div>
<DIV CLASS="collapsed" ID="B">
<table width="90%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="<%=SkinSetting(2)%>" style="word-break:break-all">
<tr>
<td valign="top" bgcolor="<%=SkinSetting(3)%>">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<%
sql="select top 10 ID,FileName,Chinese,Crack,Member from Software where Hidden=false and PostType<>1 and Keyword like '%"&Keyword&"%' and FileName<>'"&FileName&"' order by ID DESC"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
response.write "<td height='20'><center>暂无相关软件</center></td>"
else
response.write "<tr><td style=line-height:16px>"
do while not rs.eof
response.write "·<a href=view.asp?id="&rs(0)&">"&rs(1)&"</a>"
if not(isnull(rs(2)) or rs(2)="") then
response.write" <img src='images/cn.gif'>"
end if
if not(isnull(rs(3)) or rs(3)="") then
response.write" <img src='images/cr.gif'>"
end if
if rs(4)=true then
response.write" <img src='images/mb.gif'>"
end if
response.write"<br>"
rs.movenext
loop
response.write"</td><tr>"
end if
%>
</table></td>
</tr>
</table>
</div>
<DIV CLASS="collapsed" ID="C">
<table width="90%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="<%=SkinSetting(2)%>" style="word-break:break-all">
<tr bgcolor="<%=SkinSetting(3)%>">
<td valign="top" bgcolor="<%=SkinSetting(3)%>">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<%
sql="select top 10 * from review where SoftID="&id&" order by ID DESC"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
response.write "<td height='20'><center>暂无评论</center></td>"
else
response.write "<tr><td style=line-height:16px>"
do while not rs.eof
response.write "〖"&killchar(rs(2))&"〗"&killchar(rs(3))&" ("&formatDT(rs(4),1)&")<br>"
rs.movenext
loop
response.write "</td></tr><tr><td align=right><a href=review.asp?id="&id&" target=_blank>-=全部评论=-</a></td></tr>"
end if
%>
</table></td>
</tr>
</table>
</div>
<br>
</td>
<td width="160" valign="top" bgcolor="<%=SkinSetting(4)%>" class="xuxian2">
<br>
<%dim people,total,average,pp1,pp2,pp3,pp4,pp5
dim Point1,Point2,Point3,Point4,Point5
Point1=Cint(Point(0))
Point2=Cint(Point(1))
Point3=Cint(Point(2))
Point4=Cint(Point(3))
Point5=Cint(Point(4))
people=Point1+Point2+Point3+Point4+Point5
total=Point1*1+Point2*2+Point3*3+Point4*4+Point5*5
if Point1=0 then pp1=0 else pp1=cint(Point1/people*100)
if Point2=0 then pp2=0 else pp2=cint(Point2/people*100)
if Point3=0 then pp3=0 else pp3=cint(Point3/people*100)
if Point4=0 then pp4=0 else pp4=cint(Point4/people*100)
if Point5=0 then pp5=0 else pp5=cint(Point5/people*100)
if people=0 then
average=0
else
average=total/people
average=round(average,2)
end if
%>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="2" bgcolor="<%=SkinSetting(3)%>">
<tr>
<td width="18%">1分</td>
<td width="65%"><img src="images/tu.gif" width="<%=pp1%>%" height="10"></td>
<td width="17%"><%=Point1%></td>
</tr>
<tr>
<td>2分</td>
<td><img src="images/tu.gif" width="<%=pp2%>%" height="10"></td>
<td><%=Point2%></td>
</tr>
<tr>
<td>3分</td>
<td><img src="images/tu.gif" width="<%=pp3%>%" height="10"></td>
<td><%=Point3%></td>
</tr>
<tr>
<td>4分</td>
<td><img src="images/tu.gif" width="<%=pp4%>%" height="10"></td>
<td><%=Point4%></td>
</tr>
<tr>
<td>5分</td>
<td><img src="images/tu.gif" width="<%=pp5%>%" height="10"></td>
<td><%=Point5%></td>
</tr>
<tr align="center">
<td colspan="3">共有 <%=people%> 人打分</td>
</tr>
<tr align="center">
<td colspan="3">平均得分：<%=average%></td>
</tr>
<tr align="center">
<form name="form1" method="post" action="vote.asp?id=<%=id%>">
<td colspan="3"> <select name="point" class="button" id="point">
<option value="0" selected>打分</option>
<option value="1">1分</option>
<option value="2">2分</option>
<option value="3">3分</option>
<option value="4">4分</option>
<option value="5">5分</option>
</select> <input name="Submit" type="submit" class="button" value="确定">
</td>
</form>
</tr>
<tr>
<td height="12" colspan="3" align="center">[<font color="#FF0000">请客观打分</font>]</td>
</tr>
</table>
<br>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="<%=SkinSetting(2)%>">
<tr>
<td bgcolor="<%=SkinSetting(7)%>"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="18" align="center" class="dropshadow"><font color="<%=SkinSetting(6)%>"><strong>发
表 评 论</strong></font></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="<%=SkinSetting(4)%>"> <table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="5"></td>
</tr>
<tr><form name="form2" method="post" action="review_save.asp?id=<%=id%>">
<td height="20" align="center">
<textarea name="Content" cols="20" rows="4" id="Content" title="请填写评论内容"></textarea>
<br>
姓名
<input name="MyName" type="text" class="input" id="MyName" title="必填" value="<%=request.cookies("ydxz")("usr")%>" size="16">
<br>
<br>
<input name="Submit2" type="submit" class="button" value="提交">
<input name="Submit3" type="reset" class="button" value="重置">
</td>
</form>
</tr>
</table></td>
</tr>
</table>
<br>
</td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="footer.asp"-->
</body>
</html>
<%set rs=nothing
conn.close
set conn=nothing %>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -