为什么我用ASP向SQL中添加记录显示成功后,,,记录不在SQL中呢?怎么解决?

来源:百度知道 编辑:UC知道 时间:2024/06/23 00:22:19
添加界面代码:
<%
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
Dim ConnStr
ConnStr="Provider=SQLOLEDB;Server=127.0.0.1;UID=sa;PWD=gallop;Database=Class"
conn.Open ConnStr
Set rs=CreateObject("adodb.recordset")
sql="select * from grade"
rs.Open sql,conn,1,3
%>
<%do while not rs.eof%>
<%
rs.Movenext
Loop
%>

验证界面代码:
<%
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
Dim ConnStr
ConnStr="Provider=SQLOLEDB;Server=127.0.0.1;UID=sa;PWD=gallop;Database=Class"
conn.Open ConnStr
Set rs=Server.CreateObject("adodb.recordset")
sql="select * from grade"
rs.Open sql,conn,1,3
if rs.eof then
rs.AddNew
rs("学号")=Request("学号")
rs("姓名")=Request("姓名")
rs("大学英语")=Request("大

<%
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
Dim ConnStr
ConnStr="Provider=SQLOLEDB;Server=127.0.0.1;UID=sa;PWD=gallop;Database=Class"
conn.Open ConnStr
Set rs=Server.CreateObject("adodb.recordset")
sql="select * from grade"
rs.Open sql,conn,1,3
if not rs.eof and rs.bof then
rs.AddNew
rs("学号")=Request("学号")
rs("姓名")=Request("姓名")
rs("大学英语")=Request("大学英语")
rs("体育")=Request("体育")
rs("马克思主义")=Request("马克思主义")
rs("普通话")=Request("普通话")
rs("C++")=Request("C++")
rs("数据库系统概论")=Request("数据库系统概论")
rs("信息管理学")=Request("信息管理学")
rs("计算机常用软件")=Request("计算机常用软件")
rs.Update
End if
Response.Write("<