📄 view.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="admin/config.asp"-->
<!--#include file="admin/inc/char.asp"-->
<%
function geturl(str,utype)
dim url,showurl,urlnum,i,num
str=Split(str,VBCrLf)
urlnum=UBound(str)
for i=0 to urlnum
url=Split(str(i),"|")
num=UBound(url)
if num=0 then
select case utype
case "1" showurl="<a href=get.asp?id="&id&"&type="&utype&"&url="&(i+1)&"><font face='Verdana,Arial,宋体' style='font-size:11px'>Download."&(i+1)&"</font></a>┊"
case "2" showurl="<a href=get.asp?id="&id&"&type="&utype&"&url="&(i+1)&">汉化补丁</a>┊"
case "3" showurl="<a href=get.asp?id="&id&"&type="&utype&"&url="&(i+1)&">特别文件</a>┊"
end select
else
showurl="<a href=get.asp?id="&id&"&type="&utype&"&url="&(i+1)&">"&url(0)&"</a>┊"
end if
response.write showurl
next
end function
dim id,sql,rs
id=CInt(Request.QueryString("id"))
dim FileName,Grade,Brief,Chinese,Crack,DayHits,WeekHits,MonthHits,TotalHits,LastHit,Member
dim ViewTimes,Keyword,Info,Picture,FtpDown,AddDate,LastUpdate,URL,ClassID,Poster,Point
sql="select FileName,Grade,Brief,Chinese,Crack,DayHits,WeekHits,MonthHits,TotalHits,LastHit,ViewTimes,Keyword,Info,Picture,FtpDown,AddDate,LastUpdate,URL,ClassID,Poster,Point,Member from Software where ID="&id
' 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
set rs=conn.execute(sql)
FileName=rs(0)
Grade=rs(1)
Brief=rs(2)
Chinese=rs(3)
Crack=rs(4)
LastHit=rs(9)
Keyword=rs(11)
Info=Split(rs(12),"|")
Picture=rs(13)
FtpDown=rs(14)
AddDate=rs(15)
LastUpdate=rs(16)
URL=rs(17)
ClassID=rs(18)
Poster=rs(19)
Point=Split(rs(20),",")
Member=rs(21)
dim today
today=date()
if trim(LastHit)<>trim(today) then
sql="update software set DayHits=0,LastHit=date() where ID="&id
conn.execute(sql)
end if
sql="update software set ViewTimes=ViewTimes+1 where ID="&id
conn.execute(sql)
DayHits=rs(5)
if weekday(today)=1 then
sql="update software set WeekHits="&DayHits&" where ID="&id
conn.execute(sql)
end if
if day(today)=1 then
sql="update software set MonthHits="&DayHits&" where ID="&id
conn.execute(sql)
end if
WeekHits=rs(6)
MonthHits=rs(7)
TotalHits=rs(8)
ViewTimes=rs(10)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=FileName%> - <%=SiteSetting(0)%></title>
<SCRIPT LANGUAGE="JavaScript" src="js/outliner.js"></SCRIPT>
<SCRIPT LANGUAGE="JavaScript" FOR="DocBody" EVENT="onkeypress">checkKey();</SCRIPT>
<STYLE>
.color1
{
color : #000000;
}
.color2
{
color : #999999;
}
BODY {
scrollbar-face-color : <%=SkinSetting(10)%>;
scrollbar-shadow-color : <%=SkinSetting(11)%>;
scrollbar-highlight-color : <%=SkinSetting(12)%>;
scrollbar-3dlight-color : <%=SkinSetting(13)%>;
scrollbar-darkshadow-color : <%=SkinSetting(14)%>;
scrollbar-track-color : <%=SkinSetting(15)%>;
scrollbar-arrow-color : <%=SkinSetting(16)%>;
}
.mouseover {
background-color: <%=SkinSetting(8)%>;
border: 1px solid <%=SkinSetting(9)%>;
}
.mouseout {
background-color: <%=SkinSetting(3)%>;
}
.mouseout2 {
background-color: <%=SkinSetting(4)%>;
}
</STYLE>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="<%=SkinSetting(0)%>" background="<%=SkinSetting(1)%>" leftmargin="0" topmargin="0" ID="DocBody">
<!--#include file="header.asp"-->
<table width="760" border="0" cellspacing="0" cellpadding="0" align="<%=SiteSetting(9)%>">
<tr>
<td bgcolor="<%=SkinSetting(3)%>">
<table width="760" border="0" cellpadding="0" cellspacing="0" class="xuxian">
<tr>
<td width="600" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="18" valign="bottom" class="xuxian3"> <img src="images/point1.gif" width="17" height="16" align="absmiddle">
当前位置：<a href="default.asp">首页</a>
<%dim ClassName,ParentStr,ParentNum,i
sql="select ClassName,ParentStr from Class where ID="&ClassID
set rs=conn.execute(sql)
ClassName=rs(0)
ParentStr=Split(rs(1),",")
ParentNum=UBound(ParentStr)
if ParentStr(0)="0" then
response.write " \ <a href=list.asp?id="&ClassID&">"&ClassName&"</a>"
else
response.write " \ "
for i=0 to ParentNum
sql="select ID,ClassName from Class where ID="&CInt(ParentStr(i))
set rs=conn.execute(sql)
response.write "<a href=list.asp?id="&rs(0)&">"&rs(1)&"</a> \ "
next
response.write "<a href=list.asp?id="&ClassID&">"&ClassName&"</a>"
end if%>
</td>
</tr>
</table>
<br>
<table width="90%" border="0" align="center" cellpadding="2" cellspacing="0">
<tr>
<td align="center" bgcolor=<%=SkinSetting(4)%> class="TdBorderB"><strong><font face="Verdana, Arial, Helvetica, sans-serif, 宋体" color="<%=SkinSetting(5)%>"><%=FileName%></font></strong></td>
</tr>
</table>
<br>
<table width="90%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="<%=SkinSetting(2)%>" style="word-break:break-all">
<tr bgcolor="<%=SkinSetting(3)%>">
<td width="42%">文件大小：<%=Info(0)%></td>
<td width="38%" rowspan="6" align="center" bgcolor="<%=SkinSetting(3)%>">
<%if isnull(Picture) or Picture="" then
response.write "<img src=images/noimage.gif height=120 border=0>"
Else
Picture=Split(Picture,"|")
if Picture(1)<>"" then
response.write "<a href="&Picture(1)&" target=_blank><img src="&Picture(0)&" height=120 border=0 alt=点击放大></a>"
else
response.write "<a href="&Picture(0)&" target=_blank><img src="&Picture(0)&" height=120 border=0 alt=点击放大></a>"
end if
end if%> </td>
<td width="20%">总浏览：<%=ViewTimes%></td>
</tr>
<tr bgcolor="<%=SkinSetting(3)%>">
<td width="42%">运行平台：<%=Info(1)%></td>
<td width="20%">总下载：<%=TotalHits%></td>
</tr>
<tr bgcolor="<%=SkinSetting(3)%>">
<td width="42%">级别评定：
<%select case Grade
case "0" response.write "N/A"
case "1" response.write "<img src=images/grade1.gif>"
case "2" response.write "<img src=images/grade2.gif>"
case "3" response.write "<img src=images/grade3.gif>"
case "4" response.write "<img src=images/grade4.gif>"
case "5" response.write "<img src=images/grade5.gif>"
end select
%> </td>
<td width="20%">本 月：<%=MonthHits%></td>
</tr>
<tr bgcolor="<%=SkinSetting(3)%>">
<td width="42%">添加时间：<%=AddDate%></td>
<td width="20%">本 周：<%=WeekHits%></td>
</tr>
<tr bgcolor="<%=SkinSetting(3)%>">
<td width="42%">最后更新：<%=LastUpdate%></td>
<td width="20%">今 日：<%=DayHits%></td>
</tr>
<tr bgcolor="<%=SkinSetting(3)%>">
<td width="42%">相关链接：<%if Info(2)<>"" and Info(3)<>"" then
response.write "<a href="&Info(3)&" target=_blank>"&Info(2)&"</a>"
else
response.write "无"
end if%></td>
<td width="20%" bgcolor="<%=SkinSetting(3)%>">添加者：<a href="user_info.asp?username=<%=Poster%>" target="_blank" title="点击查看此用户的详细资料"><%=Poster%></a></td>
</tr>
</table>
<br>
<table width="90%" border="0" align="center" cellpadding="2" cellspacing="0">
<tr>
<td bgcolor="<%=SkinSetting(4)%>" class="TdBorderB">::立即下载::</td>
</tr>
</table>
<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">
<%if SiteSetting(8)="yes" and Member=true and chkmember=false then
response.write "会员软件，请先登录！"
else
response.write "┊"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -