<!--
body {
background-color: #CCFFFF;
}
-->
<!--#include file="open.asp"-->
</style></head>
<body>
<body bgcolor="#00CCFF">
<p>学号：
<input name="xh" type="text" id="xh">
</p>
<p>姓名：
<input name="xm" type="text" id="xm">
</p>
<p>性别：
<input name="xb" type="radio" value="radiobutton" checked>
男
<input type="radio" name="xb" value="radiobutton">
女</p>
<p>所在系：
<select name="xi" size="1" id="xi">
<option>信息工程系</option>
<option>财经系</option>
<option>民商系</option>
<option>艺术系</option>
<option>中文系</option>
<option>数学系</option>
<option>英语系</option>
</select>
</p>
<p>住宿：
<input name="zs" type="text" id="zs">
</p>
<p>籍贯：
<input name="jg" type="text" id="jg">
</p>
<p>家庭住址：
<input name="zz" type="text" id="zz">
</p>
<p>电话：
<input name="dh" type="text" id="dh">
</p>
<p>政治面貌：
<input name="mm" type="radio" value="radiobutton" checked>
团员
<input type="radio" name="mm" value="radiobutton">
党员
<input type="radio" name="mm" value="radiobutton">
群众 </p>
<p>年级：
<input name="nj" type="text" id="nj">
</p>
<p>班级：
<input name="bj" type="text" id="bj">
</p>
<p>
<input type="submit" name="Submit" value="提交" >
</p>
<%
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from xs where 学号="&xuehao
rs.open sql,con
%>
<%
xuehao=request.form("xh")
name=request.form("xm")
sex=request.form("xb")
xi=request.form("xi")
zhsu=request.form("zs")
jiguan=request.form("jg")
zhzh=request.form("zz")
tel=request.form("dh")
zhmm=request.form("mm")
nj=request.form("nj")
bj=request.form("bj")
if xuehao<>"" and name<>"" and sex<>"" and xi<>"" and zhsu<>"" and jiguan<>"" and zhzh<>"" and tel<>"" and zhmm<>"" and nj<>"" and bj<>"" then
if not rs.eof or rs.bof then%>
<script language="javascript">
alert("该学号已注册");
Window.close();
</script>
<%else
Sql="insert into xs(学号,姓名,性别,系名,住宿,籍贯,家庭住址,电话,政治面貌,年级,班级) values('"&xuehao&"','"&name&"','"&sex&"','"&xi&"','"&zhsu&"','"&jiguan&"',"'&zhzh&"','"&tel&"','"&zhmm&"','"&nj&"','"&bj&"')"
con.Execute Sql
end if%>
<%else%>
<script language="javascript">
alert("请填写完整");
history.back;
</script>
<%end if
SQL="select * from xs where 学号="'&xuehao&'",姓名="'&name&'",性别="'&sex&'",系名="'&xi&'",住宿="'&zhsu&'",籍贯="'&jiguan&'",家庭住址="'&zhzh&'",电话="'&tel&'",政治面貌="'&zhmm&'",年级="'&nj&'",班级="'&bj&'""
rs.open SQL,con
if not rs.eof or rs.bof then%>
<script language="javascript">
alert("信息添加成功");
Window.close;
Window.open('fyxs.asp');
</script>
<%esle%>
<script language="javascript">
alert("出错，请与教师联系")；
Window.close;
</script>
<%end if
set rs=nothing
con.close
set con=nothing
%>
这是我的正文体
<BODY>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("xsgl.mdb")+";DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};"
Conn.Open connstr
%>
这是open.asp 里的代码
为什么老是在这个文件里出现
ASP服务器发现运行时错误：
错 误 码：0x80004005
错误代码：Conn.Open connstr
错误描述：[Microsoft][ODBC 驱动程序 管理器] 未发现数据源名称并且未指定默认驱动程序
文件名称：e:\xsgl\xsglb\open.asp
所在行号：25
请各位老大给解决一下
