📄 delayreg.asp

📁 电子商务网络购物系统

💻 ASP

字号:

<% Option Explicit %>
<!--#include file="conn.asp" -->
<%
Dim strMode
Dim blnSuspended

blnSuspended = CBool(Request.Form("sus"))
strMode = Request.Form("mode")
strSQL = "SELECT timescfg.unreg From timescfg;"
rsConn.CursorType = 2
rsConn.LockType = 3
rsConn.Open strSQL, adoCon
If strMode = "postBack" Then
	With rsConn
		.Fields("unreg") = blnSuspended	
		.Update
		.Requery
	End With
End If
If NOT rsConn.EOF Then
	blnSuspended = CBool(rsConn("unreg"))
End If
rsConn.Close
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
%>
<html>
<head>
<title>停止注册</title>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<link href="includes/style.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div align="center"> 
  <p class="text"><span class="heading">停止注册</span><br>
    <br />
    <a href="menu.asp" target="_self">返回到管理主菜单</a><br>
  </p>
</div>
<form method="post" name="frmSus" action="delayreg.asp">
 <table width="560" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#000000">
  <tr> 
   <td width="560"> <table width="100%" border="0" align="center" cellpadding="4" cellspacing="1">
     <tr align="left" bgcolor="#CCCCCC"> 
            <td colspan="2" class="text">*必填</td>
     </tr>
     <tr  bgcolor="#FFFFFF"> 
            <td width="59%"  height="7" align="left" class="text">停止注册</td>
            <td width="41%" height="7" valign="top" class="text"> 是
<input type="radio" name="sus" value="True" <% If blnSuspended = True Then Response.Write "checked" %>>
              &nbsp; 否
<input type="radio" name="sus" value="False" <% If blnSuspended = False Then Response.Write "checked" %>> </td>
     </tr>
     <tr bgcolor="#FFFFFF" align="center"> 
      <td valign="top" height="2" colspan="2" > <p> 
        <input type="hidden" name="mode" value="postBack">
        <input type="submit" name="Submit" value="确定">
       </p></td>
     </tr>
    </table></td>
  </tr>
 </table>
</form>
<br />
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -