28,390
社区成员
发帖
与我相关
我的任务
分享为什么不能往数据库里添加记录?
如下一段代码,每当输入数据点击确定按钮后,总是出现一个打不开页面的提示,数据库表里也没有增加记录,不知道错在哪里,各位大哥多帮忙了!!
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>EX11-06.asp 新增一条类别信息</TITLE>
</HEAD>
<BODY>
<%
If Request.Form("Submit") <> "确定新增" Then
MainScreen
Else
InsertQuery
end if
%>
</BODY>
</HTML>
<% Function MainScreen %>
<form method='post' id=form1 name=form1>
<table Border=1 align="center">
<Tr><Td colspan="2">新增分类</Td></Tr>
<Tr>
<Td>name</Td>
<Td>age</Td>
</Tr>
<Tr>
<Td><Input Type="text" Name="Newname" Value="" Size="10"></Td>
<Td><Input Type="text" Name="Newage" Value="" Size="40"></Td>
</Tr>
<Tr>
<Td Colspan="2"><Input type="Submit" Name="Submit" Value="确定新增"></Td></Tr>
</Table>
</form>
<% End Function %>
<%
Function InsertQuery
Set OBJConn = Server.CreateObject("ADODB.Connection")
strDSN = "DSN=yeyshu;uid=yeyshu;pwd=yeyshu"
OBJConn.Open strDSN
strSQL = "Insert Into class Values(" & "'" & Request.Form("Newname") & "'," & _
"'" & Request.Form("Newage") & "')"
Set Rs = OBJConn.Execute ( strSQL )
strSQL = "Select * From class"
Set Rs = OBJConn.Execute ( strSQL )
Response.Write "SQL Query 的内容：" &strSQL
if Not Rs.Eof then
Response.Write "<Table Border=1>"
Rs.MoveFirst
FdCount = Rs.Fields.Count
Response.Write "<TR>"
For I = 0 to FdCount - 1
Response.Write "<Td><Font Size=2>" & Rs.Fields(i).Name & "</Font></Td>"
next
Response.Write "</TR>"
Do While Not Rs.Eof
Response.Write "<Tr>"
For I = 0 to FdCount - 1
Response.Write "<Td><Font Size=2>" & Rs.Fields(i).Value & "</Font></Td>"
Next
Response.Write "</Tr>"
Rs.MoveNext
Loop
Response.Write "</Table>"
else
Response.Write "没有相符的信息可供读取！"
end if
OBJConn.Close
Set Rs = Nothing
Set OBJConn = Nothing
End Function
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>EX11-06.asp 新增一条类别信息</TITLE>
</HEAD>
<BODY>
<%
If Request.Form("Submit") <> "确定新增" Then
MainScreen
Else
InsertQuery
end if
%>
</BODY>
</HTML>
<% Function MainScreen %>
<form method='post' id=form1 name=form1>
<table Border=1 align="center">
<Tr><Td colspan="2">新增分类</Td></Tr>
<Tr>
<Td>name</Td>
<Td>age</Td>
</Tr>
<Tr>
<Td><Input Type="text" Name="Newname" Value="" Size="10"></Td>
<Td><Input Type="text" Name="Newage" Value="" Size="40"></Td>
</Tr>
<Tr>
<Td Colspan="2"><Input type="Submit" Name="Submit" Value="确定新增"></Td></Tr>
</Table>
</form>
<% End Function %>
<%
Function InsertQuery
Set OBJConn = Server.CreateObject("ADODB.Connection")
strDSN = "DSN=yeyshu;uid=yeyshu;pwd=yeyshu"
OBJConn.Open strDSN
strSQL = "Insert Into class Values(" & "'" & Request.Form("Newname") & "'," & _
"'" & Request.Form("Newage") & "')"
Set Rs = OBJConn.Execute ( strSQL )
strSQL = "Select * From class"
Set Rs = OBJConn.Execute ( strSQL )
Response.Write "SQL Query 的内容：" &strSQL
if Not Rs.Eof then
Response.Write "<Table Border=1>"
Rs.MoveFirst
FdCount = Rs.Fields.Count
Response.Write "<TR>"
For I = 0 to FdCount - 1
Response.Write "<Td><Font Size=2>" & Rs.Fields(i).Name & "</Font></Td>"
next
Response.Write "</TR>"
Do While Not Rs.Eof
Response.Write "<Tr>"
For I = 0 to FdCount - 1
Response.Write "<Td><Font Size=2>" & Rs.Fields(i).Value & "</Font></Td>"
Next
Response.Write "</Tr>"
Rs.MoveNext
Loop
Response.Write "</Table>"
else
Response.Write "没有相符的信息可供读取！"
end if
OBJConn.Close
Set Rs = Nothing
Set OBJConn = Nothing
End Function
%>
...全文
请发表友善的回复…
发表回复
