错误类型:
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/xscjsr/add.asp, line 57, column 12
insert into cj008111 (学号,姓名) value(xhh,xmm)
这句语句我不知道是什么地方未结束,还是我写错了。请高手指教
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/cj.asp" -->
<%
Dim md
Dim md_numRows
Dim i
Set md = Server.CreateObject("ADODB.Recordset")
md.ActiveConnection = MM_cj_STRING
md.Source = "SELECT * FROM md08"
md.CursorType = 0
md.CursorLocation = 2
md.LockType = 1
md.Open()
md_numRows = 0
%>
<%
Dim rs
Dim rs_numRows
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_cj_STRING
rs.Source = "SELECT * FROM cj008111"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()
rs_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
md_numRows = md_numRows + Repeat1__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<p>
<%
While ((Repeat1__numRows <> 0) AND (NOT md.EOF))
'rs.movelast
'response.Write(md.Fields.Item("学号").Value&"<br>")
xhh=md.Fields.Item("学号").Value
response.Write(xhh&" ")
xmm=md.Fields.Item("姓名").Value
response.Write(xmm&"<br>")
'insert into cj008111 (学号,姓名) values(xhh,xmm)
%>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
md.MoveNext()
Wend
%>
</p>
</body>
</html>
<%
md.Close()
Set md = Nothing
%>
<%
rs.Close()
Set rs = Nothing
%>
我是初学Asp,我的目的是要把md数据库中的学号,姓名字段中的记录全部插入到cj00811数据库对应的字段中去。
麻烦你一次又一次的帮助,在此谢谢了!