⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 studentsearchokok.asp

📁 查询,基于ASP的开发环境!数据库是ACCESS [成绩查询.rar] - 网上成绩查询系统 把学生姓名成绩输入数据库...[
💻 ASP
字号:
<!--#include file="conn.asp"-->
<%
dim number
dim studentname
dim sex
dim classname
dim phone	
dim home
number1=request("number1")
number=request.form("number")
studentname=request.form("studentname")
sex=request.form("sex")
classname=request.form("classname")
phone=request.form("phone")
home=request.form("home")

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 where number='"&number1&"'"
rs.Open sql,conn,3,2
rs("number")=number
rs("studentname")=studentname
rs("sex")=sex
rs("class")=classname
rs("phone")=phone
rs("home")=home
rs.update
%>
<script language="JavaScript">        
alert("\恭喜您,成功修改学生信息!!")

</script>

<!--#include file="top.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css.css">
<title>理学院成绩查询系统-学生信息</title>

</head>
<body leftmargin="0" Topmargin="0" marginwidth="0" marginheight="0" background="images/greystrip.gIf">
<table width="760" border="0" cellspacing="0" cellpadding="0">
<tr><td><div align="right"><a href="manage.asp"><font color="red">返回管理首页</font></a>&nbsp;&nbsp;&nbsp;</div></td></tr>
</table>
<table width="760" border="0" cellspacing="0" cellpadding="0" bgcolor="#316395" vspace="0" hspace="0" bordercolor="#316395" bordercolordark="#FFFFFF" bordercolorlight="#316395" background="images/titbg.gIf" height="26" align="center">
  <tr>
    <td height="25"><div align="center"><a align="center">--修改后信息--</a></div></td>      
  </tr>
</table>
<table width="760" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>
<table  width="300" align="center">
  <tr> 
      <td width="200"> 学  号: 
        </td><td width="100"><font color=green><%=rs("number")%></font></td>
  </tr>
<tr> 
      <td width="200"> 姓  名: 
        </td><td width="100"><font color=green><%=rs("studentname")%></font></td>
  </tr>
<tr> 
      <td width="200"> 性  别: 
        </td><td width="100"><font color=green><%=rs("sex")%></font></td>
  </tr>
<tr> 
      <td width="200"> 班  级: 
        </td><td width="100"><font color=green><%=rs("class")%></font></td>
  </tr>
<tr> 
      <td width="200"> 电  话: 
        </td><td width="100"><font color=green><%=rs("phone")%></font></td>
  </tr>
<tr> 
      <td width="200"> 宿  舍: 
        </td><td width="100"><font color=green><%=rs("home")%></font></td>
  </tr>
    
</table>
</body>
</html><%
rs.close

conn.close
set conn=nothing
%><!--#include file="bottom.asp"-->

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -