第三次上机，ADO接口的使用
<html>
<head>
<title>Reg</title>
</head>
<body><center>
<form method="post" action="RegServer.asp" name="RegServer">
<h2>请留下个人资料</h2>
<table border=0 width=501 >
<tr>
<td width="81" align="right">姓名: </td>
<td width="406" ><input type="text" name="name" size="15"></td>
</tr>
<tr>
<td width="81" align="right">密码: </td>
<td width="406" ><input type="text" name="password" size="15"></td>
</tr>
<tr>
<td width="81" align="right">性别: </td>
<td width="406" ><input type="radio" name="sex" value="男" cheaked>男 <input type="radio" name="sex" value="女" cheaked>女 </td>
</tr>
<tr>
<td width="81" align="right">学号： </td>
<td width="406" ><input type="text" name="xuehao" size="15"></td>
</tr>
<tr>
<td width="81" align="right">选择班级：</td>
<td width="406" ><select size="1" name="banji">
<%
for i = 1 to 6
Response.write" <option>机械160"&i&"</option>"
Next
%>
</select>班</td>
</tr>
<tr>
<td width="81" align="right">籍贯： </td>
<td width="406" ><input type="text" name="home" size="15"></td>
</tr>
<tr>
<td width="81" align="right">电话： </td>
<td width="406" ><input type="text" name="phonenumber" size="15"></td>
</tr>
<tr>
<td width="81" align="right">QQ： </td>
<td width="406" ><input type="text" name="qq" size="15"></td>
</tr>
<tr>
<td width="81" align="right">E-mail： </td>
<td width="406" ><input type="text" name="email" size="15"></td>
</tr>
<tr>
<td width="81" align="right">备注： </td>
<td width="406" ><textarea rows=4 name=beizhu cols=38></textarea></td>
</tr>
</table>
<p><input type="submit" value="提交" name="B1">
<input type="reset" value="全部重写" name="B2"></p>
</form>
</body>
</html>
<!-- File name:RegSever.asp -->
<html>
<body>
<%
Dim strName,strPass,strSex,strNum,strTele,strClass,strQQ,strEmail,strNativePlace,strRemark,dtmSubmit
strName = Request.Form("name")
strPass = Request.Form("password")
strNum = Request.Form("xuehao")
strNativePlasce = Request.Form("home")
strTele = Request.Form("phonenumber")
strQQ = Request.Form("qq")
strEmail = Request.Form("email")
strRemark = Request.Form("beizhu")
strSex = Request.Form("sex")
strClass = Request.Form("banji")
dtmSubmit=Date()
Set conn=Server.CreateObject("ADODB.Connection")
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Info.mdb")
conn.Open strConn
conn.Execute("Insert Into tbInfo(strName,strPass,strSex,strNum,strTele,strClass,strQQ,strEmail,strNativePlace,strRemark,dtmSubmit) Values('"& strName &"','"& strPass &"','"&strSex &"','"& strNum &"','"& strTele &"','"& strClass &"','"& strQQ &"','"& strEmail &"','"& strTele &"','"& strRemark &"', #"&dtmSubmit&"#)")
conn.Close
%>
</body>
</html>
运行结果如下：
<html>
<body>
<%
Set conn=Server.CreateObject("ADODB.Connection")
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Info.mdb")
conn.Open strConn
Dim strName,strPass
strName = Request.Form("T1")
strPass = Request.Form("T2")
strName="'" & strName & "'"
strPass="'" & strPass & "'" sql="select * from tbInfo where strName=" & strName & "and strPass=" & strPass
Set rs=conn.Execute(sql)
if rs.BOF=true and rs.EOF=true then
response.Write "登录名或密码错误！"
%>
<a href="./Login.html">返回登录界面</a>
<%
else
strName = Request.Form("T1")
response.Write"" & strName&"，欢迎您的到来！"
end if
conn.Close %>
</body>
运行结果如下：
登陆成功
登录失败
（之前已注册姓名为“”“小明”的用户，密码设置为“123”）
第三次上机，ADO接口的使用的更多相关文章
- 【转】Android LCD(三)：Samsung LCD接口篇
关键词:android LCD控制器 Framebuffer PWM 平台信息:内核:linux2.6/linux3.0系统:android/android4.0 平台:samsung exynos ...
- Android LCD(三)：Samsung LCD接口篇
关键词:android LCD控制器 Framebuffer PWM 平台信息: 内核:linux2.6/linux3.0 系统:android/android4.0 平台:samsung exy ...
- SQL Server -- 回忆笔记（三）：ADO.NET之C#操作数据库
SQL Server知识点回忆篇(三):ADO.NET之C#操作数据库 1.连接数据库 (1)创建连接字符串: 使用windows身份验证时的连接字符串: private string conStr= ...
- 17秋 SDN课程 第三次上机作业
SDN 第三次上机作业 1.创建拓扑 2.利用OVS命令下发流表,实现vlan功能 3.利用OVS命令查看流表 s1: s2: 4.验证性测试 5.Wireshark 抓包验证
- SDN 第三次上机作业
SDN 第三次上机作业 1.创建拓扑 2.利用OVS命令下发流表,实现vlan功能 3.利用OVS命令查看流表 s1: s2: 4.验证性测试 5.Wireshark 抓包验证
- 《三》大话 Typescript 接口
> 前言: 本文章为 TypeScript 系列文章. 旨在利用碎片时间快速入门 Typescript. 或重新温故 Typescript 查漏补缺.在官方 api 的基础上, 加上一些日常使用 ...
- Java之创建线程的方式三：实现Callable接口
import java.util.concurrent.Callable;import java.util.concurrent.ExecutionException;import java.util ...
- 创建线程的方式三：实现Callable接口-----JDK5.0 新增
package com.yhqtv.java2; /* * 创建线程的方式三:实现Callable接口-----JDK5.0 新增 * * 如何理解实现Callable接口的方式创建多线程比实现Run ...
- 创建线程的方式三：实现Callable接口 --- JDK 5.0新增
/** * 创建线程的方式三:实现Callable接口. --- JDK 5.0新增 * * * 如何理解实现Callable接口的方式创建多线程比实现Runnable接口创建多线程方式强大? * 1 ...
- 【多线程】线程创建方式三：实现callable接口
线程创建方式三:实现callable接口 代码示例: import org.apache.commons.io.FileUtils; import java.io.File; import java. ...
随机推荐
- Python一行代码实现快速排序
上期文章排序算法——(2)Python实现十大常用排序算法为大家介绍了十大常用排序算法的前五种(冒泡.选择.插入.希尔.归并),因为快速排序的重要性,所以今天将单独为大家介绍一下快速排序! 一.算法介 ...
- 带着新人看java虚拟机04（多线程篇）
我记得最开始接触多进程,多线程这一块的时候我不是怎么理解,为什么要有多线程啊?多线程到底是个什么鬼啊?我一个程序好好的就可以运行为什么要用到多线程啊?反正我是十分费解,即使过了很长时间我还是不是很懂, ...
- Java虚拟机二：使用jvisualvm工具远程监控tomcat内存
jdk中自带了很多工具可以用于性能分析,位于jdk的bin目录下,jvisualvm工具可以以图形化的方式更加直观的监控本地以及远程的java进程的内存占用,线程状态等信息. 一.配置tomcat 在 ...
- pfSense配置基于时间的防火墙规则
基于时间的规则允许防火墙规则在指定的日期和/或时间范围内激活.基于时间的规则与任何其他规则的功能相同,只是它们在预定时间之外的规则集中实际上不存在. 基于时间的规则逻辑处理基于时间的规则时,调度计划确 ...
- 人生苦短，我用 Python
从2015开始国内就开始慢慢接触Python了,从16年开始Python就已经在国内的热度更高了,目前也可以算的上"全民Python"了.众所周知小学生的教材里面已经有Python ...
- 自学WEB前端能不能找到一份前端开发工作
关于自学WEB前端能不能通过社招找到一份互联网公司WEB前端开发的工作,有无数的人问出这样的问题,答案没有标准的,只能从概率去考虑.有的人可以,有的人不可以,有的人自学就业的概率就是高,有的概率就是低 ...
- 1. [mmc subsystem] 概念与框架
一.概念 1.mmc的概念 mmc有很多种意义,具体如下: mmc MultiMedia Card,多媒体存储卡, 但后续泛指一个接口协定(一种卡式),能符合这接口的内存器都可称作mmc储存体. 主要 ...
- 20170310 - Python 3 下 SQLAlchemy 的 MySQL 数据库 URI 配置
MySQL-Python 只用于 Python 2,URI配置为 mysql://username:password@server/db Python 3 下要使用另一个 PyMySQL 包,相应的U ...
- ML.NET 发布0.11版本：.NET中的机器学习，为TensorFlow和ONNX添加了新功能
微软发布了其最新版本的机器学习框架:ML.NET 0.11带来了新功能和突破性变化. 新版本的机器学习开源框架为TensorFlow和ONNX添加了新功能,但也包括一些重大变化, 这也是发布RC版本之 ...
- vue2.0 日历日程表 ，可进行二次开发.
由于工作业务需求,要写一个日程表,日程表写之前 要先生成日历,废话不多说,直接 上代码: <!DOCTYPE html> <html lang="zh-CN"&g ...