📄 mydel.asp

📁 这是一个文章管理的网页源程序

💻 ASP

字号:

<!--#include file="const.asp"-->
<%
  if session("admin")<>""&request("name")&"" then
  response.redirect "admin.asp"
  
  end if

%>
 
<html>
<head>
<title>无标题文档</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body bgcolor="#FFFFFF">
<%dim conn,connstr
on error resume next
connstr="DBQ="+server.mappath("mymdb/news.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
     set conn=server.createobject("ADODB.CONNECTION")
     conn.open connstr
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="delete * from article where articleid="&request("articleid")
rs.open sql,conn,3,3
rs.update
rs.close
set rs=nothing
if rs("daifa")=1 then
dim r
	Set r= Server.CreateObject("ADODB.Recordset")
    sql="select * from admin where username='"&request("name")&"'"
    r.open sql,conn,3,2
    r("wzs")=r("wzs")-1
    r.update
	
    r.close
	set r=nothing
end if
conn.close
set conn=nothing
%> 
<table width="90%" border="0" align="center" height="90%">
  <tr align="center" valign="middle"> 
    <td>删除成功！</td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -