addgb.asp

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

<!--#include file="conn.asp"-->
<%
number1=request("number1")
gb=request.form("gb")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from admin1 where number='"&number1&"'"
rs.open sql,conn,3,2
studentname=rs("studentname")
class1=rs("class")
if trim(request.form("gb"))="" then
   gb="无内容"
else
   gb=request.form("gb")
end if
IP=Request("REMOTE_ADDR")
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM gb" 
rs.Open sql,conn,3,2
rs.addnew
rs("number")=number1
rs("studentname")=studentname
rs("class")=class1
rs("gbtext")=gb
rs("ip")=ip
rs("date")=date()
rs.update
rs.close

conn.close
set conn=nothing %>
<script language="JavaScript">        
alert("\恭喜您,成功留言!!")

</script>

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