index.asp

全球商务网站系统介绍 GLOBALEC.COM.CN[生成HTML版] 系统概述： 软件名称：全球商务网站系统 当前版本：V1.0 最新版本：V1.1 运行环境：WINNT+（IIS）

		end if  
		if err.number <> 0 then '错误处理
			err.clear
			currentpage=1
		end if
	else
		currentpage=1
	End if                                                                
	if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec)then 
		currentPage=1
	end if
	rsp.absolutepage=currentpage'absolutepage：设置指针指向某页开头
	rowcount=rsp.pagesize'pagesize：设置每一页的数据记录数
end if

Function Pages(LinkFile) 
   if not (rs.eof and rs.bof) then
	gopage=currentpage
	totalpage=n
	blockPage=Int((gopage-1)/10)*10+1
	
	If LCase(Request.ServerVariables("HTTPS")) = "off" Then 
    strTemp = "http://" 
    Else 
    strTemp = "https://" 
    End If 
    strTemp = strTemp & CheckStr(Request.ServerVariables("SERVER_NAME")) 
    If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & CheckStr(Request.ServerVariables("SERVER_PORT")) 
    strTemp = strTemp & CheckStr(Request.ServerVariables("URL"))
    lenstrTemp=len(strTemp)+1	
	if instr(left(linkfile,lenstrTemp),"?")>0 then 
	
	if blockPage = 1 Then
		Response.Write "<span disabled>前10页</span>&nbsp;"
	Else
		Response.Write("<a href=" & LinkFile & "&page="&blockPage-10&">前10页</a>&nbsp;")
	End If
   i=1
   Do Until i > 10 or blockPage > n
    If blockPage=int(gopage) Then
		Response.Write("<font color=#FF0000><b>"&blockPage&"</b></font>")
	Else
		Response.Write(" <a href=" & LinkFile & "&page="&blockPage&">"&blockPage&"</a> ")
    End If
    blockPage=blockPage+1
    i = i + 1
    Loop
	if blockPage > totalpage Then
		Response.Write "&nbsp;<span disabled>后10页"
	Else
		Response.Write("&nbsp;<a href=" & LinkFile & "&page="&blockPage&">后10页</a><span disabled>")
	End If 
	response.write" 直接到第 "
	response.write"<select onchange=if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}>"
    for i=1 to totalpage
    response.write"<option value='" & LinkFile & "&page=" & i & "'"
    if i=gopage then response.write"selected"
    response.write">"&i&"</option>"
    next
    response.write"</select>"
    response.write" 页<Br><Br>"
	
	else
	
	if blockPage = 1 Then
		Response.Write "<span disabled>【←前10页</span>&nbsp;"
	Else
		Response.Write("<span disabled>【</span><a href=" & LinkFile & "?page="&blockPage-10&">←前10页</a>&nbsp;")
	End If
   i=1
   Do Until i > 10 or blockPage > n
    If blockPage=int(gopage) Then
		Response.Write("<font color=#FF0000>[<b>"&blockPage&"</b>]</font>")
	Else
		Response.Write(" <a href=" & LinkFile & "?page="&blockPage&">["&blockPage&"]</a> ")
    End If
    blockPage=blockPage+1
    i = i + 1
    Loop
	if blockPage > totalpage Then
		Response.Write "&nbsp;<span disabled>后10页→】"
	Else
		Response.Write("&nbsp;<a href=" & LinkFile & "?page="&blockPage&">后10页→</a><span disabled>】")
	End If 
	response.write" 直接到第 "
	response.write"<select onchange=if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}>"
    for i=1 to totalpage
    response.write"<option value='" & LinkFile & "?page=" & i & "'"
    if i=gopage then response.write"selected"
    response.write">"&i&"</option>"
    next
    response.write"</select>"
    response.write" 页<Br><Br>"
	
	End If
	
	Startinfo=((gopage-1)*msg_per_page)+1
	Endinfo=gopage*msg_per_page
	if Endinfo>totalrec then Endinfo=totalrec
		Response.Write("&nbsp;&nbsp;共 "&totalrec&" 条信息 当前显示第 "&Startinfo&" - "&Endinfo&" 条 每页 "&msg_per_page&" 条信息 共 "&n&" 页")
end if
End Function
%>
<%
if session("id")="" then 
session("geturl")=geturl
response.Redirect(""&weburl&"login/login1.asp")
response.end
end if
if session("flag")<>1 then 
%>
<br><br>
<table width="460" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#EFF3FF">
  <tr>
    <td><b><img src="../images/buy_jiao.gif" width="11" height="11"></b></td>
    <td align="right"><img src="../images/buy_jiao1.gif" width="11" height="11"></td>
  </tr>
</table>

