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(" -> "&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> "; } if(obj == 1) { document.getElementById("span_UserName").innerHTML="<font color=green>Ok...You can use this user name!</font> ";} if(obj == 4) { document.getElementById("span_UserName").innerHTML="<font color=blue>Please input 2-20 characters</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()"> <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"><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"> <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"> <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="<< Previous" class="button" onClick="history.go(-1)"> <input type="submit" name="Submit2" value="Next >>" 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"> <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="<<Previous" class="button" onClick="history.go(-1)"> <input type="submit" name="Submit" value="Next>>" 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"> <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="<<Previous" class="button" onClick="history.go(-1)"> <input type="submit" name="Submit" value="Next>>" 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"> *** </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" /> </li> </ul> <ul> <li class="t1"> Password : </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="1"> </li> <li class="t2"> <% If isImgButton=0 Then %> <input name="Submit" type="submit" class="button" value="Sign in" /> <input name="Submit" type="button" class="button" value="Forget password?" onclick="window.open('users.asp?action=forgetpwd');" /> <input name="Submit" type="button" class="button" value="Register" onclick="window.open('users.asp?action=register');" /> <input name="Submit" type="button" class="button" value="Back" onclick="history.go(-1);" /> <% 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"><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"> <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"> <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"> <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>