想速成，打基础喂。
;P 有编程基础的，一个月都可以了。。。 原帖由 wei50922 于 2006-10-23 13:44 发表;P 有编程基础的，一个月都可以了。。。
请问，什么叫有基础？？？？？
有C++ VB的基础得吗？？？？
编程思路，逻辑
;P，这些达到了，基本上没问题了。。。小弟假期到现在一直啃ASP，啃了四个月，暂时达到这水准，而且是在编程的生死边缘中挣扎到现在。。。。汗。。。Sub UserLoginClass() '操作员登录
Call UrlInfor() '加载链接信息
Call UserLoginForm(ValUser,ValPwd)'加载获取登录表单信息
Call LoginPass(ValUser,ValPwd)'加载登录过程
End Sub
'------------------------------------------------------------------
Sub UserLoginForm(StrUser,StrPwd) '获取登录表单信息
StrUser=Trim(Request.Form("t1")) '用户名
Call WriteB(ChkStrNull(StrUser),UserInfor("Login",1),UrlLogin)
StrPwd=Trim(Request.Form("t2")) '密码
Call WriteB(ChkStrNull(StrPwd),UserInfor("Login",2),UrlLogin)
End Sub
'-------------------------------------------------------------------
Sub LoginPass(StrUser,StrPwd) '登录过程
Call ConnOpen(Conn) '创建连接数据库
Call AdminTableInfor()' 加载数据表信息
Set Rs=RsSet(Conn,3,1,"Select Top 1 "&AdminId&","&AdminUid&","&AdminPwd&","&UseApp&" from "& AdminTable &" Where "&AdminUid&"='"&StrUser&"'") '函数RsSet查询数据表
If Rs.RecordCount>0 Then
If Rs(AdminPwd)=StrPwd Then
If Rs(UseApp)<>0 then '验证是否已通过审核
Session(AdId)=Rs(AdminId)
Call RsClose(Rs)
Call ConnClose(Conn)
Response.Redirect UrlIndex
Response.End
Else
Call RsClose(Rs)
Call ConnClose(Conn)
Call WriteA(UserInfor("Login",6),UrlLogin)
End If
Else
Call RsClose(Rs)
Call ConnClose(Conn)
Call WriteA(UserInfor("Login",4),UrlLogin)
End If
Else
Call RsClose(Rs)
Call ConnClose(Conn)
Call WriteA(UserInfor("Login",3),UrlLogin)
End If
End Sub
谁来解说下，里面的参数传递应用。。。 能看懂大部分.....:L :L :L
但是写不出这样的....:( :( :( :Q :Q :Q
丢人啊~~~~少来嚣张~跟我跟猪爷说~~~~~你就知道错~~~~~~
:lol :lol
再说下去，今晚得有人看我跳情人湖了
汗。。。开工先。。。 原帖由 yy100 于 2006-10-23 13:59 发表:Q :Q :Q
丢人啊~~~~少来嚣张~跟我跟猪爷说~~~~~你就知道错~~~~~~
:lol :lol
美女，你说谁呢？？？
师妹不给点面子师兄。
:L 怕了你了。。闪人。。。就会打小报告。。 说你楼上的呗~~全世界都知道他最嚣张 他很嚣张吗??????不过是没我那么低调。。。。。。:L
页:
1
[2]