ddtaobao_syscode.asp
来自「设计考虑校园电子商务模式」· ASP 代码 · 共 659 行 · 第 1/2 页
ASP
659 行
isvisible = true;
makeRectangularDropShadow(submenu, MENU_SHADOW_COLOR, 4)
}
function makeRectangularDropShadow(el, color, size)
{
var i;
for (i=size; i>0; i--)
{
var rect = document.createElement('div');
var rs = rect.style
rs.position = 'absolute';
rs.left = (el.style.posLeft + i) + 'px';
rs.top = (el.style.posTop + i) + 'px';
rs.width = el.offsetWidth + 'px';
rs.height = el.offsetHeight + 'px';
rs.zIndex = el.style.zIndex - i;
rs.backgroundColor = color;
var opacity = 1 - i / (i + 1);
rs.filter = 'alpha(opacity=' + (100 * opacity) + ')';
el.insertAdjacentElement('afterEnd', rect);
global.fo_shadows[global.fo_shadows.length] = rect;
}
}
</script><div id=menuDiv style='Z-INDEX: 1000; VISIBILITY: hidden; WIDTH: 1px; POSITION: absolute; HEIGHT: 1px; BACKGROUND-COLOR: #FFFFFF'></div>
<%
response.write "<script language='JavaScript' type='text/JavaScript'>" & vbcrlf
response.write "//菜单列表" & vbcrlf
dim sqlMenu,rsMenu,strMenu,strMenunews
strMenu="var menu_skin=" & chr(34)
dim rsSkin
set rsSkin=conn.execute("select SkinID,SkinName from dd_Skin")
do while not rsSkin.eof
strMenu=strMenu & " <a style=font-size:9pt;line-height:14pt; href='SetCookie.asp?Action=SetSkin&SkinID=" & rsSkin(0) & "'>" & rsSkin(1) & "</a><br>"
rsSkin.movenext
loop
rsSkin.close
set rsSkin=nothing
response.write strMenu & chr(34) & ";" & vbcrlf
response.write "</script>" & vbcrlf
end sub
%>
<%
Function ddtaobao_AD(ID)
set ADRS=server.createobject("adodb.recordset")
sql="select top 1 id,ddtaobaoTitle,ddtaobaoHttp,ddtaobaowidth,ddtaobaoblank,ddtaobaoheight,ddtaobaoPic,ddtaobaoNote,ddtaobaoflash,ddtaobaoon from dd_advertise where ddtaobaoon=0 and ID="&ID&""
ADRS.open sql,conn,1,1
If ADRS.bof Then
Response.write""
Else
if ADRS("ddtaobaoflash")=0 then
Response.Write("<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="&ADRS("ddtaobaowidth")&" height="&ADRS("ddtaobaoheight")&"><param name='movie' value="&ADRS("ddtaobaoPic")&"><param name='wmode' value='transparent'><embed src="&ADRS("ddtaobaoPic")&" quality='high' pluginspage='http://www.macromedia.com/go/getflashplayer' type='application/x-shockwave-flash' width="&ADRS("ddtaobaowidth")&" height="&ADRS("ddtaobaoheight")&"></embed></object>")
else
if ADRS("ddtaobaohttp")="" then
Response.Write("<div>")
Response.Write("<img src="&ADRS("ddtaobaoPic")&" width="&ADRS("ddtaobaowidth")&" height="&ADRS("ddtaobaoheight")&" border=""0"" alt="&ADRS("ddtaobaotitle")&"---"&ADRS("ddtaobaonote")&"><div>")
else
if ADRS("ddtaobaoblank")=0 then
Response.Write("<div><a target='_blank' href="&ADRS("ddtaobaoHttp")&">")
Response.Write("<img src="&ADRS("ddtaobaoPic")&" width="&ADRS("ddtaobaowidth")&" height="&ADRS("ddtaobaoheight")&" border=""0"" alt="&ADRS("ddtaobaotitle")&"---"&ADRS("ddtaobaonote")&"></a><div>")
else
Response.Write("<div><a href="&ADRS("ddtaobaoHttp")&">")
Response.Write("<img src="&ADRS("ddtaobaoPic")&" width="&ADRS("ddtaobaowidth")&" height="&ADRS("ddtaobaoheight")&" border=""0"" alt="&ADRS("ddtaobaotitle")&"---"&ADRS("ddtaobaonote")&"></a><div>")
end if
end if
End If
End If
end Function
'=================================================
'过程名：ShowAnnounce
'作 用：显示本站公告信息
'参 数：ShowType ------显示方式，1为纵向，2为横向
' AnnounceNum ----最多显示多少条公告
'=================================================
sub ShowAnnounce(ShowType,AnnounceNum)
dim sqlAnnounce,rsAnnounce,i
if AnnounceNum>0 and AnnounceNum<=10 then
sqlAnnounce="select top " & AnnounceNum
else
sqlAnnounce="select top 10"
end if
sqlAnnounce=sqlAnnounce & " * from dd_Announce where IsSelected=True order by ID Desc"
Set rsAnnounce= Server.CreateObject("ADODB.Recordset")
rsAnnounce.open sqlAnnounce,conn,1,1
if rsAnnounce.bof and rsAnnounce.eof then
AnnounceCount=0
response.write "<p> 没有通告</p>"
else
AnnounceCount=rsAnnounce.recordcount
if ShowType=1 then
do while not rsAnnounce.eof
response.Write "<a href='Announce.asp?ID=" & rsAnnounce("id") &"' title='" & rsAnnounce("Content") & "' target=_Blank> " & rsAnnounce("title") & "</div><br><div align='right'>" & rsAnnounce("Author") & " <br>" & FormatDateTime(rsAnnounce("DateAndTime"),1) & "</a>"
rsAnnounce.movenext
i=i+1
if i<AnnounceCount then response.write "<hr>"
loop
else
do while not rsAnnounce.eof
response.Write "<a href='Announce.asp?ID=" & rsAnnounce("id") &"' title='" & rsAnnounce("Content") & "' target=_Blank>" & rsAnnounce("title") & " [" & rsAnnounce("Author") & " " & FormatDateTime(rsAnnounce("DateAndTime"),1) & "]</a> "
rsAnnounce.movenext
loop
end if
end if
rsAnnounce.close
set rsAnnounce=nothing
end sub
%>
<%
'==================================================
'过程名：showshoptype
'作 用：显示分类
'参 数：无
'==================================================
sub showshoptype
Response.Write"<table border='0' cellpadding='0' cellspacing='0' width='96%' align='center'><tr>"
set rs=conn.execute("select * from dd_typ order by id desc")
if rs.eof then
Response.Write"<td width='100%' height='25' align='center'> 暂时没有分类</td>"
end if
do while not rs.eof
Response.Write"<td align='center' height='25'><a href='shoplist.asp?zu="&rs("id")&"'>"&rs("name")&""
Response.Write"</a></td>"
ka=ka+1
if ka=2 then
ka=0
Response.Write"</tr><tr>"
end if
rs.movenext
loop
rs.close
Response.Write"</tr></table>"
end sub
%>
<%
'==================================================
'过程名：showtopnews
'作 用：显示最新新闻
'参 数：m:显示的条数n:标题的最大长度
'==================================================
sub showtopnews(m,n)
set rs=conn.execute("select top "&m&" id,newsname,newsdate,newstimes from dd_news order by id desc")
Response.Write"<table width='96%' border='0' align='center' cellspacing='0' cellpadding='0'>"
if rs.eof then
Response.Write"<tr> <td height='20' >暂时没有新闻</td></tr>"
end if
do while not rs.eof
Response.Write"<tr> <td height='20' >·<a href=news_info.asp?id="&rs("id")&" target='_blank'>"&left(rs("newsname"),n)&"</a><font color='#FF0000'>[</font>"&rs("newsdate")&"<font color='#FF0000'>]</font><font color='#FF0000'>[</font>"&rs("newstimes")&"次<font color='#FF0000'>]</font></td></tr>"
Response.Write"<tr> <td height='2' background='images/white_line.gif'></td></tr>"
rs.movenext
loop
rs.close
Response.Write"</table>"
end sub
%><%
'=================================================
'过程名：ShowTopUser
'作 用：显示用户排行，再按注册先后顺序排序
'参 数：UserNum-------显示的用户个数
'=================================================
sub ShowTopUser(UserNum)
if UserNum<=0 or UserNum>100 then UserNum=10
dim sqlTopUser,rsTopUser,i
sqlTopUser="select top " & UserNum & " * from [dd_User] order by User_ID asc"
set rsTopUser=server.createobject("adodb.recordset")
rsTopUser.open sqlTopUser,conn,1,1
if rsTopUser.bof and rsTopUser.eof then
response.write "没有任何用户"
else
response.write "<table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td align='left'>名次</td><td align='left'>用户名</td><td align='left'>时间</td></tr>"
for i=1 to rsTopUser.recordcount
response.write "<tr><td align='center'>" & cstr(i) & "</td><td align='left'><a href='UserInfo.asp?User_ID=" & rsTopUser("User_ID") & "'>" & rsTopUser("User_Name") & "</a></td><td align='left'>" & FormatDateTime(rsTopUser("User_date"),vbshortdate) & "</td></tr>"
rsTopUser.movenext
next
response.write "</table><div align='right'><a href='User_List.asp'>更多……</a></div>"
end if
set rsTopUser=nothing
end sub
%>
<%
'==================================================
'过程名：showtopshop
'作 用：显示最新店铺
'参 数：m:显示的条数n:标题的最大长度t:调用最新和最热
'==================================================
sub showtopshop(m,n,t)
if t=0 then
set rs=conn.execute("select top "&m&" user_id,shop_name,user_date,star from dd_user where font='1' order by user_id desc")
Response.Write"<table width='96%' border='0' align='center' cellspacing='0' cellpadding='0'>"
if rs.eof then
Response.Write"<tr> <td height='20' >暂时没有店铺</td></tr>"
end if
do while not rs.eof
Response.Write"<tr> <td height='20' >·<img src='Img/newdot.gif' width='9' height='15'><a href='shop_info.asp?user_id="&rs("user_id")&"' target='_blank'>"&left(rs("shop_name"),n)&"</a> "&top1(rs("star"))&" <font color='#FF0000'>[</font>"&(FormatDateTime(rs("user_Date"),vbshortdate))&"<font color='#FF0000'>]</font></td></tr>"
Response.Write"<tr> <td height='2' background='images/white_line.gif'></td></tr>"
rs.movenext
loop
rs.close
Response.Write"</table>"
end if
if t=1 then
set rs=conn.execute("select top "&m&" user_id,shop_name,user_date,star from dd_user where font='1' order by shop_hits desc,user_id desc")
Response.Write"<table width='96%' border='0' align='center' cellspacing='0' cellpadding='0'>"
if rs.eof then
Response.Write"<tr> <td height='20' >暂时没有店铺</td></tr>"
end if
do while not rs.eof
Response.Write"<tr> <td height='20' >·<img src='Img/newdot.gif' width='9' height='15'><a href='shop_info.asp?user_id="&rs("user_id")&"' target='_blank'>"&left(rs("shop_name"),n)&"</a> "&top1(rs("star"))&" <font color='#FF0000'>[</font>"&(FormatDateTime(rs("user_Date"),vbshortdate))&"<font color='#FF0000'>]</font></td></tr>"
Response.Write"<tr> <td height='2' background='images/white_line.gif'></td></tr>"
rs.movenext
loop
rs.close
Response.Write"</table>"
end if
end sub
%>
<%
'==================================================
'过程名：showstarshop
'作 用：显示星级店铺
'参 数：m:显示的条数n:标题的最大长度
'==================================================
sub showstarshop(m,n)
set rs=conn.execute("select top "&m&" user_id,shop_name,shop_img,star from dd_user where font='1' order by star desc,user_id desc")
Response.Write"<table width='96%' border='0' align='center' cellspacing='0' cellpadding='0'>"
if rs.eof then
Response.Write"<tr><td height='20' >暂时没有店铺</td></tr>"
end if
Response.Write"<tr>"
do while not rs.eof
Response.Write"<td width='16%' align='center'><a href='shop_info.asp?user_id="&rs("user_id")&"' target='_blank'><img src='"&rs("shop_img")&"' width='50' height='50' border='0' style='border: 1px solid #000000'><br>"&left((rs("shop_name")),6)&"</a><br> "&top1(rs("star"))&"</td>"
rs.movenext
loop
rs.close
Response.Write"</tr>"
Response.Write"</table>"
end sub
%>
<%
'==================================================
'过程名：showtopgoods
'作 用：显示最新商品
'参 数：m:显示的条数n:标题的最大长度t:调用最新和最热
'==================================================
sub showtopgoods(m,n,t)
if t=0 then
set rs=conn.execute("select top "&m&" goods_id,goods_name,goods_date,AlipayStatus from dd_goods order by goods_id desc")
Response.Write"<table width='96%' border='0' align='center' cellspacing='0' cellpadding='0'>"
if rs.eof then
Response.Write"<tr> <td height='20' >暂时没有商品</td></tr>"
end if
do while not rs.eof
Response.Write"<tr> <td height='20' >·<img src='Img/newdot.gif' width='9' height='15'><a href='goods_info.asp?goods_id="&rs("goods_id")&"' target='_blank'>"&left(rs("goods_name"),n)&"</a>"
if rs("AlipayStatus")=1 then
Response.Write"<img alt=支付宝付款 src=Images/AlipayStatus.gif border=0 width=16 height=16>"
end if
Response.Write"<font color='#FF0000'>[</font>"&(FormatDateTime(rs("goods_Date"),vbshortdate))&"<font color='#FF0000'>]</font></td></tr>"
Response.Write"<tr> <td height='2' background='images/white_line.gif'></td></tr>"
rs.movenext
loop
rs.close
Response.Write"</table>"
end if
if t=1 then
set rs=conn.execute("select top "&m&" goods_id,goods_name,goods_date,AlipayStatus from dd_goods order by goods_hits desc,goods_id desc")
Response.Write"<table width='96%' border='0' align='center' cellspacing='0' cellpadding='0'>"
if rs.eof then
Response.Write"<tr> <td height='20' >暂时没有商品</td></tr>"
end if
do while not rs.eof
Response.Write"<tr> <td height='20' >·<img src='Img/newdot.gif' width='9' height='15'><a href='goods_info.asp?goods_id="&rs("goods_id")&"' target='_blank'>"&left(rs("goods_name"),n)&"</a>"
if rs("AlipayStatus")=1 then
Response.Write"<img alt=支付宝付款 src=Images/AlipayStatus.gif border=0 width=16 height=16>"
end if
Response.Write"<font color='#FF0000'>[</font>"&(FormatDateTime(rs("goods_Date"),vbshortdate))&"<font color='#FF0000'>]</font></td></tr>"
Response.Write"<tr> <td height='2' background='images/white_line.gif'></td></tr>"
rs.movenext
loop
rs.close
Response.Write"</table>"
end if
end sub
%><%
'==================================================
'过程名：showtophelps
'作 用：显示最新帮助
'参 数：m:显示的条数n:标题的最大长度
'==================================================
sub showtophelps(m,n)
set rs=conn.execute("select top "&m&" id,newsname,newsdate from dd_helps order by id desc")
Response.Write"<table width='96%' border='0' align='center' cellspacing='0' cellpadding='0'>"
if rs.eof then
Response.Write"<tr> <td height='20' >暂时没有帮助</td></tr>"
end if
do while not rs.eof
Response.Write"<tr> <td height='20' >·<a href=Helps.asp?id="&rs("id")&" target='_blank' title='添加于"&rs("newsdate")&"'>"&left(rs("newsname"),n)&"</a></font></td></tr>"
Response.Write"<tr> <td height='2' background='images/white_line.gif'></td></tr>"
rs.movenext
loop
rs.close
Response.Write"</table>"
end sub
%><%
'==================================================
'过程名：showtopmenu
'作 用：显示最新菜单
'参 数：m:显示的条数
'==================================================
sub showtopmenu(m)
set rs=conn.execute("select top "&m&" channelid,channelname,orderid,linkurl from dd_channel order by orderid asc,channelid asc")
if rs.eof then
Response.Write"暂时没有菜单"
end if
do while not rs.eof
Response.Write"<a href="&rs("linkurl")&" class=channel>"&rs("channelname")&"</a> | "
rs.movenext
loop
rs.close
end sub
%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?