<table width="460" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#EFF3FF">
  <tr>
  <td width=410>
  <table cellspacing="0" cellpadding="0" bgcolor=#eff3ff border="0">
    <tbody>
    <tr>
    <td width=410>
    <table cellspacing=0 width="99%" align=center border=0>
      <tbody>
      <tr>
        <td><img src="../images/buy_sorry.gif" width="72" height="24"><br>
          <br>
          &nbsp;此信息仅供商贸通会员查看，点此<a href="<%=weburl%>login/vip.asp" target="_blank">升级为商贸通会员</a>！<br>
          <br>（商贸通会员为什么能成为买家的首选？<a href="<%=weburl%>staric/index.html"  target=_blank>点这里揭开秘密</a>！）        </td>
      </tr>
      <tr>
        <td align=right><a href="<%=weburl%>login/vip.asp">
        <img src="../images/buy_button_sign.gif" width="83" height="23" border=0></a></td>
      </tr>
      </tbody>
    </table>
    </td>
    </tr>
    </tbody>
  </table>
  </td>
  <tr>
</table>

<table width="460" border="0" align="center" cellpadding="0" cellspacing="0" background="../images/buy_jiao4.gif">
    <tr>
      <td><b><img src="../images/buy_jiao2.gif" width="11" height="9"></b></td>
      <td align="right"><img src="../images/buy_jiao3.gif" width="11" height="9"></td>
    </tr>
</table>
<br><br>
<%
else
if rsp.eof or rsp.bof then
response.write"<TABLE cellSpacing=0 cellPadding=0 width=""100%"" align=center border=0>"
response.write"<TR><TD><FONT class=M color=silver><BR><BR>"
response.write"<CENTER>该会员目前尚未发布任何的采购信息！ <BR><BR><BR><BR></CENTER></TD>"
response.write"<TR></TR></TBODY></TABLE>"
else
%>
          <table width="100%"  border="0" align="center" cellspacing="1" bgcolor="ffffff">
        <tr bgcolor="e7e7e7">
          <td width="15%" height="25" align="center" bgcolor="e7e7e7" class="S">图片</td>
          <td width="35%" align="center" bgcolor="e7e7e7" class="S">供应信息</td>
		  <td width="20%" align="center" bgcolor="e7e7e7" class="S">发布时间</td>
		  <td width="20%" align="center" bgcolor="e7e7e7" class="S">商贸通状态</td>
        </tr>
      </table>
<%
Dim t
t=1
do while not rsp.eof and rowcount > 0
%><DIV style="PADDING-TOP: 10px"></DIV>
            <TABLE width="100%" 
        border=0 align="center" cellSpacing=1>
              <TBODY>
        <TR <%if icolor=0 then response.write"bgColor=#ffffff" else response.write"bgColor=#f6f6f6" end if%>>
          <TD width="15%" align="center">
            <TABLE 
            style="BORDER-RIGHT: #cecfce 1px solid; BORDER-TOP: #cecfce 1px solid; BORDER-LEFT: #cecfce 1px solid; BORDER-BOTTOM: #cecfce 1px solid" 
            height=64 cellSpacing=0 cellPadding=0 width=64 border=0>
              <TBODY>
              <TR><TD align=middle>
                            <%if rsp("picture_summ")<>"nopicture.gif" then%>
<A href="<%=weburl%>seller/offerdetail/<%=rsp("sortid")%>-<%=rsp("typeid")%>-<%=rsp("typeid_2")%>-<%=rsp("info_id")%>.html" target="_blank">                            <IMG src="/picture/<%=rsp("picture_summ")%>" border=0></A> 
                            <%else%>
                            <FONT class=C color=#cecfce>无图</FONT>
                            <%end if%>
                            
</TD></TR></TBODY></TABLE></TD>
          <TD width="35%"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td width="4%">&nbsp;</td>
              <td width="96%" class="lh13 s">
<A href="<%=weburl%>seller/offerdetail/<%=rsp("sortid")%>-<%=rsp("typeid")%>-<%=rsp("typeid_2")%>-<%=rsp("info_id")%>.html" target="_blank"><B><%=rsp("showname")%></B>
<br><FONT color=#666666><%=left(rsp("content"),28)%>...</font>
</A></td>
            </tr>
          </table>             </TD>
          <TD width="20%" class="s" align="center"><%=FormatDate(rsp("dateandtime"),1)%></TD>
          <TD width="20%" align="center">
<%
if rs("tm")="" then
response.write"<a href=/member/getprice/message.asp?info_id="&rsp("info_id")&" target=_blank class='lh15 S'>未使用TM通讯<br>请用网站留言</a>"&vbCrlf
else
response.write"<script>"&vbCrlf
response.write"if (online[0]==0)"&vbCrlf
response.write"document.write(""<a href=javascript:void(null) onClick='javascript:if(T"&t&".style.display != \""block\"")T"&t&".style.display = \""block\""; else T"&t&".style.display = \""none\"";' class='lh15 s'><img SRC=/images/list_mytlogo_offline.gif border=0><br>发送留言</a><br><div style='display:none' id='T"&t&"'><table width=80 border=0 cellspacing=1 cellpadding=4 bgcolor=#000000><tr bgcolor=#FFFFCC><td class='s' align='center'><a href=/member/getprice/message.asp?info_id="&rsp("info_id")&" class='s' target=_blank>网站留言</a></td><td class='s' align='center'><a href=javascript:SendMsg('Tencent://Message/?Menu=YES&Exe=TM&Uin="&rs("tm")&"') class='s'>用TM留言</a></td></tr></table></div>"");"&vbCrlf
response.write"else"&vbCrlf
response.write"document.write(""<a href=javascript:SendMsg('Tencent://Message/?Menu=YES&Exe=TM&Uin="&rs("tm")&"') class='lh15 s'><img SRC=/images/list_mytlogo_online.gif border=0><br>立即洽谈</a>"");"&vbCrlf
response.write"</SCRIPT>"&vbCrlf
end if
%>
</TD>
        </TR></TBODY></TABLE>
