游本昌济公迅雷下载:我的ASP 读不到验证码session,呵呵,我一菜鸟,麻烦你看一下

我在网上找了一个getcode.asp,原本按着教程一步一步的做,但是就是不成,ai~~~~做了一天了,就是想不通.验证码的原理倒是搞懂了,但是login页就是认不到getcode的session.我的源代码如下:
login.asp
<!-<!--#include file="db.asp"-->
<% session("code")=request.form("GetCode") %>
<%
validpwd = true
If request.form("submit") <> "" Then

' setup variables
userid = Request.Form("userid")
passwd = Request.Form("passwd")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open xDb_Conn_Str
Set rs = conn.Execute( "Select * from [admin] where [user_id] = '" & UCASE(userid) & "'")
If not rs.eof then
If ucase(rs("user_pwd")) = ucase(passwd) Then
validpwd = true
Else
validpwd = false
End If
Else
validpwd = false
end if
lev=rs("lev")
user=rs("user_id")
rs.Close
Set rs=Nothing
conn.Close
Set conn=Nothing
If validpwd Then
Session("exemple_status") = "login"
session("lev")=lev
session("u_id")=user
response.redirect "default.asp"
End If
End If
%>
<form action="login.asp" method="post" onSubmit="return loginCheck(this);">
<tr>
<td align="left">User ID</td>
<td><input name="userid" type="TEXT"size="20"></td>
</tr>
<tr>
<td align="left">Password</td>
<td><input name="passwd" TYPE="PASSWORD" size="10"></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td>验证码：</td>
<td><input name="GetCode" type="text" id="GetCode" size="8" maxlength="8">
<img src=GetCode.asp border=0></td>
<tr>
<td> </td>
<td><input type="submit" name="submit" value="Login"></td>
<tr>
<td height="30" colspan="2"> </td>
<tr>
<td colspan="2">
<% If not validpwd Then %>
提示: 错误的用户名或密码!!!
<% End If %> </td>
</form>
我的session加在那对不对,请你不要给我发教程一类的东东,能不能给我具体改一改,我的getcode.asp里的-----Session("code") = vCodes '记录入Session----多谢高人!