userinfo.asp

整站源码jsp 有兴趣的可以看看

				    Wend 
	        Rs_Manage.Close
	        Set Rs_Manage=Nothing
				%>
                </table>
                <br />
                <div class="type-height2"></div>
                <%
			 Set Rs_Manage=server.createobject("adodb.recordset")
            Sql="Select distinct Shop_Code,Shop_Date,Shop_Condition From Tx_Shop where Shop_UserId=" & Loginuser_Id & " And Shop_Condition=2 or Shop_UserId=" & Loginuser_Id & " And Shop_Condition=5 order by Shop_Date desc"
		    Rs_Manage.open Sql,Conn,1,1
          %>
                您有<span class="type-color2"><b><%=Rs_Manage.recordCount%></b></span>个待处理订单<br />
                <table width="100%"  border="0" cellspacing="1" cellpadding="0" class="table-bgx1">
                  <tr class="table-bgx2">
                    <td width="30%">订单号</td>
                    <td width="25%">状态</td>
                    <td width="30%">下单时间</td>
                    <td>有效期</td>
                  </tr>
                  <%
			 While Not Rs_Manage.Eof
                  %>
                  <tr class="table-bgx3">
                    <td><%
				  Response.Write " <a onClick=" & CHR(34) & "javascript:window.open('ShopCode.asp?Id=" & Rs_Manage("Shop_Code") & "','news','width=583,height=350,top=300,left=220,scrollbars=yes');return false;" & CHR(34) & " href=''>" & Rs_Manage("Shop_Code") & "</A> "
                   %>
                    </td>
                    <td><%
				        Select Case Rs_Manage("Shop_Condition")
					    Case "0"
                            Response.write "<FONT COLOR=ff0000>失效（无效订单）</FONT>"
					    Case "1"
                            Response.write "<FONT COLOR=ff0000>失效（有产品被删除）</FONT>"
					    Case "2"
                            Response.write "<B>未作任何处理</B>"
					    Case "3"
                            Response.write "用户已付出货款"
					    Case "4"
                            Response.write "服务商已收到货款"
					    Case "5"
                            Response.write "<FONT COLOR=ff0000>服务商已发出货</FONT>"
					    Case "6"
                            Response.write "用户已收到货"
					    Case "7"
                            Response.write "<u>订单交易成功</u>"
					End Select
                  %>
                    </td>
                    <td><%=YearDami(Rs_Manage("Shop_Date"))%></td>
                    <td><%
				  					ShopendTime=Web_Const(53)-datediff("d",Rs_Manage("Shop_Date"),date())
					IF ShopendTime>0 THEN
					    Response.write "<B>" & ShopendTime & " 天<B>"
					Else
					    Response.write "<FONT COLOR='ff0000'><B>过期</B></FONT>"
					End IF
                  %>
                    </td>
                  </tr>
                  <%
					Rs_Manage.MoveNext
				    Wend 
	        Rs_Manage.Close
	        Set Rs_Manage=Nothing
				%>
                </table>
              </div>
              <%
			Case "editinfo"
			%>
                <form action="userinfo.asp?Action=infosave" method="post" name="Save" id="Save" >
                  <div class="page-head">基本资料修改</div>
                  <div class="table-Mainall"> 真实姓名：
                    <input name="EUserName" type="text" class="INPUTimage1" id="EUserName" value="<%=Loginuser_C(6)%>" size="25" maxlength="25" />
                    　
                    您在本站订购产品的收货人姓名<br />
                    联系地址：
                    <input name="EUserRess" type="text" class="INPUTimage1" value="<%=Loginuser_C(9)%>" id="EUserRess" size="25" maxlength="50" />
　
如果您有订购产品，我们将按此地址给您发货          <br />
                    邮政编码：
                    <input name="EUserCode" type="text" class="INPUTimage1" value="<%=Loginuser_C(13)%>" onkeypress='event.returnValue=IsDigit();'  id="EUserCode" size="10" maxlength="6" />
                    <br />
                    联系电话：
                    <input name="EUserTel" type="text" class="INPUTimage1" value="<%=Loginuser_C(4)%>" id="EUserTel" size="15" maxlength="20" />
　
请留下您的联系电话以便我们能及时与您联系          <br />
                    电子邮件：
                    <input name="EEmail" type="text" class="INPUTimage1" value="<%=Loginuser_C(2)%>" id="EEmail" size="15" maxlength="20" />
　
正确的Email，以便我们提供更周到的服务          <br />
                    支付方式：
                    <select name="EPay" class="INPUTimage1">
                      <%call Page_Pays(Loginuser_C(7))%>
                    </select>
                    <br />
                    收货方式：
                    <select name="EGive" class="INPUTimage1">
                      <%call Page_Gives(Loginuser_C(8))%>
                    </select>
                    <br />
                    QQ 号码：
                    <input name="EUserQq" type="text" value="<%=Loginuser_C(14)%>" class="INPUTimage1" onkeypress='event.returnValue=IsDigit();' id="EUserQq" size="11" maxlength="20" />
                    <br />
                    &nbsp;　MSN ：
                    <input name="EUserMsn" value="<%=Loginuser_C(20)%>" type="text" class="INPUTimage1" id="EUserMsn" size="15" maxlength="20" />
                    <br />
                    个人主页：
                    <input name="EUserWeb" value="<%=Loginuser_C(15)%>" type="text" class="INPUTimage1" id="EUserWeb" size="30" maxlength="30" />
                    <br />
                    单位名称：
                    <input name="EUserLtd" value="<%=Loginuser_C(3)%>" type="text" class="INPUTimage1" id="EUserLtd" size="30" maxlength="30" />
                    <br />
                    用户头像：
                    <select name="Picture" size="1"  id="Picture" align="absmiddle" class="submit_all" onchange="document.all.idface.src=options[selectedIndex].value;">
                      <%
		        Set Rs_cm=server.createobject("adodb.recordset")
		        Sql="Select * from Tx_Picture order By Picture_Id"
		        Rs_cm.Open Sql,Conn,1,1
			        While Not Rs_cm.Eof
				        Response.write "<OPTION VALUE='" & Rs_cm("Picture_Url") & "' "
						IF session("Loginuser")<>"" THEN
				        IF Loginuser_C(5)=Rs_cm("Picture_Url") THEN
					        Picture=Loginuser_C(5)
					        Response.write "selected"
				        End IF
				        End IF
				        Response.write ">" & Rs_cm("Picture_Name") & "</OPTION>"
				        IF Picture="" THEN Picture=Rs_cm("Picture_Url")
			        Rs_cm.MoveNext
			        Wend
		        Rs_cm.Close
		        Set Rs_cm=Nothing
            %>
                    </select>
　　　　
          <img hspace="5" src="<%=Picture%>" vspace="3" border="0" id="idface" align="absmiddle" /><br />
                    个人简介：
                    <textarea name="EUserContent" class="INPUTimage" cols="50" rows="5"><%=Loginuser_C(17)%></textarea>
                    <br />
                    个性签名：
                    <textarea name="EUserSigns" class="INPUTimage" cols="50" rows="5"><%=Loginuser_C(18)%></textarea>
                    <br />
                    <br />
                    <div class="TABLE-tstd">
                      <input type="image" src="Skins/Blue/go.gif" width="51" height="21" name="Ok" align="absmiddle" />
                      <input type="image" src="Skins/Blue/cl.gif" width="51" height="21" name="Ok" align="absmiddle" onclick="vbscript:location.reload" />
                    </div>
                  </div>
                </form>
              <%Case "editpass"%>
                <form action="userinfo.asp?Action=passsave" method="post" name="Save" id="Save" >
                  <div class="page-head">密码修改</div>
                  <div class="table-Mainall"> 登陆密码：
                    <input name="EPass" type="password" class="INPUTimage1" id="EPass" size="15" maxlength="20" />
                    　
                    密码长度为6-20个字符，如不更改请留空</br>
                    确认密码：
                    <input name="EPasstoo" type="password" class="INPUTimage1" id="EPasstoo" value="" size="15" />
　
同上          </br>
                    寻密问题：
                    <input name="EQuesion" type="text" value="<%=Loginuser_C(19)%>" class="INPUTimage1" id="EQuesion" size="20" maxlength="50" />
　
可以根据此问题找回您遗失的密码          </br>
                    密码答案：
                    <input name="EAnswer" type="password" class="INPUTimage1" id="EAnswer" size="20" maxlength="50" />
　
问题答案，如不更改请留空          </br>
                    </br>
                    <div class="TABLE-tstd">
                      <input type="image" src="Skins/Blue/go.gif" width="51" height="21" name="Ok" align="absmiddle" />
                      <input type="image" src="Skins/Blue/cl.gif" width="51" height="21" name="Ok" align="absmiddle" onclick="vbscript:location.reload" />
                    </div>
                  </div>
                </form>
              <%Case "shopmanage"
			Dim Shop1,Shop2,Shop3
            Set Rs=server.createobject("adodb.recordset")
            Sql="Select distinct Shop_Code,Shop_Date,Shop_Condition From Tx_Shop where Shop_Condition=2 and Shop_UserId=" & Loginuser_Id
            Rs.open Sql,Conn,1,1
			Shop1=Rs.RecordCount
			Rs.Close
			Set Rs=Nothing
            Set Rs=server.createobject("adodb.recordset")
            Sql="Select distinct Shop_Code,Shop_Date,Shop_Condition From Tx_Shop where Shop_Condition=5 and Shop_UserId=" & Loginuser_Id
            Rs.open Sql,Conn,1,1
			Shop2=Rs.RecordCount
			Rs.Close
			Set Rs=Nothing
            Set Rs=server.createobject("adodb.recordset")
            Sql="Select distinct Shop_Code,Shop_Date,Shop_Condition From Tx_Shop where Shop_Condition=7 and Shop_UserId=" & Loginuser_Id
            Rs.open Sql,Conn,1,1
			Shop3=Rs.RecordCount
			Rs.Close
			Set Rs=Nothing
			FileName="userinfo.asp?Action=shopmanage"
			%>
                <div class="page-head">订单管理</div>
              <div class="table-Mainall">
                  <div class="user-top1">未处理：<span class="type-color2"><%=Shop1%></span> / 服务商已发货：<span class="type-color2"><%=Shop2%></span> / 交易成功：<span class="type-color2"><%=Shop3%></span> 　　　　　　
                    <%
                Response.write "跳转分类到：<select NAME=JumpClass id=JumpClass CLASS=submit_all onchange=" & CHR(34) & "if(this.options[this.selectedIndex].value!=''){location='" & FileName & "&xSelect=" & "'+this.options[this.selectedIndex].value;}" & CHR(34) & "><OPTION VALUE='' selected>跳转到......</OPTION>"
                Call Page_ShopCondition()
                Response.write "</select>"
			%>
                  </div>
                <div class="user-table1"></div>
                <table width="100%"  border="0" cellspacing="1" cellpadding="0" class="table-bgx1">
                    <tr class="table-bgx2">
                      <td width="30%">订单号</td>
                      <td width="25%">状态</td>
                      <td width="30%">下单时间</td>
                      <td>有效期</td>
                    </tr>