📄 mail_dela.asp

📁 5237 论坛.rar

💻 ASP

字号:

<!--#include file="Connections/connY.asp" -->
<!--#include file="Inc/SetCss.asp" -->
<%
I=Request.QueryString("I")
DUser=","&Cstr(I)
Set rsDel = Server.CreateObject("ADODB.Recordset")
Sql = "Select *  From tUserManage Where rUserID='"&Session("SUserID")&"'"
rsDel.Open Sql,ConnY,3,3
FArray=Cstr(rsDel("rFriend"))
List=Replace(FArray,DUser,"")
rsDel("rFriend")=List
rsDel.Update
rsDel.Close
Set rsDel=Nothing
BackToURL="Mail_Address.asp"
%>
<html>
<head>
<title><%=Forum_Title%></title>
<meta http-equiv="Content-Type" content="text/html;">
<meta http-equiv="Expires" CONTENT="0">
<meta http-equiv="Cache-Control" CONTENT="no-cache">
<meta http-equiv="Pragma" CONTENT="no-cache">
<!--#include file="Inc/Css.asp" -->
</head>
<body leftmargin="0" topmargin="0" bgcolor="<%=Forum_ColorList_BgColor%>" vlink="<%=Forum_Css_A_Link_Color%>">
<div align="center"><br>
  <br>
  <br>
  <br>
  <table width="400" border="0" cellspacing="1" cellpadding="2" bgcolor="<%=Forum_ColorList_BorderColor%>" class="font">
  <tr> 
    <td height="100" bgcolor="<%=Forum_ColorList_AlternateColor1%>"> 
      <div align="center"><font color="<%=Forum_ColorList_PFontColor%>">从地址簿删除成功<br>
        </font><br>
        该页面将会在3秒钟后自动返回</div>
    </td>
  </tr>
</table>
<div align="center"></div>

  <script language=javascript>
setTimeout("location.replace('<%=BackToURL%>')",3000)
</script>
</div>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -