bia4组合个人资料:Microsoft JET Database Engine 错误 '80040e14'

来源:百度文库 编辑:高校问答 时间:2024/04/29 21:28:06
部分代码:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%
id=request.QueryString("id")
%>
<html>

<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="index.css" type="text/css">

<body bgcolor="#FFFFFF" text="#000000">
<%
if request.querystring("cmd")="add" then
leixing=request.form("leixing")
content=request.form("content")
jiage=request.form("jiage")

Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from zhuji where id="&id&""
rs.open sql,conn,3,3
rs("leixing")=leixing
rs("content")=content
rs("jiage")=jiage

rs.update
response.Redirect"email1.asp?cmd=up&id="& rs("id") &""
end if
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from zhuji where id="& request.QueryString("id") &""
rs.open sql,conn,3,3
%>
<div align="center">
<center>
<table width="90%" border="1" cellpadding="3" cellspacing="0" bordercolor="#6687BA" style="border-collapse: collapse">
<form name="form1" method="post" action="email1.asp?cmd=add">
<tr>
<td colspan="2" bgcolor="#EAF1FB">
<div align="center" class="f1">邮 局 说 明 修 改 </div>
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td width="30%">企业邮箱类型:</td>
<td>
<input name="leixing" type="text" id="leixing" size="20">
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td>服务内容:</td>
<td>
<input name="content" type="text" id="content" size="45">
</td>
</tr>
<tr bordercolor="#FFFFFF">
<td>价格:</td>
<td>
<input name="jiage" type="text" id="jiage" size="45">
</td>
</tr>

<tr bordercolor="#FFFFFF">
<td colspan="2">
<div align="center">
<input type="submit" name="Submit" value="修改" style="border-style: outset; border-width: 1px">
<br>
<br>
</div>
</td>
</tr>
</form>
</table>
</center>
</div>
<% end if %>
</body>
</html>
<% rs.close
set rs=nothing
set conn=nothing
%>

id=cint(request("id") )