index.asp
来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 586 行 · 第 1/2 页
ASP
586 行
end if
set rsz4=nothing
end if
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
%><%=jinying%>+<%=chanpin%>+<%=shuiwu%>+<%=qita%>=<%=(jinying+chanpin+shuiwu+qita)%></strong>分</td>
<td bgcolor="#FFFFFF">已审经营许可证类证书 <a href="#"><strong><%
sql="select count(id) from Yixiang_bizre where gsid="&session("id")&" and typeid=1 and sh=1"
set totle=conn.execute(sql)
totle2=totle(0)
response.write""&totle2&""
totle.close
set totle=nothing
%>张</strong></a>，已审产品类证书
<a href="#"><strong><%
sql="select count(id) from Yixiang_bizre where gsid="&session("id")&" and typeid=2 and sh=1"
set totle=conn.execute(sql)
totle2=totle(0)
response.write""&totle2&""
totle.close
set totle=nothing
%>张</strong></a>，已审税务登记证 <a href="#"><strong><%
sql="select count(id) from Yixiang_bizre where gsid="&session("id")&" and typeid=3 and sh=1"
set totle=conn.execute(sql)
totle2=totle(0)
response.write""&totle2&""
totle.close
set totle=nothing
%>张</strong></a>，已审其他证书 <a href="#"><strong><%
sql="select count(id) from Yixiang_bizre where gsid="&session("id")&" and typeid=4 and sh=1"
set totle=conn.execute(sql)
totle2=totle(0)
response.write""&totle2&""
totle.close
set totle=nothing
%>张</strong></a></td>
</tr>
<tr>
<td bgcolor="#F6F6F6"> <a href="#bizre">会员评价</a> </td>
<td align="center" bgcolor="#F6F6F6"><%'执行加分的操作:
haopin=0
set rsjj=server.CreateObject("adodb.recordset")
sqljj="select * from Yixiang_trustadv where abs(pass)=1 and type='好评' and bprid="&session("id")
rsjj.open sqljj,conn,1,1
if rsjj.eof then
haopin=0
end if
if not rsjj.eof then
do while not rsjj.eof
haopin=haopin+1
rsjj.movenext
loop
set rsjj=nothing
end if
'^^^^^^^^^^^^^^^^^^^^^^^^减分^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
pipin=0
set rspp=server.CreateObject("adodb.recordset")
sqlpp="select * from Yixiang_trustadv where abs(pass)=1 and type='批评' and bprid="&session("id")
rspp.open sqlpp,conn,1,1
if rspp.eof then
pipin=0
end if
if not rspp.eof then
do while not rspp.eof
pipin=pipin-1
rspp.movenext
loop
set rspp=nothing
end if
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
%><strong><%=haopin%>+<%=pipin%>=<%=haopin+pipin%></strong>分</td>
<td bgcolor="#FFFFFF">好评 <a href="../trust/index.asp?typeid=好评"><strong><%
sql="select count(id) from Yixiang_trustadv where Yixiang_trustadv.bprid="&session("id")&" and type='好评'"
set totle=conn.execute(sql)
totle2=totle(0)
response.write""&totle2&"条"
totle.close
set totle=nothing
%></strong></a>
（<%
sql="select count(id) from Yixiang_trustadv where Yixiang_trustadv.bprid="&session("id")&" and type='好评' and abs(pass)=1"
set totle=conn.execute(sql)
totle2=totle(0)
response.write"<font color='#FF0000'>"&totle2&"</font> 条"
totle.close
set totle=nothing
%>已加分）
，建议
<a href="../trust/index.asp?typeid=建议"><strong><%
sql="select count(id) from Yixiang_trustadv where Yixiang_trustadv.bprid="&session("id")&" and type='建议'"
set totle=conn.execute(sql)
totle2=totle(0)
response.write""&totle2&"条"
totle.close
set totle=nothing
%></strong></a>，批评 <a href="../trust/index.asp?typeid=批评"><strong>
<%
sql="select count(id) from Yixiang_trustadv where Yixiang_trustadv.bprid="&session("id")&" and type='批评'"
set totle=conn.execute(sql)
totle2=totle(0)
response.write""&totle2&"条"
totle.close
set totle=nothing
%></strong></a>
（<%
sql="select count(id) from Yixiang_trustadv where Yixiang_trustadv.bprid="&session("id")&" and type='批评' and abs(pass)=1"
set totle=conn.execute(sql)
totle2=totle(0)
response.write"<font color='#FF0000'>"&totle2&"</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> 身份认证</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 wygkcn_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 wygkcn_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 wygkcn_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 wygkcn_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 wygkcn_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 wygkcn_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="31%"> <span class="S">认证时间：</span> </td>
<td width="69%" class="S">
<%
sql="select begindate from wygkcn_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 wygkcn_corporation where id="&session("id")&""
set rs=conn.execute(sql)
response.write""&FormatDate(rs("begindate"),1)&""
%> - <%
sql="select enddate from wygkcn_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 wygkcn_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="<%=HOPE_InstallDir%>member/tradeinfo/edit.asp"><strong><%
sql="select count(info_id) from Yixiang_Info where gsid="&gsid&" and flag=1"
set totle=conn.execute(sql)
totle2=totle(0)
response.write""&totle2&""
totle.close
set totle=nothing
%>条</strong></a> 产品信息：<a href="<%=HOPE_InstallDir%>member/productshow/edit.asp"><strong><%
sql="select count(id) from wygkcn_productshow where gsid="&gsid&" and flag=1"
set totle=conn.execute(sql)
totle2=totle(0)
response.write""&totle2&""
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>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?