📄 add_2.asp
字号:
<%response.buffer=true%>
<!--#INCLUDE FILE="../../system/odbc_connection.asp"--><html>
<head>
<title>注册第二步</title>
<link rel="stylesheet" href="../../system/all.css">
<script language="JAVASCRIPT">
<!--
function Trim(str){
while (str !="" && str.charAt(0) == " ") str = str.substring(1,str.length);
while (str !="" && str.charAt(str.length-1) == " ") str = str.substring(0,str.length-1);
return str;
}
function check_Null(){
if (Trim(document.form1.intro.value)==""){
alert("个人介绍不能为空");
return false;
}
if (Trim(document.form1.email.value)==""){
alert("email不能为空!");
return false;
}
if (Trim(document.form1.homework_email.value)==""){
alert("收作业email不能为空!");
return false;
}
return true;
}
// -->
</script>
</head>
<body>
<h2 align=center>第二步:填写个人详细资料</h2>
<p align="center" class="zhushi">注意：所有带**号的项目必须填写，所有资料以后可以修改</p>
<%
dim user_id
user_id =session("user_id")
dim sql,rs
sql="SELECT * FROM student Where user_id = '" & user_id & "'"
SET rs=db.EXECUTE(sql)
'判断ID和密码是否正确
%>
<center>
<TABLE border="0" width=80% >
<form name="form1" METHOD="POST" ACTION="" onsubmit="javascript: return check_Null();">
<tr><td width="20%">用户名：</td><td ><%=rs("user_id")%></td></tr>
<tr><td >姓名：</td><td>
<%=rs("user_name")%>
<input type="hidden" name="user_name" size="15" value='<%=rs("user_name") %>'>
<input type="hidden" name="password" size="15" value='<%=rs("password") %>'>
</td></tr>
<tr><td >昵称：</td><td><input type="text" name="child_name" size="15" value='<%=rs("child_name") %>'> </td></tr>
<tr><td >提示问题：</td><td><input type="text" name="forget_timu" size="30" value='<%=rs("forget_timu") %>'> </td></tr>
<tr><td >提示答案：</td><td><input type="text" name="forget_answer" size="30" value='<%=rs("forget_answer") %>'> </td></tr>
<tr><td >性别：</td><td>
<%if rs("sex")="男" then%>
<input type=radio name="sex" value="男" checked> 男
<input type=radio name="sex" value="女"> 女
<%elseif rs("sex")="女" then%>
<input type=radio name="sex" value="男"> 男
<input type=radio name="sex" value="女" checked> 女
<%else%>
<input type=radio name="sex" value="男"> 男
<input type=radio name="sex" value="女"> 女
<%end if%>
</td></tr>
<tr><td >系别：</td><td><input type="text" name="department" size="15" value='<%=rs("department") %>'> </td></tr>
<tr><td >专业：</td><td><input type="text" name="special" size="30" value='<%=rs("special") %>'> </td></tr>
<tr><td >住址：</td><td><input type="text" name="address" size="30" value='<%=rs("address") %>'> </td></tr>
<tr><td >电话：</td><td><input type="text" name="tel" size="30" value='<%=rs("tel") %>'> </td></tr>
<tr><td >呼机：</td><td><input type="text" name="BP" size="30" value='<%=rs("BP") %>'> </td></tr>
<tr><td >手机：</td><td><input type="text" name="MobileTel" size="30" value='<%=rs("MobileTel") %>'> </td></tr>
<tr><td >E_mail:</td><td><input type="text" name="email" size="45" value='<%=rs("email") %>'>** </td></tr>
<tr><td >主页：</td><td><input type="text" name="web" size="30" value='<%=rs("web") %>'> </td></tr>
<tr><td >个人介绍：</td><td><Textarea Name="intro" Rows=3 Cols=45 WRAP=SOFT ><%=rs("intro")%></TextArea>**</td></tr>
</table>
<input TYPE="submit" VALUE=" 确 定 " Size="20">
</form>
</center>
<%
If request("email")<>"" Then
dim sValues
'先删除信息
sql="delete from student where user_id= '" & user_id & "'"
DB.Execute(sql)
'再把信息添加进去
sql = "Insert into student(user_name"
sValues = "values('" & Request("user_name") & "'"
If Request("child_name") <> "" Then
sql = sql & ",child_name"
sValues = sValues & "," & "'" & Request("child_name") & "'"
End If
If Request("password") <> "" Then
sql = sql & ",password"
sValues = sValues & "," & "'" & Request("password") & "'"
End If
If Request("sex") <> "" Then
sql = sql & ",sex"
sValues = sValues & "," & "'" & Request("sex") & "'"
End If
If Request("forget_timu") <> "" Then
sql = sql & ",forget_timu"
sValues = sValues & "," & "'" & Request("forget_timu") & "'"
End If
If Request("forget_answer") <> "" Then
sql = sql & ",forget_answer"
sValues = sValues & "," & "'" & Request("forget_answer") & "'"
End If
If Request("department") <> "" Then
sql = sql & ",department"
sValues = sValues & "," & "'" & Request("department") & "'"
End If
If Request("special") <> "" Then
sql = sql & ",special"
sValues = sValues & "," & "'" & Request("special") & "'"
End If
If Request("tel") <> "" Then
sql = sql & ",tel"
sValues = sValues & "," & "'" & Request("tel") & "'"
End If
If Request("BP") <> "" Then
sql = sql & ",BP"
sValues = sValues & "," & "'" & Request("BP") & "'"
End If
If Request("mobileTel") <> "" Then
sql = sql & ",mobileTel"
sValues = sValues & "," & "'" & Request("mobileTel") & "'"
End If
If Request("address") <> "" Then
sql = sql & ",address"
sValues = sValues & "," & "'" & Request("address") & "'"
End If
If Request("email") <> "" Then
sql = sql & ",email"
sValues = sValues & "," & "'" & Request("email") & "'"
End If
If Request("intro") <> "" Then
sql = sql & ",intro"
sValues = sValues & "," & "'" & Request("intro") & "'"
End If
If Request("web") <> "" Then
sql = sql & ",web"
sValues = sValues & "," & "'" & Request("web") & "'"
End If
'添加注册ID
sql = sql & ",user_id"
sValues = sValues & "," & "'" & session("user_id") & "'"
sql = sql & ") " & sValues & ")"
DB.Execute(sql)
session("user_id")=user_id
db.close
set db=nothing
Response.Redirect "add_3.asp?user_id="&session("user_id")
End If
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -