%
Dim Rs,SQL,softid,PreviewImg,SoftImageUrl,SoftName
Dim strUrl,HtmlFileUrl,HtmlFileName,ChannelRootDir,ChannelDirectory
If Not IsNumeric(Request("softid")) And Request("softid") <> "" then
Response.Write"错误的系统参数!ID必须是数字"
Response.End
Else
softid = CLng(Request.querystring("softid"))
End If
If NewAsp.BindDomain = 0 Then
ChannelRootDir = NewAsp.InstallDir & NewAsp.ChannelDir
ChannelDirectory = NewAsp.ChannelDir
Else
ChannelRootDir = "/"
ChannelDirectory = ""
End If
If softid <> "" Then
SQL="SELECT A.softid,A.classid,A.SoftName,A.SoftVer,A.SoftImage,A.Previewimg,A.HtmlFileDate,C.HtmlFileDir FROM NC_SoftList A INNER JOIN [NC_Classify] C On A.ClassID=C.ClassID WHERE A.ChannelID="& ChannelID &" And A.isAccept <> 0 And A.softid="&softid
Set Rs = NewAsp.Execute(SQL)
If Not(Rs.EOF And Rs.BOF) Then
SoftName = Trim(Rs("SoftName") & " " & Rs("SoftVer"))
If Not IsNull(Trim(Rs("Previewimg"))) And Trim(Rs("Previewimg")) <> "" Then
SoftImageUrl = NewAsp.GetImagePath(Rs("Previewimg"), ChannelRootDir)
PreviewImg = AnalyseImage(SoftImageUrl, 0, 0, SoftName)
Else
If Not IsNull(Trim(Rs("SoftImage"))) And Trim(Rs("SoftImage")) <> "" Then
SoftImageUrl = NewAsp.GetImagePath(Rs("SoftImage"), ChannelRootDir)
PreviewImg = AnalyseImage(SoftImageUrl, 0, 0, SoftName)
Else
PreviewImg = "
<%= Trim(SoftName)%> 的软件界面 |
<%= PreviewImg %> |
点击此处进入 <%= Trim(SoftName)%> 的下载页面--==>> |