?? ding.asp
字號:
<%@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
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -