当前位置: 代码迷 >> Web开发 >> VB一小段代码求小疑点指教
  详细解决方案

VB一小段代码求小疑点指教

热度:229   发布时间:2012-02-22 19:36:56.0
VB一小段代码求小问题指教
这是vb还是vbscript还是VB.net?
如何能比较快区分这三种语言,还有,这三者有什么共同性与区别?

一张.asp里面的一段,请问根据这一段可以知道登入的用户名和密码吗?
<!--#include file = conn.asp-->
<%
username = request("username")
password = request("password")
set rs = server.CreateObject("adodb.recordset")
sql = "select * from admin where username = '"&username&"' and password = '"&password&"'"
rs.open sql,conn,1,3

if rs.eof then
Response.Write "<script language=javascript>alert('对不起,您的用户名和密码错误!');"
Response.Write "window.document.location.href='index.asp';</script>"
else
session("userid") = rs("ID")
Response.Write "<script language=javascript>alert('恭喜您登陆成功!');"
Response.Write "window.document.location.href='goods.asp';</script>"
end if
%>



这是coon.asp页面里的,上面 <!--#include file = conn.asp-->是指和这张网页链接吗?
<%
connstr = "dbq="&server.mappath("data.mdb")&";driver={microsoft access driver (*.mdb)}"
set conn=server.createobject("adodb.connection")
conn.open connstr
%>



这是网站上另外一个修改密码的界面 从里面可以找出原来的密码吗?


<%If session("userid")="" Then Response.Redirect "index.asp"%>
<!--#include file="conn.asp"-->
<%
dim sql
pwd = trim(request("pwd"))
password = request("password")
password2 = request("password2")
fID = session("userid")

sql = "select * from admin where ID = " & fID
set rs = server.CreateObject("ADODB.REcordSet")
set rs = conn.execute(sql)
if pwd <> Trim(rs("password")) then
Response.Write "<script language=javascript>alert('您输入的原来密码不正确!');"
Response.Write "window.document.location.href='pwdck.asp';</script>"
end if

sql = "update admin set password = "
if Trim(password)<>"" then
sql = sql & "'" & password & "'"
else
sql = sql & "null"
end if
sql = sql & " where ID = " & fID
conn.execute(sql)

Response.Write "<script language=javascript>alert('密码修改成功!');"
Response.Write "window.document.location.href='goods.asp';</script>"
%>

下面一行用“”引起来是什么意思?大概想要达到的目的是什么?
sql = "select * from admin where ID = " & fID

------解决方案--------------------
VBScript是VB的子集,是一种脚本语言。
VB.NET是VB的后续版本,比VB功能更加强大,开发效率更高。
  相关解决方案