📄 softview.asp

📁 blue space 蓝色空间下载系统精简版---大家分享
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../inc/oConn.asp" -->
<!--#include file="../inc/function.asp" -->
<!--#include file="../inc/HeadDH.asp" -->
<!--#include file="Function.asp" -->
<%
Dim SoftID,strTitle,strUserAddress
SoftID = Request.QueryString("SoftID")
If SoftID = "" Or Not IsNumeric(SoftID) Then SoftID = 4
strUserAddress = UserAddress(SoftID)

Call PrintHead(strTitle)
Call DisplayPage(SoftID)
Call PrintFoot()

Sub DisplayPage(SoftID)
	Dim strHtml
	strHtml = PrintListTable()&ResponseTable(1)&strUserAddress
	strHtml = strHtml & "<TABLE align='center' cellspacing='2' cellpadding='1'>"&vbCrLf
	strHtml = strHtml & "<TR>"&vbCrLf
	strHtml = strHtml & "<TD valign='top'>"&vbCrLf
	strHtml = strHtml & SearchForm()&ResponseTable(1)
	strHtml = strHtml & HotList(SoftClassID(SoftID),"S")&ResponseTable(1)
	strHtml = strHtml & AllHotList()&ResponseTable(1)
	strHtml = strHtml & "</TD>"&vbCrLf
	strHtml = strHtml & "<TD valign='top'>"
	strHtml = strHtml & SoftInfo(SoftID)
	strHtml = strHtml & "</TD>"&vbCrLf
	strHtml = strHtml & "</TR>"&vbCrLf
	strHtml = strHtml & "</TABLE>"
	Call CloseConn()
	Print strHtml
End Sub

Function UserAddress(SoftID)
	Dim objRs,strHtml,strTmp
	Set objRs = oConn.Execute("Select "&ClassTable&".SoftClassBigName,"&ClassTable&".SoftClassSmallName,"&ClassTable&".SoftBigClassID,"&ClassTable&".SoftClassID,"&InfoTable&".SoftName From "&InfoTable&","&ClassTable&" Where "&InfoTable&".SoftID="&SoftID&" And "&ClassTable&".SoftClassID="&InfoTable&".SoftClass")
	If Not objRs.Eof Then
		strTmp = "<a href='"&SystemPath&"/Soft/SoftListB.asp?SortID="&objRs(2)&"'>"&objRs(0)&"</a> >> <a href='"&SystemPath&"/Soft/SoftListS.asp?SortID="&objRs(3)&"'>"&objRs(1)&"</a> >> "&objRs(4)&""
		strTitle = ""&objRs(4)&" >> 蓝色空间 软件下载 >> "&objRs(0)&" >> "&objRs(1) &""
	Else
		strTmp = "大类"
	End If
	Set objRs = Nothing
	strHtml = "<table width='"&MaxTableWidth&"' bgcolor='#ffffff' align='center' cellspacing='0'  cellpadding='5'>"&vbCrLf
	strHtml = strHtml & "<tr><td>"&vbCrLf
	strHtml = strHtml & "你的位置："&DownIndexUrl&" "&strTmp&""&vbCrLf
	strHtml = strHtml & "</td></tr></table>"&vbCrLf

	UserAddress = strHtml
End Function



