提交运行，我设置的事件，不运行问题

2008-04-11 11:36:38 104 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

倾向得分匹配的stata命令_政策评估方法引荐｜广义倾向得分匹配（GPSM）和大家分享一下最近学习的进展，在痛苦读完stata journal和练习OA程序，已经可以基本完成广义倾向得分的估计了，在国内这一方法还没有形成广泛运用，因此学习资源也是有点稀缺的，在文章最后给各位提供数据和代码以供练习。有问题可以随时文末留言或者联系我哦。人文社会科学中一般无法在实验室中控制样本个体的特征，我们一般采用“准自然实验”的研究路径，也就是不随机安排样本接受处理与否。但放弃随机分组假定... 阅读详情

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>



<% function login() admin=str_filter(request.Form("admin"))
pwd=md5(str_filter(request.Form("pwd")))
code=str_filter(request.Form("code"))
if admin="" or pwd="" then
response.write "<script LANGUAGE='javascript'>alert('您的用户名或密码有误！');</script>"
response.end
end if

set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from [bout_admin] where admin='"&admin&"' " ,conn,1,3
if rs("code")<>code then
response.Write("<script language='javascript'>arert('你的验证码不正确，请与管理员联系！');</script>")
response.end
end if
if rs("lock")=1 then
response.Write("<script language='javascript'>arert('你的用户名已被锁定，请与管理员联系！');</script>")
else
if pwd=rs("pwd") then
session("admin")=admin
session("admin_name")=rs("admin_name")
session("pwd")=rs("pwd")
session("flag")=rs("flag")
response.Redirect(index.asp)
else
response.write "<script LANGUAGE='javascript'>alert('您的用户名或密码有误！');</script>"
end if
end if
end function

%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="../css/admin_css.css" rel="stylesheet" type="text/css">
<title>注意安全</title>
<script language="JavaScript">

</script>
</head>

<body>
<table width="1004" align="center" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="587" background="image/login_back.gif"><table width="833" height="183" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="183" colspan="2"> </td>
<td width="520" colspan="3">
<form id="form1" name="form1" method="post" action="" onsubmit="return login();">
<table width="331" height="131" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="101"> </td>
<td colspan="3"> </td>
<td width="85"> </td>
</tr>
<tr>
<td align="right">管理ID:</td>
<td colspan="3">
<input name="admin" type="text" size="16" maxlength="15" /> </td>
<td> </td>
</tr>
<tr>
<td align="right">密码 :</td>
<td colspan="3">
<input name="pwd" type="password" size="16" maxlength="15" /> </td>
<td> </td>
</tr>
<tr>
<td align="right">验证码:</td>
<td colspan="3" align="left">
<input name="code" type="text" size="10" onKeyPress="event.returnValue=IsDigit();" maxlength="10" /> </td>
<td> </td>
</tr>
<tr>
<td align="right"><input type="submit" name="Submit" value="提交" /></td> <td width="13"></td>
<td width="52" align="left"><input type="reset" name="Submit2" value="重置" /></td>
<td width="80" align="left"><input type="button" name="Submit3" onclick="window.location.href='admin_reg.asp'" value="注册" /></td>
<td> </td>
</tr>
</table>
</form>
</td>
</tr>

</table></td>
</tr>
</table>
</body>
</html>

...全文