<script language="vbscript">
e=document.getElementById("shenfenzheng1").value
if ((mid(e,15,17))mod2) > 0 then                       '这里我写的不行。
document.getElementById("yincang2").value="男"
else
document.getElementById("yincang2").value="女"
end if
</script>

--最后你是取17个字符,还是取一个,1个就写个1,把mod 前后空格开就可以了
if ((mid(e,15,1)) mod 2) > 0 then

------解决方案--------------------

VBScript code
<script type="text/vbscript">
    e=document.getElementById("shenfenzheng1").value
    if replace(LCase(right(e,1)),"x",0) mod 2=1 then '判断男女只看最后一位数，单数是男，双数（包括x）是女
    document.getElementById("yincang2").value="男"
    else
    document.getElementById("yincang2").value="女"
    end if
</script>