以下代码哪里错了,asp表单数据怎么插入不到数据库?请高手帮忙看看,谢谢
<SCRIPTLANGUAGE="JavaScript"><!--functioncheckfa(){if(checkspace(document.huanfa.name...
<SCRIPT LANGUAGE="JavaScript">
<!--
function checkfa()
{
if(checkspace(document.huanfa.name.value)) {
document.huanfa.name.focus();
alert("对不起,请填写你的名字!");
return false;
}if(checkspace(document.huanfa.tel.value)) {
document.huanfa.tel.focus();
alert("对不起,请填写你的电话!");
return false;
}
}
//-->
</script>
</head>
<body>
<form action="/asd.asp" method="post" name="fa">
<table width="366" border="0" align="center">
<tr>
<td><div align="right">你的姓名:</div></td>
<td><div align="left">
<label>
<input name="h_name" type="text" id="h_name">
</label>
</div></td>
</tr><td><div align="right">电话号码:</div></td>
<td><label>
<input name="tel" type="text" id="tel" maxlength="12">
*</label></td>
<td><label>
<input name="Submit" type="submit" onClick="return checkhuanfa()" value="确认发布">
<input type="reset" name="Submit2" value="撤销重置">
</label></td>
</tr>
</table>
</form>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [abc]",conn,1,3
rs.addnew
rs("name")=trim(request.Form("name"))
rs("tel")=trim(request.Form("tel"))
rs.update
rs.close
set rs=nothing
response.write "发布成功!"
response.End
%>
</body>
</html> 展开
<!--
function checkfa()
{
if(checkspace(document.huanfa.name.value)) {
document.huanfa.name.focus();
alert("对不起,请填写你的名字!");
return false;
}if(checkspace(document.huanfa.tel.value)) {
document.huanfa.tel.focus();
alert("对不起,请填写你的电话!");
return false;
}
}
//-->
</script>
</head>
<body>
<form action="/asd.asp" method="post" name="fa">
<table width="366" border="0" align="center">
<tr>
<td><div align="right">你的姓名:</div></td>
<td><div align="left">
<label>
<input name="h_name" type="text" id="h_name">
</label>
</div></td>
</tr><td><div align="right">电话号码:</div></td>
<td><label>
<input name="tel" type="text" id="tel" maxlength="12">
*</label></td>
<td><label>
<input name="Submit" type="submit" onClick="return checkhuanfa()" value="确认发布">
<input type="reset" name="Submit2" value="撤销重置">
</label></td>
</tr>
</table>
</form>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [abc]",conn,1,3
rs.addnew
rs("name")=trim(request.Form("name"))
rs("tel")=trim(request.Form("tel"))
rs.update
rs.close
set rs=nothing
response.write "发布成功!"
response.End
%>
</body>
</html> 展开
展开全部
onClick="return checkhuanfa()"
function checkfa()
这个调用的不是function JS 表单验证就失效了。
改成 function checkhuanfa()
<form action="/asd.asp" method="post" name="fa">
可是你js里面
document.huanfa.name.focus();
兄弟看来你的基础是零啊。
改成
<form action="/asd.asp" method="post" name="huanfa">
这里又
<input name="h_name" type="text" id="h_name">
那你
rs("name")=trim(request.Form("name"))
完全牛头不对马嘴。怎么获得到数据啊。
document.huanfa.name.focus(); 要改成document.huanfa.h_name.focus();
rs("name")=trim(request.Form("h_name"))
哎,我看着你的代码真实头大。
要传递啊兄弟。
你这个代码网上抄的吧,看都看不懂,你怎么改。先学好基础。
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [abc]",conn,1,3
rs.addnew
rs("name")=trim(request.Form("name"))
rs("tel")=trim(request.Form("tel"))
rs.update
rs.close
set rs=nothing
response.write "发布成功!"
response.End
%>
这一段,要单独存为。asd.asp
如果你这个文件本身就叫asd.asp
那么要设置条件
<%
if request.Form("h_name")<>"" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [abc]",conn,1,3
rs.addnew
rs("name")=trim(request.Form("h_name"))
rs("tel")=trim(request.Form("tel"))
rs.update
rs.close
set rs=nothing
response.write "发布成功!"
response.End
end if
%>
另外,你有没有设置 conn。
dim conn '数据库连接
dim connstr '连接字符串
dim db '数据库文件路径
db = "data/***.mdb" '演示时用ACCESS数据库
On Error Resume Next
connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
Set conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionTimeout = 10
session.Timeout = 10
Server.ScriptTimeout = 20
if err Then
err.clear
end if
conn.Open connstr
'关闭数据库连接,在每页中调用此函数,将连接放入连接池
sub CloseConn()
conn.Close()
Set conn = Nothing
end sub
function checkfa()
这个调用的不是function JS 表单验证就失效了。
改成 function checkhuanfa()
<form action="/asd.asp" method="post" name="fa">
可是你js里面
document.huanfa.name.focus();
兄弟看来你的基础是零啊。
改成
<form action="/asd.asp" method="post" name="huanfa">
这里又
<input name="h_name" type="text" id="h_name">
那你
rs("name")=trim(request.Form("name"))
完全牛头不对马嘴。怎么获得到数据啊。
document.huanfa.name.focus(); 要改成document.huanfa.h_name.focus();
rs("name")=trim(request.Form("h_name"))
哎,我看着你的代码真实头大。
要传递啊兄弟。
你这个代码网上抄的吧,看都看不懂,你怎么改。先学好基础。
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [abc]",conn,1,3
rs.addnew
rs("name")=trim(request.Form("name"))
rs("tel")=trim(request.Form("tel"))
rs.update
rs.close
set rs=nothing
response.write "发布成功!"
response.End
%>
这一段,要单独存为。asd.asp
如果你这个文件本身就叫asd.asp
那么要设置条件
<%
if request.Form("h_name")<>"" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [abc]",conn,1,3
rs.addnew
rs("name")=trim(request.Form("h_name"))
rs("tel")=trim(request.Form("tel"))
rs.update
rs.close
set rs=nothing
response.write "发布成功!"
response.End
end if
%>
另外,你有没有设置 conn。
dim conn '数据库连接
dim connstr '连接字符串
dim db '数据库文件路径
db = "data/***.mdb" '演示时用ACCESS数据库
On Error Resume Next
connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
Set conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionTimeout = 10
session.Timeout = 10
Server.ScriptTimeout = 20
if err Then
err.clear
end if
conn.Open connstr
'关闭数据库连接,在每页中调用此函数,将连接放入连接池
sub CloseConn()
conn.Close()
Set conn = Nothing
end sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询