delete.txt

tushuguanlixitong 图书借阅系统 用ASP实现的 能实现简单的功能

dim strConn
	dim strSQL
	dim objrst
	strConn = "DSN=dblib;uid=;pwd=;database=db"
	strSQL = "select * from Tadm where admname = '" & loginname & "' and admpass= '" & loginpass & "'"

	Set Conn = Server.CreateObject("ADODB.Connection")
	Set CmdDeleteUser = Server.CreateObject("ADODB.Recordset")
	Conn.Open strconn
	strSQL = "DELETE FROM Tadm WHERE (USER_ID = " & ID & ")"
	CmdDeleteUser.Open strSQL, ConnPasswords, 0, 1
	ConnPasswords.Close
	Set ConnPasswords = Nothing