📄 delusrcm.asp

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

💻 ASP

字号:

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

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

delcomf_numRows = 0
%>
<html>
<head>
<title>[ 欢迎使用 Cute Assistant v1.0 学籍信息管理系统：：请确认要删除用户 ]</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body background="images/bkg02.jpg">
<p>确认要删除“<font color="#0000FF" size="4"><%=(delcomf.Fields.Item("stuser").Value)%></font>”这个用户吗？ </p>
<table width="75%" border="1" align="center" bgcolor="#66CCFF">
  <tr>
    <td nowrap>用户名</td>
    <td nowrap>密码</td>
    <td nowrap>真实姓名</td>
    <td nowrap>邮件地址</td>
    <td nowrap>所在单位</td>
  </tr>
  <tr>
    <td nowrap><%=(delcomf.Fields.Item("stuser").Value)%></td>
    <td nowrap><%=(delcomf.Fields.Item("stpassword").Value)%></td>
    <td nowrap><%=(delcomf.Fields.Item("stname").Value)%></td>
    <td nowrap><%=(delcomf.Fields.Item("stemail").Value)%></td>
    <td nowrap><%=(delcomf.Fields.Item("stgroup").Value)%></td>
  </tr>
</table>
<p>&nbsp;</p>
<p><a href="deluser.asp?id=<%=(delcomf.Fields.Item("ID").Value)%>">确定</a>　　<a href="edituser.asp">取消</a></p>
</body>
</html>
<%
delcomf.Close()
Set delcomf = Nothing
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -