一段看不懂的代碼
菜鳥學習
請幫我逐行結實
謝謝！


<%
Session.Timeout=30
session( "ulogin ")= "no "
cname=trim(request( "username "))
pass=request.Form( "PWD ")
pass=replace(pass, " ' ", " ")
set   conn=server.createobject( "adodb.connection ")
set   comm=server.CreateObject( "adodb.command ")
conn.open   application( "dsn ")
set   comm.activeconnection=conn
comm.commandtype=adcmdstoredproc
comm.commandtext= "checklogin "
set   mpf=comm.createparameter( "cname ",advarchar,adparaminput,20)
comm.parameters.append   mpf
set   mps=comm.createparameter( "pass ",advarchar,adparaminput,20)
comm.parameters.append   mps
comm( "cname ")=cname
comm( "pass ")=pass
set   rs=comm.execute  
if   rs.eof   then
response.Write( " <script   language= 'JavaScript '> alert( '&#63384;輸入有錯 ');window.location.href= 'login.asp '; </script> ")
else
session( "id ")=rs( "id ")
session( "name ")=rs( "name ")
session( "quan ")=rs( "quan ")
session( "ulogin ")= "yes "
response.redirect   "default.asp "
end   if  
%>

------解决方案--------------------
<%
Session.Timeout=30 '设置session超时时间为30分钟
session( "ulogin ")= "no " '设置session( "ulogin ")的直为no
cname=trim(request( "username ")) '获取get或者post提交上来的值
pass=request.Form( "PWD ") '获取post提交上来的值
pass=replace(pass, " ' ", " ") '把 '好替换为空
set conn=server.createobject( "adodb.connection ") '创建数据连接对象
set comm=server.CreateObject( "adodb.command ") '创建命令对象
conn.open application( "dsn ") '打开数据连接
set comm.activeconnection=conn '这个好象错了，不用set了，意思是命令的连接对象
comm.commandtype=adcmdstoredproc '指示 Command 对象的类型
comm.commandtext= "checklogin " '包含要根据提供者发送的命令的文本
set mpf=comm.createparameter( "cname ",advarchar,adparaminput,20) '使用指定属性创建新的 Parameter 对象。
comm.parameters.append mpf '将数据追加到大型文本、二进制数据 Field 或 Parameter 对象。
set mps=comm.createparameter( "pass ",advarchar,adparaminput,20) '使用指定属性创建新的 Parameter 对象。

comm.parameters.append mps将数据追加到大型文本、二进制数据 Field 或 Parameter 对象。

comm( "cname ")=cname
comm( "pass ")=pass
set rs=comm.execute
if rs.eof then
response.Write( " <script language= 'JavaScript '> alert( '&#63384;輸入有錯 ');window.location.href= 'login.asp '; </script> ")
else
session( "id ")=rs( "id ")
session( "name ")=rs( "name ")
session( "quan ")=rs( "quan ")
session( "ulogin ")= "yes "
response.redirect "default.asp "
end if
%>