www.gusucode.com > 中网景企业网站源码时尚版 2009.73码程序 > english/inc_usercontent.asp

    <% Dim action,subtitle
action=Request.QueryString("action")
subtitle=Request("subtitle") %>
<div class="page_nav">
      <% = GetChannelNav(ChannelID,ThisLang)  %>
      <% If subtitle<>"" Then Response.Write(" -&gt; "&subtitle)%>
    </div>
    <div class="title pagetitle">
      <% If subtitle<>"" Then Response.Write(subtitle) Else Response.Write(GetChannelContent(ChannelID,"ChannelName"&iseng))%>
    </div>
    <div class="content">
      <% If username="" Then
		Select Case action
		Case "register"
		if isNewUser=0 then call alertmsg("Sorry, stop register")%>
      <script language="JavaScript" type="text/javascript" src="<%=UpDir%>common/date.js"></script>
	  <script src="<%=UpDir%>common/chkuser03.js" type="text/javascript"></script>
	<script type="text/javascript">

function checkLoginName(obj) {
	var name = sketch("username").trim() ;
	if(!name) {
		document.getElementById("span_UserName").innerHTML="<font color=red>Please input user name </font>";
		return false ;
	}
	var url = '<%=UpDir%>common/checkid.asp?username='+ encodeURIComponent(name) ;
	var data = "" ;
	var callback = updateCheckLoginName ;
	var extra = obj;
	obj.disabled = true; 
	//obj.innerHTML = '检测中'; //Can not use---Asean
	Request.reSend( url, data, callback , extra);  
}

