手机WAP编程

开发平台：

ASP/ASPX

Del_Message.Asp：源码内容

							﻿<!--#include file="../wml.ini"-->
<%  
call wmlbegin("删除留言","wrap")
go=request.QueryString("go")
s=request.QueryString("s")
id=cint(request.QueryString("id"))
if go="" Then
if session("AdminName")<>"" then s=2
if session("MessagePass")=id then s=1
  call wmlwrite("<b>删除后将无法恢复，你确定要删除吗？",true)
  call wmllink("Del_Message.Asp?id=" & id & "&amp;go=" & s & "","Yes",false)
  call wmlwrite("|",false)
  call wmllink("View.asp?id=" & id & "","No",true)
  call wmlwrite("</b>",false)
  end if
if go="1" Then
if session("MessagePass")=id then
  Set Rs = Server.CreateObject("Adodb.Recordset")
  Sql = "select * from Message WHERE id="&id
  Rs.Open Sql,conn,1,3
  if not (rs.bof and rs.eof)  then 
  rs.Delete
  end if
  rs.Close
  Set rs = Nothing
  call wmlwrite("<b>删除成功!</b>",true)
  else
  call wmlwrite("<b>请不要恶意删除留言!</b>",true)
  end if
  end if
if go="2" Then
if session("AdminName")<>"" then
  Set Rs = Server.CreateObject("Adodb.Recordset")
  Sql = "select * from Message WHERE id="&id
  Rs.Open Sql,conn,1,3
  if not (rs.bof and rs.eof)  then 
  rs.Delete
  end if
  rs.Close
  Set rs = Nothing
  call wmlwrite("<b>删除成功!</b>",true)
  else
  call wmlwrite("<b>请不要恶意删除留言!</b>",true)
  end if
  end if
call wap.navs("留言本,index.asp|预览留言,View.Asp?id=" & id & "|管理留言,Admin_Message.Asp?Go=1&amp;id=" & id & "|删除留言,")
  call wmlend
%>

						