第 1 行: '124' 附近有语法错误。
<%
dataBaseName = "xk"
dataBaseUserID = "sa"
dataBaseUserPWD = "sa"
dataBaseIP = "(local)"
ConnStr = "Provider = Sqloledb; User ID = "&dataBaseUserID&";Password = "&dataBaseUserPWD&"; Initial Catalog = "&dataBaseName&"; Data Source = "&dataBaseIP&";"
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
%>
<%
sub close_conn
conn.close
set conn = nothing
end sub
sub close_rs
rs.close
set rs = nothing
end sub
%>
以上是 conn.asp
----------------------------------------------------
<%
Response.Charset="GBK"
%>
<%
dim tname,cname,xueshi,xuefen,didian,sql,tno,cno
tno = request.form("tno")
tname=request.form("tname")
sex = request.form("sex")
cno = request.form("cno")
cname = request.form("cname")
xueshi = request.form("xueshi")
xuefen = request.form("xuefen")
didian =request.form("didian")
if tname= "" or len(tname) < 1 then
response.write "<script>alert('姓名不得为空或者少于一位');history.back();</script>"
response.end
end if
if cname= "" or len(cname) < 2 then
response.write "<script>alert('课程名称不得为空或者少于两位');history.back();</script>"
response.end
end if
if xueshi= "" then
response.write "<script>alert('学时不得为空');history.back();</script>"
response.end
end if
if didian= "" then
response.write "<script>alert('上课地点不得为空');history.back();</script>"
response.end
end if
if cname= "" then
response.write "<script>alert('课程名称不得为空或者少于两位');history.back();</script>"
response.end
end if
%>
<!--#include file="conn.asp"-->
<%
sql ="insert into teacher (tno,tname,sex) values ('"& tno &"','"& tname &"','"& sex &"')"
sql ="insert into c (cno,cname,xueshi,xuefen,didian) values ('"& cno &"',''"& cname &"','"& xueshi &"','"& xuefen &"','"& didian &"')"
set rs = server.createobject("adodb.recordset")
conn.execute(sql)
call close_conn
response.write "<script>alert('恭喜你,申报成功!');location.href='liebiao.asp'</script>"
%>
以上是 shenbao_do.asp
技术信息(用于支持人员)
错误类型:
Microsoft OLE DB Provider for SQL Server (0x80040E14)
第 1 行: '124' 附近有语法错误。
/xuanke/shenbao_do.asp, 第 43 行