📄 index.asp
字号:
<TBODY>
<TR>
<TD width="1%"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="196" height="63">
<param name="movie" value="/images/index_logo.swf">
<param name="quality" value="high">
<embed src="/images/index_logo.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="196" height="63"></embed>
</object>
<A href="<%=weburl%>">
</A> </TD>
<TD class=s align=right valign="bottom"><A href="<%=weburl%>" title="返回<%=webname%>大市场">首页</A> | <A
href="<%=weburl%>login/register.asp" title="注册<%=webname%>会员">注册会员</A>
| <A
href="<%=weburl%>staric/index.html" title="了解<%=webname%>商贸通服务会员">商贸通服务</A>
| <A
href="<%=weburl%>member/" title="进入我的商务助手">我的商务助手</A> | <A href="<%=weburl%>service/expo/index.html">展会服务</A> | <A
href="<%=weburl%>help/index.html" title="查看帮助信息">帮助</A>
<HR SIZE=1>
<br>
</TD>
</TR></TBODY></TABLE>
<TABLE width=740 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD><A href="<%=weburl%>staric/index.html"><IMG
height=89 alt=商贸通会员 src="../images/tplogo.gif" width=235 border=0></A></TD>
<TD vAlign=top><IMG height=77 src="../images/tp_top.gif" width=212></TD>
<TD vAlign=top><IMG height=64 alt=商贸通档案——商人的网上信用活档案！
src="../images/tp_ad.gif" width=293></TD></TR></TBODY></TABLE>
<TABLE width=740 border=0 align="center" cellPadding=2 cellSpacing=0>
<TBODY>
<TR>
<TD class=S vAlign=top align=middle width=167>商贸通档案编号：<%=staric%></TD>
<TD class=X align=middle width=573><FONT color=#006253><%=rs("qymc")%></FONT>
</TD></TR></TBODY></TABLE>
<TABLE width=740 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD class=S align=right><B><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();"><FONT
color=#999999>欢迎给该会员评价</FONT></A></B></TD></TR></TBODY></TABLE>
<TABLE width=740 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD vAlign=top width=140 background=../images/left_bg.gif>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD><A
onmouseover="MM_swapImage('Image0','','../images/home.gif',1)"
onmouseout=MM_swapImgRestore()
href="<%=userwebhome%>"><IMG
height=53 alt=返回首页 src="../images/home_offer.gif" width=136
border=0 name=Image0></A></TD>
</TR>
<TR>
<TD><A
href="../product/?memberID=<%=rs("user")%>" onMouseOver="MM_swapImage('Image33','','../images/button_product_on.gif',1)" onMouseOut="MM_swapImgRestore()"><IMG
height=53 alt=产品展示 src="../images/button_product.gif" width=136
border=0 name=Image33></A></TD>
</TR>
<TR>
<TD><A
href="../?memberID=<%=rs("user")%>" onMouseOver="MM_swapImage('Image3','','../images/button_company_on.gif',1)" onMouseOut="MM_swapImgRestore()"><IMG src="../images/button_company.gif" alt=公司介绍 name="Image3"
width=136
height=53 border=0 id="Image3"></A></TD>
</TR>
<TR>
<TD><A
href="../tradeinfo/?memberID=<%=rs("user")%>" onMouseOver="MM_swapImage('Image34','','../images/button_offer_on.gif',1)" onMouseOut="MM_swapImgRestore()"><IMG
height=53 alt=最新供应 src="../images/button_offer.gif" width=136
border=0 name=Image34></A></TD>
</TR>
<TR>
<TD><A
href="<%=weburl%>company/pretermission/seller/?memberID=<%=rs("user")%>" onMouseOver="MM_swapImage('Image1','','../images/button_seller_on.gif',1)" onMouseOut="MM_swapImgRestore()"><IMG src="../images/button_seller.gif" alt=采购清单 name="Image1" width=136
height=53
border=0 id="Image1"></A></TD>
</TR>
<%
sql="select * from work where gsid="&rs("id")&" order by info_ID desc"
set rsjob= Server.CreateObject("ADODB.Recordset")
rsjob.open sql,conn,1,1
if not rsjob.eof then
%>
<TR>
<TD><A href="../job/?memberID=<%=rs("user")%>">
<IMG src="../images/job_offer_on.gif" alt=招聘信息 name="Image2" width=136 height=53 border=0 id="Image2"></A></TD>
</TR>
<%
end if
rsjob.close
set rsjob=nothing
%>
<TR>
<TD><A
onmouseover="MM_swapImage('Image31','','../images/button_profile_on.gif',1)"
onmouseout=MM_swapImgRestore()
href="../bizreflist/?memberID=<%=rs("user")%>"><IMG
height=53 alt=商贸通档案 src="../images/button_profile.gif" width=136
border=0 name=Image31></A></TD>
</TR>
<TR>
<TD><IMG height=4 src="../images/left_line3.gif"
width=136></TD></TR></TBODY></TABLE></TD>
<TD vAlign=top width="1%" background=../images/left_bg2.gif><IMG
height=6 src="../images/left_j.gif" width=4></TD></TR></TBODY></TABLE><BR>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD><IMG height=52 src="../images/left_line1.gif" width=140></TD></TR>
<TR>
<TD class=S align=middle background=../images/left_bg1.gif><FONT
class=LL><A
href="<%=weburl%>staric/index.html">什么是商贸通会员？</A><BR><IMG
height=34 src="../images/go1.gif" width=29 align=absMiddle> <A
href="<%=weburl%>login/vip.asp">我要申请商贸通</A></FONT></TD>
</TR>
<TR>
<TD><IMG height=7 src="../images/left_line2.gif"
width=140></TD></TR></TBODY></TABLE><BR>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD class=s> <A href="<%=weburl%>">返回商机大市场！</A>
</TD>
</TR></TBODY></TABLE><br><br></TD>
<TD vAlign=top width=15><IMG height=6 src="../images/bg_line.gif"
width=15></TD>
<TD vAlign=top width=585>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top background=../images/bg_line.gif><IMG height=6
src="../images/bg_line.gif" width=15></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width=335 background=../images/bg_year.gif>
<TABLE cellSpacing=2 cellPadding=0 width="96%" align=right
border=0><TBODY>
<TR>
<TD class=S> </TD></TR></TBODY></TABLE></TD>
<TD width=250><IMG height=45 src="../images/1year.gif"
width=250></TD>
</TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="98%" border=0>
<TBODY>
<TR>
<TD align=right><BR></TD></TR></TBODY></TABLE>
<TABLE height=1 cellSpacing=1 cellPadding=0 width="100%" bgColor=#00bbbb
border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<%
sqlp="select * from work where gsid="&id&""
sqlp=sqlp&" order by info_id desc"
Set rsp= Server.CreateObject("ADODB.Recordset")
rsp.open sqlp,conn,1,1
msg_per_page=15 '定义每页显示记录条数
%>
<%
rsp.pagesize=msg_per_page '定义分页记录集每页显示记录数
if not (rsp.eof and rsp.bof) then
totalrec=rsp.RecordCount'总记录条数
if rsp.recordcount mod msg_per_page=0 then'计算总页数,recordcount:数据的总记录数
n=rsp.recordcount\msg_per_page'n:总页数
else
n=rsp.recordcount\msg_per_page+1
end if
currentpage=request("page")'currentpage:当前页
If currentpage <> "" then
currentpage = cint(currentpage)
if currentpage < 1 then
currentpage = 1
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> "
Else
Response.Write("<a href=" & LinkFile & "&page="&blockPage-10&">前10页</a> ")
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 " <span disabled>后10页"
Else
Response.Write(" <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> "
Else
Response.Write("<span disabled>【</span><a href=" & LinkFile & "?page="&blockPage-10&">←前10页</a> ")
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 " <span disabled>后10页→】"
Else
Response.Write(" <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(" 共 "&totalrec&" 条信息 当前显示第 "&Startinfo&" - "&Endinfo&" 条 每页 "&msg_per_page&" 条信息 共 "&n&" 页")
end if
End Function
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="40%" height="25" 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>
<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="40%" align="center"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="4%"> </td>
<td width="96%" class="lh13 s">
<a href="javascript:win=window.open('/company/work_info.asp?info_id=<%=rs("info_id")%>','contact','top=50,left=150,width=460,height=400,scrollbars=no,status=no,toolbar=no,menubar=no,location=no');win.focus();"><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%" class="s" align="center"><%=rsp("period")%></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
%>
<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
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -