📄 56770_main_cls.asp
字号:
If rs("auct")<>1 then
strsprice="<s>"&dw&""&Formatnumber2(rs("sprice")/moneyhl)&"</s>"
If rs("cx")=1 then
If session(""&cookiesname&"user_id")="" then
Select Case sys_56770com4
Case "1"
strcprice= ""&dw&""&Formatnumber2(rs("cprice")/moneyhl)&""
strcprice1= "<EM><STRONG>"&int(rs("cprice")/rs("sprice")*100)&"</STRONG></EM> %"
Case "0"
strcprice= ""&dw&"******"
End Select
Else
strcprice= ""&dw&""&Formatnumber2(rs("cprice")/moneyhl)&""
strcprice1= " <EM><STRONG>"&int(rs("cprice")/rs("sprice")*100)&"</STRONG></EM> %"
End if
Else
strpprice= ""&dw&""&Formatnumber2(rs("price")/moneyhl)&""
strvprice= ""&dw&""&Formatnumber2(rs("vprice")/moneyhl)&""
strpfprice= ""&dw&""&Formatnumber2(rs("pfprice")/moneyhl)&""
End if
Elseif rs("auct")=1 Then
Dim x,dayx,yearx,monthx,monthd
strau_sprice="<s>"&dw&""&Formatnumber2(rs("sprice")/moneyhl)&"</s>"
strau_price=""&dw&""&Formatnumber2(rs("price")/moneyhl)&""
strauprice=""&dw&""&Formatnumber2(rs("auprice")/moneyhl)&""
straday=rs("aday")
x=dateadd("s",datediff("s",now(),straday),#2000-1-1#)
yearx=year(x)-2000
monthx=month(x)-1
monthd=30*monthx
dayx=day(x)-1
If "&sqlnowstring&"<straday then
strau_sj=""&monthd+dayx&" "&www56770com_txt35&" "&split(x," ")(1)&" "&monthx&""
Else
strau_sj=""&www56770com_txt55&" "
End if
End if
if rs("cx")=1 then
showprice=strcprice
elseif rs("cx")=0 and rs("auct")=0 Then
If session(""&cookiesname&"user_id")="" Then
showprice=strpprice
Else
Select Case session(""&cookiesname&"user_grade")
Case "1" : showprice=strpprice
Case "2" : showprice=strvprice
Case "3" : showprice=strpfprice
End Select
End If
elseif rs("auct")=1 then
showprice=strau_price
end if
dim kucun
if rs("kucun")<=0 then kucun=www56770com_word58 else kucun="<strong>"&rs("kucun")&"</strong>" end if
If show_mouse="0" Then
If rs("cx")=0 and rs("auct")=0 then
strtitle="<table cellspacing=0 cellpadding=0>"&_
"<tr><td height=20 align=righ>"&www56770com_txt30&"</td>"&_
"<td> "&pp&"</td></tr><tr><td height=20 align=right>"&www56770com_word13&"</td><td> "&kucun&"</td></tr>"&_
"<tr><td height=20 align=right>"&www56770com_txt17&"</td><td> "&strsprice&"</td></tr>"&_
"<tr><td height=20 align=right>"&www56770com_txt21&"</td><td> "&strpprice&"</td></tr><tr><td height=20 align=right>"&www56770com_txt32&"</td><td> "&strvprice&"</td></tr><tr><td height=20 align=right>"&www56770com_txt31&"</td><td> "&strpfprice&"</td></tr></table>"
Elseif rs("cx")=1 then
strtitle="<table cellspacing=0 cellpadding=0><tr><td height=20 align=right>"&www56770com_txt30&"</td><td> "&pp&"<font color=red>"&www56770com_txt66&"</font></td></tr><tr><td height=20 align=right>"&www56770com_word13&"</td><td> "&kucun&"</td></tr><tr><td height=20 align=right>"&www56770com_txt17&"</td><td> "&strsprice&"</td></tr><tr><td height=20 align=right>"&www56770com_txt16&"</td><td> "&strcprice&"</td></tr><tr><td height=20 align=right>"&www56770com_txt18&"</td><td> "&strcprice1&"</td></tr></table>"
Elseif rs("auct")=1 then
strtitle="<table cellspacing=0 cellpadding=0><tr><td height=20 align=right>"&www56770com_txt30&"</td><td> "&pp&"<font color=red>"&www56770com_txt67&"</font></td></tr><tr><td height=20 align=right>"&www56770com_word13&"</td><td> "&kucun&"</td></tr><tr><td height=20 align=right>"&www56770com_txt17&"</td><td> "&strau_sprice&"</td></tr><tr><td height=20 align=right>"&www56770com_txt38&"</td><td> "&strau_price&"</td></tr><tr><td height=20 align=right>"&www56770com_txt39&"</td><td> "&strauprice&"</td></tr><tr><td height=20 align=right> "&www56770com_txt49&"</td><td> "&strau_sj&"</td></tr></table>"
End If
End If
'If top5=1 then
' call tjlist()
' str_d_sytj=str_d_sytj&"<TABLE border=0 cellpadding=0 width=100% align=center></tr><TR><TD colspan='"&top5&"' height='1' bgcolor='#F5EFE7'></TD></TR></table>"
' Else
str_d_sytj=str_d_sytj&"<td width='"&(100/top5)&"%' align='middle'>"&_
" <table border='0' cellspacing='0' cellpadding='2' width='100%' align='center'>"&_
" <tr>"&_
" <td align=center width='100%'>"
str_d_sytj=str_d_sytj&"<a href='showproduct.asp?id="&rs("id")&"' class='picb'>"
str_d_sytj=str_d_sytj&"<img border='0' src='"&Eshop_url&picpath&rs("pic")&"' width="""&pic_xw&""" height="""&pic_xh&""" "
Select Case show_mouse
Case "0" : str_d_sytj=str_d_sytj&" class='picb' onMouseover=""fixedtooltip('"&strtitle&"', this, event, '300')"" onMouseout=""delayhidetip()""></a>"
Case "1" : str_d_sytj=str_d_sytj&" class='picb'></a>"
End Select
str_d_sytj=str_d_sytj&" </td>"&_
" </tr>"&_
" <tr>"&_
" <td align=center width='100%' height='30'><a href='showproduct.asp?id="&rs("id")&"'>"&Cutchar(rs(""&lan_product_name&""),8)&"</a></td>"&_
" </tr>"&_
" <tr><td align=center width='100%' height='18'><strong>"&showprice&"</strong></td></tr>"&_
" </table>"&_
"</td>"
'End if
'If top5<>1 then
If d_sytj_num mod CInt(top5) = 0 then
str_d_sytj=str_d_sytj&"</tr><TR><TD colspan="""&top6&""" height=1 bgcolor='#F5EFE7'></TD></TR>"
End if
' End if
rs.movenext
d_sytj_num=d_sytj_num+1
loop
rs.close:Set rs=Nothing
End if
If top5=1 then
' response.write"<td><TD width=1 bgcolor='#F5EFE7'></TD>"
End if
str_d_sytj=str_d_sytj&"</tr></table>"
End Function
'..................................
'读取会员登陆框
'..................................
Public Function www56770com_d_userlogins
str_d_userlogins="<TABLE border='0' cellpadding='0' CELLSPACING='0' width='100%' align='center'>"
showhtml=request("showhtml")
If Not IsNumeric(showhtml) Then showhtml=0
If showhtml<>0 Then
str_d_userlogins=str_d_userlogins&"<tr><td><script src="&Eshop_url&"js_html/js_user_login.asp></script></td></tr>"
Else
if session(""&cookiesname&"user_id")<>"" Then
'Dim www_56770_com_user_grade
sql="select user_id,user_grade,yxq,usermoney,jifen from [56770_user] where user_id='"&session(""&cookiesname&"user_id")&"'"
set rs=server.createobject("ADODB.Recordset")
rs.open sql, conn, 1, 1
if rs("user_grade")="2" and rs("yxq")<"&sqlnowstring&" then
conn.execute "update [56770_user] set user_grade='1' where user_id='"&session(""&cookiesname&"user_id")&"'"
end if
str_d_userlogins=str_d_userlogins&"<tr>"&_
" <td> "&_
" <TABLE border='0' cellpadding=0 width='100%' align='center'> "&_
" <tr>"&_
" <td width='100%' height='20' align='center'><a href='"&Eshop_url&"myuser.asp'><font color=red>["&www56770com_word554&"</font>]</a></td>"&_
" </tr>"&_
" <tr>"&_
" <td width='100%' height='20'><img src='"&Eshop_url&"images/index_plus.gif'>"&www56770com_txt77&"："&rs("jifen")&"</td>"&_
" </tr>"&_
" <tr>"&_
" <td width='100%' height='20'><img src='"&Eshop_url&"images/index_plus.gif'>"&www56770com_txt72&"："&dw&""&formatnumber2(rs("usermoney")/moneyhl)&"[<a href='"&Eshop_url&"myuser.asp?action=chongzhi'>"&www56770com_word572&"</a>]</td>"&_
" </tr>"&_
" <tr>"&_
" <td width='100%' height='20'><img src='"&Eshop_url&"images/index_plus.gif'><a href='"&Eshop_url&"myuser.asp?action=mingxi'>"&www56770com_word619&"</a></td>"&_
" </tr>"&_
" <tr>"&_
" <td width='100%' height='20'><img src='"&Eshop_url&"images/index_plus.gif'><a href='"&Eshop_url&"myuser.asp?action=dingdan'>"&www56770com_txt78&"</a></td>"&_
" </tr>"&_
" <tr>"&_
" <td width='100%' height='20'><img src='"&Eshop_url&"images/index_plus.gif'><a href='"&Eshop_url&"myuser.asp?action=modi'>"&www56770com_txt74&"</a></td>"&_
" </tr>"&_
" <tr>"&_
" <td width='100%' height='20'><img src='"&Eshop_url&"images/index_plus.gif'><a href='"&Eshop_url&"myuser.asp?action=msg'>"&www56770com_txt76&"</a>"
Dim sql1,rs1,re
sql1="select top 1 id,ifview from [56770_message] where to_user='"&rs("user_id")&"' order by id desc"
set rs1=server.createobject("ADODB.Recordset")
rs1.open sql1, conn, 1, 1
if rs1.eof Then
str_d_userlogins=str_d_userlogins&"<img src='"&Eshop_url&"images/m_olds.gif'>"
Else
do while not rs1.eof
if rs1("ifview")=0 then
re=" <a href="&Eshop_url&"myuser.asp?action=writemsg&action1=read&msgid="&rs1("id")&"><img src='images/m_news.gif' alt='"&www56770com_word701&"' border='0'></a><bgsound src='"&Eshop_url&"images/mail.wav' loop='1'>"
else
re="<img src='"&Eshop_url&"images/m_olds.gif' alt='"&www56770com_word700&"'>"
end if
str_d_userlogins=str_d_userlogins&" "&re&""
rs1.movenext
Loop
End If
rs1.close:set rs1=Nothing
str_d_userlogins=str_d_userlogins&" </td>"&_
" </tr>"&_
" <tr>"&_
" <td width='100%' height='20'><img src='"&Eshop_url&"images/index_plus.gif'><a href='"&Eshop_url&"quit.asp'><font color=red>"&www56770com_txt82&"</font></a></td>"&_
" </tr>"&_
"</table>"&_
"</td></tr>"
rs.close:set rs=nothing
Else
str_d_userlogins=str_d_userlogins&"<tr><td>"&c_skin_word(unlogin)&"</td></tr>"
End If
End If
str_d_userlogins=str_d_userlogins&"</table>"
End Function
'..................................
'读取会员登陆框欢迎信息
'..................................
Public Function www56770com_d_userlogins_w
if session(""&cookiesname&"user_id")="" Then:str_d_userlogins_w=www56770com_txt70:Else str_d_userlogins_w=" "&session(""&cookiesname&"user_id")&" "&www56770com_txt71&"":end If
End Function
'..................................
'读取购物车
'..................................
Public Function www56770com_d_cart
str_d_cart="<TABLE border='0' cellpadding='0' CELLSPACING='0' width='100%' align='center'>"
showhtml=request("showhtml")
If Not IsNumeric(showhtml) Then showhtml=0
If showhtml<>0 Then
str_d_cart=str_d_cart&"<tr><td><script src="&Eshop_url&"js_html/js_user_cart.asp></script></td></tr>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -