myuser.asp

电子商城代码

<!--#include file="top.asp" -->
<!--#include file="include/md5.asp"-->
<%
Dim subject,strmsg,idate,ifre,to_user
Dim ps1,ps,page,url
Dim vip,title,bank,yxq,usermoney,ifpay,shenqing
set rs=server.createobject("adodb.recordset")
sql="select * from [56770_user] where user_id='"&session(""&cookiesname&"user_id")&"'"
rs.open sql, conn, 1, 1
If Not rs.eof Then 
jifen=rs("jifen")
yxq=rs("yxq")
'user_grade=rss("user_grade")
user_id=rs("user_id")
usermoney=rs("usermoney")
ifpay=rs("ifpay")
shenqing=rs("shenqing")
End If 
rs.close:set rs=Nothing

Dim num4,num5,num6
num1=conn.Execute("Select Count(ID) from [56770_orders] where user_id='"&session(""&cookiesname&"user_id")&"' and orderzt='0'")(0)
num2=conn.Execute("Select Count(ID) from [56770_orders] where user_id='"&session(""&cookiesname&"user_id")&"' and orderzt<>'0'")(0)
num4=conn.Execute("Select Count(ID) from [56770_action] where user_id='"&session(""&cookiesname&"user_id")&"'")(0)
num5=conn.Execute("Select Count(ID) from [56770_message] where user_id='"&session(""&cookiesname&"user_id")&"'")(0)
num6=conn.Execute("Select Count(ID) from [56770_message] where user_id='"&session(""&cookiesname&"user_id")&"' and ifre=1")(0)
Function numreplace(str)
	    If Isnull(Str) Then
	    	    numreplace = ""
	    	    Exit Function 
	    End If
        str=Replace(Str,"[num1]",num1)
		str=Replace(Str,"[num2]",num2)
		str=Replace(Str,"[num]",num1+num2)
		str=Replace(Str,"[num5]",num5)
		str=Replace(Str,"[num6]",num6)
		str=Replace(Str,"[num5+num6]",num5+num6)
		numreplace=str
End function
Select Case Request("action")
	Case "dingdan" : strwebtitle=www56770com_txt78
	Case "views" : strwebtitle=www56770com_txt78
	Case "modi" : strwebtitle=www56770com_txt74
	Case "msg" : strwebtitle=www56770com_txt76
	Case "writemsg" : strwebtitle=www56770com_txt76
	Case "wmsg" : strwebtitle=www56770com_txt76
	Case "vip_update" : strwebtitle=www56770com_word579
	Case "vip_update_yes" : strwebtitle=www56770com_word579
	Case "change_score" : strwebtitle=www56770com_txt79
	Case "change_score_yes" : strwebtitle=www56770com_txt79
	Case "shenqing" : strwebtitle=www56770com_txt75
	Case "shengqing_yes" : strwebtitle=www56770com_txt75
	Case "shoucang" : strwebtitle=www56770com_txt81
	Case "chongzhi" : strwebtitle=www56770com_word326
	Case "mingxi" : strwebtitle=www56770com_word619
	Case Else
		     strwebtitle=www56770com_word554
End Select
response.write c_skin_56770(c_skin_word(skin_head))
topmenu()
session("oldUrl")="./"
thisUrl="myuser.asp?action="&Request("action")&""
session("oldUrl")=thisUrl
If 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 
%>
<table width="<%=webwidth%>" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<%=c_skin_56770(c_skin_word(skin_myuser_left))%>
<td width="5"></td>
<td valign="top">
<%=c_skin_56770(c_skin_word(skin_myuser_ctop))%>
<%
dim action
Select Case Request("action")
	Case "dingdan" : dingdan()
	Case "views" : dingdanviews()
	Case "modi" : modi()
	Case "msg" : msg()
	Case "writemsg" : writemsg()
	Case "wmsg" : wmsg()
	Case "del_msg" : del_msg()
	Case "xgpass" : xgpass()
	Case "xgzl" : xgzl()
	Case "dell" : dell()
	Case "vip_update" : vip_update()
	Case "vip_update_yes" : vip_update_yes()
	Case "change_score" : change_score()
	Case "change_score_yes" : change_score_yes()
	Case "shenqing" : shenqing_pay()
	Case "shenqing_yes" : shenqing_yes()
	Case "shoucang" : shoucang()
	Case "shoucang_add" : shoucang_add()
	Case "shoucang_del" : shoucang_del()
	Case "chongzhi" : chongzhi()   rem 浼氬憳鍏呭