Function SoftInfo(SoftID)
	Dim strSQL,objRs,strHtml,strDownUrl,strAboutSoft,strAboutArticle

    strHtml = "<table width='"&ListTableWidth&"' border='0' cellspacing='1' cellpadding='6' bgcolor='#CCCCCC' align='center'>"&vbCrLf
    strHtml = strHtml & "<tr bgcolor='#FFFFFF'> "&vbCrLf
    strHtml = strHtml & "  <td colspan='3' class='thetitle1' style='border:1 solid #ffffff' align='center'>$SoftName$</td>"&vbCrLf
    strHtml = strHtml & "</tr>"&vbCrLf
    strHtml = strHtml & "<tr bgcolor='#FFFFFF'> "&vbCrLf
    strHtml = strHtml & "  <td width='8%' align='center'>软件语言：</td>"&vbCrLf
    strHtml = strHtml & "  <td>$SoftLanguage$</td>"&vbCrLf
    strHtml = strHtml & "  <td width='52%' rowspan='7' align=center>$SoftDownAds$</td>"&vbCrLf
    strHtml = strHtml & "</tr>"&vbCrLf
    strHtml = strHtml & "<tr bgcolor='#FFFFFF'> "&vbCrLf
    strHtml = strHtml & "   <td width='8%' align='center'>软件类型：</td>"&vbCrLf
    strHtml = strHtml & "   <td>$SoftType$</td>"&vbCrLf
    strHtml = strHtml & "</tr>"&vbCrLf
    strHtml = strHtml & "<tr bgcolor='#FFFFFF'> "&vbCrLf
    strHtml = strHtml & "   <td width='8%' align='center'>运行环境：</td>"&vbCrLf
    strHtml = strHtml & "   <td>$SoftOperation$</td>"&vbCrLf
    strHtml = strHtml & "</tr>"&vbCrLf
    strHtml = strHtml & "<tr bgcolor='#FFFFFF'> "&vbCrLf
    strHtml = strHtml & "   <td width='8%' align='center'>软件大小：</td>"&vbCrLf
    strHtml = strHtml & "   <td>$SoftSize$</td>"&vbCrLf
    strHtml = strHtml & "</tr>"&vbCrLf
    strHtml = strHtml & "   <tr bgcolor='#FFFFFF'> "&vbCrLf
    strHtml = strHtml & "     <td width='8%' align='center'>整理时间：</td>"&vbCrLf
	strHtml = strHtml & "      <td>$SoftUpdateTime$</td>"&vbCrLf
    strHtml = strHtml & "   </tr>"&vbCrLf
    strHtml = strHtml & "   <tr bgcolor='#FFFFFF'> "&vbCrLf
    strHtml = strHtml & "     <td width='8%' align='center'>下载次数：</td>"&vbCrLf
    strHtml = strHtml & "     <td><script language='Javascript' src='"&SystemPath&"/Soft/SoftCount.asp?SoftID="&SoftID&"'></script></td>"&vbCrLf
    strHtml = strHtml & "   </tr>"&vbCrLf
    strHtml = strHtml & "   <tr bgcolor='#FFFFFF'> "&vbCrLf
    strHtml = strHtml & "     <td width='8%' align='center'>联 系 人：</td>"&vbCrLf
    strHtml = strHtml & "     <td><a href='mailto:$SoftLinkMan$'>$SoftLinkMan$</a></td>"&vbCrLf
    strHtml = strHtml & "   </tr>"&vbCrLf
    strHtml = strHtml & "   <tr bgcolor='#FFFFFF'> "&vbCrLf
    strHtml = strHtml & "     <td width='8%' align='center'>开 发 商：</td>"&vbCrLf
    strHtml = strHtml & "     <td colspan='2'><a href='$SoftChangShang$' target='_blank'>$SoftChangShang$</a></td>"&vbCrLf
    strHtml = strHtml & "   </tr>"&vbCrLf
    strHtml = strHtml & "   <tr bgcolor='#FFFFFF'>"&vbCrLf 
    strHtml = strHtml & "     <td width='8%' align='center'>软件简介：</td>"&vbCrLf
    strHtml = strHtml & "     <td colspan='2' style=""line-height:150%"">$SoftRemark$</td>"&vbCrLf
    strHtml = strHtml & "   </tr>"&vbCrLf
    strHtml = strHtml & "   <tr bgcolor='#FFFFFF'>"&vbCrLf
    strHtml = strHtml & "   <td width='8%' align='center'>广告位置：</td>"&vbCrLf
	strHtml = strHtml & "		<td colspan='2' style=""line-height:150%"">$SoftDownAds1$</td>"&vbCrLf
    strHtml = strHtml & "   </tr>"&vbCrLf    
    strHtml = strHtml & "   <tr bgcolor='#FFFFFF'>"&vbCrLf
    strHtml = strHtml & "   <td width='8%' align='center'>下载地址：</td>"&vbCrLf
	strHtml = strHtml & "		<td colspan='2' style=""line-height:150%"">$SoftDownUrl$</td>"&vbCrLf
    strHtml = strHtml & "   </tr>"&vbCrLf    
    strHtml = strHtml & "   <!--相关软件-->"&vbCrLf
    strHtml = strHtml & "  <tr bgcolor='#FFFFFF'>"&vbCrLf
    strHtml = strHtml & "     <td width='8%' align='center' nowrap>相关软件：</td>"&vbCrLf
	strHtml = strHtml & "	 <td colspan='2' style=""line-height:150%""><li><a href='http://search.union.3721.com/click/search.htm?fw=union&m=203571&p=1006&name=$SoftName$' target='_blank'>查找相关软件 $SoftName$ </a>$SoftAboutID$</td>"&vbCrLf
	strHtml = strHtml & "  </tr> "&vbCrLf

	Dim strHelp
	strHelp = "<b>*&nbsp;</b>如果您发现该软件不能下载，请<A HREF='mailto:mxx_1#163.com'>通知管理员</A>，谢谢！"
	strHelp = strHelp & "<br><b>*&nbsp;</b>为了达到最快的下载速度，推荐使用<a href='"&SystemPath&"/Soft/Search.asp?Key=FlashGet' target='_blank'>网际快车</A>下载本站软件。"
	strHelp = strHelp & "<br><b>*&nbsp;</b><font color='red'>声明：本站所有软件均收集自互联网，如有侵权嫌疑，请你通知我们，我们会尽快删除！</font>"

	strSQL = "Select SoftName,SoftSize,SoftLanguage,SoftType,SoftOperation,SoftUpdateTime,SoftLinkMan,SoftChangShang,SoftRemark,SoftAboutID,ArticleAboutID,SoftCount,SkySoftID From "&InfoTable&" Where SoftID="&SoftID&""
	Set objRs = oConn.Execute(strSQL)
	If Not objRs.Eof Then
		strAboutSoft = AboutSoftList(objRs(9))
		strHtml = Replace(strHtml,"$SoftDownAds$",strSoftAds)
		strHtml = Replace(strHtml,"$SoftDownAds1$",strSoftAds1)
		strHtml = Replace(strHtml,"$SoftName$",objRs(0))
		strHtml = Replace(strHtml,"$SoftSize$",objRs(1))
		strHtml = Replace(strHtml,"$SoftLanguage$",objRs(2))
		strHtml = Replace(strHtml,"$SoftType$",objRs(3))
		strHtml = Replace(strHtml,"$SoftOperation$",objRs(4))
		strHtml = Replace(strHtml,"$SoftUpdateTime$",objRs(5))
		strHtml = Replace(strHtml,"$SoftLinkMan$",Replace(objRs(6),"&#39;",CHR(39)))
		strHtml = Replace(strHtml,"$SoftChangShang$",Replace(objRs(7),"&#39;",CHR(39)))
		strHtml = Replace(strHtml,"$SoftRemark$",objRs(8))
		strHtml = Replace(strHtml,"$SoftAboutID$",strAboutSoft)
		strHtml = Replace(strHtml,"$SoftCount$",objRs(11))
		strHtml = Replace(strHtml,"$SoftDownUrl$",SoftDownUrlList(objRs(12)))
	Else
		strHtml = Replace(strHtml,"$SoftName$","没有资料存在！！")
	End If
    
    strHtml = strHtml & "  <tr bgcolor='#FFFFFF'>"&vbCrLf
    strHtml = strHtml & "     <td width='8%' align='center' nowrap>下载帮助：</font></td>"&vbCrLf
	strHtml = strHtml & "	 <td colspan='2' style=""line-height:150%"">$SoftDownHelp$</td>"&vbCrLf
	strHtml = strHtml & "  </tr>"&vbCrLf 
    strHtml = strHtml & "</table>"&vbCrLf
	strHtml = Replace(strHtml,"$SoftDownHelp$",strHelp)

	Set objRs = Nothing

	SoftInfo = strHtml
End Function

Function AboutSoftList(strSoftID)
	If strSoftID = "" Or IsNull(strSoftID) Then Exit Function
	Dim strHtml,strSQL,objRs
	strHtml = ""
	strSQL = "Select SoftID,SoftName,SoftClass From "&InfoTable&" Where SkySoftID In ("&strSoftID&")"
	Set objRs = oConn.Execute(strSQL)
	If Not objRs.Eof Then
		Do While Not objRs.Eof
			strHtml = strHtml & "<li><a href='"&SystemPath&"/Soft/SoftView.asp?SoftID="&objRs(0)&"'>"&objRs(1)&"</a>"
			objRs.MoveNext
			If objRs.Eof Then Exit Do
		LOOP
	End If
	Set objRs = Nothing
	AboutSoftList = strHtml
End Function


Function SoftDownUrlList(SoftID)
	Dim strSQL,objRs,strHtml,i
	strSQL = "Select SoftDownID,SoftDownUrl From "&DownUrlTable&" Where SkySoftID="&SoftID&""
	strHtml = ""
	Set objRs = oConn.Execute(strSQL)
	If Not objRs.Eof Then
		strHtml = strHtml & "<a href='"&SystemPath&"/Soft/Download.asp?SoftUrlID="&objRs(0)&"' target='_blank'>下载 （1）</a>"			
	End If
	Set objRs = Nothing

	SoftDownUrlList = strHtml
End Function
%>
💿 文件大小 39 K
👤 上传用户 cz6891297
📂 所属分类汇编语言
🏷️ 相关标签

#space #blue
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -