cash.asp

电子商城代码

<!--#include file="top.asp"-->
<%
'on error resume Next
session.codepage=65001
response.charset="utf-8"
strwebtitle=www56770com_word84
response.write c_skin_56770(c_skin_word(skin_head))
topmenu()
Dim sum1,sum2,sum3,js,jifen1,jifen2
If kg_reg="1" and session(""&cookiesname&"user_id")="" Then
        response.write"<table width='"&webwidth&"' cellpadding='0' cellspacing='0' align='center'>"&_
                      "  <tr>"&_
                      "   <td>"&_
                      "      <table width='88%' cellpadding='0' cellspacing='0' align='center'>"&_
                      "        <tr>"&_
                      "          <td>"
        www56770com_logininfo()
        response.write"       </td>"&_
                      "      </tr>"&_
                      "     </table>"&_
                      "    </td>"&_
                      "  </tr>"&_
                      "</table>"
Else 
www56770com_peisong()
www56770com_bank()
%>
<script language="JavaScript">
maxLen = 200; 
function checkMaxInput(checkcase) {
if (checkcase.other.value.length > maxLen) 
checkcase.other.value = checkcase.other.value.substring(0, maxLen);
else checkcase.remLen.value = maxLen - checkcase.other.value.length;
}
</script>
<%    
set rs = conn.execute("select * from [56770_lsbuy] where sessionid="&session.sessionid&" order by id")
if rs.eof then
        response.redirect"nothing.asp"
end if
do While Not rs.EOF
     Sum1 = Sum1 + rs("sprice") * rs("basket_count")
     Sum2 = Sum2 + rs("price") * rs("basket_count")
     Sum1=FormatNumber2(Sum1/moneyhl) 
     Sum2=FormatNumber2(Sum2/moneyhl) 
	 Sum3 = Sum3 + (rs("price")*rs("basket_count"))
	 strsum3=sum3
     js=FormatNumber2(Sum1-Sum2)
     If session(""&cookiesname&"user_id")<>"" Then 
            jifen1 = jifen1 + rs("p_jifen") * rs("basket_count")
	 Else
			jifen1 = 0
	 End If 
     If session(""&cookiesname&"user_grade")="1" Then
            Jifen2=clng(Sum3*jifenbilv)
     ElseIf session(""&cookiesname&"user_grade")="2" Then 
            Jifen2=clng(Sum3*jifenbilv_vip)
	 ElseIf session(""&cookiesname&"user_grade")="3" Then   
            Jifen2=clng(Sum3*jifenbilv_pf)
     End If 
     jifen=jifen1+jifen2

     rs.MoveNext
     loop
	 rs.close
	 Set rs=nothing

Rem 鍒ゆ柇鐢ㄦ埛鐘舵