<%
if rs("tm")<>"" then
t=t+1
end if
icolor=icolor+1
if icolor>1 then icolor=0
rowcount=rowcount-1
rsp.movenext
loop
%>
<br>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD bgColor=#d1d1d1><IMG height=1 src="image/shim.gif" 
          width=1></TD></TR></TBODY></TABLE>
          <TABLE cellSpacing=0 cellPadding=4 width="100%" border=0>
            <TBODY>
              <TR bgcolor="#f0f0f0"> 
			    <td align="center" class="s"><%=Pages("index.asp?MemberId="&user&"&bigclassid="&bigclassid&"&smallclassid="&smallclassid&"")%></td>
              </TR>
            </TBODY>
        </TABLE>
<%
end if
end if
%>
        <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD bgColor=#d1d1d1><IMG height=1 src="image/shim.gif" 
          width=1></TD></TR></TBODY></TABLE>
	    
	  
      <TABLE height=1 cellSpacing=1 cellPadding=0 width="100%" bgColor=#00bbbb 
      border=0>
        <TBODY>
        <TR>
          <TD></TD></TR></TBODY></TABLE><BR>
      <TABLE cellSpacing=0 cellPadding=0 width="98%" border=0>
        <TBODY>
        <TR>
          <TD align=middle>
            <BR>
            <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                <TD width="27%" class=S align="center">
<%if rs("tm")>"" then%>
<script>
if (online[0]==0)
document.write("<table width=100 border=0 cellspacing=2 cellpadding=0><tr><td nowrap><img SRC=/company/pretermission/images/list_mytlogo_offline.gif border=0 align=absmiddle></td><td class='lh13 s' nowrap><a href=javascript:void(null) onClick='javascript:if(T0.style.display != \"block\")T0.style.display = \"block\"; else T0.style.display = \"none\";' class='lh15 s'>我现在不在网上<br>给我留个消息吧!</a> </td><td><div style='display:none' id='T0'><table width=80 border=0 cellspacing=1 cellpadding=4 bgcolor=#000000><tr bgcolor=#FFFFCC><td class='s' align='center'><a href=/member/getprice/message_company.asp?id=<%=rs("Id")%> class='s' target=_blank>网站留言</a></td><td class='s' align='center'><a href=javascript:SendMsg('Tencent://Message/?Menu=YES&Exe=TM&Uin=<%=rs("tm")%>') class='s'>用TM留言</a></td></tr></table></div></td></tr></table>");
else
document.write("<table width=100 border=0 cellspacing=2 cellpadding=0><tr><td nowrap><img SRC=/company/pretermission/images/list_mytlogo_online.gif border=0 align=absmiddle></td><td class='lh13 s' nowrap><a href=javascript:SendMsg('Tencent://Message/?Menu=YES&Exe=TM&Uin=<%=rs("tm")%>')>我正在网上<br>马上和我洽谈!</a> </td></tr></table>");
</SCRIPT>
<%end if%>
</TD>
                <TD width="73%"><A 
                  href="/member/getprice/message_company.asp?id=<%=rs("id")%>" 
                  target=_blank><IMG height=31 src="../images/button_mail.gif" 
                  width=96 align=absMiddle border=0></A> <IMG height=12 
                  src="../images/icon_tianjiasy.gif" width=13 align=absMiddle><A 
                  href="<%=weburl%>member/myfriend/addfriend.asp?user=<%=rs("user")%>" target="_blank">添加为商业伙伴</A> <IMG height=13 
                  src="../images/icon_go_gray.gif" width=17 align=absMiddle><A 
      href="javascript:win=window.open('<%=weburl%>trustadv/rempost.asp?id=<%=rs("id")%>','contact','width=600,height=600,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no');win.focus();">对该会员发表评价</A> 
</TD>
              </TR></TBODY></TABLE></TD></TR></TBODY></TABLE><BR></TD></TR></TBODY></TABLE>
<TABLE width=740 border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
  <TR>
    <TD class=S align=middle bgColor=#f1f1f1 height=25><FONT 
      color=#666666>以上信息由企业自行提供，该企业负责信息内容的真实性、准确性和合法性。<%=webname%>对此不承担任何保证责任。</FONT></TD>
</TR></TBODY></TABLE>
<!--#include file="../../../inc/end.asp"-->
</BODY></HTML>
<%
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>