📄 userinfo.asp
字号:
<%
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
Rs_Manage.PageSize =20
totalrec=Rs_Manage.RecordCount
iPageSize=Rs_Manage.PageSize
currentPage=request("page")
IF currentpage="" THEN
currentpage=1
Else
IF Not isChkInteger(currentPage) THEN Response.Redirect "javascript:history.go(-1);"
currentpage=clng(currentpage)
End IF
IF totalrec mod Cint(iPageSize)=0 THEN
n= totalrec \ Cint(iPageSize)
Else
n= totalrec \ Cint(iPageSize)+1
End IF
IF not (Rs_Manage.bof and Rs_Manage.eof) THEN
Rs_Manage.MoveFirst
IF currentpage > n THEN currentpage = n
IF currentpage<1 THEN currentpage=1
Rs_Manage.Move (currentpage-1) * Cint(iPageSize)
While Not Rs_Manage.Eof And page_count<Cint(iPageSize)
page_count=page_count+1
%>
<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
End IF
Rs_Manage.Close
Set Rs_Manage=Nothing
%>
</table>
<%Call Page_Next()%>
</div>
<%Case "messmanage"%>
<div class="page-head">用户短信管理</div>
<div class="table-Mainall">
<%Call Page_Messimage()%>
<table width="100%" border="0" cellspacing="1" cellpadding="0" class="table-bgx1">
<tr class="table-bgx2">
<td width="7%">状态</td>
<td width="20%">发件人</td>
<td width="40%">主题</td>
<td width="25%">时间</td>
<td>操作</td>
</tr>
<%
Set Rs_Manage=server.createobject("adodb.recordset")
Select Case xSelect
Case ""
Sql="Select * From Tx_Mess where MessTo='" & Session("Loginuser") & "'and MessDel=0 and MessSend=1 order by MessDate desc"
Case "Messf"
Sql="Select * From Tx_Mess where MessForm='" & Session("Loginuser") & "' and MessDel=0 and MessSend=1 order by MessDate desc"
Case "Messo"
Sql="Select * From Tx_Mess where MessForm='" & Session("Loginuser") & "' and MessDel=0 and MessSend=0 order by MessDate desc"
Case "Messd"
Sql="Select * From Tx_Mess where MessTo='" & Session("Loginuser") & "' and MessDel=1 OR MessForm='" & Session("Loginuser") & "' And MessSend=0 order by MessDate desc"
End Select
Rs_Manage.open Sql,Conn,1,1
Page_Nexterror=4
Rs_Manage.PageSize =20
totalrec=Rs_Manage.RecordCount
iPageSize=Rs_Manage.PageSize
currentPage=request("page")
IF currentpage="" THEN
currentpage=1
Else
IF Not isChkInteger(currentPage) THEN Response.Redirect "javascript:history.go(-1);"
currentpage=clng(currentpage)
End IF
IF totalrec mod Cint(iPageSize)=0 THEN
n= totalrec \ Cint(iPageSize)
Else
n= totalrec \ Cint(iPageSize)+1
End IF
IF not (Rs_Manage.bof and Rs_Manage.eof) THEN
Rs_Manage.MoveFirst
IF currentpage > n THEN currentpage = n
IF currentpage<1 THEN currentpage=1
Rs_Manage.Move (currentpage-1) * Cint(iPageSize)
While Not Rs_Manage.Eof And page_count<Cint(iPageSize)
page_count=page_count+1
IF xSelect="Messf" THEN
MessFoName=Rs_Manage("MessTo")
Else
MessFoName=Rs_Manage("MessForm")
End IF
%>
<form action='userinfo.asp?Action=<%IF xSelect="Messd" THEN%>messdelsall<%Else%>messdelall<%End IF%>' method="post" name="inbox" id="inbox">
<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>" & MessFoName & "</B>" else Response.Write MessFoName 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>
<td><input type="checkbox" name="Id" value="<%=Rs_Manage("MessId")%>" /></td>
</tr>
<%
Rs_Manage.MoveNext
Wend
End IF
Rs_Manage.Close
Set Rs_Manage=Nothing
%>
<tr class="table-bgx3">
<td height="30" colspan="5"><%
Response.Write "<INPUT TYPE=checkbox NAME=chkall VALUE=on onclick=CheckAll(this.form)> "
Response.Write "<INPUT TYPE=submit CLASS='INPUTimage1' "
IF xSelect="Messf" THEN
Response.Write "disabled"
End IF
Response.Write " NAME=Submit VALUE=' 删除 ' onclick='{if(confirm(" & CHR(34) & ""
IF xSelect="Messd" THEN
Response.Write "删除后将无法恢复，您真的要删除么？"
Else
Response.Write "删除后的短信将置于您的回收站内！"
End IF
Response.Write "" & CHR(34) & ")){return true;}return false;}'>"
%>
</td>
</tr>
</form>
</table>
<%
Call Page_Next()%>
</div>
<%
End Select
%>
</td>
<td width="5"></td>
<td width="195" align="center" valign="top" class="TABLE-Side"><div class='TABLE-side1'><span class="type-color1">用户管理菜单</span></div>
<div class='TABLE-side3'> ┇ <a href="userinfo.asp?Action=editinfo">基本资料修改</a><br />
┇ <a href="userinfo.asp?Action=editpass">密码修改</a><br />
┇ <a href="userinfo.asp?Action=messmanage">用户短信管理</a><br />
┇ <a href="userinfo.asp?Action=shopmanage">订单管理</a><br />
┇ <a href="Guest.asp?Action=UserGuest">查看留言</a><br />
┇ <a href="Search.asp?Action=Userinfo">我发表的帖子</a><br />
</div>
<div class='TABLE-side1'><span class="type-color1">其它操作</span></div>
<div class='TABLE-side3'>
<%IF Loginuser_GroudId=-1 THEN%>
┇ <a href="<%IF Session("Loginadmin")="" THEN%>A_Login.asp<%Else%>A_Index.asp<%End IF%>">进入后台管理</a><br />
<%End IF%>
┇ <a href="Logout.asp">退出登陆</a> <img src="Skins/Blue/Tx_Ar7.gif" /><br />
<br />
</div></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="bottom" bgcolor="#082421" class="leftbg"><img src="Skins/blak/leftad.jpg" width="321" /></td>
</tr>
</table>
<%
Call Page_iBottom()
Call Page_Bottom()
Call CloseConn()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -