问题是这样的,我想在填写资料的页面(tjzsd.asp)中填写资料,然后按表单确定按钮以后 就跳到另外一个页面(tstjzsd.asp),tstjzsd.asp有两个功能,就是检测填写资料的页面 (tjzsd.asp)是否符合要求以及如果符合就向数据库里面添加数据。可是两个功能只能实现一个 也就是说两个功能不能放在同一个页面;tstjzsd.asp代码如下 <% Option Explicit %> <% if request.form("textfield")="" or request.form("xmc")="" then response.Write("<script language='javascript'>{alert('带星号的不能为
空!');window.location.href='tjzsd.asp';}</script>") end if %> =======上面是解决该填写的地方是否为空,如果空就弹出警告筐,然后返回原来页面
=======下面这段是如果填写的不为空,就把数据插入数据库里面 <%Dim tjzsdkm,tjzsdmc if request.form("textfield")="" or request.form("xmc")="" then response.Write("<script language='javascript'>{alert('带星号的不能为空!');window.location.href='tjzsd.asp';}</script>") end if session("tjzsdmc")=request.form("textfield") session("tjzsdkm")=request.form("xmc") tjzsdmc=session("tjzsdmc") tjzsdkm=session("tjzsdkm") response.Write tjzsdkm response.Write tjzsdmc %> <% Dim rs3,strSql3,xmc,n Set rs3=Server.CreateObject("ADODB.Recordset") strSql3="select course_id from course where course_name='"&tjzsdkm&"'" rs3.Open strSql3,db,1,1 %> <% Dim strSql2 strSql2="Insert Into ken(ken_name,subject_id) Values('" &tjzsdmc&"','"&rs3("course_id")&"')" '不知道是不是上面那行有错误! db.Execute(strSql2) response.Redirect("tjzsd.asp") %> ===============结果错误如下: 错误类型: (0x80020009) 发生意外。 /bysj/tstjzsd.asp, 第 46 行 ===错误的一行就是插入数据库的那行 ============= 我也知道如果该出入的值为空的时候,就会出错,在前面可以捕捉的啊!可它就是捕捉不到? 如果把这两个功能放在两个页面来实现就可以,但是分开来实现也就达不到原来的效果了。 请个位大哥哥帮帮小女子好吗?而且我下个礼拜就要交给老师了。