投稿
  1. 首页
  2. sql

用vbscript连mysql的数据库，并执行sql语句，怎么写

halfway • 2023-5-4 • sql • 阅读 53

用vbscript连mysql的数据库，并执行sql语句，怎么写,第1张

Set Conn = CreateObject("ADODB.Connection" )

str="DRIVER={MySQL ODBC 3.51 Driver}SERVER=192.168.1.100DATABASE=wp_bloguser id=zzz password=123456"

Conn.open str

Set Rs = CreateObject ("ADODB.Recordset" )

sql = "select * from `wp_blog`.`blg_webcategory` limit 0, 5000"

Rs.open sql,conn,1,3

If (not Rs.eof) then

Rs.MoveFirst

MsgBox Rs(0)

MsgBox Rs(1)

MsgBox Rs(2)

MsgBox Rs(3)

end if

Rs.close

Set Rs = Nothing

Conn.close

Set Conn = Nothing

你的action呢？

为空么？

在本页提交的话，你还要加代码啊。先接收用户信息，再根据type来写数据库查询代码，

再打开数据库进行查询用户名或密码对不对，如果对，写入session

如不对，转到登录界面。。。

这是思路。。。

1.Dreamweaver完全可以开发asp。也可以开发php等。但是如果是.net或者jsp可以分别用visual studio 和MyEclipse。

2.你说的程序的话。我倒可以给你我最近写图书馆图书管理系统的登录部分的代码。做个参考。涉及到的图片。我就不给了哦。只是给你做给参考。

login.asp页面代码，连接数据库的我就不给了。为了安全

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<!--#include file="conn.asp"-->

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "">

<html xmlns="">

<head>

<meta http-equiv="Content-Type" content="text/htmlcharset=gb2312" />

<link type="text/css" rel="stylesheet" href="css/index.css" />

<script language="javascript" type="text/javascript" src="js/check.js">

</script>

<%

dim sql

sql = "select library_name,create_time,copyright_info from sysest"

set rs = server.CreateObject("adodb.recordset")

rs.open sql,conn,1,1

%>

<title><%=rs("library_name")%></title>

<%

rs.close

conn.close

set rs = nothing

set conn = nothing

%>

</head>

<body>

<div id="content">

<div id="top"><img src="images/top.gif" /></div>

<div id="middle">

<form action="check.asp" name="login" id="login" method="post" onsubmit="return check()">

<ul>

<li>用户账号

<input name="username" type="text" id="username" size="20" maxlength="20" class="input"/>

</li>

<li>用户密码

<input name="pw" type="password" id="pw" size="20" maxlength="20" class="input"/>

</li>

<li>验证码

<input name="code" type="text" id="code" size="4" maxlength="4" style="height:20pxborder:#0099FF solid 1px"/>

<img src="code.asp" alt="刷新验证码" onclick="this.src='code.asp'" style="cursor:pointer" >

<li>

<input type="submit" value="登录" style="padding:0px 15px"/>

<input type="reset" value="重置" style="padding:0px 15px" />

</li>

</ul>

</form>

</div>

<div id="bottom"><img src="images/bottom.gif" /></div>

</div>

</body>

</html>

安全检查的js客服端验证代码如下

//下面的代码部分是是对用户登录的验证的JavaScript代码

function check()

{

var reg = new RegExp("[0-9a-zA-Z]")

//首先是对用户名的判断部分

var username = document.all.username.value

if(username=="")

{

alert("用户名是必填项，不可以为空！")

return false

}

else if(!(reg.test(username)))

{

alert("请不要输入非法字符！")

return false

}

//对密码的判断部分

var pw = document.all.pw.value

if(pw=="")

{

alert("密码是必填项，不可以为空！")

return false

}

else if(!(reg.test(pw)))

{

alert("请不要输入非法字符！")

return false

}

//对验证码的判断部分

var code = document.all.code.value

if(code=="")

{

alert("验证码是必填项，不可以为空！")

return false

}

else if(!(reg.test(code)))

{

alert("请不要输入非法字符！")

return false

}

else

{

return true

}

}

服务器端验证代码

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<!--#include file="conn.asp"-->

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "">

<html xmlns="">

<head>

<meta http-equiv="Content-Type" content="text/htmlcharset=gb2312" />

<title>服务器端验证代码</title>

<style type="text/css">

/*

下面的代码是图书管理系统检测页面的css代码*/

/*

公共部分都css代码*/

*{

margin:0px

padding:0px

}

body{

font-family:Arial, Helvetica, sans-serif

font-size:14px

color:#ff0000

}

ul,li{

list-style:none

}

#content{

text-align:center

margin:100px 50px

}

</style>

</head>

<body>

<%

'首先获得用户输入的用户名、密码、验证码三个东西

dim username,pw,code,bool,bool2

bool = false

bool2 = false

username = request.Form("username")

pw = request.Form("pw")

code = request.Form("code")

'获得输入后，进行用户名、密码、验证码合法性判断，用正则

set re = new RegExp

re.pattern="[a-zA-Z0-9]"

if re.test(username) then

if re.test(pw) then

if re.test(code) then

bool = true

end if

end if

end if

%>

<div id="content">

<ul>

<li>

<%

if not bool then

response.Write("<img src='images/error.gif'/>")

end if

if bool=true and bool2=false then

dim sql

sql = "select admin_name,admin_pw,admin_power from sysadmin where admin_name='"&username&"' and admin_pw='"&pw&"'"

set rs = server.CreateObject("adodb.recordset")

rs.open sql,conn,1,1

if not rs.eof then

'登录成功后记录相关都session

session("power") = rs("admin_power")

session("username") = username

'关闭上面查询完成的rs

rs.close

set rs = nothing

dim getcode

getcode=UCase(Cstr(Session("GetENCode")))

if getcode=code then

bool2 = true

response.Write("<img src='images/loginsuccess.gif'/>")

end if

Session("GetENCode")=""

else

response.Write("<img src='images/error.gif'/>")

end if

end if

%>

</li>

<li>

<%

if not bool then

dim ip,logintime

logintime = now()

ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")

If ip = "" Then

ip = Request.ServerVariables("REMOTE_ADDR")

end if

sql = "insert into errorlog(error_name,error_pw,error_ip,error_time) values('"&username&"','"&pw&"','"&ip&"','"&logintime&"')"

set rs = server.CreateObject("adodb.recordset")

rs.open sql,conn,1,3

response.Write("我们检测到非法字符！已经记录了你的ip！！！")

end if

if not bool2 and bool=true then

response.Write("输入的用户名或密码或验证码错误！！！请后退核实之后再次输入！！！")

end if

if bool2 then

response.Write("登录成功！！！系统在3秒后自动跳转到管理页面！！！")

response.Write("<meta http-equiv='refresh' content='3url=admin/index.asp'>")

response.Write("如果页面无跳转！！！请点击<a href='admin/index.asp'>到管理界面</a>")

end if

conn.close

set conn = nothing

%>

</li>

</ul>

</div>

</body>

</html>

还有css部分差点忘给了

/*

下面的代码是图书管理系统首页的css代码*/

/*

公共部分都css代码*/

*{

margin:0px

padding:0px

}

body{

font-family:Arial, Helvetica, sans-serif

font-size:12px

color:#000000

background:url(../images/bgcolor.gif)

}

/*下面的代码用于对齐用户名和密码输入框*/

.input{

color:#006699

width:100px

height:20px

border:#0099FF solid 1px

}

#content{

text-align:center

margin:100px 50px

}

#middle{

background:url(../images/middle.gif)

width:884px

}

#middle ul{

list-style:none

}

#middle ul,li{

padding:10px 3px

}

欢迎分享，转载请注明来源：内存溢出

原文地址: http://outofmemory.cn/sjk/10062198.html

赞 (0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
halfway halfway 一级用户组
0 0
上一篇 2023-05-04
下一篇 2023-05-04

发表评论

登录后才能评论

评论列表（0条）

保存