asp 往数据库里添加记录问题 在线等
表单:<%OptionExplicit%><html><head><title>新闻添加</title></head><body><h2align="center">添加...
表单:
<% Option Explicit %>
<html>
<head>
<title>新闻添加</title>
</head>
<body>
<h2 align="center">添加新闻</h2>
<center>
<table border="1" width="90%">
<form name="form1" method="post" action="add.asp">
<tr>
<td>标题</td><td><input type="text" name="titles" size=20></td>
</tr><tr>
<td>作者</td><td><input type="text" name="author" size=40></td>
</tr><tr>
<td>内容</td><td>
<textarea name="intro" rows="2" cols="40" wrap="soft"></textarea></td>
</tr><tr>
<td></td><td><input type="submit" value=" 确 定 "></td>
</tr>
</form>
</table>
</center>
</body>
</html>
add。asp:
<% Option Explicit %>
<%
'如果上面的信息填全了,就添加记录,否则给出错误信息
If Request.Form("titles")<>"" And Request.Form("author")<>"" And Request.Form("intro")<>"" Then
'以下连上数据库,建立一个Connection对象实例db
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "Dbq="&Server.Mappath("data.mdb")&";Driver={Microsoft Access Driver (*.mdb)};"
'以下添加新记录
Dim strSql,varTitles,varAuthor,varIntro '声明几个变量
varTitles=Request.Form("titles")
varIntro=Request.Form("intro")
varAuthor=Request.Form("author")
StrSql="Insert Into news(titles,content, author,update) Values('" & varTitles & "','" & varIntro & "','" & varAuthor & "',#" & Date() & "#)"
db.Execute(strSql)
Response.Redirect "admin.asp" '添加成功,则返回首页
Else
Response.Write "请将所有信息填写完整,"
Response.Write "<a href='add_form.asp'>重新添加</a>"
End If
%>
数据库名字是 data.mdb 只有news 表
字段分别是 id(自动编号) titles(标题) content(内容) author(作者) update(更新时间)
为什么,我添加后,出现 500 错误
QQ 56150752 展开
<% Option Explicit %>
<html>
<head>
<title>新闻添加</title>
</head>
<body>
<h2 align="center">添加新闻</h2>
<center>
<table border="1" width="90%">
<form name="form1" method="post" action="add.asp">
<tr>
<td>标题</td><td><input type="text" name="titles" size=20></td>
</tr><tr>
<td>作者</td><td><input type="text" name="author" size=40></td>
</tr><tr>
<td>内容</td><td>
<textarea name="intro" rows="2" cols="40" wrap="soft"></textarea></td>
</tr><tr>
<td></td><td><input type="submit" value=" 确 定 "></td>
</tr>
</form>
</table>
</center>
</body>
</html>
add。asp:
<% Option Explicit %>
<%
'如果上面的信息填全了,就添加记录,否则给出错误信息
If Request.Form("titles")<>"" And Request.Form("author")<>"" And Request.Form("intro")<>"" Then
'以下连上数据库,建立一个Connection对象实例db
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "Dbq="&Server.Mappath("data.mdb")&";Driver={Microsoft Access Driver (*.mdb)};"
'以下添加新记录
Dim strSql,varTitles,varAuthor,varIntro '声明几个变量
varTitles=Request.Form("titles")
varIntro=Request.Form("intro")
varAuthor=Request.Form("author")
StrSql="Insert Into news(titles,content, author,update) Values('" & varTitles & "','" & varIntro & "','" & varAuthor & "',#" & Date() & "#)"
db.Execute(strSql)
Response.Redirect "admin.asp" '添加成功,则返回首页
Else
Response.Write "请将所有信息填写完整,"
Response.Write "<a href='add_form.asp'>重新添加</a>"
End If
%>
数据库名字是 data.mdb 只有news 表
字段分别是 id(自动编号) titles(标题) content(内容) author(作者) update(更新时间)
为什么,我添加后,出现 500 错误
QQ 56150752 展开
4个回答
展开全部
StrSql="Insert Into news(titles,content, author,update) Values('" & varTitles & "','" & varIntro & "','" & varAuthor & "',#" & Date() & "#)" 这句话有问题。日期不用加##,因为Date直接显示为日期,不是数字如:2012-01-01
改正如下:StrSql="Insert Into news(titles,content, author,update) Values('" & varTitles & "','" & varIntro & "','" & varAuthor & "'," & Date() & ")"
改正如下:StrSql="Insert Into news(titles,content, author,update) Values('" & varTitles & "','" & varIntro & "','" & varAuthor & "'," & Date() & ")"
2012-06-10
展开全部
你的目的是验证表单吗?
在服务器里验证表单这种方法不太好,一般采用在客户端验证,这样会减轻服务器负担,速度更快,可以在客户端网页里添加脚本程序完成这个功能。
你可以参看一下“仰韶图语”网站的上传表单过程,当然它的那个过程也在逐渐淘汰 ,也不完善
在服务器里验证表单这种方法不太好,一般采用在客户端验证,这样会减轻服务器负担,速度更快,可以在客户端网页里添加脚本程序完成这个功能。
你可以参看一下“仰韶图语”网站的上传表单过程,当然它的那个过程也在逐渐淘汰 ,也不完善
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
请按此方法操作下
Internet选项-->高级-->拉动滚动条到最下面,会看到有两项“显示友好的...”,把这两项前在的去掉,你再运行一次程序,应该会提示具体哪行错及错误提示
Internet选项-->高级-->拉动滚动条到最下面,会看到有两项“显示友好的...”,把这两项前在的去掉,你再运行一次程序,应该会提示具体哪行错及错误提示
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
StrSql="Insert Into news(titles,content, author,update) Values('" & varTitles & "','" & varIntro & "','" & varAuthor & "'," & Date() & ")"
用静态输入的话才需要加#号。直接就 Date() 或是 Now() 这样的变量 获取的时间不需要加#
如果是手动输入时间的就要,像是
StrSql="Insert Into news(titles,content, author,update) Values('" & varTitles & "','" & varIntro & "','" & varAuthor & "',#2012-6-12 13:19#)"
用静态输入的话才需要加#号。直接就 Date() 或是 Now() 这样的变量 获取的时间不需要加#
如果是手动输入时间的就要,像是
StrSql="Insert Into news(titles,content, author,update) Values('" & varTitles & "','" & varIntro & "','" & varAuthor & "',#2012-6-12 13:19#)"
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询