会员登陆 |
<% call ShowUserLogin() %> |
|
|
<%
set rs=server.createobject("adodb.recordset")
sql = "select * from user where UserName='"&UserName&"'"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "
没有查询到相应的企业信息 "
response.end()
else
%>
公司介绍 |
<%=rs("CompanyName")%>
|
<%
if rs("Qyjj")<>"" then
response.write replace(rs("Qyjj"),chr(13)," ")
end if
%> |
|
|
地 址:<%=rs("Add")%>
邮 编:<%=rs("Postcode")%>
联 系 人:<%=rs("Receiver")%>
电 话:<%=rs("Phone")%>
传 真:<%=rs("Fax")%>
电子邮箱:<%=rs("Email")%>
公司主页:<%=rs("HomePage")%>
<%
end if
rs.close
set rs=nothing
%> |
|
产品信息 |
<%
DIM totalPutc
DIM CurrentPagec
DIM PerCount
PerCount=8
DIM ii
Dim rsOther
if (not isempty(request("page"))) and isnumeric(request("page")) then
currentPagec=cint(request("page"))
ELSE
currentPagec=1
END IF
set rsOther=server.createobject("adodb.recordset")
sql="select ID,DefaultPicUrl,UpdateTime,Title from Product where Product_Id='"&UserName&"' and EnMemo='1'"
rsOther.open sql,conn,1,1
if rsOther.eof and rsOther.bof then
response.write "
没有产品信息 "
Else
totalPutc=rsOther.recordcount
if currentpagec<1 then
currentpagec=1
end if
if (currentpagec-1)*PerCount>totalputc then
if (totalPutc mod PerCount)=0 then
currentpagec= totalPutc \ PerCount
else
currentpagec= totalPutc \ PerCount + 1
end if
end if
if currentPagec=1 then
else
if (currentPagec-1)*PerCount
<%
spshowpage totalputc,PerCount,"",UserName
end if
rsOther.close
set rsOther=Nothing
%> |
供应信息 |
发布日期 |
产品名称 |
数量 |
操作 |
<%
Dim bgcolor
set rsg=server.createobject("adodb.recordset")
sql="select * from Product where EnMemo='2'and Product_Id='"&UserName&"' order by UpdateTime"
rsg.open sql,conn,1,1
if rsg.eof then
%>
暂时没有供应信息建立! |
<%
Else
do while not rsg.eof
bgcolor="#f8f8f8"
if bgcolor<>"" Then
if instr(bgcolor,"#")>0 then
if ii mod 2<>0 then
bgcolor=" bgcolor='"&bgcolor&"'"
else
bgcolor=""
end if
else
bgcolor=" background='"&bgcolor&"'"
end if
end if
%>
>
<%=rsg("UpdateTime")%> |
<%=rsg("Title")%> |
<%=rsg("Unit")%> |
">查看详细 |
<%
rsg.movenext
loop
end if
rsg.close
set rsg=Nothing
'If ii > 5 then
%>
|
<%
'End if
%>
|
企业活动 |
<%
set rsqyhd=server.createobject("adodb.recordset")
sql="select * from Product where EnMemo='4'and Product_Id='"&UserName&"' order by UpdateTime"
rsqyhd.open sql,conn,1,1
if rsqyhd.eof then
%>
暂时没有信息建立! |
<%
Else
%>
<%
do while not rsqyhd.eof
%>
|
"><%=rsqyhd("TiTle")%> |
<%
rsqyhd.movenext
Loop
%>
<%
end if
rsqyhd.close
set rsqyhd=Nothing
'If ii >8 then
%>
|
<%
'End if
%>
|
|