第三次上机，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. ...
随机推荐
- javascript引擎执行的过程的理解--语法分析和预编译阶段
一.概述 js是一种非常灵活的语言,理解js引擎的执行过程对于我们学习js是非常有必要的.看了很多这方便文章,大多数是讲的是事件循环(event loop)或者变量提升的等,并没有全面分析其中的过程. ...
- 命令行中的 vi 模式
命令行中修改已经输入的命令比较麻烦,如果你不知道一些快捷键的话,只能使用方向键一个一个字符地移动到目标位置进行修改,对于比较复杂且过长的命令来说,效率不高. 以下信息来自 bash 的 man 页面: ...
- Mqtt学习指南
MQTT是物联网应用当中一种非常重要的,轻量级的协议,现将该协议的重要学习资源整理一下,希望能为初学者提供一个完整的学习资源. MQTT是一个客户端服务端架构的发布/订阅模式的消息传输协议.它的设计思 ...
- Java多线程与并发之面试常问题
JAVA多线程与并发 进程与线程的区别 进程是资源分配的最小单位,线程是CPU调度的最小单位 所有与进程相关的资源,都被记录在PCB(进程控制块)中 进程是抢占处理机的调度单位:线程属于某个进程,共享 ...
- Sql server数据库定时任务，数据库作业，数据库定时任务
当需要周期性的去执行一个方法时,我们可以先写好方法,然后交给数据库去完成就可以的. 步骤:首先打开SQL数据库中SQLServer代理-->右键作业-->新建作业: 如果SQL Serve ...
- Vue番外篇 -- vue-router浅析原理
近期被问到一个问题,在你们项目中使用的是Vue的SPA(单页面)还是Vue的多页面设计? 这篇文章主要围绕Vue的SPA单页面设计展开. 关于如何展开Vue多页面设计请点击查看. 官网vue-rout ...
- 从零开始学习和改造activiti流程引擎的13天，自己记录一下
day#1(11.13) 尝试通过spring boot 集成最新版activiti 7,但是苦于官方的文档基本为空,无法完成spring boot的配置,最终按照activiti 6的文档,手工初始 ...
- Dapeng框架－开源高性能分布式微服务框架
我们公司性质是新零售,公司也有专门的框架组.这群大牛自己开发了一整套分布式微服务框架.我们也在使用这套框架,有很多心得体会. 该框架既Dapeng也!开源github地址:https://github ...
- 第3章 简单的C程序设计——顺序程序设计
3.1 顺序程序设计举例 例:有人用温度计测量出用华氏法表示的温度(如64F),今要求把它转换为一摄氏法表示的温度(如17.8C) 解题思路:问题的关键在于找到两者的转换公式.根据物理学知识,公式为c ...
- Winows + VSCode + Debug PHP
一.环境 环境:Win10 二.软件 1.安装VSCode 下载地址:https://code.visualstudio.com/Download 2.PHP 代码包 版本:php-7.2.9-Win ...