admin_del_proc.asp

来自「1. 在界面的开头显示新闻添加的位置」· ASP 代码 · 共 56 行

<% response.buffer=true %>
<!--#include file="conn.asp"-->
<% 
dim rs,articleid,sql,strsql
articleid=request.QueryString("articleid")
set rs=Server.CreateObject("ADODB.recordset")
rs.open "delete * from article where articleid="&articleid,conn
if session("admin")<>"" then 
%>
<!--#include file="head.asp"-->
<br>
<table width="779" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="##0066CC">
  <tr>
    <td width="180"align="left" valign="top" scope="row">　
      <table width="100%" height="100%" border="0">
        <tr><td align="center" valign="top" scope="row"></tr>
		<tr><td align="center" valign="top" scope="row"><!--#include file="hot.asp"--></tr>
		<tr><td align="center" valign="top" scope="row"><!--#include file="tuijian.asp"--></td></tr>
	  </table>
		
    </td>
	
    <td width="490" align="center" valign="top">
	<table width="100%" align="center" cellpadding="0" cellspacing="0">
     <tr bgcolor="#003399" valign="top">
        <td valign="top" align="center">
		<img src="img/newarticle.gif">
		  </td>
		</tr>
		<tr><td>
		<table>
		<tr><td>
	成功删除 <a href="admin.asp">返回</a>
		</td>
		</tr>
		</table>
	   </td>
	   </tr>
	  </table>
		
    </td>
  </tr>
</table>
  <p align="center">Copyright (C) 2004 Tie8.Studio All Rights Reserved </p>
    <p align="center">版权所有 铁吧</p>
	<%
	elseif name1=pass("admin") and password=pass("password") then
	  session("admin")=pass("admin")
	  response.redirect "admin.asp"
	else
	%>
	请输入正确的用户名和密码。点击<a href="index.asp">返回</a>
	<%end if
	%>
</body>
</html>