UC知道asp的access问题2
来源：百度知道 编辑：UC知道 时间：2024/06/26 01:54:28
<html>
<head>
<script language="vbscript">
<!--
sub tijiao_onclick
if (login.xh.value="") then
msgbox "学号不能为空"
login.xh.select
exit sub
end if
login.submit
end sub
-->
</script>
</head>
<body>
<%
if request("xh")<>"" then
DbPath=server.MapPath("学生表.mdb")
set Conn=server.CreateObject("ADODB.Connection")
Conn.open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
sql="select * from 学生表 where 学号='" & request("xh") & "'"
set rs=server.CreateObject("ADODB.RecordSet")
rs.open sql,Conn,1,3
if rs.eof then
rs.addnew
rs("学号")=request("xh")
rs("姓名")=request("xm")
rs("性别")=request("xb")
rs("
<head>
<script language="vbscript">
<!--
sub tijiao_onclick
if (login.xh.value="") then
msgbox "学号不能为空"
login.xh.select
exit sub
end if
login.submit
end sub
-->
</script>
</head>
<body>
<%
if request("xh")<>"" then
DbPath=server.MapPath("学生表.mdb")
set Conn=server.CreateObject("ADODB.Connection")
Conn.open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
sql="select * from 学生表 where 学号='" & request("xh") & "'"
set rs=server.CreateObject("ADODB.RecordSet")
rs.open sql,Conn,1,3
if rs.eof then
rs.addnew
rs("学号")=request("xh")
rs("姓名")=request("xm")
rs("性别")=request("xb")
rs("
不知道你有什么错误，但是我说出我认为的几点错误
第一，msgbox是本地显示的，不能网络上显示，所以如果你放到服务器上面，msgbox是不会弹出来的
第二，取得表单里面某个控件的值，用JavaScript是document.表单名.空间名.value，vbscript不知熬是否可以，我做过，好像不行
第三，在你按照获得学号读取数据库时，按照字段的类型sql语句有不同的写法如果学号是数字，自动编号，那么要写成 学号="&request("id")，如果是文本那么要写成 学号='"&request("id")&"'"