📄 userinfo.asp
字号:
</TR>
<%
While Not Rs_Manage.Eof
%>
<TR CLASS="table-bgx3">
<TD><%if Rs_Manage("MessExamines")=0 then Response.Write "<IMG SRC=Images/Mess/Mess_1.gif>" else Response.Write "<IMG SRC=Images/Mess/Mess_3.gif>" end if%></TD>
<TD><%if Rs_Manage("MessExamines")=0 then Response.Write "<B>" & Rs_Manage("MessForm") & "</B>" else Response.Write Rs_Manage("MessForm") end if%></TD>
<TD ALIGN="left"> <a onClick="javascript:window.open('Mess.asp?Action=Read&Id=<%=Rs_Manage("MessId")%>','news','width=512,height=310,top=300,left=260,scrollbars=yes');return false;" href=''>
<%if Rs_Manage("MessExamines")=0 then Response.Write "<B>" & Rs_Manage("MessName") & "</B>" else Response.Write Rs_Manage("MessName") end if%></A></TD>
<TD><%=YearDami(Rs_Manage("MessDate"))%></TD>
</TR>
<%
Rs_Manage.MoveNext
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 NAME=Save method=post action="userinfo.asp?Action=infosave" >
<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>
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 NAME=Save method=post action="userinfo.asp?Action=passsave" >
<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>
<%
Set Rs_Manage=server.createobject("adodb.recordset")
Select Case xSelect
Case ""
Sql="Select distinct Shop_Code,Shop_Date,Shop_Condition From Tx_Shop where Shop_UserId=" & Loginuser_Id & " order by Shop_Date desc"
Case "2"
Sql="Select distinct Shop_Code,Shop_Date,Shop_Condition From Tx_Shop where Shop_UserId=" & Loginuser_Id & " and Shop_Condition=2 and '" & Web_Const(53) & "'-datediff('d',Shop_Date,date())>0 order by Shop_Date desc"
Case "3"
Sql="Select distinct Shop_Code,Shop_Date,Shop_Condition From Tx_Shop where Shop_UserId=" & Loginuser_Id & " and Shop_Condition=3 and '" & Web_Const(53) & "'-datediff('d',Shop_Date,date())>0 order by Shop_Date desc"
Case "4"
Sql="Select distinct Shop_Code,Shop_Date,Shop_Condition From Tx_Shop where Shop_UserId=" & Loginuser_Id & " and Shop_Condition=4 and '" & Web_Const(53) & "'-datediff('d',Shop_Date,date())>0 order by Shop_Date desc"
Case "5"
Sql="Select distinct Shop_Code,Shop_Date,Shop_Condition From Tx_Shop where Shop_UserId=" & Loginuser_Id & " and Shop_Condition=5 and '" & Web_Const(53) & "'-datediff('d',Shop_Date,date())>0 order by Shop_Date desc"
Case "6"
Sql="Select distinct Shop_Code,Shop_Date,Shop_Condition From Tx_Shop where Shop_UserId=" & Loginuser_Id & " and Shop_Condition=6 and '" & Web_Const(53) & "'-datediff('d',Shop_Date,date())>0 order by Shop_Date desc"
Case "7"
Sql="Select distinct Shop_Code,Shop_Date,Shop_Condition From Tx_Shop where Shop_UserId=" & Loginuser_Id & " and Shop_Condition=7 and '" & Web_Const(53) & "'-datediff('d',Shop_Date,date())>0 order by Shop_Date desc"
End Select
Rs_Manage.open Sql,Conn,1,1
Page_Nexterror=4
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -