<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/information.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_information_STRING
Recordset1.Source = "SELECT * FROM infor"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<META name=VI60_defaultClientScript content=VBScript>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>查询系统</title>
<style type="text/css">
<!--
.style1 {
font-size: 36px;
font-weight: bold;
}
-->
</style>
</head>
<body>
<table width="700" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="100" align="center"><span class="style1">学生信息录入</span></td>
</tr>
</table>
<table width="700" border="1" align="center" cellpadding="0" cellspacing="2" bordercolor="#0066cc">
<tr>
<td width="120" height="28" align="middle">姓 名</td>
<td width="287" align="left" valign="center"><form name="form2" method="post" action="">
<input name="name" id="name"
>
</form></td>
<td width="103" align="middle">出生年月</td>
<td width="170" align="left" valign="center"><form name="form6" method="post" action="">
<input name="birthday" >
</form></td>
</tr>
<tr>
<td height="28" align="middle">性 别</td>
<td align="left" valign="center"><form action="" method="post" name="sex" id="sex">
<p>
<input type="radio" name="sex" value="男">
男
<input type="radio" name="sex" value="女">
女 </p>
</form></td>
<td align="middle">联系电话</td>
<td align="left" valign="center"><form name="form10" method="post" action="">
<input name="tel" >
</form></td>
</tr>
<tr>
<td height="28" align="middle">政治面貌</td>
<td align="left" valign="center"><form name="form3" method="post" action="">
<select name="zz">
<option value="团员" selected
>团员</option>
<option value="党员">党员</option>
</select>
</form></td>
<td align="middle">学校住址</td>
<td align="left" valign="center"><form name="form11" method="post" action="">
<input name="add" >
</form></td>
</tr>
<tr>
<td height="28" align="middle">辅导员</td>
<td align="left" valign="center"><form name="form4" method="post" action="">
<input name="teach" >
</form></td>
<td colspan="2" rowspan="5" align="middle"> </td>
</tr>
<tr>
<td height="28" align="middle">学历</td>
<td align="left" valign="center"><form name="form5" method="post" action="">
<select name="xl">
<option value="大专以下" selected
>大专以下</option>
<option value="大专">大专</option>
<option value="本科">本科</option>
<option value="硕士">硕士</option>
<option value="博士">博士</option>
</select>
</form></td>
</tr>
<tr>
<td height="28" align="middle">专业</td>
<td align="left" valign="center"><form name="form7" method="post" action="">
<input name="career" >
</form></td>
</tr>
<tr>
<td height="28" align="middle">班级</td>
<td align="left" valign="center"><form name="form8" method="post" action="">
<input name="class" >
</form></td>
</tr>
<tr>
<td height="28" align="middle">入学时间</td>
<td align="left" valign="center"><form name="form9" method="post" action="">
<input name="time" >
</form></td>
</tr>
</table>
<table width="700" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><form name="form1" method="post" action="reg.asp">
<input type="submit" name="Submit" value="提交">
<input type="button" name="Submit" value="取消">
</form></td>
</tr>
</table>
<p>
</p>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
dim strsql,rs
DBPath = Server.MapPath("information.mdb")
set session("rs")=Server.CreateObject("ADODB.Recordset")
rs=Server.CreateObject("ADODB.Recordset")
connstr="provider=microsoft.jet.oledb.4.0;data source="&dbpath
SQL="select * from infor"
session("rs").Open sql,connstr,3,3
rs.addnew
rs("name").value=request.form("name")
rs("sex").value=request.form("sex")
rs("birth").value=request.form("birthday")
rs("zzmm").value=request.form("zz")
rs("teach").value=request.form("teach")
rs("xl").value=request.form("xl")
rs("class").value=request.form("class")
rs("school").value=request.form("school")
rs("addr").value=request.form("add")
rs("tel").value=request.form("tel")
rs("career").value=request.form("career")
rs.Update
Response.Write ("你已经成功注册")
rs.close
conn.close
set rs=nothing
set conn=nothing
%>