function updateCheckLoginName(httpObj,extra) {
	var obj = httpObj.responseText;
	 if(obj == 2) {
		document.getElementById("span_UserName").innerHTML="<font color=red>Sorry, You can't use this user name</font>  &nbsp;  &nbsp; "; }
	if(obj == 1) {
		document.getElementById("span_UserName").innerHTML="<font color=green>Ok...You can use this user name!</font>  &nbsp;  &nbsp; ";}
	if(obj == 4) {
		document.getElementById("span_UserName").innerHTML="<font color=blue>Please input 2-20 characters</font>  &nbsp;  &nbsp; ";	}		
	extra.disabled = false ;
	//extra.innerHTML = '检查是否可用' ;//如果用按钮可以打开---Asean
}

	</script>
	
      <div class="formlist">
        <form id="regform" name="regform" method="post" action="<%=UpDir%>userinfo_save.asp" onSubmit="return registerform()">
          <div class="px14 strong">Must Input: </div>
          <ul>
            <li class="t1"><span class="red">*</span> User name: </li>
            <li class="t2">
              <input name="username" type="text" class="input" id="username" maxlength="20" onblur="checkLoginName(this);this.style.background='#EAF2FD';" onFocus="this.style.background='#FFFFDD'" />
          <!--<input name="check" type="button" class="button" onclick="checkLoginName(this);" value="check" />-->
		  <span id="span_UserName"></span>
          <span class="gray">2- 20 characters</span>
			</li>
          </ul>
          <ul>
            <li class="t1"><span class="red">*</span> Password: </li>
            <li class="t2">
              <input name="password" type="password" class="input" id="password" maxlength="20" onFocus="this.style.background='#FFFFDD'" onBlur="this.style.background='#EAF2FD';" />
              <span class="gray">6- 20 characters</span> </li>
          </ul>
          <ul>
            <li class="t1"><span class="red">*</span> Confirm Password: </li>
            <li class="t2">
              <input name="password2" type="password" class="input" id="password2" maxlength="20" onFocus="this.style.background='#FFFFDD'" onBlur="this.style.background='#EAF2FD';" />
              </span> </li>
          </ul>
          <ul>
            <li class="t1"><span class="red">*</span> Password question: </li>
            <li class="t2">
              <input name="pwd_question" type="text" class="input" id="pwd_question" maxlength="20"  onFocus="this.style.background='#FFFFDD'" onBlur="this.style.background='#EAF2FD';" />
              <span class="gray">Reset your password when your password is lose</span></li>
          </ul>
          <ul>
            <li class="t1"><span class="red">*</span> Password answer: </li>
            <li class="t2">
              <input name="pwd_answer" type="text" class="input" id="pwd_answer" maxlength="20" onFocus="this.style.background='#FFFFDD'" onBlur="this.style.background='#EAF2FD';" />
              <span class="gray">Reset your password when your password is lose</span></li>
          </ul>
          <div class="clearboth"></div>
          <div class="px14 strong">Option Input: </div>
          <ul>
            <li class="t1">True Name: </li>
            <li class="t2">
              <input name="truename" type="text" class="input" id="truename" maxlength="20" onFocus="this.style.background='#FFFFDD'" onBlur="this.style.background='#EAF2FD';" />
              <input name="sex" type="radio" value="1" checked="checked" />
              Mr.
              <input type="radio" name="sex" value="0" />
              Miss</li>
          </ul>
          <ul>
            <li class="t1"><span class="red">*</span> Birthday: </li>
            <li class="t2">
              <input name="birthday" type="text" class="input" id="birthday" readonly onClick="setday(this)" maxlength="10" onFocus="this.style.background='#FFFFDD'" onBlur="this.style.background='#EAF2FD';" />
              <span class="gray">example:1976-8-20</span></li>
          </ul>
          <ul>
            <li class="t1">ID card: </li>
            <li class="t2">
              <input name="idcard" type="text" class="input" id="idcard" maxlength="18" onFocus="this.style.background='#FFFFDD'" onBlur="this.style.background='#EAF2FD';" />
            </li>
          </ul>
          <ul>
            <li class="t1">Telephone: </li>
            <li class="t2">
              <input name="tel" type="text" class="input" maxlength="50" onFocus="this.style.background='#FFFFDD'" onBlur="this.style.background='#EAF2FD';" />
            </li>
          </ul>
          <ul>
            <li class="t1">Fax: </li>
            <li class="t2">
              <input name="fax" type="text" class="input" maxlength="50" onFocus="this.style.background='#FFFFDD'" onBlur="this.style.background='#EAF2FD';" />
            </li>
          </ul>
          <ul>
            <li class="t1">Mobile Phone: </li>
            <li class="t2">
              <input name="mobile" type="text" class="input" id="mobile" maxlength="50" onFocus="this.style.background='#FFFFDD'" onBlur="this.style.background='#EAF2FD';" />
            </li>
          </ul>
          <ul>
            <li class="t1"><span class="red">*</span> E-mail: </li>
            <li class="t2">
              <input name="email" type="text" class="input" id="email" size="30" maxlength="50" onFocus="this.style.background='#FFFFDD'" onBlur="this.style.background='#EAF2FD';" />
              <span class="gray">example: abc@site.com</span></li>
          </ul>
          <ul>
            <li class="t1">IM: </li>
            <li class="t2">
              <input name="UserIM" type="text" class="input" id="UserIM" size="30" maxlength="50" onFocus="this.style.background='#FFFFDD'" onBlur="this.style.background='#EAF2FD';" />
              <span class="gray">example: QQ: 12345678 or MSN: abc@site.com </span></li>
          </ul>
          <ul>
            <li class="t1">Address: </li>
            <li class="t2">
              <input name="address" type="text" class="input" id="address" size="40" maxlength="100" onFocus="this.style.background='#FFFFDD'" onBlur="this.style.background='#EAF2FD';" />
            </li>
          </ul>
          <ul>
            <li class="t1">My Intro: </li>
            <li class="t2">
              <textarea name="UserInfo" cols="50" rows="8" class="input" id="UserInfo" onFocus="this.style.background='#FFFFDD'" onBlur="this.style.background='#EAF2FD';"></textarea>
              <span class="gray">&lt;300 characters</span></li>
          </ul>
      <ul>
        <li class="t1">Validate:</li>
		<li class="t2"><input name="yzma" type="text" class="input" id="yzma" size="9" maxlength="50"> <img src="<%=UpDir%>common/code_en.asp"><!-- alt="验证码,看不清楚?请点击刷新验证码" style="cursor : pointer;" onclick="this.src='<%'=UpDir%>common/code.asp'" --></li>
      </ul>
          <!--<ul>
            <li class="t1">BBS sign: </li>
            <li class="t2">
              <textarea name="Sign" cols="50" rows="8" class="input" id="Sign" onFocus="this.style.background='#FFFFDD'" onBlur="this.style.background='#EAF2FD';"></textarea>
            </li>
          </ul>-->
          <ul>
            <li class="t1">&nbsp;
              <input name="action" type="hidden" id="action" value="addnew">
			  <input name="yuyan" type="hidden" id="action" value="1">
            </li>
            <li class="t2">
			  <% If isImgButton=0 Then %>
              <input name="Submit" type="submit" class="button" value="Submit" />
		  <% Else %>
          <input type="image" name="imageField" src="<%= UpDir %>images/button_submit_en.gif" />
		  <% End If %>
            </li>
          </ul>
        </form>
      </div>
	  <% Case "forgetpwd" 
  		Conn.execute("delete from Cnk_Record where riqi<>'"&date()&"'")
		dim faction,chkusername,chkpwdanswer,chkpwd,chkpassword,pwd_question,pwd_answer
		action=Request("action")
		chkusername=sqlchkchar(Request.Form("chkusername"))
		chkpwdanswer=sqlchkchar(Request.Form("chkpwdanswer"))
		chkpassword=sqlchkchar(request("password"))
		pwd_question=sqlchkchar(Request.Form("pwd_question"))
		pwd_answer=sqlchkchar(Request.Form("pwd_answer"))
		faction=Trim(Request("faction"))
		select case faction 
		Case "" %>
      <div class="formlist">
        <form name="fgform1" method="post" action="" onSubmit="return forgetpwd1();">
          <ul>
          <li class="t1">User name: </li>
          <li class="t2">
            <input name="chkusername" type="text" class="input" id="chkusername" onFocus="if (this.value=='user name') this.value='';" value="user name" maxlength="20">
          </li>
        </ul>
          <br />
          <br />
          <ul>
            <li class="t1">&nbsp;
              <input name="faction" type="hidden" id="faction" value="1">
              <input name="action" type="hidden" id="action" value="forgetpwd">
			  <input name="yuyan" type="hidden" id="action" value="1">
            </li>
            <li class="t2">
              <input type="button" name="Submit22" value="&lt;&lt; Previous" class="button" onClick="history.go(-1)">
            <input type="submit" name="Submit2" value="Next &gt;&gt;" class="button">
            </li>
          </ul>
          <br />
          <br />
          <br />
        </form>
      </div>
      <% Case "1"
   rs.open "select question from cnk_users where username='"&chkusername&"'",conn,1,3
   if rs.recordcount=0 then
    Call alertmsg("there is not this name")
	rs.close
   else
   session("chkusername")=chkusername
 %>
      <div class="formlist">
        <form name="fgform2" method="post" action="" onSubmit="return forgetpwd2();">
          <ul>
          <li class="t1">User name: </li>
          <li class="t2"><%= chkusername %></li>
        </ul>
        <ul>
          <li class="t1">Password question: </li>
          <li class="t2"><%= rs("question") %></li>
        </ul>
        <ul>
          <li class="t1">Password answer: </li>
          <li class="t2">
            <input name="chkpwdanswer" type="text" class="input" id="chkpwdanswer" maxlength="20">
          </li>
        </ul>
          <br />
          <br />
          <ul>
            <li class="t1">&nbsp;
              <input name="faction" type="hidden" id="faction" value="2">
			  <input name="yuyan" type="hidden" id="action" value="1">
              <input name="action" type="hidden" id="action" value="forgetpwd">
              <input name="chkusername" type="hidden" id="chkusername" value="<%= chkusername %>">
            </li>
            <li class="t2">
              <input type="button" name="Submit22" value="&lt;&lt;Previous" class="button" onClick="history.go(-1)">
            <input type="submit" name="Submit" value="Next&gt;&gt;" class="button">
            </li>
          </ul>
          <br />
          <br />
        </form>
      </div>
      <% End If %>
      <% Case "2"
	if chkusername<>session("chkusername") then call alertmsg("invalid user name")
Dim qapwd,pn,pnn
pn=GetPasswordNum
if pn>0 then
	rs.open "select GetPwdTimes from Cnk_Record where username='"&chkusername&"' and riqi='"&date()&"'",conn,1,3
	if not rs.eof then
		if rs("GetPwdTimes")>pn then Call alertmsg("Sorry, you can not operate today, please try again tomorrow.")
	end if
end if
set qapwd=conn.execute("select answer from cnk_users where username='"&chkusername&"'")  
if (qapwd(0)<>MD5(chkpwdanswer)) then
	if pn>0 then
		Dim rrs
		set rrs=conn.execute("select count(*) from Cnk_Record where username='"&chkusername&"' and riqi='"&date()&"'")
		if rrs(0)=0 then
			Conn.execute("insert into Cnk_Record (username,riqi,GetPwdTimes,IP) values ('"&chkusername&"','"&date()&"',1,'"&GetRealIP()&"')")
		else
			Conn.execute("update Cnk_Record set GetPwdTimes=GetPwdTimes+1 where username='"&chkusername&"' and riqi='"&date()&"'")
		end if
		pnn="you have "&pn&" times to get back password"
	end if
	Call alertmsg("invalid password"&pnn)
else%>
      <div class="formlist">
        <form name="fgform3" method="post" action="" onSubmit="return forgetpwd3();">
          <ul>
          <li class="t1">Input a new password: </li>
          <li class="t2">
            <input name="password" type="password" class="input" id="password" maxlength="20">
            6-20字符</li>
        </ul>
        <ul>
          <li class="t1">Input a confirm password: </li>
          <li class="t2">
            <input name="password2" type="password" class="input" id="password2" maxlength="20">
            6-20字符</li>
        </ul>
        <ul>
          <li class="t1">Password question: </li>
          <li class="t2">
            <input name="pwd_question" type="text" class="input" id="pwd_question" maxlength="20">
            <span class="gray">if you modify</span></li>
        </ul>
        <ul>
          <li class="t1">Password answer: </li>
          <li class="t2">
            <input name="pwd_answer" type="text" class="input" id="pwd_answer" maxlength="20">
            <span class="gray">if you modify</span></li>
        </ul>
          <br />
          <br />
          <ul>
            <li class="t1">&nbsp;
              <input name="faction" type="hidden" id="faction" value="3">
			  <input name="yuyan" type="hidden" id="action" value="1">
              <input name="action" type="hidden" id="action" value="forgetpwd">
              <input name="chkusername" type="hidden" id="chkusername" value="<%= chkusername %>">
            </li>
            <li class="t2">
              <input type="button" name="Submit22" value="&lt;&lt;Previous" class="button" onClick="history.go(-1)">
            <input type="submit" name="Submit" value="Next&gt;&gt;" class="button">
            </li>
          </ul>
        </form>
      </div>
      <% End If %>
      <%Case "3"
	if chkusername<>session("chkusername") then call alertmsg("invalid user name")
