问个粉白痴的问题,变量怎么写入数据库
<%
name=session("user")
dim score
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("exercise.mdb")
sql="select ans from test"
Set rs = conn.Execute( sql )
ycorrect=0
rsCount=0
'给出正确答案并评分
Response.Write "正确答案:"
Do while not rs.eof
Response.Write rs("ans")
rsCount=rsCount + 1
if Request.Form(rsCount)=rs("ans") then
ycorrect=ycorrect + 1
end if
rs.movenext
loop
Response.Write "<br> 你的答案:"
score=int(ycorrect/rscount*100)
for i=1 to Request.Form.Count - 1
Response.Write Request.Form(i)
next
Response.Write "<br> "
Response.Write "你的成绩:"&score
if score <= 60 then Response.Write "你不及格!"&"<br>"
if score >= 60 and score <= 80 then Response.Write "及格"&"<br>"
if score >= 80 and score <= 100 then Response.Write "优秀!"
%>
以上是一个考试系统算分数的代码块,可是他算完分数就完了,我想把score变量写到数据库里,数据库里也有这个字段,可是我很笨,不知道怎么写,谁能教教我,就送你一百分.
问题点数:100、回复次数:5Top
1 楼dh20156(风之石)回复于 2005-11-10 14:58:27 得分 60
插入数据:
Insert into [Table]([colname]) VALUES ('value')
更新数据:
Update [Table] Set [colname]='value' Where 条件Top
2 楼loveme2000ok(* °¤ °*)回复于 2005-11-10 15:00:37 得分 40
sql2="insert into 表名 (scroe,其它字段) values('"&scroe&"','"&其它字段的变量&"')"
conn.Execute( sql2 )
Top
3 楼buhuo(麻衣木屐)回复于 2005-11-10 15:09:25 得分 0
你们说得都不一样,搞得我好迷茫,能不能给个实例呀!Top
4 楼buhuo(麻衣木屐)回复于 2005-11-10 15:39:13 得分 0
谢谢大家,那如果我要写入当前的session下,就是该用户的成绩,写到数据库里与该用户用户名(user)对应,应该怎么写呢?Top
5 楼dh20156(风之石)回复于 2005-11-10 15:47:34 得分 0
举个例子吧:
user = Session("user")
scroe = 100
sql = "Update [test] Set scroe="&scroe&" Where [username]='"&user&"'"
conn.execute(sql)
假设有表,表名为test,有字段username,scroe且字段scroe为int或money,float等类型.Top




