我想通过VB做个简单的B/S 结构的东东!
就是想在http://nameyumeiren.8u8.com 出现登陆口,验证用户名和密码就可以登陆。 想知道用VB怎么做,要有数据库的。 用户名:
密 码: 确定 取消 太感谢了!!!
就是想在http://nameyumeiren.8u8.com 出现登陆口,验证用户名和密码就可以登陆。 想知道用VB怎么做,要有数据库的。 用户名:
密 码: 确定 取消 太感谢了!!!
帮帮忙教教呗!!
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Application("constr")="driver={SQL Server};server=ajiu;uid=sa;pwd=;database=Tes"
Application("pagesize")=10
</SCRIPT><SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Application_OnEnd
END SUB
</SCRIPT><SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Session_OnStart
Dim conn
set conn=Server.CreateObject("ADODB.Connection")
conn.open Application("constr")
set session("con")=conn
END SUB
</SCRIPT><SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Session_OnEnd
conn.Close
set session("con")=nothing
END SUB
</SCRIPT>其中 "server=ajiu;uid=sa;pwd=;database=Tes"将Server改为需连接的服务器名称,DataBase后改为需连接的数据库名
<%response.Expires=0
UserID = Request.Form("UserID")
session("UserID")=UserID
Password = Request.Form("Password")
session("Password")=Passwordif IsEmpty(UserID) or IsEmpty(Password) then
session("error")="请先登录,输入正确的帐号和密码!"
session("return")="/rlogin.asp"
response.Redirect("error.asp")
end if
UserID = Replace(Request.Form("UserID"),"'","''")
set con = session("con")
Qstr = "select Password from UserInformation where UserID='"&UserID&"'"
'Response.Write(Qstr+Application("constr"))
'Response.End()
set result = con.Execute(Qstr)
if result.eof then
session("error")="没有该用户,请确认输入用户名正确!"
session("return")="/rlogin.asp"
response.Redirect("error.asp")
end if if strcomp(result("Password"),Password) <> 0 then
session("error")="密码错误,请确认输入的密码正确!"
session("return")="/rlogin.asp"
response.Redirect("error.asp")
end if
response.redirect "search.asp"
%>写的过程都给你贴在上面了,稍微看一个ASP就应该会了吧
也很容易
對vb也算不上喜歡,不過vb轉到asp和DEPHI比較容易。
把愛好變成工作很痛苦的過程今天看醫生,問:是不是老是晚睡覺。我說這是習慣,每天6個小時不到的睡眠。你的站看不到,不知道你要什麼效果,如果參考阿九還不行,你可以貼圖出來,
個人可以來幫你,反正我們這邊做asp一大堆,hoho~
好好切考个 《中华人民共和国结婚证》好点
//////////////////
就怕 yunyun820930(我爱张云芸) 自己一輩子都考不到。。
楼上的兄弟,我只是来的晚了一点.....
要不然吵一架是免不了得啦.