<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'首先使用request.form()集合取得“产品”表单各个表单域值
chanpinname=request.form("chanpinname")
chanpinleibie=request.form("chanpinleibie")
shuliang=request.form("shuliang")
danjia=request.form("danjia")
kucunliang=request.form("kucunliang")
if request("submit")="插入数据" then'这里为判断是否单击了“插入数据”按钮
dim conn,connstr
connstr="Driver={sql sever};uid=sa;pass=123456;database=data;SEVER=NL" '数据库连接驱动程序
set conn=server.createobject("ADODB.CONNECTION")'这里使用server对象创建数据库连接对象
conn.open connstr '打开数据库连接
sql="insert into 产品 (产品名称,类别ID,单位数量,单价,库存量) values('"&chanpinname&"','"&chanpinleibie&"','"&shuliang&"','"&danjia&"','"&kucunliang&"')"
conn.execute sql'执行插入命令
response.write"<script language=javascript>{window.alert('插入数据成功!');window.history.go(-1);}</script>"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>连接数据库向“产品”表中插入数据</title>
<style type="text/css">
<!--
.STYLE3 {color: #FF0000}
.STYLE4 {color: #FF0000; font-size: 12px; }
-->
</style>
</head>
<body>
<div align="center">向“产品”表中插入数据
</div>
<!--下面为定义“产品”表单代码-->
<form name="form1" method="post" action="insertinfo.asp">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFCC66">
<tr>
<td width="16%" align="center" bgcolor="#FFFFFF" class="STYLE4">产品名称:</td>
<td colspan="3" bgcolor="#FFFFFF"><input name="chanpinname" type="text" id="chanpinname"></td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF" class="STYLE4">产品类别:</td>
<td colspan="3" bgcolor="#FFFFFF"><select name="chanpinleibie" id="chanpinleibie">
<option value="1" selected>饮料</option>
<option value="2">调味品</option>
<option value="3">点心</option>
<option value="4">日用品</option>
<option value="5">谷类/麦片</option>
<option value="6">肉/家禽</option>
<option value="7">特制品</option>
<option value="8">海鲜</option>
</select> </td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF" class="STYLE4">单位数量:</td>
<td colspan="3" bgcolor="#FFFFFF"><input name="shuliang" type="text" id="shuliang"></td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF" class="STYLE4">单价:</td>
<td width="36%" bgcolor="#FFFFFF"><input name="danjia" type="text" id="danjia"></td>
<td width="13%" align="center" bgcolor="#FFFFFF" class="STYLE4">库存量:</td>
<td width="35%" bgcolor="#FFFFFF"><input name="kucunliang" type="text" id="kucunliang"></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> </td>
<td colspan="3" bgcolor="#FFFFFF"><input type="submit" name="Submit" value="插入数据">
<input type="submit" name="Submit2" value="重新输入"></td>
</tr>
</table>
</form>
</body>
</html>
这是我的代码,但我浏览后出来的效果是这样的结果:(错误类型:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序
/flyweb/secondChapter/insertinfo.asp, 第 13 行)
请那位高手能帮我解决这个问题啊,在此先谢谢了!