📄 modi_del_options.asp

📁 一个关于网站权限管理的经典例子,适合初学者

💻 ASP

字号:

<% Option explicit %>
<!-- #Include file="./connects.inc"-->
<!-- #Include file="../globals.inc"-->

<html>
<head>
  <title>修改或删除_选择</title>
  <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<Body topmargin="5" leftmargin="0" background="../images/bg.gif">

<%
  Dim theOption, iNum, sSQLCondition
  Dim sSQL, rs

  theOption=request("theOption")   'theOption= "Modify" or "Delete"

  sSQL="select f_i_autoid from tabAccountInfo"
  set rs=server.createobject("adodb.recordset")
  rs.open sSQL, sConn, 1, 1

 '//组合条件字符串：
  Do While Not rs.EOF
    iNum=rs("f_i_autoid")
    If request("chk" & iNum)="on" then
      sSQLCondition=sSQLCondition & "f_i_autoid=" & iNum & " or "
    End If
    rs.MoveNext
  Loop
  set rs=nothing

  If trim(sSQLCondition)="" Then  '没有选择任何记录
    response.write("<br><br>&nbsp;&nbsp;&nbsp;【<font color=blue>没有选择即将修改或删除的记录。</font>】")
    response.End
  End If

  sSQLCondition=trim(left(sSQLCondition,len(sSQLCondition)-3))  '去掉sSQLCondition最右边 "[]or"  3 个字符
  'response.write("条件：" & sSQLCondition & " 即将被 " & theOption)

  select case theOption
    case "Modify"   '转向“修改”页面
      response.write "<script language='javascript'>document.location='Modi.asp?sSQLCondition=" & sSQLCondition & "';</script>"
    case "Delete"   '转向“删除”页面
      response.write "<script language='javascript'>document.location='Del.asp?sSQLCondition=" & sSQLCondition & "';</script>"
    Case Else
      response.write "Error!"
  end select
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -