第三次上机，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. ...
随机推荐
- Azure Devops/Tfs 编译的时候自动修改版本号
看到阿迪王那边出品了一个基于Azure Devops自增版本号 链接 http://edi.wang/post/2019/3/1/incremental-build-number-for-net-c ...
- Google 的 QUIC 华丽转身成为下一代网络协议： HTTP/3.0
HTTP/2.0 还没有普及,HTTP/3.0 标准就要被制定了. 据 IETF 透露,HTTP-over-QUIC 实验协议将被重命名为 HTTP/3,并成为 HTTP 协议的第三个正式版本. IE ...
- 《前端之路》 之 前端 安全 XSS 原理以及防御手段
什么是 XSS 一.XSS 什么是 XSS XSS,即 Cross Site Script , 翻译过来就是 跨站脚本攻击:为了和 css 有所区分,因而在安全领域被称为 XSS. 什么是 XSS 攻 ...
- Spring：（二）DI依赖注入方式
DI 依赖注入 DI(Dependency Injection)依赖注入,说简单一点就将类里面的属性在创建类的过程中给属性赋值,即将对象依赖属性(简单值,集合,对象)通过配置设值给该对象. 属性注入的 ...
- List-LinkedList、set集合基础增强底层源码分析
List-LinkedList 作者 : Stanley 罗昊 [转载请注明出处和署名,谢谢!] 继上一章继续讲解,上章内容: List-ArreyLlist集合基础增强底层源码分析:https:// ...
- Docker安装+HelloWorld+运行Tomcat
前言 只有光头才能变强. 文本已收录至我的GitHub仓库,欢迎Star:https://github.com/ZhongFuCheng3y/3y 上一篇已经讲解了为什么需要Docker?,相信大家已 ...
- 选中FeatureLayer元素并高亮显示
点击FeatureLayer要素会弹出popup弹出框以显示要素的相关内容.这个例子实现点击要素,选中并高亮显示.例子使用ArcGIS API for JavaScript 4.8. 一.代码框架 & ...
- PXE安装windows系统，pxe-e55：ProxyDhcp service did not reply to request on port 4011
这个pxe-e55" 错误表示 pxe 客户端已向端口4011上的代理 dhcp 服务器发送请求, 但未收到答复.似乎只有在dhcp 服务器上设置了 dhcp 类标识符选项 #60, 但同一 ...
- 随笔：WPS居然！出了！Mac版！
震惊! WPS! 居然! 出了! Mac版! 刚刚,我打算改一个word文档,打开了我的WIN10虚拟机,然而由于这个win10是前两天重装的,上面并没有word和wps. 当我打开wps官网的时候, ...
- 【jframe】Java架构师之路 - 第01篇：Get Started
jframe是什么? jframe是一个基于MIT协议开源的java web应用程序框架,汇聚了我们团队之于java web应用程序的核心架构思想以及大量最佳实践,并且持续在实际项目中不断完善优化. ...