downview.asp

相对于流通企业

<!--#include file="Head.asp"-->
<div align="center">
  <table width="868" border="0" cellspacing="0" cellpadding="0" class="Outside">
    <tr>
      <td width="200" height="300" valign="top" bgcolor="#F2F2F2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="200"><img src="Images/Down_menu_title.gif" width="200" height="40"></td>
        </tr>
        <tr>
          <td bgcolor="#F2F2F2">&nbsp;</td>
        </tr>
        <tr>
          <td align="center" bgcolor="#F2F2F2"></td>
        </tr>
        <tr>
          <td align="center" bgcolor="#F2F2F2"><% =WebMenu("suqun_DownSort",0)%></td>
        </tr>
        <tr>
          <td height="30" bgcolor="#F2F2F2">&nbsp;</td>
        </tr>
        <tr>
          <td><img src="Images/Search_title.gif" width="200" height="14"></td>
        </tr>
        <tr>
          <td bgcolor="#F2F2F2">&nbsp;</td>
        </tr>
        <tr>
          <td align="center" bgcolor="#F2F2F2"><%=SearchForm()%></td>
        </tr>
        <tr>
          <td bgcolor="#F2F2F2">&nbsp;</td>
        </tr>
      </table></td>
      <td width="4"></td>
      <td valign="top" class="AllCenter"><table width="664" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="30" height="32" align="center" bgcolor="#F4F4F4"><img src="Images/Arrow_01.gif" width="14" height="11"></td>
          <td bgcolor="#F4F4F4" class="Location"><a href="../index.asp">首页</a><img src="Images/Arrow_02.gif" width="13" height="12" align="absmiddle"><a href='DownList.asp'>下载中心</a><% if not request.QueryString("SortID")="" then WebLocation(request.QueryString("SortID")) %></td>
          <td width="30" bgcolor="#F4F4F4" class="Location">&nbsp;</td>
        </tr>
        <tr>
          <td height="4" bgcolor="#FFFFFF"></td>
          <td height="4" bgcolor="#FFFFFF"></td>
          <td height="4" bgcolor="#FFFFFF"></td>
        </tr>
      </table>
      <table width="664" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="30" height="12"></td>
          <td></td>
          <td width="30"></td>
        </tr>
        <tr>
          <td>&nbsp;</td>
          <td><%=WebContent()%></td>
          <td>&nbsp;</td>
        </tr>
        <tr>
          <td height="30"></td>
          <td></td>
          <td></td>
        </tr>
      </table></td>
    </tr>
  </table>
</div>
<%
Function WebMenu(DataFrom,ID)
  Dim rs,sql
  Set rs=server.CreateObject("adodb.recordset")
  sql="Select * From "&DataFrom&" where ParentID="&id&" and ViewFlag"&LangData&" order by id"
  rs.open sql,conn,1,1
  response.write("<table width='160' border='0' cellspacing='0' cellpadding='0'>")
  if id=0 and rs.bof and rs.eof then
    response.write "<tr><td align='center'>暂无相关信息</td></tr>"
  else
    while not rs.eof
      response.write "<tr class='WebMenu'><td width='24'><img src='Images/Arrow_03.gif' width='13' height='13'></td>"
      response.write "<td><a href='DownList.asp?SortID="&rs("ID")&"&SortPath="&rs("SortPath")&"'>"&rs("SortName"&LangData)&"</a></td></tr>"
      rs.movenext
	wend
  end if
  response.write("</table>")
  rs.close
  set rs=nothing
end function

Function WebLocation(ID)
  Dim rs,sql,LocationText
  Set rs=server.CreateObject("adodb.recordset")
  sql="Select * From suqun_DownSort where ViewFlag"&LangData&" and ID="&ID
  rs.open sql,conn,1,1
  if rs.bof and rs.eof then
    response.write "<img src='Images/Arrow_02.gif' align='absmiddle'>错误"
    exit function
  end if
  LocationText="<img src='Images/Arrow_02.gif' align='absmiddle'><a href='DownList.asp?SortID="&rs("ID")&"&SortPath="&rs("SortPath")&"'>"&rs("SortName"&LangData)&"</a>"
  if rs("ParentID")<>0 then WebLocation rs("ParentID")
  response.write LocationText
End Function



function WebContent()
  dim ID
  ID=request.QueryString("ID")
  if ID="" or (not isnumeric(ID)) then
    response.write "<div align='center'>数据读取异常错误</div>"
    exit function
  end if
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select * from suqun_Download where ViewFlag"&LangData&" and ID="&ID
  rs.open sql,conn,1,3
  response.write"<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
  if rs.bof and rs.eof then
    response.write "<tr><td>暂无相关信息</td></tr>"
  else
    response.write "<tr><td colspan='2'><hr width='100%' size='1' noshade='noshade' color='#FF0000'></td></tr>"
    response.write "<tr><td width='420'>下载名称：<font style='font-weight: bold;color: #1874CD'>"&rs("DownName"&LangData)&"</font></td>"
    response.write "<td width='184'>添加时间："&rs("AddTime")&"</td></tr>"
    if ViewNoRight(rs("GroupID"),rs("Exclusive")) then
      response.write "<tr><td>文件大小："&rs("FileSize")&"</td>"
      response.write "<td>下载址址：<a href='"&rs("FileUrl")&"' target='_blank'><font color='red'>点击下载</font></a></td></tr>"
      response.write "<tr><td colspan='2'><hr width='100%' size='1' noshade='noshade' color='#FF0000'></td></tr>"
	  response.write "<tr><td colspan='2'>"&rs("Content"&LangData)&"</td></tr>"
	  rs("ClickNumber")=rs("ClickNumber")+1
	else
	  response.write "<tr><td colspan='2'><hr width='100%' size='1' noshade='noshade' color='#FF0000'><div align='center'><img src='Images/NoRight.jpg'></div></td></tr>"
	end if
    response.write "<tr><td class='ListTitle' colspan='2'></td></tr>" 
    response.write "<tr><td>点击次数："&rs("ClickNumber")&"</td>"
	response.write "<td align='right'><a href='#TOP'><img src='Images/Button_top_01.gif' align='absbottom' border='0'></a></td></tr>" 
	rs.update	   
  end if
  response.write"</table>"
  rs.close
  set rs=nothing
end function
%>
<!--#include file="Foot.asp"-->