chkedit.asp

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

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="936"%>
<% 
function OpenDB(sdbname)
{
    var connstr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="+Server.MapPath(sdbname);
    var conn = Server.CreateObject("ADODB.Connection");
    conn.Open(connstr);
    return conn;
}
var str
var oConn = OpenDB("data.mdb");
var sql = "select * from users where userid='"+unescape(Request("userid"))+"'";
var rs = oConn.Execute(sql);
if(!rs.eof){
str="会员编号 "+unescape(Request("userid"))+" 正确 | 姓名:"+unescape(rs("username"));
Response.write(escape(str));
}
else
{
str="ERROR:会员编号 "+unescape(Request("userid"))+" 不存在，重新输入！";
Response.write(escape(str));
}
rs.Close
 %>