📄 del.asp

📁 学生学籍信息这是一个针对学生学籍信息的管理软件

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 
<!--#include file="Connections/assistconn.asp" -->
<%
Dim delset__MMColParam
delset__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then 
  delset__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim delset
Dim delset_numRows

Set delset = Server.CreateObject("ADODB.Recordset")
delset.ActiveConnection = MM_assistconn_STRING
delset.Source = "SELECT * FROM assistab WHERE ID = " + Replace(delset__MMColParam, "'", "''") + ""
delset.CursorType = 0
delset.CursorLocation = 2
delset.LockType = 1
delset.Open()

delset_numRows = 0
%>
<html>
<head>
<title>Cute Assistant学籍信息管理系统：：请确认删除信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body background="images/bkg02.jpg">
<p>确认要删除“<font color="#0033FF" size="4"><%=(delset.Fields.Item("name").Value)%></font>”这条记录吗？</p>
<table width="75%" border="1">
  <tr> 
    <td nowrap>学号</td>
    <td nowrap>姓名</td>
    <td nowrap>性别</td>
    <td nowrap>出生日期</td>
    <td nowrap>政治面貌</td>
    <td nowrap>家庭所在地</td>
    <td nowrap>档案</td>
    <td nowrap>奖惩</td>
    <td nowrap>休复停退学</td>
    <td nowrap>备注</td>
  </tr>
  <tr> 
    <td nowrap><%=(delset.Fields.Item("stunum").Value)%></td>
    <td nowrap><%=(delset.Fields.Item("name").Value)%></td>
    <td nowrap><%=(delset.Fields.Item("sex").Value)%></td>
    <td nowrap><%=(delset.Fields.Item("birthyear").Value)%>年<%=(delset.Fields.Item("birthmonth").Value)%>月<%=(delset.Fields.Item("birthday").Value)%>日</td>
    <td nowrap><%=(delset.Fields.Item("politics").Value)%></td>
    <td nowrap><%=(delset.Fields.Item("privince").Value)%>省<%=(delset.Fields.Item("homeaddress").Value)%>市（镇）</td>
    <td nowrap><%=(delset.Fields.Item("fileyn").Value)%></td>
    <td nowrap><%=(delset.Fields.Item("awardyn").Value)%></td>
    <td nowrap><%=(delset.Fields.Item("retireyn").Value)%></td>
    <td nowrap><%=(delset.Fields.Item("otherinfo").Value)%></td>
  </tr>
</table>
<p>&nbsp;</p>
<p><a href="delete.asp?id=<%=(delset.Fields.Item("ID").Value)%>">确认</a> 
  　 <a href="searchmg.asp">取消</a></p>
</body>
</html>
<%
delset.Close()
Set delset = Nothing
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -