十万火急的问题，为什么表单提交的action值没有被传递

xingon 2004-04-10 08:15:43

editf.asp?action=1&id=<%=m%>
是什么原因我表单中的这个action没有被传递，而且怪的是提示错误是
Microsoft JET Database Engine 错误 '80040e14'

语法错误 (操作符丢失) 在查询表达式 'id=' 中。

/web/editf.asp, 行7


<%
if session("m")<>"" or session("dj")<>"" then
m=request("id")
set rs=server.createobject("adodb.recordset")
sql="select * from free where id="&m
rs.open sql,conn,1,1
action=request("action")
if action=1 then
call edit()
end if
sub eidt()
title=request("title")
url=request("url")
language=request("language")
m=request("1")
big=request("big")
q=request("sql")
pl=replace(request("pl"),vbcrlf,"<br>")
t=request("id")
set rs1=server.createobject("adodb.recordset")
sql1="select * from free where id="&t
rs1.open sql1,conn,1,2
rs1("title")=title
rs1("url")=url
rs1("language")=language
rs1("type")=m
rs1("space")=big
rs1("sql")=q
rs1("pl")=pl
rs1("adder")=session("m")
rs1("time")=date()
rs1.update
response.write"<script>alert('资源修改成功');window.location.href='free.asp';</script>"
response.end
end sub
%>
<script language=vbscript>
sub chk
if form.title.value=empty then
Msgbox"请输入网站标题"
document.form.title.focus()
exit sub
elseif form.url.value=empty then
msgbox"请您网站连接"
document.form.url.focus()
exit sub
elseif instr(form.url.value,"http://")<1 then
msgbox"连接必须包含http://"
document.form.url.focus()
exit sub
elseif form.big.value="" then
msgbox"请空间大小"
document.form.big.focus()
exit sub
elseif form.sql.value="" then
msgbox"请填写数据库大小类型"
document.form.sql.focus()
exit sub
elseif form.pl.value="" then
msgbox"请填写必要的介绍"
document.form.pl.focus()
exit sub
else
form.submit
end if
end sub

</script>

<html>

<head>
<style type="text/css">
A:link,A:active,A:visited{TEXT-DECORATION:none ;Color:#006600}
A:hover{TEXT-DECORATION: underline;Color:#009900}

BODY{
FONT-SIZE: 12px;
COLOR: #000000;
FONT-FAMILY: 宋体;
background-color: #FFFFFF;
scrollbar-face-color: #dbeedd;
scrollbar-highlight-color: #FFFFFF;
scrollbar-shadow-color: darkseagreen;
scrollbar-3dlight-color: #dbeedd;
scrollbar-arrow-color: darkseagreen;
scrollbar-track-color: #f3faf4;
scrollbar-darkshadow-color: #f3faf4;
background-image: url("myweb2/skin/more/lvbgcolor.gif");
}
TD{
font-family: 宋体;
font-size: 12px;
line-height: 15px;
}
th
{
background-color: #a9d46d;
background-image: url("myweb2/skin/blue/h3.gif");
COLOR: ##E4E5E7;
font-size: 12px;
font-weight:bold;
}
td.TableTitle2
{
background-color: #E4E5E7;
}
td.TableBody1
{
background-color: #E4E5E7;
}
td.TableBody2
{
background-color: #E4E5E7;
}
td.TopDarkNav
{
background-image: url("myweb2/skin/blue/h12.gif");
}
td.TopLighNav
{
background-image: url("myweb2/skin/blue/h1.gif");
}
td.TopLighNav1
{
background-image: url("myweb2/skin/blue/h2.gif");
}
td.TopLighNav2
{
background-color:#FFFFFF
}
.tableBorder1
{
width:97%;
border: 1px;
background-color: #a9d46d;
}
.tableBorder2
{
width:97%;
border: 1px #83BB37 solid;
background-color: #e3f1d1;
}

#TableTitleLink A:link, #TableTitleLink A:visited, #TableTitleLink A:active {
COLOR: #E4E5E7;
TEXT-DECORATION: none;
}
#TableTitleLink A:hover {
COLOR: #FFFFFF;
TEXT-DECORATION: underline;}

input,select,Textarea{
font-family:Tahoma,Verdana,宋体; font-size: 12px; line-height: 15px;}
}
.normalTextSmall
{
font-size : 11px;
color : #000000;
font-family: Verdana, Arial, Helvetica, sans-serif;
}
</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta name="Microsoft Theme" content="none, default">
<meta name="Microsoft Border" content="none, default">
</head>

<body topmargin="1" leftmargin="2">
<form action="editf.asp?action=1&id=<%=m%>" name=form >
<div align="center">
<center>
<table border="1" width="500" bordercolor="#008000" cellspacing="0" cellpadding="0" bordercolorlight="#008000" bordercolordark="#FFFFFF" height="248">
<tr>
<td width="496" height="15" bgcolor="#60BD77" colspan="2">　</td>
</tr>
<tr>
<td width="119" height="13">网站标题</td>
<td width="375" height="13">
<p align="center"><input type="text" name="title" size="20" value="<%=rs("title")%>"> *</td>
</tr>
<tr>
<td width="119" height="10">网站连接</td>
<td width="375" height="10">
<p align="center"><input type="text" name="url" size="20" value="<%=rs("url")%>"> *</td>
</tr>
<tr>
<td width="119" height="19">国别</td>
<td width="375" height="19" align="center"><input type="text" name="language" size="20" value="<%=rs("language")%>"></td>
</tr>
<tr>
<td width="119" height="7">所属分类</td>
<td width="375" height="7" align="center"><select size="1" name="1">
<% set rs1=server.createobject("adodb.recordset")
sql1="select * from freeclass"
rs1.open sql1,conn,1,1
do while not rs1.eof
%>
<option selected><%=rs1("class")%></option>
<%
rs1.movenext
loop
%>
</select> 原来类型为<%=rs("type")%> *</td>
</tr>
<tr>
<td width="119" height="21">空间大小</td>
<td width="375" height="21" align="center"><input type="text" name="big" size="20" value="<%=rs("space")%>">*</td>
</tr>
<tr>
<td width="119" height="12">数据库大小</td>
<td width="375" height="12" align="center"><input type="text" name="sql" size="20" value="<%=rs("sql")%>">*</td>
</tr>
<tr>
<td width="119" height="106">
<p align="center">评论<font color="#FF0000">（必写）</font></td>
<td width="375" height="106" valign="top"><textarea rows="6" name="pl" cols="59"><%=rs("pl")%></textarea></td>
</tr>
<tr>
<td width="494" height="28" colspan="2">
<p align="center"><input type="button" onclick=chk value="提交" name="B1"> <input type="reset" value="全部重写" name="B2"></td>
</tr>
</table>
</center>
</div>
</form>
<%else
response.write"注意您的权限够吗"
end if

%>
</body>

</html>
</script>

...全文