关闭

新手求助 加vb代码

51人阅读 评论(0) 收藏 举报

<!--#include file=conn.asp-->
<!--#include file=func.asp-->
<%Response.Buffer=true%>

<head>
<title></title>
<style>
A { font-size: 10pt; text-decoration: none; }
A:link { color: black }
A:hover { color: #663399; text-decoration: underline overline; }
A:visited { color: black }
A:active { color: red }
BODY { background-color: white; color: black; font-size: 9pt; }
td { font-size: 10pt; }
th { font-size: 10pt; }
</style>
</head>

<body topmargin="0" leftmargin="0">



<%name=Request.Form("name")
sex=Request.Form("sex")
student number=Request.Form("student number")
ID number=Request.form("ID number")
phone number=Request.form("phone number")
plan=Request.form("plan")
assistant=Request.form("assistant")
life=Request.form("life")
%>

<%if plan="" then 
o="你必须输入计划"
Response.Redirect "useradd1.asp?from_useradd2=" & o & ""
end if 
if name="" then
p="你必须输入你的姓名"
Response.Redirect "useradd1.asp?from_useradd2=" & p & ""
end if
%>



<% 
      sz = "'" & name & "', '"& sex & "', '"& student number &"', '"& ID number & "', '"& phone number & "', '"& plan & "', '" & assistant & "', '" & life & "'"
  <%end if%> 
  into_db = "INSERT INTO 信息表(姓名,性别,学号,身份证号,电话号码,我的学习计划,我要给辅导员讲的话,我的人生我做主我毕业后要成为什么样的人 )      VALUES(" & sz & ")"  
      conn.Execute(into_db)
      %><style>
A { font-size: 10pt; text-decoration: none; }
A:link { color: black }
A:hover { color: #663399; text-decoration: underline overline; }
A:visited { color: black }
A:active { color: red }
BODY { background-color: white; color: black; font-size: 9pt; }
td { font-size: 10pt; }
th { font-size: 10pt; }
</style>
<table border="1" width="100%" bordercolor="#CCC8FF" height="100%" cellspacing="0" cellpadding="0" bgcolor="#F1F0FF">
  <tr>
    <td width="100%">
      <p align="center">信息填写成功!
        <%end if%> 
    </td>
  </tr>
</table>





在这个ASP程序里想要加一个vb代码   想要实现的效果是:当一个人注册了两次,在数据库(access)里自动删除第一次的注册信息

我是新手,哪位高手能给指点一下 ,谢谢了  ,谁帮我解决了问题,30分全给他
0
0

猜你在找
【直播】机器学习&数据挖掘7周实训--韦玮
【套餐】系统集成项目管理工程师顺利通关--徐朋
【直播】3小时掌握Docker最佳实战-徐西宁
【套餐】机器学习系列套餐(算法+实战)--唐宇迪
【直播】计算机视觉原理及实战--屈教授
【套餐】微信订阅号+服务号Java版 v2.0--翟东平
【直播】机器学习之矩阵--黄博士
【套餐】微信订阅号+服务号Java版 v2.0--翟东平
【直播】机器学习之凸优化--马博士
【套餐】Javascript 设计模式实战--曾亮
查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:1461次
    • 积分:176
    • 等级:
    • 排名:千里之外
    • 原创:17篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章存档