ding.asp

来自「另外」· ASP 代码 · 共 37 行

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/yu.asp" -->
<%

if(Request("name") <> "") then Command1__y = Request("name")

%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_yu_STRING
Recordset1.Source = "SELECT *  FROM bs.bookrecord"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 2
Recordset1.Open()

Recordset1_numRows = 0
%>
<%

set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_yu_STRING
Command1.CommandText = "INSERT INTO bs.bookrecord (bookno, idcard, name, guestnum, indate, daynum, bookdate)  VALUES ('" + Replace(Command1__y, "'", "''") + "','" + Replace(Command1__y, "'", "''") + "') "
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()

%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>