📄 index.asp
字号:
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
%>
<script language = "JavaScript">
sallt=new Array();
<%
Dim ii
ii=0
set rs8=conn.execute("select * from productclass_1 where gsid="&id&"")
do while not rs8.eof
%>
sallt[<%=ii%>]=new Array("<%=rs8("smallclassname")%>","<%=rs8("bigclassid")%>","<%=rs8("smallclassid")%>");
<%
ii=ii+1
rs8.movenext
loop
rs8.close
%>
function changeselect1(selvalue)
{
document.form.smallclassid.length=0;
var selvalue=selvalue;
var ii;
for(ii=0;ii<sallt.length;ii++)
{
if(sallt[ii][1]==selvalue)
{
var newOption1=new Option(sallt[ii][0],sallt[ii][2]);
document.all.smallclassid.add(newOption1);
}
}
}
</script>
<%
if bigclassid>"" and smallclassid>"" then
set rs3=conn.execute("select productclass_1.*,productclass.* from productclass_1,productclass where productclass_1.smallclassid="&smallclassid&" and productclass.bigclassid=productclass_1.bigclassid and productclass.gsid="&id&" and productclass_1.gsid="&id&"")
%>
<TABLE cellSpacing=0 cellPadding=5 width="100%" align=center border=0>
<FORM name=form action="" method=post>
<TBODY>
<TR>
<TD bgColor=#d7fff9><FONT
color=#cc0000><STRONG>按系列查看产品:</STRONG></FONT>
<select name="bigclassid" onChange="changeselect1(document.form.bigclassid.options[document.form.bigclassid.selectedIndex].value)" size="1">
<option selected value="<%=rs3("bigclassid")%>"><%=rs3("bigclassname")%></option>
<%
set rs12=conn.execute("select * from productclass where bigclassid<>"&rs3("bigclassid")&" and gsid="&id&"")
do while not rs12.eof
response.write "<option value='"&rs12("bigclassid")&"'>"&rs12("bigclassname")&"</option>"&chr(13)+chr(10)
rs12.movenext
loop
rs12.close
%>
</select>
<select name="smallclassid">
<option selected value="<%=rs3("smallclassid")%>"><%=rs3("smallclassname")%></option>
<%
set rs4=conn.execute("select * from productclass_1 where bigclassid="&rs3("bigclassid")&" and smallclassid<>"&rs3("smallclassid")&" and gsid="&id&"")
do while not rs4.eof
response.write "<option value='"&rs4("smallclassid")&"'>"&rs4("smallclassname")&"</option>"&chr(13)+chr(10)
rs4.movenext
loop
rs4.close
rs3.close
%>
</select> <INPUT type=submit value=" 查看 " name=Submit22></TD>
</TR></TBODY></FORM></TABLE>
<%
else
%>
<TABLE cellSpacing=0 cellPadding=5 width="100%" align=center border=0>
<FORM name=form action="" method=post>
<TBODY>
<TR>
<TD bgColor=#d7fff9><FONT
color=#cc0000><STRONG>按系列查看产品:</STRONG></FONT>
<select name="bigclassid" onChange="changeselect1(document.form.bigclassid.options[document.form.bigclassid.selectedIndex].value)" size="1">
<option selected value="">--请选择产品大类--</option>
<%
set rs7=conn.execute("select * from productclass where gsid="&id&"")
do while not rs7.eof
response.write "<option value='"&rs7("bigclassid")&"'>"&rs7("bigclassname")&"</option>"&chr(13)+chr(10)
rs7.movenext
loop
rs7.close
%>
</select>
<select name="smallclassid">
<option selected value="">--请选择产品小类--</option>
</select> <INPUT type=submit value=" 查看 " name=Submit22></TD>
</TR></TBODY></FORM></TABLE>
<%
end if
%>
<BR>
<%
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 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 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="50%" align="center" bgcolor="e7e7e7" class="S">产品名称</td>
<td width="25%" 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%>productshow/offerdetail/<%=rsp("sortid")%>-<%=rsp("typeid")%>-<%=rsp("typeid_2")%>-<%=rsp("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="50%"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="4%"> </td>
<td width="96%" class="lh13 s">
<A href="<%=weburl%>productshow/offerdetail/<%=rsp("sortid")%>-<%=rsp("typeid")%>-<%=rsp("typeid_2")%>-<%=rsp("id")%>.html" target="_blank"><B><%=rsp("cpmc")%></B><BR>
<FONT color=#666666>型号：<%=rsp("cpgg")%><BR> <%=left(rsp("xxsm"),18)%>...</font><BR>
</A></td>
</tr>
</table> </TD>
<TD width="25%" align="center">
<%
if rs("tm")="" then
response.write"<a href=/member/getprice/message_product.asp?id="&rsp("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_product.asp?id="&rsp("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 + -