rs.open "select UserPassword,question,answer from cnk_users where username='"&chkusername&"'",conn,1,3
rs("UserPassword")=MD5(chkpassword)
if pwd_question<>"" then rs("question")=pwd_question
if pwd_answer<>"" then rs("answer")=MD5(pwd_answer)
rs.update
rs.Close
set rs=nothing
%>
      <br />
      <br />
      <div align="center">Succeed!  <br />
        <br />
        Please remember your new password!  <br />
        <br />
        <a href="users.asp">Sign in</a> | <a href="index.asp">Home</a> </div>
      <br />
      <br />
      <br />
      <br />
      <% End Select %>
      <%Case Else%>
      <div class="formlist">
		<form id="loginform" name="loginform" method="post" action="<%=UpDir%>access.asp" onSubmit="return userloginform()">
          <ul>
            <li class="t1"> *** &nbsp;</li>
            <li class="t2"> Please sign in for more services! ***</li>
          </ul>
          <ul>
            <li class="t1"> User name : </li>
            <li class="t2">
              <input name="username" type="text" class="input" id="username" maxlength="20" />&nbsp;
              </li>
          </ul>
          <ul>
            <li class="t1"> Password : </li>
            <li class="t2">
              <input name="password" type="password" class="input" id="password" maxlength="20" />&nbsp;
              </li>
          </ul>
		  <br />
          <ul>
            <li class="t1">
			  <input name="yuyan" type="hidden" id="action" value="1">&nbsp;</li>
            <li class="t2">
          <% If isImgButton=0 Then %>
		  <input name="Submit" type="submit" class="button" value="Sign in" /> &nbsp; &nbsp;  
			 <input name="Submit" type="button" class="button" value="Forget password?" onclick="window.open('users.asp?action=forgetpwd');" /> &nbsp; &nbsp; 
			 <input name="Submit" type="button" class="button" value="Register" onclick="window.open('users.asp?action=register');" /> &nbsp; &nbsp;
			 <input name="Submit" type="button" class="button" value="Back" onclick="history.go(-1);" /> &nbsp; &nbsp;
			 &nbsp;
		  <% Else %>
		  <input type="image" name="imageField" src="<%=UpDir%>images/button_signin_en.gif" />
		  <a href="javascript:void(0);" onclick="window.open('users.asp?action=forgetpwd');"><img src="<%=UpDir%>images/button_fgpwd_en.gif" border="0" /></a>
		  <a href="javascript:void(0);" onclick="window.open('users.asp?action=register');"><img src="<%=UpDir%>images/button_register_en.gif" border="0" /></a>
		  <a href="javascript:void(0);" onclick="history.go(-1);"><img src="<%=UpDir%>images/button_back_en.gif" border="0" /></a>
		  <% End If %>
              </li>
          </ul>
		  </form>
      </div>
	<%End Select%>
	<%Else
		Select Case action
		Case "modiinfo"
		rs.open "select * from cnk_users where username='"&username&"'",conn,1,1%>
      <div class="formlist">
        <form id="modiform" name="modiform" method="post" action="<%=UpDir%>userinfo_save.asp" onSubmit="return usermodiform()">
          <ul>
            <li class="t1">True Name: </li>
            <li class="t2">
              <input name="truename" type="text" class="input" id="truename" value="<%=rs("truename")%>" maxlength="20">
              <input name="sex" type="radio" value="1" <%if rs("sex")=1 then Response.Write"checked"%>>
              Mr.
              <input type="radio" name="sex" value="0" <%if rs("sex")=0 then Response.Write"checked"%>>
              Miss</li>
          </ul>
          <ul>
            <li class="t1">Birthday: </li>
            <li class="t2">
              <input name="birthday" type="text" class="input" id="birthday" value="<%=rs("birthday")%>" maxlength="10">
              <span class="gray">example:1976-8-20</span> </li>
          </ul>
          <ul>
            <li class="t1">ID Card: </li>
            <li class="t2">
              <input name="idcard" type="text" class="input" id="idcard" value="<%=rs("idcard")%>" maxlength="18">
            </li>
          </ul>
          <ul>
            <li class="t1">Telephone: </li>
            <li class="t2">
              <input name="tel" type="text" class="input" value="<%=rs("tel")%>" maxlength="50">
            </li>
          </ul>
          <ul>
            <li class="t1">Fax: </li>
            <li class="t2">
              <input name="fax" type="text" class="input" value="<%=rs("fax")%>" maxlength="50">
            </li>
          </ul>
          <ul>
            <li class="t1">Mobile phone: </li>
            <li class="t2">
              <input name="mobile" type="text" class="input" value="<%=rs("mobile")%>" id="mobile" maxlength="50">
            </li>
          </ul>
          <ul>
            <li class="t1">E-mail: </li>
            <li class="t2">
              <input name="email" type="text" class="input" value="<%=rs("email")%>" id="email" size="30" maxlength="50">
              <span class="gray">example: abc@site.com</span></li>
          </ul>
          <ul>
            <li class="t1">IM: </li>
            <li class="t2">
              <input name="UserIM" type="text" class="input" id="UserIM" value="<%=rs("UserIM")%>" size="30" maxlength="50">
              <span class="gray">example: QQ: 12345678 or MSN: abc@site.com </span></li>
          </ul>
          <ul>
            <li class="t1">Address: </li>
            <li class="t2">
              <input name="address" type="text" class="input" id="address" value="<%=rs("address")%>" size="40" maxlength="100">
            </li>
          </ul>
          <ul>
            <li class="t1">My Intro: </li>
            <li class="t2">
              <textarea name="UserInfo" cols="50" rows="8" class="input" id="UserInfo"><%=rs("UserInfo")%></textarea>
              <span class="gray">&lt;300 characters</span></li>
          </ul>
          <ul>
            <li class="t1">My sign: </li>
            <li class="t2">
              <textarea name="Sign" cols="50" rows="8" class="input" id="Sign"><%=rs("Sign")%></textarea>
            </li>
          </ul>
          <ul>
            <li class="t1">&nbsp;
              <input name="UserID" type="hidden" id="UserID" value="<%=rs("UserID")%>">
              <input name="action" type="hidden" id="action" value="Modi">
			  <input name="yuyan" type="hidden" id="action" value="1">
            </li>
            <li class="t2">
          <% If isImgButton=0 Then %>
              <input name="Submit" type="submit" class="button" value="Submit">
              <input name="Submit" type="button" class="button" onClick="history.go(-1);" value="BACK">
		  <% Else %>
		  <input type="image" name="imageField" src="<%=UpDir%>images/button_submit_en.gif" />
		  <a href="javascript:void(0);" onclick="history.go(-1);"><img src="<%=UpDir%>images/button_back_en.gif" border="0" /></a>
		  <% End If %>
            </li>
          </ul>
        </form>
      </div>
      <%Case "modipwd" %>
      <div class="formlist">
        <form id="mpwdform" name="mpwdform" method="post" action="<%=UpDir%>userinfo_save.asp" onSubmit="return modipwdform()">
          <ul>
            <li class="t1"><span class="redfont">*</span>Source password: </li>
            <li class="t2">
              <input name="old_pwd" type="password" class="input" id="old_pwd" maxlength="20">
            </li>
          </ul>
          <ul>
            <li class="t1"><span class="redfont">*</span>New password: </li>
            <li class="t2">
              <input name="password" type="password" class="input" id="password" maxlength="20">
            </li>
          </ul>
          <ul>
            <li class="t1"><span class="redfont">*</span>confirm new password: </li>
            <li class="t2">
              <input name="password2" type="password" class="input" id="password2" maxlength="20">
            </li>
          </ul>
          <ul>
            <li class="t1">Password question: </li>
            <li class="t2">
              <input name="pwd_question" type="text" class="input" id="pwd_question" maxlength="20">
              <span class="gray">if you modify</span></li>
          </ul>
          <ul>
            <li class="t1">Password answer: </li>
            <li class="t2">
              <input name="pwd_answer" type="text" class="input" id="pwd_answer" maxlength="20">
              <span class="gray">if you modify</span></li>
          </ul>
          <ul>
            <li class="t1">&nbsp;
              <input name="action" type="hidden" id="action" value="Modipwd">
			  <input name="yuyan" type="hidden" id="action" value="1">
            </li>
            <li class="t2">
              <% If isImgButton=0 Then %>
              <input name="Submit" type="submit" class="button" value="Submit">
              <input name="Submit" type="button" class="button" onClick="history.go(-1);" value="BACK">
		  <% Else %>
		  <input type="image" name="imageField" src="<%=UpDir%>images/button_submit_en.gif" />
		  <a href="javascript:void(0);" onclick="history.go(-1);"><img src="<%=UpDir%>images/button_back_en.gif" border="0" /></a>
		  <% End If %>
            </li>
          </ul>
        </form>
      </div>
      <%Case "myorder"
	  dim delorderid,zhuangtai,alltotalprice,buyer_name,buyer_address,buyer_postcode,buyer_tel,buyer_msg,bizhong
	  delorderid=Trim(Request.QueryString("delorderid"))
	  if delorderid<>"" then
	  	delorderid=sqlchkchar(delorderid)
		conn.execute("delete from cnk_orderform where orderid='"&delorderid&"' and username='"&username&"' and zhuangtai=0")
	  	'conn.execute("delete from cnk_orderdetail where orderid='"&delorderid&"'")
	  end if
	  Call ShowMyOrderList(userid,1,action,subtitle)
	  
	  Case "myorderdetail"
	  Call DisableOutSite()
	  dim orderid
	  orderid=sqlchkchar(Trim(Request.QueryString("orderid")))
	  rs.open "select * from cnk_orderform where orderid='"&orderid&"' and userid="&userid,conn,1,1
	  zhuangtai=rs("zhuangtai")
	  alltotalprice=rs("alltotalprice")
	  buyer_name=rs("username")
	  buyer_address=rs("address")
	  buyer_postcode=rs("postcode")
	  buyer_tel=rs("tel")
	  buyer_msg=rs("note")
	  bizhong=rs("bizhong")
	  %>
      <div class="cnktable">
        <table border="0" align="center" cellpadding="2" cellspacing="1">
          <tr align="left">
            <td width="16%" class="tabletitle">Order number</span></td>
            <td width="34%"><span class="red strong"><%= orderid %></span></td>
            <td width="16%" class="tabletitle">Order state</td>
            <td width="34%"><span class="red strong"><%= OrderStateName_en(zhuangtai) %></span></td>
          </tr>
          <tr align="left">
            <td class="tabletitle">Order date</td>
            <td><%= zhuan_time(rs("initime")) %></td>
            <td class="tabletitle">company</td>
            <td><%= rs("company") %></td>
          </tr>
          <tr align="left">
            <td class="tabletitle">Consignee</td>
            <td><%= buyer_name %></td>
            <td class="tabletitle">Post code</td>
            <td><%= buyer_postcode %></td>
          </tr>
          <tr align="left">
            <td class="tabletitle">Telephone</td>
            <td><%= buyer_tel %></td>
            <td class="tabletitle">totalprice</td>
            <td><%= bizhong&" "&rs("totalprice") %></td>
          </tr>
          <tr align="left">
            <td class="tabletitle">E-mail</td>
            <td><%= rs("email") %></td>
            <td class="tabletitle">Freight</td>
            <td><%= bizhong&" "&rs("sendpay") %></td>
          </tr>
          <tr align="left">
            <td class="tabletitle">Address</td>
            <td><%= buyer_address %></td>
            <td class="tabletitle">Discount</td>
            <td><%= bizhong&" "&rs("discount") %></td>
          </tr>
          <tr align="left">
            <td class="tabletitle">Remark</td>
            <td><%= buyer_msg %></td>
            <td class="tabletitle">Totalprice</td>
            <td><span class="red strong"><%= bizhong&" "&alltotalprice %></span></td>
          </tr>
        </table>
        <br />
        <table border="0" align="center" cellpadding="2" cellspacing="1">
          <tr class="tabletitle">
            <td width="9%"> No.</td>
            <td width="33%"> Item</td>
            <td width="17%"> QTY</td>
            <td width="21%">Price</td>
            <td width="20%">Total</td>
          </tr>
          <% rs.close
	   dim bh,totalcount,totalone,totalprice
	   bh=1
	   totalcount=0
	   totalprice=0
	  rs.open "select cnk_orderdetail.id,cnk_orderdetail.orderid,cnk_orderdetail.quantity,cnk_orderdetail.pid,cnk_orderdetail.price,cnk_products.product_model,cnk_products.product_name_en from cnk_orderdetail,cnk_products where cnk_orderdetail.pid=cnk_products.id and cnk_orderdetail.orderid='"&orderid&"' order by cnk_orderdetail.id",conn,1,1 
	do while not rs.eof
	totalone=rs("price")*rs("quantity")
	%>
          <tr>
            <td><%= bh %></td>
            <td><a href="product.asp?id=<%= rs("pid") %>" target="_blank"><%= rs("product_name_en") %></a></td>
            <td><%= rs("quantity") %></td>
            <td><%=  bizhong&" "&rs("price") %></td>
            <td><%= totalone %></td>
          </tr>
          <% totalcount=totalcount+rs("quantity")
	  totalprice=totalprice+totalone
	bh=bh+1	
	rs.movenext
	loop
	rs.close %>
          <tr>
            <td height="38" colspan="5"><font color="#FF0000"><strong><%= totalcount %></strong></font> Item(s), Totalprice:  <font color="#FF0000"><strong><%= bizhong&" "&totalprice %></strong></font> </td>
          </tr>
        </table>
		<% If zhuangtai=0 Then %>
   		 <!--#include file="pay.asp" -->
    	<% End If %>
      </div>
      <%Case "myfavorite"
	  		Dim delid
			delid=Trim(Request.QueryString("delid"))
			if delid<>"" then
				Call IsNum(delid)
				Call delfavorite(delid)
			end if
	  		Response.Write(GetFavorite(username,action,1))
	  
	  Case "myguestbook"%>
      <div class="formlist">
        <form id="gbform" name="gbform" method="post" action="<%=UpDir%>userinfo_save.asp" onsubmit="return usergbform();">
          <ul>
            <li class="t1">Subject: </li>
            <li class="t2">
              <input name="title" type="text" class="input" id="title" size="30" maxlength="50" />
            </li>
          </ul>
          <ul>
            <li class="t1"><span class="red">*</span> Content: </li>
            <li class="t2">
              <textarea name="content" cols="50" rows="6" id="content" class="input"></textarea>
            </li>
          </ul>
          <ul>
            <li class="t1">&nbsp;
              <input name="action" type="hidden" id="action" value="savefeed" />
			  <input name="yuyan" type="hidden" id="action" value="1">
            </li>
            <li class="t2">
              <input type="submit" name="Submit" class="button" value="Submit" />
            </li>
          </ul>
        </form>
      </div>
      <div class="clearboth"></div>
      <% Response.Write(GetFeedback(username,1,action,subtitle)) 
	  
		Case Else
		Response.Write("<div class=""userinfobox"">Your Class: "&GetWebLevelName_en(weblevel)&"</div>"&vbcrlf)
		'Response.Write("	 <div class=""userinfobox"">您的积分: "&GetWebLevelName(weblevel)&"</div>"&vbcrlf)
		'Response.Write("	 <div class=""userinfobox"">您的级别: "&GetWebLevelName(weblevel)&"</div>"&vbcrlf)
		'Response.Write("	 <div class=""userinfobox"">您的余额: "&GetWebLevelName(weblevel)&"</div>"&vbcrlf)
		If GetChannelContent(3,"isStop")=0 and isShop>0 Then Response.Write("	 <div class=""userinfobox""><a href=""?action=myorder&subtitle=My order QTY"">My order QTY: "&GetOrderNum(username)&"</a></div>"&vbcrlf)
		Response.Write("	 <div class=""userinfobox""><a href=""?action=myguestbook&subtitle=My Guestbook"">My Guestbook</a></div>"&vbcrlf)
		Response.Write("	 <div class=""userinfobox""><a href=""?action=modiinfo&subtitle=Edit My Information"">Edit My Information</a></div>"&vbcrlf)
		Response.Write("	 <div class=""userinfobox""><a href=""?action=modipwd&subtitle=Modify Password"">Modify Password</a></div>"&vbcrlf)
		Response.Write("	 <div class=""userinfobox""><a href=""?action=myfavorite&subtitle=My Favorite"">My Favorite</a></div>"&vbcrlf)
		If GetChannelContent(3,"isStop")=0 and isFavorite=1 Then Response.Write("	 <div class=""userinfobox""><a href="""&UpDir&"logout.asp"">Logout</a></div>"&vbcrlf)
		Response.Write("	 <div class=""clearboth""></div>"&vbcrlf)

	  End Select
	End If
	 %>
    </div>