📄 delitem.asp

📁 三鸟个人网站源码。
💻 ASP
字号:
<!-- #include file="share.asp" -->
<%
				issure=request.form("issure")
				bid=request("bid")
				dim bdid
				bdid=request("bdid")
				if not bdid="" then
					bdid=cint(bdid)
				else
					response.redirect "../error.asp?emsg=这个版面不存在。"
					response.end
				end if
				if bid="" then
					%>不知道你要删除的文章的ID，无法继续。<p><%
				else
					if issure="sure" then
						delthis
					else
						showsure
					end if
				end if
%>
<%
sub delthis
	if session("bluelogin")="yes" then
		if session("blueauthority")<=0 then
			response.redirect "error.asp?emsg=没有足够的权限。"
			response.end
		else
			dim rs
			dim sql

			sql="select * from book where bid="&bid
			set rs=server.createobject("adodb.recordset")
			'opendb
			'on error resume next
			rs.open sql,conn, 1,3
			if rs.eof then
				response.redirect "error.asp?emsg=没有这个文件。找不到。"
				response.end
			else
				rs.delete
				rs.update
			end if
			checkerr
			rs.close
			set rs=nothing
			'closedb
			response.redirect "main.asp?bdid="&bdid
			response.end
		end if
	end if
end sub
%>







<%
sub showsure
%>
<HTML>
<!-- #include file="top.asp" -->
<HEAD>
<TITLE>[媒体社区]删除</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<link rel="stylesheet" href="BLUE.CSS" type="text/css">
<style type="text/css">
<!--
.hand { cursor: hand }
-->
</style>
</HEAD>
<body bgcolor=#ffffff leftmargin="0" topmargin="0">
<table width="100%" height="99%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td align="left" valign="top"><table width="758" height="100%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="48" align="left" valign="top">&nbsp;</td>
        <td width="730" align="left" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="98%" align="left" valign="middle"> <!-- TemplateBeginEditable name="atthere" --> 
                  <table width="100%" border="0" cellspacing="3" cellpadding="0" height="73">
                    <tr align="left" valign="top"> 
                      <td width="100%" align="center" height="200" valign="middle"> 
                        <img src="images/delete_big.gif"> <form name="makesure" method="post" action="delitem.asp">
                          你要删除此篇文章以及所有与它关联的回复，要继续吗？ 
                          <p> 
                            <input type="hidden" name="issure" value="sure">
                            <input type="hidden" name="bdid" value="<%=bdid%>">
                            <input type="hidden" name="bid" value="<%=request("bid")%>">
                            <input type="submit" name="submit" value="Continue">
                            &nbsp;&nbsp; 
                            <input type="button" name="cancel" value="NO" onclick="history.go(-1);">
                        </form></td>
                    </tr>
                  </table>
                  <!-- TemplateEndEditable --></td>
              </tr>
            </table>
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td align="left" valign="top">&nbsp;</td>
              </tr>
            </table></td>
      </tr>
    </table></td>
  </tr>
</table>
</body>
</html>
<%
end sub
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -