?? userinfo.asp
字號(hào):
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>個(gè)待處理訂單<br />
<table width="100%" border="0" cellspacing="1" cellpadding="0" class="table-bgx1">
<tr class="table-bgx2">
<td width="30%">訂單號(hào)</td>
<td width="25%">狀態(tài)</td>
<td width="30%">下單時(shí)間</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>失效（無(wú)效訂單）</FONT>"
Case "1"
Response.write "<FONT COLOR=ff0000>失效（有產(chǎn)品被刪除）</FONT>"
Case "2"
Response.write "<B>未作任何處理</B>"
Case "3"
Response.write "用戶已付出貨款"
Case "4"
Response.write "服務(wù)商已收到貨款"
Case "5"
Response.write "<FONT COLOR=ff0000>服務(wù)商已發(fā)出貨</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>過(guò)期</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"> 真實(shí)姓名：
<input name="EUserName" type="text" class="INPUTimage1" id="EUserName" value="<%=Loginuser_C(6)%>" size="25" maxlength="25" />
您在本站訂購(gòu)產(chǎn)品的收貨人姓名<br />
聯(lián)系地址：
<input name="EUserRess" type="text" class="INPUTimage1" value="<%=Loginuser_C(9)%>" id="EUserRess" size="25" maxlength="50" />
如果您有訂購(gòu)產(chǎn)品，我們將按此地址給您發(fā)貨 <br />
郵政編碼：
<input name="EUserCode" type="text" class="INPUTimage1" value="<%=Loginuser_C(13)%>" onkeypress='event.returnValue=IsDigit();' id="EUserCode" size="10" maxlength="6" />
<br />
聯(lián)系電話：
<input name="EUserTel" type="text" class="INPUTimage1" value="<%=Loginuser_C(4)%>" id="EUserTel" size="15" maxlength="20" />
請(qǐng)留下您的聯(lián)系電話以便我們能及時(shí)與您聯(lián)系 <br />
電子郵件：
<input name="EEmail" type="text" class="INPUTimage1" value="<%=Loginuser_C(2)%>" id="EEmail" size="15" maxlength="20" />
正確的Email，以便我們提供更周到的服務(wù) <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 號(hào)碼：
<input name="EUserQq" type="text" value="<%=Loginuser_C(14)%>" class="INPUTimage1" onkeypress='event.returnValue=IsDigit();' id="EUserQq" size="11" maxlength="20" />
<br />
MSN ：
<input name="EUserMsn" value="<%=Loginuser_C(20)%>" type="text" class="INPUTimage1" id="EUserMsn" size="15" maxlength="20" />
<br />
個(gè)人主頁(yè)：
<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 />
個(gè)人簡(jiǎn)介：
<textarea name="EUserContent" class="INPUTimage" cols="50" rows="5"><%=Loginuser_C(17)%></textarea>
<br />
個(gè)性簽名：
<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" />
密碼長(zhǎng)度為6-20個(gè)字符，如不更改請(qǐng)留空</br>
確認(rèn)密碼：
<input name="EPasstoo" type="password" class="INPUTimage1" id="EPasstoo" value="" size="15" />
同上 </br>
尋密問(wèn)題：
<input name="EQuesion" type="text" value="<%=Loginuser_C(19)%>" class="INPUTimage1" id="EQuesion" size="20" maxlength="50" />
可以根據(jù)此問(wèn)題找回您遺失的密碼 </br>
密碼答案：
<input name="EAnswer" type="password" class="INPUTimage1" id="EAnswer" size="20" maxlength="50" />
問(wèn)題答案，如不更改請(qǐng)留空 </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> / 服務(wù)商已發(fā)貨：<span class="type-color2"><%=Shop2%></span> / 交易成功：<span class="type-color2"><%=Shop3%></span>
<%
Response.write "跳轉(zhuǎn)分類到：<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>跳轉(zhuǎn)到......</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%">訂單號(hào)</td>
<td width="25%">狀態(tài)</td>
<td width="30%">下單時(shí)間</td>
<td>有效期</td>
</tr>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -