?? admin_wapguestbook.asp
字號:
?<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Conn.asp"-->
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%><?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta http-equiv="Cache-Control" content="no-Cache"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
</head>
<card title="管理網站信息_<%=WebName & ChannelName%>">
<p align="left">
<%
dim Action:Action=Request.QueryString("Action")
dim ok:ok=Wap.checkstr(Request("ok"),12)
If Session(WapCacheName)<>AdminName&AdminPass Then
Response.write "請重新<a href=""Admin_WapLogin.asp"">登錄！</a><br/>"
Else
select case Action
case "reply"'回復頁面調用
call reply
case "Replyy"'回復調用
call Replyy
case "del"
call del
case else
call ListSite
end select
Response.write "<a href=""Admin_WapManage.asp"">管理首頁</a>"
End If
sub ListSite
dim MaxPageSize:MaxPageSize=10 '每頁顯示的記錄數
'分頁信息
dim PageNo
PageNo=Request.QueryString("PageNo")
if PageNo="" or not Isnumeric(PageNo) then
PageNo=1
else
PageNo=int(PageNo)
end if
'普通sql語句
Sql="select * from [Books] order by Books_Id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,Conn,1,1
if not rs.eof then
rs.PageSize = MaxPageSize
rs.AbsolutePage = PageNo
dim i
i=0
%>
<%Do While Not rs.EOF and i<MaxPageSize%>
<%
If Rs("Books_Reply")<>"" then
Response.Write "[已復]"
Else
Response.Write "[未復]"
End If
%>
<% =Rs("Books_Name") %>
<a href='Admin_WapGuestBook.asp?Action=reply&Id=<%=Rs("Books_Id")%>'>回復</a>
<a href='Admin_WapGuestBook.asp?Action=del&Id=<%=Rs("Books_Id")%>'>刪除</a><br/>
時間：<% =Rs("Books_Time") %><br/>
內容：<% =Rs("Books_Info") %><br/>
--------<br/>
<%
i=i+1
rs.MoveNext
Loop
else
%>
沒有留言<br/>
<%
end if
rs.close
set rs=nothing
Wap.WapShowPageInfo "Books","Books_Id","",PageNo,MaxPageSize,""
%>
<br/>
<%end sub
sub reply
dim rs
Id=Request.QueryString("Id")
Set Rs=Conn.execute("select * from [Books] where Books_Id="&Id)
If Rs.eof then
Response.Write "非法操作：留言不存在！<br/>"
Else
%>
留言：<% =Rs("Books_Info") %><br/>
回復：<input name="Books_Reply" type="text" value="<% =Rs("Books_Reply") %>" /><br/>
<anchor>回復留言<go href="Admin_WapGuestBook.asp?Action=Replyy&Id=<% =Id %>" method="post">
<postfield name="Books_Reply" value="$(Books_Reply)"/>
</go></anchor><br/>
<%
End If
end sub
'回復調用
sub Replyy
Id=Request.QueryString("Id")
Sql="update [Books] Set Books_Reply='"& Request.form("Books_Reply") &"'where Books_Id="& Id &""
Conn.execute(Sql)
Response.Write "回復成功！<br/>"
Response.Write "<a href='Admin_WapGuestBook.asp'>留言管理</a><br/>"
end sub
'刪除調用
sub del
Id=Request.QueryString("Id")
Sql="delete from [Books] where Books_Id="&Id
Conn.execute(Sql)
Response.Write "刪除成功！<br/>"
Response.Write "<a href='Admin_WapGuestBook.asp'>留言管理</a><br/>"
end sub
%>
<%set Wap=nothing%>
</p>
</card>
</wml>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -