📄 softview.asp
字号:
');
document.write('
<option value=19>免费电影</option>
');
document.write('
</select></font></TD>
</TR>
<TR>
<TD borderColor=#f7f3f7 align=middle width=34
bgColor=#f7f3f7 height=2>
<DIV align=right> </DIV></TD>
<TD borderColor=#f7f3f7 align=middle width=35
bgColor=#f7f3f7><font color="#808080">
<INPUT class=style3 style="border:1px solid #ffffff; BACKGROUND-COLOR: #ffffff" type=submit value="搜 索" name=submit></font></TD>
<TD borderColor=#f7f3f7 align=middle width=91
bgColor=#f7f3f7>
<DIV align=left>
<font color="#808080">
<INPUT class=style3 style="border:1px solid #ffffff; BACKGROUND-COLOR: #ffffff" type=reset value="清 除" name=submit2></font>
</DIV></TD>
</TR>
</FORM>
</TABLE>
</CENTER>
</DIV>
<!-- μ?o??è?ú???÷ ?áê? --></TD>
</TR>
<TR>
<TD height=21 width="186"><div align="left">
<IMG src="tp/4.gif" width="180" height="27"
border=0></div></TD>
</TR>
<TR>
<TD align=left width=186 bgColor=#f7f3f7 height=6>
<table width="100%" border="0" cellspacing="1" cellpadding="3">
<tr>
<td>
<%
if request("CateID")<>"" then
sql="select * from "&CategoryName&"_SubCate where CateID="&cstr(request("CateID"))
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "没有任何分类"
else
do while not rs.eof
if cstr(rs("SubCateID"))=cstr(request("SubCateID")) then
response.write " → <a href=""SoftList.asp?CateID="&rs("CateID")&"&SubCateID="&rs("SubCateID")&""" class=""ArticleList""><font color=""#FF0000""><b>"&rs("SubCateName")&"</b></font></a> ( <font color=""#FF0000"">"&rs("SubCateNum")&"</font>个 )"
else
response.write " → <a href=""SoftList.asp?CateID="&rs("CateID")&"&SubCateID="&rs("SubCateID")&""" class=""ArticleList"">"&rs("SubCateName")&"</a>( <font color=""#FF0000"">"&rs("SubCateNum")&"</font>个 )"
end if
response.write "<br>"
rs.movenext
loop
end if
rs.close
else
sql="select * from "&CategoryName&"_Cate"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "没有任何分类"
else
do while not rs.eof
response.write " → <a href=""SoftList.asp?CateID="&rs("CateID")&""" class=""ArticleList"">"&rs("CateName")&"</a>( <font color=""#FF0000"">"&rs("CateNum")&"</font>个 )"
response.write "<br>"
rs.movenext
loop
end if
rs.close
end if
%>
</td>
</tr>
</table></TD>
</TR>
<TR>
<TD width=186 height=32>
<P align=center>
<IMG src="123.files/3.gif" border=0 width="180" height="27"> </P></TD>
</TR>
<TR>
<TD align=left width=186 bgColor=#f7f3f7 height=6>
<table width="100%" border="0" cellspacing="1" cellpadding="3">
<tr>
<td><%
if request("CateID")<>"" and request("SubCateID")<>"" then
sql="select top 10 SoftID,SoftName,SoftVer,SoftTime from "&CategoryName&"_SoftInfo where "&CateID&" "&SubCateID&" order by WeekHits desc,SoftID desc"
end if
if request("CateID")<>"" and request("SubCateID")="" then
sql="select top 10 SoftID,SoftName,SoftVer,SoftTime from "&CategoryName&"_SoftInfo where "&CateID&" order by WeekHits desc,SoftID desc"
end if
if request("CateID")="" and request("SubCateID")="" then
sql="select top 10 SoftID,SoftName,SoftVer,SoftTime from "&CategoryName&"_SoftInfo order by WeekHits desc,SoftID desc"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'>近期没有新软件</p>"
else
do while not rs.eof
response.write "<li><a href=""SoftView.asp?SoftID="& rs("SoftID")&""" class=""ArticleList"">"& trim(rs("SoftName")) & trim(rs("SoftVer")) & " </a></li>"
rs.movenext
loop
end if
rs.close
%></td>
</tr>
</table></TD>
</TR>
<TR>
<TD width=186 height=32>
<P align=center>
<IMG src="tp/5.gif" width="180" height="27"
border=0></P></TD>
</TR>
<TR>
<TD width=186 height=1></TD>
</TR>
<TR>
<TD width=186 bgColor=#f7f3f7 height=85>
<TABLE cellSpacing=0 cellPadding=4 width="167"
border=0>
<TBODY>
<TR>
<TD style="FONT-SIZE: 12px" width=163>
<P align=center><A
href="http://windowsmedia.com/download/"
target=_blank> <font color="#000000"> <IMG
src="tp/WMP9series_Free.gif"
alt="如不能正常播放请下载此Media player 9播放器" width="120" height="32" border=0></font></A> </P></TD>
</TR>
<TR>
<TD style="FONT-SIZE: 12px" width=163>
<P align=center> <IMG
src="tp/realone.gif" width="88" height="31" border=0> </P></TD>
</TR>
<TR>
<TD style="FONT-SIZE: 12px" width=163>
<P align=center><SPAN class=style3><A
href="http://windowsmedia.com/download/"
target=_blank>
<MARQUEE scrollDelay=100
width=86>
</MARQUEE>
</A></SPAN><A
href="http://windowsmedia.com/download/"
target=_blank>
<MARQUEE scrollDelay=100 width=86>
</MARQUEE>
<MARQUEE scrollDelay=100
width=163> 如不能正常播放请下载此Media player 9播放器与RealOnE播放器！</MARQUEE>
</A><SPAN
class=style3><A
href="http://windowsmedia.com/download/"
target=_blank>
<MARQUEE scrollDelay=100
width=86>
</MARQUEE>
</MARQUEE>
</MARQUEE>
</MARQUEE>
</MARQUEE>
</MARQUEE>
</MARQUEE>
</MARQUEE>
</MARQUEE>
</MARQUEE>
</MARQUEE>
</MARQUEE>
</MARQUEE>
</A></SPAN></P></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TABLE></td>
<td width="1" bgcolor="#949494" height="921" ></td>
<td width="5" valign="top" bgcolor="#FFFFFF" height="921" ></td>
<td valign="top" bgcolor="#FFFFFF" width="562" height="921" >
<%
select case request("action")
case "savereinfo" '保存评论信息
call savereinfo()
case else
call ShowSoftInfo() '查看ftp信息
end select
sub SaveReInfo()
dim userip_temp
userip_temp=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
if userip_temp="" then
userip_temp=Request.ServerVariables("REMOTE_ADDR")
end if
sql="select * from "&CategoryName&"_SoftEssay where (ID is null)"
rs.open sql,conn,1,3
rs.addnew
rs("SoftID")=trim(request("SoftID"))
rs("UserName")=trim(request.form("UserName"))
rs("Email")=trim(request.form("Email"))
rs("Grade")=trim(request.form("Grade"))
rs("content")=UBBCode(request.form("content"))
rs("dateTime")=Now()
rs("UserIP")=userip_temp
rs("type")="soft"
rs.update
rs.close
sql="select count(ID) as reNum,AVG(Grade) as avgGrade from "&CategoryName&"_SoftEssay where SoftID="&request("SoftID")&" and type='soft'"
rs.open sql,conn,1,1
reNum=rs("reNum")
avgGrade=rs("avgGrade")
rs.close
conn.execute("update "&CategoryName&"_SoftInfo set avgGrade="&avgGrade&",EssayNum="&reNum&" where SoftID="&request("SoftID")&" ")
call ShowSoftInfo()
end sub
Sub ShowSoftinfo()
sql="select * from "&CategoryName&"_SoftInfo where SoftID="&request.QueryString("SoftID")
rs.open sql,conn,1,1
PubUserName=rs("UserName")
avgGrade=rs("avgGrade")
EssayNum=rs("EssayNum")
keys=rs("SoftName")
%>
<TABLE cellSpacing=0 cellPadding=8 width="100%" border=0>
<TBODY>
<TR>
<TD width="100%">
<TABLE style="BORDER-COLLAPSE: collapse"
borderColor=#cccccc cellSpacing=0 cellPadding=4
width="100%" border=1>
<TBODY>
<TR>
<TD width="100%" bgColor=#eeeeee>
<TABLE height=1 cellSpacing=0 cellPadding=6
width="100%" border=0>
<TBODY>
<TR>
<TD width="98%" bgColor=#ffffff height=90>
<TABLE borderColor=#ffffff cellSpacing=0
cellPadding=3 width="530" border=1>
<TBODY>
<TR>
<TD align=middle width="70"
bgColor=#ff9933>节目名称：</TD>
<TD width="244" bgColor=#eeeeee><%=rs("SoftName")&" "&rs("SoftVer")%>
<img src="images/<%=rs("Rank")%>star.gif"></TD>
<TD width="190" rowspan="4" bgColor=#eeeeee><div align="center">
<%
if not isnull(rs("images")) and rs("images")<>"" then
response.write "<img src='"&rs("Images")&"' border=0>"
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -