www.gusucode.com > 中网景企业网站源码时尚版 2009.73码程序 > chinese/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("暂停注册! 请等待开放注册后再注册")
%>
  <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>请输入用户名!</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>这个用户名已被注册! 请重新输入</font>  &nbsp;  &nbsp; "; }
	if(obj == 1) {
		document.getElementById("span_UserName").innerHTML="<font color=green>Ok...此用户名可以注册!</font>  &nbsp;  &nbsp; ";}
	if(obj == 4) {
		document.getElementById("span_UserName").innerHTML="<font color=blue>用户名不能少于2个字符!</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()">
      <ul>
        <li class="t1"><span class="px14 strong">必填资料:</span></li>
        <li class="t2"> &nbsp;</li>
      </ul>
	  <ul>
        <li class="t1"><span class="red">*</span> 用户名:</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="检查是否可用" />-->
		  <span id="span_UserName"></span>
          <span class="gray">2- 20 字符字母或数字</span></li>
      </ul>
      <ul>
        <li class="t1"><span class="red">*</span> 密码:</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 字符字母或数字</span> </li>
      </ul>
      <ul>
        <li class="t1"><span class="red">*</span> 确认密码:</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> 密码问题:</li>
        <li class="t2">
          <select name="pwd_question" class="input" id="pwd_question">
			<option value="">- 选择一个问题 -</option>
			<option value="您的宠物的名字?"  >我的宠物的名字?</option>
			<option value="您就读的第一所学校的名称?"  >我就读的第一所学校的名称?</option>
			<option value="少年时代心目中的英雄是谁?"  >我少年时代心目中的英雄是谁?</option>
			<option value="您最喜欢的休闲运动是什么?"  >我最喜欢的休闲运动是什么?</option>
			<option value="您最喜欢哪支运动队?"  >我最喜欢哪支运动队?</option>
			<option value="您最喜欢的运动员是谁?"  >我最喜欢的运动员是谁?</option>
			<option value="高中的校训是什么?"  >我的出生地是?</option>
			<option value="您的第一辆汽车或自行车是什么牌子的?"  >我的第一辆汽车或自行车是什么牌子的?</option>
		</select>
        <span class="gray">忘记密码的提示问题</span></li>
      </ul>
      <ul>
        <li class="t1"><span class="red">*</span> 密码答案:</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">忘记密码的提示问题答案,用于取回密码</span></li>
      </ul>
      <ul>
        <li class="t1"><span class="px14 strong">可选填资料:</span></li>
        <li class="t2"> &nbsp;</li>
      </ul>
      <ul>
        <li class="t1">姓名:</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';" />
          <label for="male"><input name="sex" id="male" type="radio" value="1" checked="checked" /> 先生</label>
          <label for="female"><input name="sex" id="female" type="radio" value="0" /> 小姐/女士</label></li>
      </ul>
      <ul>
        <li class="t1"><span class="red">*</span> 出生日期:</li>
        <li class="t2">
          <input name="birthday" type="text" class="input" id="birthday" onClick="setday(this)" maxlength="10" onFocus="this.style.background='#FFFFDD'" onBlur="this.style.background='#EAF2FD';" />
          <span class="gray">格式如:1976-8-20</span></li>
      </ul>
      <ul>
        <li class="t1">身份证号码:</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';" />
          &nbsp; </li>
      </ul>
      <ul>
        <li class="t1">电话:</li>
        <li class="t2">
          <input name="tel" type="text" class="input" maxlength="50" onFocus="this.style.background='#FFFFDD'" onBlur="this.style.background='#EAF2FD';" />
          &nbsp; </li>
      </ul>
      <ul>
        <li class="t1">传真:</li>
        <li class="t2">
          <input name="fax" type="text" class="input" maxlength="50" onFocus="this.style.background='#FFFFDD'" onBlur="this.style.background='#EAF2FD';" />
          &nbsp;</li>
      </ul>
      <ul>
        <li class="t1">手机:</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';" />
          &nbsp; </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">格式如:abc@site.com</span></li>
      </ul>
      <ul>
        <li class="t1">即时通讯:</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">如:QQ:12345678 或 MSN 等 </span></li>
      </ul>
      <ul>
        <li class="t1">地址:</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';" />
          &nbsp;</li>
      </ul>
      <ul>
        <li class="t1">个人介绍:</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字</span></li>
      </ul>
      <ul>
        <li class="t1">验证字:</li>
		<li class="t2"><input name="yzma" type="text" class="input" id="yzma" size="9" maxlength="50"> <img src="<%=UpDir%>common/code.asp"><!-- alt="验证码,看不清楚?请点击刷新验证码" style="cursor : pointer;" onclick="this.src='<%'=UpDir%>common/code.asp'" --></li>
      </ul>
      <ul>
        <li class="t1">&nbsp;
          <input name="action" type="hidden" id="action" value="addnew">
		  <input name="yuyan" type="hidden" id="action" value="0">
		  <input name="accesstype" type="hidden" value="SaveUserInfo" />
        </li>
        <li class="t2">
          <% If isImgButton=0 Then %>
		  <input name="Submit" type="submit" class="button" value="提交" />
		  <% Else %>
          <input type="image" name="imageField" src="<%= UpDir %>images/button_submit.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">输入您的登录名:</li>
            <li class="t2">
              <input name="chkusername" type="text" class="input" id="chkusername" onFocus="if (this.value=='用户名') this.value='';" value="用户名" 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="0">
            </li>
            <li class="t2">
              <input type="button" name="Submit22" value="&lt;&lt;上一步" class="button" onClick="history.go(-1)">
              <input type="submit" name="Submit2" value="下一步&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("不存在的用户名!")
	rs.close
   else
   session("chkusername")=chkusername
 %>
      <div class="formlist">
        <form name="fgform2" method="post" action="" onSubmit="return forgetpwd2();">
          <ul>
            <li class="t1">您的用户名:</li>
            <li class="t2"><%= chkusername %></li>
          </ul>
          <ul>
            <li class="t1">密码问题:</li>
            <li class="t2"><%= rs("question") %></li>
          </ul>
          <ul>
            <li class="t1">密码答案:</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="0">
              <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;上一步" class="button" onClick="history.go(-1)">
              <input type="submit" name="Submit" value="下一步&gt;&gt;" class="button">
            </li>
          </ul>
          <br />
          <br />
        </form>
      </div>
      <% End If %>
      <% Case "2"
	if chkusername<>session("chkusername") then call alertmsg("用户名错误")
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("今天你已经用完"&pn&"次取回密码,明天再来试")
	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="共有"&pn&"次机会"
	end if
	Call alertmsg("密码答案错误!!"&pnn)
else%>
      <div class="formlist">
        <form name="fgform3" method="post" action="" onSubmit="return forgetpwd3();">
          <ul>
            <li class="t1">设置新密码:</li>
            <li class="t2">
              <input name="password" type="password" class="input" id="password" maxlength="20">
              6-20字符</li>
          </ul>
          <ul>
            <li class="t1">确认新密码:</li>
            <li class="t2">
              <input name="password2" type="password" class="input" id="password2" maxlength="20">
              6-20字符</li>
          </ul>
          <ul>
            <li class="t1">设置新问题:</li>
            <li class="t2">
              <input name="pwd_question" type="text" class="input" id="pwd_question" maxlength="20">
              不改请留空</li>
          </ul>
          <ul>
            <li class="t1">设置新答案:</li>
            <li class="t2">
              <input name="pwd_answer" type="text" class="input" id="pwd_answer" maxlength="20">
              不改请留空</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="0">
              <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;上一步" class="button" onClick="history.go(-1)">
              <input type="submit" name="Submit" value="下一步&gt;&gt;" class="button">
            </li>
          </ul>
        </form>
      </div>
      <% End If %>
      <%Case "3"
	if chkusername<>session("chkusername") then call alertmsg("用户名错误")
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">密码修改成功! <br />
        <br />
        请牢记您的密码! <br />
        <br />
        <a href="users.asp">到登录页</a> | <a href="index.asp">返回首页</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"> 请您登录才能享有本站更多的服务! ***</li>
      </ul>
      <ul>
        <li class="t1"> 用户名:</li>
        <li class="t2">
          <input name="username" type="text" class="input" id="username" maxlength="20" />
          &nbsp; </li>
      </ul>
      <ul>
        <li class="t1"> 密码:</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="0">
		  <input name="accesstype" type="hidden" value="Login" />&nbsp;</li>
        <li class="t2">
          <% If isImgButton=0 Then %>
		  <input name="Submit" type="submit" class="button" value="登录" />
          &nbsp; &nbsp;
          <input name="Submit" type="button" class="button" value="忘记密码?" onclick="window.open('users.asp?action=forgetpwd');" />
          &nbsp; &nbsp;
          <input name="Submit" type="button" class="button" value="注册" onclick="window.open('users.asp?action=register');" />
          &nbsp; &nbsp;
          <input name="Submit" type="button" class="button" value="返回" onclick="history.go(-1);" />
          &nbsp; &nbsp;
          &nbsp; 
		  <% Else %>
		  <input type="image" name="imageField" src="<%=UpDir%>images/button_signin.gif" />
		  <a href="javascript:void(0);" onclick="window.open('users.asp?action=forgetpwd');"><img src="<%=UpDir%>images/button_fgpwd.gif" border="0" /></a>
		  <a href="javascript:void(0);" onclick="window.open('users.asp?action=register');"><img src="<%=UpDir%>images/button_register.gif" border="0" /></a>
		  <a href="javascript:void(0);" onclick="history.go(-1);"><img src="<%=UpDir%>images/button_back.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%>access.asp" onSubmit="return usermodiform()">
      <ul>
        <li class="t1">姓名:</li>
        <li class="t2">
          <input name="truename" type="text" class="input" id="truename" value="<%=rs("truename")%>" maxlength="20">
          <label for="male"><input name="sex" id="male" type="radio" value="1" <%if rs("sex")=1 then Response.Write("checked=""checked""")%> /> 先生</label>
          <label for="female"><input name="sex" id="female" type="radio" value="0" <%if rs("sex")=0 then Response.Write("checked=""checked""")%> /> 小姐/女士</label>
        </li>
      </ul>
      <ul>
        <li class="t1">出生日期:</li>
        <li class="t2">
          <input name="birthday" type="text" class="input" id="birthday" value="<%=rs("birthday")%>" maxlength="10">
          <span class="gray">格式如:1976-8-20</span> </li>
      </ul>
      <ul>
        <li class="t1">身份证号码:</li>
        <li class="t2">
          <input name="idcard" type="text" class="input" id="idcard" value="<%=rs("idcard")%>" maxlength="18">
        </li>
      </ul>
      <ul>
        <li class="t1">电话:</li>
        <li class="t2">
          <input name="tel" type="text" class="input" value="<%=rs("tel")%>" maxlength="50">
        </li>
      </ul>
      <ul>
        <li class="t1">传真:</li>
        <li class="t2">
          <input name="fax" type="text" class="input" value="<%=rs("fax")%>" maxlength="50">
        </li>
      </ul>
      <ul>
        <li class="t1">手机:</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">格式如:abc@site.com</span></li>
      </ul>
      <ul>
        <li class="t1">即时通讯:</li>
        <li class="t2">
          <input name="UserIM" type="text" class="input" id="UserIM" value="<%=rs("UserIM")%>" size="30" maxlength="50">
          <span class="gray">如:QQ:12345678 或 MSN 等 </span></li>
      </ul>
      <ul>
        <li class="t1">地址:</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">个人介绍:</li>
        <li class="t2">
          <textarea name="UserInfo" cols="50" rows="8" class="input" id="UserInfo"><%=rs("UserInfo")%></textarea>
          <span class="gray">&lt;300字</span></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="0" />
		  <input name="accesstype" type="hidden" value="SaveUserInfo" />
        </li>
        <li class="t2">
          <% If isImgButton=0 Then %>
		  <input name="Submit" type="submit" class="button" value="提交">
          <input name="Submit" type="button" class="button" onClick="history.go(-1);" value="返回">
		  <% Else %>
		  <input type="image" name="imageField" src="<%=UpDir%>images/button_submit.gif" />
		  <a href="javascript:void(0);" onclick="history.go(-1);"><img src="<%=UpDir%>images/button_back.gif" border="0" /></a>
		  <% End If %>
        </li>
      </ul>
    </form>
  </div>
  <%Case "modipwd"%>
  <div class="formlist">
    <form id="mpwdform" name="mpwdform" method="post" action="<%=UpDir%>access.asp" onSubmit="return modipwdform()">
      <ul>
        <li class="t1"><span class="redfont">*</span>原密码:</li>
        <li class="t2">
          <input name="old_pwd" type="password" class="input" id="old_pwd" maxlength="20">
          &nbsp;</li>
      </ul>
      <ul>
        <li class="t1"><span class="redfont">*</span>新密码:</li>
        <li class="t2">
          <input name="password" type="password" class="input" id="password" maxlength="20">
          &nbsp;</li>
      </ul>
      <ul>
        <li class="t1"><span class="redfont">*</span>确认密码:</li>
        <li class="t2">
          <input name="password2" type="password" class="input" id="password2" maxlength="20">
          &nbsp;</li>
      </ul>
      <ul>
        <li class="t1">密码问题:</li>
        <li class="t2">
          <input name="pwd_question" type="text" class="input" id="pwd_question" maxlength="20">
          <span class="gray">不修改请不要输入</span></li>
      </ul>
      <ul>
        <li class="t1">密码答案:</li>
        <li class="t2">
          <input name="pwd_answer" type="text" class="input" id="pwd_answer" maxlength="20">
          <span class="gray">不修改请不要输入</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="0" />
		  <input name="accesstype" type="hidden" value="SaveUserInfo" />
        </li>
        <li class="t2">
		  <% If isImgButton=0 Then %>
		  <input name="Submit" type="submit" class="button" value="提交">
          <input name="Submit" type="button" class="button" onClick="history.go(-1);" value="返回">
		  <% Else %>
		  <input type="image" name="imageField" src="<%=UpDir%>images/button_submit.gif" />
		  <a href="javascript:void(0);" onclick="history.go(-1);"><img src="<%=UpDir%>images/button_back.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_email,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
	  Response.Write(GetMyOrderList(userid,0,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_email=rs("email")
	  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">订单号</td>
        <td width="34%"><span class="red strong"><%= orderid %></span></td>
        <td width="16%" class="tabletitle">订单状态</td>
        <td width="34%"><span class="red strong"><%= OrderStateName(zhuangtai) %></span></td>
      </tr>
      <tr align="left">
        <td class="tabletitle">订单日期</td>
        <td><%= zhuan_time(rs("initime")) %></td>
        <td class="tabletitle">单位(公司)名称</td>
        <td><%= rs("company") %></td>
      </tr>
      <tr align="left">
        <td class="tabletitle">收货人</td>
        <td><%= buyer_name %></td>
        <td class="tabletitle">邮编</td>
        <td><%= buyer_postcode %></td>
      </tr>
      <tr align="left">
        <td class="tabletitle">电话</td>
        <td><%= buyer_tel %></td>
        <td class="tabletitle">商品总价</td>
        <td><%= bizhong&" "&rs("totalprice") %></td>
      </tr>
      <tr align="left">
        <td class="tabletitle">E-mail</td>
        <td><%= rs("email") %></td>
        <td class="tabletitle">运费</td>
        <td><%= bizhong&" "&rs("sendpay") %></td>
      </tr>
      <tr align="left">
        <td class="tabletitle">地址</td>
        <td><%= buyer_address %></td>
        <td class="tabletitle">卖家折扣</td>
        <td><%= bizhong&" "&rs("discount") %></td>
      </tr>
      <tr align="left">
        <td class="tabletitle">备注说明</td>
        <td><%= buyer_msg %></td>
        <td class="tabletitle">总计金额</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%"> 编号</td>
        <td width="33%"> 产品名称</td>
        <td width="17%"> 数量</td>
        <td width="21%">单价</td>
        <td width="20%">小计</td>
      </tr>
      <% rs.close
	   dim bh,totalcount,totalone,totalprice,product_name
	   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 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")
	product_name = rs("product_name")
	%>
      <tr>
        <td><%= bh %></td>
        <td><a href="product.asp?id=<%= rs("pid") %>" target="_blank"><%= rs("product_name") %></a></td>
        <td><%= rs("quantity") %></td>
        <td><%= 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="25" colspan="5"><%= totalcount %> 个商品, 商品总价: <%= bizhong&" "&totalprice %> 元</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,0))
	  
	  Case "myguestbook"%>
  <div class="formlist">
    <form id="gbform" name="gbform" method="post" action="<%=UpDir%>access.asp" onsubmit="return usergbform();">
      <ul>
        <li class="t1">留言主题:</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> 留言内容:</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="0">
		  <input name="accesstype" type="hidden" value="SaveUserInfo" />
        </li>
        <li class="t2">
          <input type="submit" name="Submit" class="button" value="提交" />
        </li>
      </ul>
    </form>
  </div>
  <div class="clearboth"></div>
  <% Response.Write(GetFeedback(username,0,action,subtitle))
		Case Else
		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)
		'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=我的订单"">您的订单数:"&GetOrderNum(username)&"</a></div>"&vbcrlf)
		Response.Write("	 <div class=""userinfobox""><a href=""?action=myguestbook&subtitle=个人留言"">个人留言</a></div>"&vbcrlf)
		Response.Write("	 <div class=""userinfobox""><a href=""?action=modiinfo&subtitle=修改信息"">修改信息</a></div>"&vbcrlf)
		Response.Write("	 <div class=""userinfobox""><a href=""?action=modipwd&subtitle=修改密码"">修改密码</a></div>"&vbcrlf)
		If GetChannelContent(3,"isStop")=0 and isFavorite=1 Then Response.Write("	 <div class=""userinfobox""><a href=""?action=myfavorite&subtitle=我的收藏"">我的收藏</a></div>"&vbcrlf)
		Response.Write("	 <div class=""userinfobox""><a href="""&UpDir&"logout.asp"">退出登录</a></div>"&vbcrlf)
		Response.Write("	 <div class=""clearboth""></div>"&vbcrlf)
		
     End Select
	End If
	 %>
</div>