第三次上机，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. ...
随机推荐
- xamarin forms中的Button文本默认大写
问题来源 使用xamarin forms创建的android项目中,Button.Toolbar的右侧菜单按钮上的如果是字母的话,在android5.0以上,默认的文本都是大写,这种情况iOS项目不存 ...
- 这年头做开源项目，被冷嘲热讽，FreeSql 0.0.4
FreeSql 项目大概在20天前想着要做的,今天发布0.0.4在群里被一位大神讽刺. 这位无名氏哥们的观点,先声明这不是找安慰的文章,更加不是报复打击的目的. 1 所以这个比EF好在哪里 2 毕竟E ...
- Netty源码—五、内存分配概述
Netty中的内存管理应该是借鉴了FreeBSD内存管理的思想--jemalloc.Netty内存分配过程中总体遵循以下规则: 优先从缓存中分配 如果缓存中没有的话,从内存池看看有没有剩余可用的 如果 ...
- 产品管理开发之Git工作流和分支规范推荐
前言 无论是开源项目还是内部项目,使用Git都是大势所趋,尤其是在产品管理这块,使用Git大大提高了开发效率和产品的交付频率.本篇,针对Git的工作流和分支使用,进行了一些推荐. 目录 1 产 ...
- fab 菜单实现—圆形、半圆、扇形、直线、射线
前段时间记录一下fab 菜单实现之前传-钟表表盘,今天终于弄正文了. 本文基于上篇文章的布局方式和位置计算,并参考35 Cool Floating Action Button Animations(h ...
- SQL注入渗透实战
概述: 判断注入点: http://www.xxxxx.com/page.php?pid=42 and 1=1 #true http://www.xxxxx.com/page.php?pid=42 a ...
- Dynamics 365中自定义工作流活动更新了输入输出参数后获取的方法
关注本人微信和易信公众号: 微软动态CRM专家罗勇 ,回复245或者20170309可方便获取本文,同时可以在第一间得到我发布的最新的博文信息,follow me!我的网站是 www.luoyong. ...
- 如何用人工的方式将Excel里的一堆数字变成一个数组
目的是抛砖引玉,有谁可以教教我如何吧Excle的数据导入MyEclipse么? 如果只有⑨个字符的话我肯定是直接人工输入的,然而这次有65536行乘以3组,遭不住啊. 一.数组之间要有逗号在B列右键, ...
- 使用kubeadm平滑地升级kubenetes集群(v1.10.2到v1.10.3)
写在前面 kubernetes是目前最炙手火热的容器管理.调度.编排平台,不仅拥有全面的生态系统,而且还开源.开放自治,谁贡献的多,谁的话语权就大,云提供商都有专门的工程师来从事kubernetes开 ...
- 在java中怎样实现多线程？线程的4种状态
一.在java中怎样实现多线程? extends Thread implement Runnable 方法一:继承 Thread 类,覆盖方法 run(),我们在创建的 Thread 类的子类中重写 ...