文件列表:

myshop\all.wmls (446, 2006-04-23)
myshop\conn.asp (164, 2006-04-06)
myshop\function.asp (1462, 2006-05-24)
myshop\global.asa (178, 2006-05-04)
myshop\index.asp (912, 2006-05-15)
myshop\index.png (15242, 2004-02-17)
myshop\navigation.asp (1171, 2006-05-15)
myshop\wapadmin\admincheck.asp (1592, 2006-05-04)
myshop\wapadmin\basic.asp (759, 2006-09-23)
myshop\wapadmin\conn.asp (164, 2006-05-02)
myshop\wapadmin\frontinfo.asp (1237, 2006-09-23)
myshop\wapadmin\introduction.asp (664, 2006-09-23)
myshop\wapadmin\leave.asp (412, 2006-05-04)
myshop\wapadmin\login.asp (1492, 2006-05-04)
myshop\wapadmin\main.asp (784, 2006-09-23)
myshop\wapadmin\newsmana.asp (730, 2006-09-23)
myshop\wapadmin\serverinfo.asp (1899, 2006-05-04)
myshop\userlogin\checkuser.asp (2110, 2006-05-10)
myshop\userlogin\checkUserInfo.wmls (3649, 2006-04-25)
myshop\userlogin\conn.asp (164, 2006-04-06)
myshop\userlogin\landsave.asp (1127, 2006-04-27)
myshop\userlogin\land_1.asp (897, 2006-05-10)
myshop\userlogin\login_1.asp (1905, 2006-05-10)
myshop\userlogin\logout.asp (342, 2006-04-24)
myshop\userlogin\modify.asp (1148, 2006-04-25)
myshop\userlogin\moduser.asp (1973, 2006-04-25)
myshop\userlogin\register.asp (1359, 2006-05-10)
myshop\shop\book.asp (2356, 2006-05-11)
myshop\shop\bookdetail.asp (1809, 2006-05-12)
myshop\shop\bookproduct.asp (2808, 2006-05-12)
myshop\shop\clear.asp (595, 2006-05-01)
myshop\shop\comment.asp (1575, 2006-05-12)
myshop\shop\confirm.asp (984, 2006-05-04)
myshop\shop\confirmcomment.asp (829, 2006-05-12)
myshop\shop\conn.asp (164, 2006-04-06)
myshop\shop\icomment.asp (1310, 2006-05-12)
myshop\shop\it.asp (2344, 2006-05-11)
myshop\shop\itdetail.asp (1867, 2006-05-12)
myshop\shop\itproduct.asp (2838, 2006-05-15)
myshop\shop\music.asp (2365, 2006-05-11)
... ...

<%response.buffer=true%> <% Response.ContentType="text/vnd.wap.wml" %> <% If session("user")="" Or session("flag")="" Then response.redirect("http://localhost/index.asp") Else %> <% Set rs1=server.CreateObject("adodb.recordset") sql="select * from message where user_id="&request("id")&" order by id desc" rs1.open sql,conn,1,1 %>

<% If rs1.recordcount=0 Then response.write("没有任何留言") else rs1.pagesize=5 If Trim(request("pape"))="" Then page=1 End If If Trim(request("page"))<>"" then page=clng(request("page")) End if if page<1 then page=1 End if if page>rs1.pagecount then page=rs1.pagecount End if rs1.absolutepage=page %>

<% for ipage=1 to rs1.pagesize recno=(page-1)*rs1.pagesize+ipage %> <% rs1.movenext if rs1.eof then exit for next %>

序列	发送人	查看	状态
<%response.Write recno%>	<%=exchange(rs1("writername"))%>	">查看	<%If rs1("isread")=True then%>已读<%End if%><%If rs1("isread")=False then%>未读<%End if%>

<%If page<>1 then%> &page=1"> &page=<%=page-1%>"> <%End If If page<>rs1.pagecount then%> &page=<%=page+1%>"> &page=<%=rs1.pagecount%>"> <%End if%>
输入页数:页数:<%=page%>/<%=rs1.pagecount%> "/> <%End if%>
">留言管理

<%rs1.close%> <%End if%>

近期下载者：

相关文件：

评论：[我要评论] [举报此文件]

收藏者：