[求助]ASP开发SQL数据库,只能修改不能新增记录?
提交后出现HTTP 500 - 内部服务器错误,请大师指点!
但是修改没问题啊!我是个菜鸟,望大家指点指点.
代码如下:
<%
If Session("Admin")="" Then
Response.Redirect "Admin_Login.Asp"
Response.End
End If
%>
<!--#include file="ToCo.asp"-->
<!--#include file="ToCon.asp"-->
<%
Dim Rs6
Set Rs6=Server.CreateObject("Adodb.RecordSet")
'Set Rs6=Conn.Execute("Delete from aconfig")
'Set Rs6=Conn.Execute("Insert into aconfig (affice) values ('LL')")
Set Rs6=Conn.Execute("Select Top 1 adminuser,adminpwd from aadmin where adminuser='"&Session("Admin")&"'")
Dim adminuser,adminpwd
If Not Rs6.Eof Then
adminuser=Rs6("adminuser")
adminpwd=Rs6("adminpwd")
End If
'Set Rs6=Nothing
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>增加管理员</TITLE>
<SCRIPT>
if(self==top){
location.href="index.asp";
}
</SCRIPT>
<LINK href="../images/cmain.css" type=text/css rel=stylesheet>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2800.1476" name=GENERATOR><style type="text/css">
<!--
body {
background-color: #FFFFFF;
}
-->
</style></HEAD>
<BODY>
<TABLE width=635 border=0 align="center" cellPadding=0 cellSpacing=1 class=mem_index_tab>
<TBODY>
<TR class=mem_index_title>
<TD width=130>管理员</TD>
<TD width=130>密码</TD>
<TD width=130>确定密码</TD>
<TD width=240>功能</TD></TR>
<%
Set Ma_rs=server.CreateObject("adodb.recordset")
Ma_sql="select * from aadmin "
Ma_rs.open Ma_sql,conn,1,3
Do while Not Ma_rs.eof %>
<form name="form2" method="post" action="Manage_Oper.asp">
<%adminuser=Ma_rs("adminuser")
adminpwd=Ma_rs("adminpwd")
ID=Ma_rs("ID")
Response.Write ("<TR class=mem_index_cen><TD><input name=adminuser type=text class=za_text size=8 id=Ma_name value="&adminuser&"></TD><TD><input name=adminpwd type=password class=za_text size=8 id=Ma_password2 value="&adminpwd&"></TD><TD ><input name=adminpwd2 type=password class=za_text size=8 id=Ma_password2 value="&adminpwd&"></TD><TD><input name=Ma_id type=hidden id=Ma_id value="&ID&"> <INPUT class=botton type=submit value=修改 name=mama><INPUT class=botton type=submit value=删除 name=mama></TD></TR>")
response.write "</form>"
%>
<%Ma_rs.movenext
loop%>
</TBODY></TABLE>
<FORM name=form2 action=Manage_Oper.asp method=post>
<TABLE width=635 border=0 align="center" cellPadding=0 cellSpacing=1 class=mem_index_tab>
<TBODY>
<TR class=mem_index_title>
<TD width=130>管理员</TD>
<TD width=130>密码</TD>
<TD width=130>确定密码</TD>
<TD width=240>功能</TD>
</TR>
<TR class=mem_index_cen>
<TD><input name=adminuser type=text class=za_text size=8 id=adminuser value=""></TD>
<TD><input name=adminpwd type=password class=za_text size=8 id=adminpwd value=""></TD>
<TD ><input name=adminpwd2 type=password class=za_text size=8 id=adminpwd value=""></TD>
<TD><INPUT class=botton type=submit value=添加 name=mama>
</TD>
</TR>
</TABLE>
</FORM>
</BODY></HTML>