index.asp
来自「全球商务网站系统介绍 GLOBALEC.COM.CN[生成HTML版] 」· ASP 代码 · 共 624 行 · 第 1/2 页
ASP
624 行
If blockPage=int(gopage) Then
Response.Write("<font color=#FF0000>[<b>"&blockPage&"</b>]</font>")
Else
Response.Write("<a href=edit.asp?page="&blockPage&">["&blockPage&"]</a>")
End If
blockPage=blockPage+1
i = i + 1
Loop
if blockPage > totalpage Then
Response.Write " <span disabled>后10页→】"
Else
Response.Write(" <a href=edit.asp?page="&blockPage&">后10页→</a><span disabled>】")
End If
Response.Write(" 共"&n&"页 每页"&msg_per_page&"条记录 共"&totalrec&"条记录")
end if
end sub
%>
<%end if%>
<TABLE cellSpacing=0 cellPadding=0 width=570 border=0>
<TBODY>
<TR>
<TD width=1 bgColor=#8abaff><IMG height=1
src="../bizer/images/shim.gif" width=1></TD>
<TD align=middle width=568><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="2" bgcolor="F2D23D"><IMG src="/images/shim.gif" width="1" height="2"></td>
</tr>
<tr>
<td height="28" bgcolor="FFFDE1"> <strong>商贸通指数</strong> <span class="Avn"><font size="4"><font color=red><%
sqltrust="select trust_score from corporation where id="&session("id")&""
set rstrust=conn.execute(sqltrust)
response.write""&rstrust("trust_score")&""
%></font></font></span> 分
<img src="../images/av_help_icon.gif" width="16" height="16" align="absmiddle"><a href="javascript:win=window.open('../../help/trust_score.html','contact','width=550,height=550,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no');win.focus();" class="S">什么是商贸通指数？</a>
</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="8" cellspacing="1" bgcolor="#D7D7D7">
<tr bgcolor="#FFFFFF">
<td width="18%" bgcolor="#F6F6F6"><a href="#av">A&V身份认证</a></td>
<td width="9%" align="center" bgcolor="#F6F6F6"><strong>10</strong>分</td>
<td width="73%"><%
sql="select begindate from corporation where id="&session("id")&""
set rs=conn.execute(sql)
response.write""&FormatDate(rs("begindate"),1)&""
%>通过杰胜认证 </td>
</tr>
<tr>
<td bgcolor="#F6F6F6"><a href="#histroy">经验值</a></td>
<td align="center" bgcolor="#F6F6F6"><strong>0</strong>分</td>
<td bgcolor="#FFFFFF"> 使用商贸通服务 1 年 </td>
</tr>
<tr>
<td bgcolor="#F6F6F6"><a href="#bizre">证书及荣誉</a></td>
<td align="center" bgcolor="#F6F6F6"><strong><%
sql="select count(id) from bizre where gsid="&session("id")&" and sh=1"
set totle=conn.execute(sql)
totle=totle(0)
response.write""&totle&""
totle.close
set totle=nothing
%></strong>分</td>
<td bgcolor="#FFFFFF">已审国际权威证书 <a href="#"><strong><%
sql="select count(id) from bizre where gsid="&session("id")&" and typeid=1 and sh=1"
set totle=conn.execute(sql)
totle=totle(0)
response.write""&totle&""
totle.close
set totle=nothing
%>张</strong></a>，已审基础证书
<a href="#"><strong><%
sql="select count(id) from bizre where gsid="&session("id")&" and typeid=2 and sh=1"
set totle=conn.execute(sql)
totle=totle(0)
response.write""&totle&""
totle.close
set totle=nothing
%>张</strong></a>，已审其他证书 <a href="#"><strong><%
sql="select count(id) from bizre where gsid="&session("id")&" and typeid=3 and sh=1"
set totle=conn.execute(sql)
totle=totle(0)
response.write""&totle&""
totle.close
set totle=nothing
%>张</strong></a></td>
</tr>
<tr>
<td bgcolor="#F6F6F6"><a href="/member/trust/index.asp">会员评价</a></td>
<td align="center" bgcolor="#F6F6F6"><strong><%
sql="select count(id) from trustadv where trustadv.bprid="&session("id")&" and type='好评' and pass=1"
set totle=conn.execute(sql)
totle=totle(0)
response.write""&totle&""
totle.close
set totle=nothing
%></strong>分</td>
<td bgcolor="#FFFFFF">好评 <a href="../trust/index.asp?typeid=好评"><strong><%
sql="select count(id) from trustadv where trustadv.bprid="&session("id")&" and type='好评'"
set totle=conn.execute(sql)
totle=totle(0)
response.write""&totle&"条"
totle.close
set totle=nothing
%></strong></a>
（<%
sql="select count(id) from trustadv where trustadv.bprid="&session("id")&" and type='好评' and pass=1"
set totle=conn.execute(sql)
totle=totle(0)
response.write"<font color='#FF0000'>"&totle&"</font> 条"
totle.close
set totle=nothing
%>已加分）
，建议
<a href="../trust/index.asp?typeid=建议"><strong><%
sql="select count(id) from trustadv where trustadv.bprid="&session("id")&" and type='建议'"
set totle=conn.execute(sql)
totle=totle(0)
response.write""&totle&"条"
totle.close
set totle=nothing
%></strong></a>，批评 <a href="../trust/index.asp?typeid=批评"><strong>
<%
sql="select count(id) from trustadv where trustadv.bprid="&session("id")&" and type='批评'"
set totle=conn.execute(sql)
totle=totle(0)
response.write""&totle&"条"
totle.close
set totle=nothing
%></strong></a>
（<%
sql="select count(id) from trustadv where trustadv.bprid="&session("id")&" and type='批评' and pass=1"
set totle=conn.execute(sql)
totle=totle(0)
response.write"<font color='#FF0000'>"&totle&"</font> 条"
totle.close
set totle=nothing
%>已减分)</td>
</tr>
</table>
<strong><a name="av"></a></strong><br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="28" bgcolor="FFFDE1"> <strong>A&V身份认证</strong>
</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="8" cellspacing="1" bgcolor="#D7D7D7">
<tr bgcolor="#FFFFFF">
<td width="19%" bgcolor="#F6F6F6">
工商注册信息<br>
</td>
<td width="81%" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td width="25%" align="right" class="lh13"><strong>公司名称：<br>
</strong></td>
<td width="75%" class="lh13"><%
sql="select qymc from corporation where id="&session("id")&""
set rs=conn.execute(sql)
response.write""&rs("qymc")&""
%></td>
</tr>
<tr>
<td align="right" valign="top" class="lh13"><strong>
公司地址：
<br>
</strong></td>
<td class="lh13"><%
sql="select sf,city,address from corporation where id="&session("id")&""
set rs=conn.execute(sql)
response.write""&rs("sf")&" "&rs("city")&" "&rs("address")&""
%>
</tr>
<tr>
<td align="right" class="lh13"><strong>邮编：</strong></td>
<td class="lh13"><%
sql="select post from corporation where id="&session("id")&""
set rs=conn.execute(sql)
response.write""&rs("post")&""
%></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#F6F6F6">申请人信息</td>
<td valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="58%" class="lh13">
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td width="42%" align="right" class="lh13"><strong>认证申请人：<br></strong></td>
<td width="58%" class="lh13"><%
sql="select frdb,ch from corporation where id="&session("id")&""
set rs=conn.execute(sql)
response.write""&rs("frdb")&" "&rs("ch")&""
%> </td>
</tr>
<tr>
<td align="right" valign="top" class="lh13"><strong>部门：</strong></td>
<td class="lh13"><%
sql="select bm from corporation where id="&session("id")&""
set rs=conn.execute(sql)
response.write""&rs("bm")&""
%> </td>
</tr>
<tr>
<td align="right" valign="top" class="lh13"><strong>职位：</strong></td>
<td class="lh13"><%
sql="select zw from corporation where id="&session("id")&""
set rs=conn.execute(sql)
response.write""&rs("zw")&""
%> </td>
</tr>
</table>
</td>
<td width="42%" valign="top" class="lh13">
<table width="100%" border="0" cellspacing="2" cellpadding="0">
<tr>
<td width="24%"><a href="javascript:win=window.open('about.asp','contact','width=650,height=500,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no');win.focus();"><img src="../images/jiesheng.gif" width="88" height="88" border=0 align="left"></a></td>
<td width="76%" class="S">认证时间：<br><%
sql="select begindate from corporation where id="&session("id")&""
set rs=conn.execute(sql)
response.write""&FormatDate(rs("begindate"),1)&""
%></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<!-- 资信材料推广 start -->
<!-- 资信材料推广 end -->
<a name="histroy"></a><br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="2" bgcolor="F2D23D"><IMG src="/images/shim.gif" width="1" height="2"></td>
</tr>
<tr>
<td height="28" bgcolor="FFFDE1"> <strong><%=webname%>活动记录</strong></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="8" cellspacing="1" bgcolor="#D7D7D7">
<tr bgcolor="#FFFFFF">
<td width="171" bgcolor="#F6F6F6">已在<%=webname%>购买的服务<br></td>
<td width="413" bgcolor="#FFFFFF">
商贸通服务
<span class="S"><font color="#666666"><%
sql="select begindate from corporation where id="&session("id")&""
set rs=conn.execute(sql)
response.write""&FormatDate(rs("begindate"),1)&""
%> - <%
sql="select enddate from corporation where id="&session("id")&""
set rs=conn.execute(sql)
response.write""&FormatDate(rs("enddate"),1)&""
%></font></span>
</td>
</tr>
<tr>
<td bgcolor="#F6F6F6">注册会员的时间</td>
<td bgcolor="#FFFFFF"><%
sql="select idate from corporation where id="&session("id")&""
set rs=conn.execute(sql)
response.write""&FormatDate(rs("idate"),1)&""
%></td>
</tr>
<tr>
<td bgcolor="#F6F6F6">已发布上网的信息数量</td>
<td bgcolor="#FFFFFF">供求信息：<a href="/member/tradeinfo/edit.asp"><strong><%
sql="select count(info_id) from info where gsid="&gsid&" and flag=1"
set totle=conn.execute(sql)
totle=totle(0)
response.write""&totle&""
totle.close
set totle=nothing
%>条</strong></a> 产品信息：<a href="/member/productshow/edit.asp"><strong><%
sql="select count(id) from productshow where gsid="&gsid&" and flag=1"
set totle=conn.execute(sql)
totle=totle(0)
response.write""&totle&""
totle.close
set totle=nothing
%>条</strong></a></td>
</tr>
</table></TD>
<TD width=1 bgColor=#8abaff><IMG height=1
src="../bizer/images/shim.gif" width=1></TD>
</TR>
<TR bgColor=#8abaff>
<TD colSpan=3 height=1><IMG height=1 src="../bizer/images/shim.gif"
width=1></TD>
</TR>
</TBODY>
</TABLE>
<BR></TD></TR></TBODY></TABLE>
</TABLE>
</tr>
</table>
<IMG
height=10 src="../images/bottom.gif" width=778><BR>
<!--#include file="../end.asp"-->
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?