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(" -> "&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> "; } if(obj == 1) { document.getElementById("span_UserName").innerHTML="<font color=green>Ok...此用户名可以注册!</font> ";} if(obj == 4) { document.getElementById("span_UserName").innerHTML="<font color=blue>用户名不能少于2个字符!</font> "; } 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"> </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"> </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';" /> </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';" /> </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';" /> </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';" /> </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';" /> </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"><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"> <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"> <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="<<上一步" class="button" onClick="history.go(-1)"> <input type="submit" name="Submit2" value="下一步>>" 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"> <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="<<上一步" class="button" onClick="history.go(-1)"> <input type="submit" name="Submit" value="下一步>>" 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"> <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="<<上一步" class="button" onClick="history.go(-1)"> <input type="submit" name="Submit" value="下一步>>" 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"> *** </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" /> </li> </ul> <ul> <li class="t1"> 密码:</li> <li class="t2"> <input name="password" type="password" class="input" id="password" maxlength="20" /> </li> </ul> <br /> <ul> <li class="t1"> <input name="yuyan" type="hidden" id="action" value="0"> <input name="accesstype" type="hidden" value="Login" /> </li> <li class="t2"> <% If isImgButton=0 Then %> <input name="Submit" type="submit" class="button" value="登录" /> <input name="Submit" type="button" class="button" value="忘记密码?" onclick="window.open('users.asp?action=forgetpwd');" /> <input name="Submit" type="button" class="button" value="注册" onclick="window.open('users.asp?action=register');" /> <input name="Submit" type="button" class="button" value="返回" onclick="history.go(-1);" /> <% 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"><300字</span></li> </ul> <ul> <li class="t1"> <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"> </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"> </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"> </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"> <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"> <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>