⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 delete.asp

📁 网站数据库自助生成
💻 ASP
字号:
🔍 
<!--#include File='login.asa'--><%    If Session(SiteID) <> true Then        Response.Redirect("Login.asp?requester=delete.asp")    End If%>

<% Response.Buffer = True %>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>结果 -- 删除</title>
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>

<body bgcolor="#FFFFFF">

<%    If Request("btnAction") = "新建" Then
       Response.Redirect ""
    End If
%>
<%    If Request.QueryString("FP_Num_Items") = "" Then
	fp_sMyQry = ""	
		If Request.Form("Field1") <> "" Then
			nCount = 1
			fp_sMyQry = "&Row0=" & Server.UrlEncode(Request.Form("Field1"))
        	else
        	nCount = 0
        	For Each Field In Request.Form
            If Request.Form(Field) = "ON" Then
                    fp_sMyQry = fp_sMyQry & "&Row" & nCount & "=" & Field & ""
               
                nCount = nCount + 1
            End If
        Next 'Field
	End If
        If Len(fp_sMyQry) > 0 Then
            sRedirect = "delete.asp?FP_Num_Items=" & nCount & fp_sMyQry
            Response.Redirect sRedirect
        End If
    End If
%>

<% if Len(Request("ConfirmDelete")) = 0 then %>

<!--webbot bot="PurpleText" PREVIEW="-要点-  如果您使用数据库结果向导修改该数据库区域，数据库编辑器将不再工作。如果不小心打开了数据库结果向导，单击“取消”退出并不生成数据库结果区域。" -->
<table border="0">
	<thead>
	<tr>
<td bgcolor="black"><font color="white" size="2"><b>主键</b></font></td><td bgcolor="black"><font color="white" size="2"><b>名称</b></font></td><td bgcolor="black"><font color="white" size="2"><b>选项</b></font></td>
	</tr>
	<thead>

	<tbody>
	
<!--#include file="../../../_fpclass/fpdblib.inc"-->
<% if 0 then %>
<SCRIPT Language="JavaScript">
document.write("<div style='background: yellow; color: black;'>The Database Results component on this page is unable to display database content. The page must have a filename ending in '.asp', and the web must be hosted on a server that supports Active Server Pages.</div>");
</SCRIPT>
<% end if %>
<%
fp_sQry="SELECT * FROM Results WHERE 主键 = ::Row0:: "
fp_iItems = CInt(Request("FP_Num_Items"))
fp_iTemp = 1
do while(fp_iTemp < fp_iItems) 
    fp_sQry = fp_sQry & " OR 主键 = ::Row" & fp_iTemp & "::"
    fp_iTemp = fp_iTemp + 1
loop
fp_sNoRecords="<tr><td colspan=4 align=""LEFT"" width=""100%"">没有返回任何记录。</td></tr>"
fp_sDataConn="database"
fp_iMaxRecords=256
fp_iCommandType=1
fp_fTableFormat=True
fp_fMenuFormat=False
fp_sColTypes="&主键=3&名称=202&选项=2"
fp_iDisplayCols=4
fp_fCustomQuery=False
BOTID=0
fp_iRegion=BOTID
%>



<!--#include file="../../../_fpclass/fpdbrgn1.inc"-->

	<tr>
<td>
<!--webbot bot="DatabaseResultColumn" s-columnnames="主键,名称,地址,选项" s-column="主键" b-tableformat="TRUE" b-hasHTML="FALSE" clientside startspan b-makelink b-MenuFormat preview="&lt;font size=&quot;-1&quot;&gt;&amp;lt;&amp;lt;&lt;/font&gt;主键&lt;font size=&quot;-1&quot;&gt;&amp;gt;&amp;gt;&lt;/font&gt;" --><%=FP_FieldVal(fp_rs,"主键")%><!--webbot bot="DatabaseResultColumn" endspan --></td><td>
<!--webbot bot="DatabaseResultColumn" s-columnnames="主键,名称,地址,选项" s-column="名称" b-tableformat="TRUE" b-hasHTML="FALSE" clientside startspan b-makelink b-MenuFormat preview="&lt;font size=&quot;-1&quot;&gt;&amp;lt;&amp;lt;&lt;/font&gt;名称&lt;font size=&quot;-1&quot;&gt;&amp;gt;&amp;gt;&lt;/font&gt;" --><%=FP_FieldVal(fp_rs,"名称")%><!--webbot bot="DatabaseResultColumn" endspan --></td><td>
<!--webbot bot="DatabaseResultColumn" s-columnnames="主键,名称,地址,选项" s-column="选项" b-tableformat="TRUE" b-hasHTML="FALSE" clientside startspan b-makelink b-MenuFormat preview="&lt;font size=&quot;-1&quot;&gt;&amp;lt;&amp;lt;&lt;/font&gt;选项&lt;font size=&quot;-1&quot;&gt;&amp;gt;&amp;gt;&lt;/font&gt;" --><%=FP_FieldVal(fp_rs,"选项")%><!--webbot bot="DatabaseResultColumn" endspan --></td>
	</tr>
	
<!--#include file="../../../_fpclass/fpdbrgn2.inc"-->
	</tbody>
</table>

<center>
<form method="POST">	
        <%select case fp_iCount %>
       	<%case 0:%>
            <p><b><font size="4">单击“确定”刷新。</font></b></p>
            <p><input type="submit" value="确定" name="ConfirmDelete"></p>
        <%case 1:%>
            <p><b><font size="4">是否确实要删除此记录?</font></b></p>
            <p><input type="submit" value="     确定     " name="ConfirmDelete"> <input type="submit" value="取消" name="ConfirmDelete"></p>
        <%case else:%>
            <p><b><font size="4">是否确实要删除此记录?</font></b>
            <p><input type="submit" value="     确定     " name="ConfirmDelete"> <input type="submit" value="取消" name="ConfirmDelete"></p>
        <%end select%></form>

</center>

<%
        Response.end
    ElseIf Request("ConfirmDelete") = "取消" Then
        Response.Clear
        Response.Redirect "detail.asp"
    End If
%>

<script Language="JavaScript">
<!--
	top.list.location.href = top.list.location.href;
// -->
</script>





<!--#include file="../../../_fpclass/fpdblib.inc"-->
<% if 0 then %>
<SCRIPT Language="JavaScript">
document.write("<div style='background: yellow; color: black;'>The Database Results component on this page is unable to display database content. The page must have a filename ending in '.asp', and the web must be hosted on a server that supports Active Server Pages.</div>");
</SCRIPT>
<% end if %>
<%
fp_sQry="DELETE FROM Results WHERE 主键 = ::Row0:: "
fp_iItems = CInt(Request("FP_Num_Items"))
fp_iTemp = 1
do while(fp_iTemp < fp_iItems) 
    fp_sQry = fp_sQry & " OR 主键 = ::Row" & fp_iTemp & "::"
    fp_iTemp = fp_iTemp + 1
loop
fp_sDefault=""
fp_sNoRecords="从表中删除的记录。"
fp_sDataConn="database"
fp_iMaxRecords=256
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=False
fp_fMenuFormat=False
fp_sMenuChoice=""
fp_sMenuValue=""
fp_sColTypes="&主键=3&名称=202&选项=2"
fp_fCustomQuery=True
BOTID=1
fp_iRegion=BOTID

%>
<!--#include file="../../../_fpclass/fpdbrgn1.inc"-->
<p><!--webbot bot="PurpleText" PREVIEW="这是一个 DELETE 查询。" --></p>
<!--#include file="../../../_fpclass/fpdbrgn2.inc"-->
</body>

</html>

⌨️ 快捷键说明

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