del.asp

来自「很好的财务系统」· ASP 代码 · 共 22 行

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="936"%>
<% 
function OpenDB(dbfile){
    var connstr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="+Server.MapPath(dbfile);
    var conn = Server.CreateObject("ADODB.Connection");
    conn.Open(connstr);
    return conn;
}
var Str=unescape(Request("userid"));
if (Str!=""){
var oConn=OpenDB("data.mdb");
var sql="delete  * from users where userid='"+Str+"'"
oConn.Execute(sql);
Str="成功删除会员编号为"+Str+"的记录！";
Response.Write(escape(Str));
oConn.Close
}else
{
Str="会员编号为空,删除失败!";
Response.Write(escape(Str));
}
%>