请高手指点一个简单数据库记录添加问题
在线等..只有10分了,呵呵,sorry..
下面的是add.asp,即添加页
<form method="POST" adtion="addsucceed.asp" >
<table align="center" width="600">
<tr>
<td width="54" align="right" nowrap>地点:</td>
<td width="534"><input type="text" name="where" value="" size="30"> </td>
</tr>
<tr>
<td nowrap align="right">时间</td>
<td><input type="text" name="time" value="" size="30"></td>
</tr>
<tr>
<td nowrap align="right">主队</td>
<td><input type="text" name="host" value="" size="30"> </td>
</tr>
<tr>
<td height="22" align="right" nowrap>比分:</td>
<td> <input type="text" name="score" value="" size="30"></td>
</tr>
<tr>
<td nowrap align="right">客队:</td>
<td> <input type="text" name="guest" value="" size="30"> </td>
</tr>
<tr>
<td nowrap height="0" colspan="2"> </td>
</tr>
<tr> </tr>
<tr>
<td nowrap align="right" valign="baseline" colspan="2" height="15"> <div align="center">
</div></td>
</tr>
<tr>
<td nowrap align="right" valign="baseline"> </td>
<td valign="baseline"> <input type="submit" value="添加" name="submit"> </td>
</tr>
</table>
</form>
addsucceed.asp的代码如下:
<!--#include file="Connection/conn.asp" -->
<%
swhere=request.Form("where")
stime=request.Form("time")
shost=request.Form("host")
sscore=request.Form("score")
sguest=request.Form("guest")
set rso=server.CreateObject("ADODB.CONNECTION")
rso.open DATASTRING
'DATASTRING= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("news.mdb")
set ars=server.CreateObject("ADODB.Recordset")
ars.open "score",rso,adOpenStatic,adLockOptimistic,adCmdTable
ars.movelast
ars.addnew
ars("s_where")=swhere
ars("s_time")=stime
ars("s_host")=shost
ars("s_score")=sscore
ars("s_guest")=sguest
ars.update
response.Redirect("add.asp")
rso.close
set rso=Nothing
ars.close
set ars=Nothing
%>