📄 del.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/yu.asp" -->
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.QueryString("roomno") <> "") Then
Recordset1__MMColParam = Request.QueryString("roomno")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_yu_STRING
Recordset1.Source = "SELECT * FROM bs.room WHERE roomno = '" + Replace(Recordset1__MMColParam, "'", "''") + "'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 2
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 1
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<%if recordset1.eof then
response.write("<script language=JavaScript>{window.alert('数据库没有您在这个月的数据,查询页面即将关闭，请查证后再拨：）^_^!');window.location.href=""index.asp"";}</script>")
else
if recordset1("state")<>"3" then
response.write("<script language=JavaScript>{window.alert('该房间不能预订！');window.location.href=""index.asp"";}</script>")
end if
end if
%>
<html>
<head>
<style type="text/css">
<!--
.STYLE1 {color: #993366}
-->
</style>
<title>客房管理系统</title></head>
<body>
<span class="STYLE1">请输入您的身份证号码和姓名：</span>
<form id="form1" name="form1" method="post" action="ding.asp">
<label>
身份证号：
<input name="idcard" type="text" maxlength="18" />
</label>
<label> 姓 名：
<input name="name" type="text" maxlength="8" />
<input name="roomno" type="text" value="<%=(Recordset1.Fields.Item("roomno").Value)%>" readonly="true"/>
</label>
<label>
<input type="submit" name="Submit" value="提交" />
</label>
</form>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -