<FORM METHOD = "get" onsubmit = "fnSetAction()" NAME = "oMailForm">
<LABEL FOR = "oTo"><SPAN>A</SPAN>ddress:</LABEL>
<INPUT ACCESSKEY = "A" ID = "oTo" VALUE = "" TYPE = "text" NAME = "recipient">
<BR>
<LABEL FOR = "oSubject">
<SPAN>S</SPAN>ubject:</LABEL>
<INPUT ACCESSKEY = "S" VALUE = "" ID = "oSubject" TYPE=text name="subject">
<BR>
我试了,可验证后就提交不到数据库了,指点一下
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<%@LANGUAGE="VBSCRIPT" CODEPAGE="CP_ACP"%>
<SCRIPT LANGUAGE="JavaScript">
function check()
{
if(document.form1.dw.value=="")
{
alert("不能为空");
return false;
}
else
return true;
}
</SCRIPT>
<%
dim sSQL
sSQL="select * from add"
set Connect=Server.CreateObject("ADODB.Connection")
Connect.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("data.mdb")
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open sSQL,connect,3,3