addgb.asp

来自「java 编的图形管理系统 连Access数据库的」· ASP 代码 · 共 42 行

<!--#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>