📄 title.asp
字号:
<%@LANGUAGE="VBScript"%>
<meta name=keywords content="诚信商店,血饮狂刀,Clanboo,lanboo,金统联,webmaster@xytime.com,jsbuy.com,cebuy.com,王星亮,完美商店,超级商店,商城,冷面">
<!--#include file="program/public/wxl_conn.asp"-->
<%
dim strCenterPic '居中广告
dim strRightPic '右边广告,最多显示三条
dim strHotProc '热点推荐
intCenterWidth="386"
intCenterHeight="161"
intRightWidth="193"
intRightHeight="53"
set sql=Server.Createobject("ADODB.Recordset")
set sqlSys=Server.Createobject("ADODB.Recordset")
str_pKindID=request("str_pKindID")
MyID=session("My_ID")
MyLoginName=session("My_Login")
MyName=session("My_jibie")
'////取出系统信息
sqlSys.open "select * from web_SysConfig",conn,1,1
if sqlSys.eof then
response.wirte "<center>未找到系统参数,程序结束</cener>"
resposne.end
end if
GetPicAD
'/////会员消息
if MyID<>"" then
Query="select CallId from web_MemerCallMesg where ToMen="&MyID&" and CallMark=0 and CallType=2 order by CallTime"
'response.write Query
set sql=conn.Execute(Query)
if not sql.eof then
response.write "<script>window.open('getcall.asp?KeyId="&KeyId&"&wxl=Look&CallId="&sql(0)&"','','resizable=yes,width=650,height=250,scrollbars=1');</script>"
end if
sql.close
end if
'分类导航
sub ShowBottomUrl()
sql.open "select * from web_ProKind where str_pKindPID='00' order by str_pKindID",conn,1,1
do until sql.eof
response.write "<tr>"
for i=1 to 2
response.write "<td valign='top' width='50%'><p class='cn2'><span class='cn1'><a href='list.asp?str_pKindID="&sql("str_pKindID")&"'> "&sql("str_pKindName")&"</a></span><br>"
ShowBottomUrlSub(sql("str_pKindID"))
response.write "</p></td>"
sql.movenext
if Sql.eof then
exit do
end if
next
response.write "</tr>"
loop
sql.close
end sub
sub ShowBottomUrlSub(tmpID)
set tmpSql=conn.execute("select * from web_ProKind where str_pKindPID='"&tmpID&"' order by str_pKindID")
while not tmpSql.eof
response.write "<a href='list.asp?str_pKindID="&tmpSql("str_pKindID")&"'>"&tmpSql("str_pKindName")&"</a>，"
tmpSql.movenext
wend
set tmpSql=nothing
end sub
'///////今日特价
sub NowPrice()
sql.open "select top 1 ProcID,A5,A8,A14,A15,A16,A17,A23 from web_ProcLib where A32=1 order by A28 desc",conn,1,1
if not sql.eof then
if sql("A23")<>"" then
A23=sql("A23")
else
A23="images/noimage.gif"
end if
%>
<table width="100%" height="185" border="0" cellspacing="0">
<tr>
<td width="52%" height="88"><a href="<%=A23%>" target=_blank><img src="<%=A23%>" width="83" height="86" border="0"></a></td>
<td width="48%" valign="TOP" class="cn22"><span class="en2"><font color="#000000"><%=sql("A5")%></font></span><br>
原价:<s><%=sql("A15")%></s><br>
特价:<s><%=sql("A16")%></s><br>
现价:<strong><%=sql("A17")%></strong></td>
</tr>
<tr valign="top">
<td colspan="2" class="en1"><%=sql("A8")%></td>
</tr>
<tr align="center">
<td colspan="2"><a href="showproc.asp?ProcID=<%=sql("ProcID")%>" target=_blank><img src="images/view-it.gif" width="59" height="17" border="0"></a>
<a href="shopcart.asp?ProcID=<%=sql("ProcID")%>"><img src="images/buy-now.gif" width="59" height="17" border="0"></a> </td>
</tr>
</table>
<%
end if
sql.close
end sub
'///////取出广告数据
sub GetPicAD
if str_pKindID="" then
sql.open "select top 3 * from web_AdPic where PicKind='00' order by AddTime desc",conn,1,1
while not sql.eof
strRightPic=strRightPic&"<a href='"&sql("PicUrl")&"' target=_blank title='"&sql("PicAbout")&"'><img src='"&sql("PicPath")&"' width='"&intRightWidth&"' height='"&intRightHeight&"' border=0></a><br>"
sql.movenext
wend
sql.close
sql.open "select top 1 * from web_AdPic where PicKind='-1' order by AddTime desc",conn,1,1
if not sql.eof then
if sql("PicPath")<>"" then strCenterPic="<a href='"&sql("PicUrl")&"' target=_blank title='"&sql("PicAbout")&"'><img src='"&sql("PicPath")&"' width='"&intCenterWidth&"' height='"&intCenterHeight&"' border=0></a><br>"
end if
sql.close
sql.open "select * from web_HotProc where PicKind='00'",conn,1,1
if not sql.eof then
strHotProc="<a href='"&sql("PicUrl")&"'><IMG ALT='热点推荐' SRC='"&sql("PicPath")&"' WIDTH=175 HEIGHT=171 border='0'></a>"
end if
sql.close
else
sql.open "select top 3 * from web_AdPic where PicKind='"&str_pKindID&"' order by AddTime desc",conn,1,1
while not sql.eof
strRightPic=strRightPic&"<a href='"&sql("PicUrl")&"' target=_blank title='"&sql("PicAbout")&"'><img src='"&sql("UrlPath")&"' width='"&intRightWidth&"' height='"&intRightHeight&"' border=0></a><br>"
sql.movenext
wend
sql.close
sql.open "select * from web_ProKind where str_pKindID='"&str_pKindID&"'",conn,1,1
if not sql.eof then
if sql("str_pKindPic")<>"" then strCenterPic="<a href='"&sql("str_pKindUrl")&"' target=_blank'><img src='"&sql("str_pKindPic")&"' width='"&intCenterWidth&"' height='"&intCenterHeight&"' border=0></a><br>"
sql.movenext
end if
sql.close
sql.open "select * from web_HotProc where PicKind='"&str_pKindID&"'",conn,1,1
if not sql.eof then
strHotProc="<a href='"&sql("PicUrl")&"'><IMG ALT='热点推荐' SRC='"&sql("PicPath")&"' WIDTH=175 HEIGHT=171 border='0'></a>"
end if
sql.close
end if
end sub
function GetKindName(tmpID)
if tmpID="" then
GetKindName=""
exit function
end if
set tmpCfg=server.createobject("ADODB.recordset")
i=len(tmpID)/2
GetKindName=""
for j=1 to i
GetKindName=GetKindName&" > <a href='"&UrlFile&"?str_pKindPID="&left(tmpID,j*2)&"'>"&GetName("select str_pKindName from web_ProKind where str_pKindID='"&left(tmpID,j*2)&"'")&"</a>"
next
end function
'显示一级栏目链接
sub ShowUrl()
sql.open "select * from web_ProKind where str_pKindPID='00' order by str_pKindID",conn,1,1
while not sql.eof
response.write "<a href='list.asp?str_pKindID="&sql("str_pKindID")&"' title='"&sql("txt_pKindExplain")&"'>"&sql("str_pKindName")&"</a> |"
sql.movenext
wend
sql.close
end sub
'FAQ管理
sub ShowFAQ()
tmpStr=""
i=1
sql.open "select top 8 * from web_ShopNews where int_sNewsType=4 order by int_sNewsTime",conn,1,1
while not sql.eof
tmpStr=tmpStr&" "&i&"、<a href='faq.asp?wxl=Show&ID="&sql("int_sNewsID")&"' target=_blank title='"&sql("str_sNewsTitle")&"'>"
if len(sql("str_sNewsTitle"))>12 then tmpStr=tmpStr&left(sql("str_sNewsTitle"),10)&"..." else tmpStr=tmpStr&sql("str_sNewsTitle") end if
tmpStr=tmpStr&"</a><br>"
sql.movenext
i=i+1
wend
sql.close
%>
<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=0>
<TR>
<TD width="9"> <IMG SRC="images2/title.gif" WIDTH=9 HEIGHT=11 ALT=""></TD>
<TD background="images/t5_02a.gif"> <IMG SRC="images/t5_02a.gif" WIDTH=1 HEIGHT=11 ALT=""></TD>
<TD width="9"> <IMG SRC="images/t5_03.gif" WIDTH=9 HEIGHT=11 ALT=""></TD>
</TR>
<TR>
<TD> <IMG SRC="images/t5_04.gif" WIDTH=9 HEIGHT=21 ALT=""></TD>
<TD background="images/1a.gif" align=center> <span class="cn2">----常见问题----</span></TD>
<TD> <IMG SRC="images/t5_06.gif" WIDTH=9 HEIGHT=21 ALT=""></TD>
</TR>
<TR>
<TD background="images/1c.gif"> <IMG SRC="images/1c.gif" WIDTH=9 HEIGHT=1 ALT=""></TD>
<TD align="left" valign="top"><p><%=tmpStr%></p>
<a href='faq.asp'>更多>></a>
</TD>
<TD background="images/2c.gif"> <IMG SRC="images/2c.gif" WIDTH=9 HEIGHT=8 ALT=""></TD>
</TR>
<TR>
<TD> <IMG SRC="images/t5_10.gif" WIDTH=9 HEIGHT=9 ALT=""></TD>
<TD background="images/t5_11a.gif"> <IMG SRC="images/t5_11a.gif" WIDTH=1 HEIGHT=9 ALT=""></TD>
<TD> <IMG SRC="images/t5_12.gif" WIDTH=9 HEIGHT=9 ALT=""></TD>
</TR>
</TABLE>
<%
end sub
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=sqlSys("C1")%></title>
<link href="css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="4" topmargin="0" marginwidth="4" marginheight="4">
<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=0>
<TR>
<TD COLSPAN=2> <IMG SRC="images/t1_01.gif" WIDTH=169 HEIGHT=44 ALT=""></TD>
<TD COLSPAN=2 align="right" valign="baseline">
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>
<FORM METHOD=POST ACTION="list.asp?str_pKindID=<%=str_pKindID%>">
<TR>
<TD width="68" class="cn2"> 商品搜索：</TD>
<TD width="159"> <input name="QueryString" type="text" class="cn2" size="25"></TD>
<TD width="44"> <input type="image" border="0" name="imagesub" SRC="images/t6_03.gif" WIDTH=36 HEIGHT=27 ALT=""></TD>
<TD width="30"> </TD>
<TD width="22"> <IMG SRC="images/t6_05.gif" WIDTH=20 HEIGHT=27 ALT=""></TD>
<%if MyID="" then%>
<TD width="31" class="cn2">
<a href='reg.asp'>注册</a>
<%else%>
<TD width="61" class="cn2">
<a href='reg.asp'>修改资料</a>
<%end if%>
</TD>
<TD width="22"> <IMG SRC="images/t6_05.gif" WIDTH=20 HEIGHT=27 ALT=""></TD>
<TD width="31" class="cn2">
<%if MyID="" then%><a href='login.asp?BackUrl=<%=UrlFile%>'>登录</a><%else%><a href='login.asp?wxl=Logout&BackUrl=<%=UrlFile%>'>退出</a><%end if%>
</TD>
<TD width="22"> <IMG SRC="images/t6_05.gif" WIDTH=20 HEIGHT=27 ALT=""></TD>
<TD width="41" class="cn2"><a href='shopcart.asp'>购物车</a></TD>
<TD width="22"> <IMG SRC="images/t6_05.gif" WIDTH=20 HEIGHT=27 ALT=""></TD>
<TD width="30" class="cn2"><a href='shopmesg.asp'>消息</a></TD>
<TD width="22"> <IMG SRC="images/t6_07.gif" WIDTH=20 HEIGHT=27 ALT=""></TD>
<TD width="55" align="left" valign="middle" class="cn2"><a href='orderfind.asp' target=_blank>订单查询</a></TD>
<TD width="24"> <IMG SRC="images/t6_09.gif" WIDTH=21 HEIGHT=27 ALT=""></TD>
<TD width="32" class="cn2"><a href='help.asp'>帮助</a></TD>
</TR>
</form>
</TABLE>
</TD>
</TR>
<TR>
<TD width="9"> <IMG SRC="images/t1_03.gif" WIDTH=9 HEIGHT=12 ALT=""></TD>
<TD COLSPAN=2 background="images/3b.gif"> <IMG SRC="images/3b.gif" WIDTH=1 HEIGHT=12 ALT=""></TD>
<TD> <IMG SRC="images/t1_05.gif" WIDTH=7 HEIGHT=12 ALT=""></TD>
</TR>
<TR>
<TD width="9"> <IMG SRC="images/t1_06.gif" WIDTH=9 HEIGHT=23 ALT=""></TD>
<TD COLSPAN=2 align="left" valign="middle" background="images/3a.gif" class="cn2">
<%ShowUrl%><br></TD>
<TD width="7"> <IMG SRC="images/t1_08.gif" WIDTH=7 HEIGHT=23 ALT=""></TD>
</TR>
<TR>
<TD width="9" height="5"><img src="images/t1_13.gif" width="9" height="5"></TD>
<TD COLSPAN=2 background="images/3d.gif"><IMG SRC="images/3d.gif" WIDTH=1 HEIGHT=5 ALT=""><img src="images/3d.gif" width="1" height="5"></TD>
<TD width="7" background="images/3d.gif"><img src="images/t1_14.gif" width="7" height="5"></TD>
</TR>
<TR>
<TD width="9"> <IMG SRC="images/t1_10.gif" WIDTH=9 HEIGHT=14 ALT=""></TD>
<TD class="en2"><a href="index.asp">HOME</a><%=GetKindName(str_pKindID)%></TD>
<td class="en2"><%if MyID<>"" then response.write "欢迎[<font color=red>"&MyName&"</font>]登录诚信商店"%></td>
<TD width="7"> <IMG SRC="images/t1_12.gif" WIDTH=7 HEIGHT=14 ALT=""></TD>
</TR>
<TR>
<TD height="2"> <IMG SRC="images/spacer.gif" WIDTH=9 HEIGHT=1 ALT=""></TD>
<TD width="205"> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD>
<TD width="908"> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD>
<TD> <IMG SRC="images/spacer.gif" WIDTH=7 HEIGHT=1 ALT=""></TD>
</TR>
</TABLE>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -