tjsearch.asp

查询,基于ASP的开发环境!数据库是ACCESS [成绩查询.rar] - 网上成绩查询系统 把学生姓名成绩输入数据库...[

<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<%
dim number
dim cc
number=request.form("number")
cc=request.form("cc")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from admin1 where number='"&number&"' and kecheng='"&cc&"'"
rs.open sql,conn,3,2
if not rs.eof then
response.write"对不起,此学号已经存在"
else

if trim(request.form("number"))="" then
   number="无号"
else
   number=request.form("number")
end if

if trim(request.form("studentname"))="" then
   studentname="无名"
else
   studentname=request.form("studentname")
end if

if trim(request.form("sex"))="" then
   sex="空"
else
   sex=request.form("sex")
end if

if trim(request.form("classname"))="" then
   classname="空"
else
   classname=request.form("classname")
end if

if trim(request.form("phone"))="" then
   phone="暂缺"
else
   phone=request.form("phone")
end if

if trim(request.form("home"))="" then
   home="暂缺"
else
   home=request.form("home")
end if
%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM admin1" 
rs.Open sql,conn,3,2
rs.addnew
rs("number")=number
rs("studentname")=studentname
rs("sex")=sex
rs("class")=classname
rs("phone")=phone
rs("home")=home
rs.update
rs.close

conn.close
set conn=nothing %>
<script language="JavaScript">        
alert("\恭喜您,成功添加一名新同学!!")

</script>
<%end if%>
<table border="0" cellspacing="0" width="100%" cellpadding="0">
   <tr>
      
    <td width="100%"  height="250" valign="middle" align="center"><a href="newstudent.asp">返回</a></td>
   </tr>
</table>