📄 userinfo.asp
字号:
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 NAME=inbox method=post action='userinfo.asp?Action=<%IF xSelect="Messd" THEN%>messdelsall<%Else%>messdelall<%End IF%>'>
<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>
<%
Call Page_iBottom()
Call Page_Bottom()
Call CloseConn()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -