edit.asp

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

<%@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 userid=unescape(Request("userid"))
var username=unescape(Request("username"))
if((userid!="")&&(username!="")){
var Msg
var oConn = OpenDB("data.mdb");
var Sql="update users set username='"+username+"' where userid='"+userid+"'";
oConn.Execute(Sql);
Msg="会员编号："+userid+"  记录修改成功！";
Response.Write(escape(Msg));
oConn.Close
}else
{
Msg="会员编号或会员姓名为空，修改失败!";
Response.Write(escape(Msg));
}
 %>