 破天一剑私服 传奇私服 . 彩虹岛 热血传奇 传世私服 新开传奇私服 传奇世界私服 传世私服 传奇私服 传奇世界私服 传世私服 传奇SF 传奇外挂及时雨 传奇私
服 网通传奇私服 最新传奇私服 传奇私服 传奇sf 传奇世界私服 传奇外传私服 魔域私服 魔域sf 魔兽私服 完美世界私服 魔兽世界私服
|
<%if request.cookies("Cnhww")("username")="" then%>
<%else%>
<%
set rs=server.createobject("adodb.recordset")
rs.open "select jifen,yucun,reglx,vipdate from [user] where username='"&request.cookies("Cnhww")("username")&"'",conn,1,3
if rs("vipdate")<>"" then
if rs("vipdate") "&request.cookies("Cnhww")("username")&" VIP贵宾您好
您目前有 "&request.cookies("Cnhww")("jifen")&" 积分
预存款 "&request.cookies("Cnhww")("yucun")&" 元 "
else
response.write ""&request.cookies("Cnhww")("username")&" 您好
您目前有 "&request.cookies("Cnhww")("jifen")&" 积分
预存款 "&request.cookies("Cnhww")("yucun")&" 元 "
end if
response.write "
进入会员中心"
response.write "
注销/退出"
%>
|
<%end if%>
|
<%dim i
i=0
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 3 newsname_2,adddate_2,newsid_2 from news2 order by adddate_2 desc",conn,1,1
if rs.eof and rs.bof then
response.write "目前还没有商城新闻"
else
do while not rs.eof
i=i+1%>
|
|
<%if len(trim(rs("newsname_2")))>11 then
response.write ""&left(trim(rs("newsname_2")),15)&".."&"
"
else
response.write ""&trim(rs("newsname_2"))&""
end if%>
|
<%rs.movenext
loop
end if
rs.close
set rs=nothing%>
|
|
|
|
|
|
 |
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select Top 5 * from products where newsbook=1 order by bookid desc ",conn,1,1
if rs.eof and rs.bof then
response.write "
对不起，暂无此类商品！"
'response.End
else
%>
<%
if not rs.eof then
i=1
do while not rs.eof%>
|
<%if rs("bookpic")="" then
response.write ""
else%>
<%end if%>
|
|
|
<%if i mod 5 = 0 then%>
<%end if
rs.movenext
i=i+1
loop
rs.close
end if
end if
%>
|
|
|
 |
 |
<%
i=0
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 7 newsname,adddate,newsid from news order by adddate desc",conn,1,1
if rs.eof and rs.bof then
response.write "目前还没有商城新闻"
else
do while not rs.eof
i=i+1%>
|
|
<%if len(trim(rs("newsname")))>8 then
response.write ""&left(trim(rs("newsname")),8)&".."&"
"
else
response.write ""&trim(rs("newsname"))&""
end if%>
|
<%rs.movenext
loop
end if
rs.close
set rs=nothing%>
|
|
 |
 |
<%
i=0
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 6 * from news3 order by adddate_3 desc",conn,1,1
if rs.eof and rs.bof then
response.write "目前还没有商城新闻"
else
do while not rs.eof
%>
|
|
<%if len(trim(rs("newsname_3")))>8 then
response.write ""&left(trim(rs("newsname_3")),8)&".."&"
"
else
response.write ""&trim(rs("newsname_3"))&""
end if%>
|
<%rs.movenext
i=i+1
loop
end if
rs.close
set rs=nothing%>
|
|
 |
<%
i=0
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 6 * from news1 order by adddate_1 desc",conn,1,1
if rs.eof and rs.bof then
response.write "目前还没有商城新闻"
else
do while not rs.eof
i=i+1%>
|
|
<%if len(trim(rs("newsname_1")))>11 then
response.write ""&left(trim(rs("newsname_1")),11)&".."&"
"
else
response.write ""&trim(rs("newsname_1"))&""
end if%>
|
<%rs.movenext
loop
end if
rs.close
set rs=nothing%>
|
|
 |
|
|
|
|
