写不进ACCESS数据库，

edsion 2006-02-26 03:57:57

我的edit.asp
是这样的
<%@ codepage ="936" %>
<%
if instr(session("flag_tyadmin"),"51")=0 then
response.redirect "../login.asp"
response.end
end if
%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script LANGUAGE="JavaScript">
function check()
{
if (document.form1.title.value=="")
{
alert("请输入新闻标题！")
document.form1.title.focus()
document.form1.title.select()
return
}
if (document.form1.content.value=="")
{
alert("请输入新闻内容！")
document.form1.content.focus()
document.form1.content.select()
return
}
document.form1.submit()
}
</script>
<% dim newsid,rs,sql,sel
newsid=request("newsid")
set rs=server.createobject("adodb.recordset")
sql="select * from hyxx where newsid="&newsid
rs.open sql,conn,1,1
dim title,Typename1,Tjnews,content,nfrom,Selectpic,Picurl
title=rs("title")
Typename1=rs("Typename")
Typeid=rs("Typeid")
Tjnews=rs("Tjnews")
content=rs("content")
nfrom=rs("nfrom")
Selectpic=rs("Selectpic")
Picurl=rs("Picurl")
session("newsid")=newsid
session("title")=title
session("Typename")=Typename1
session("Tjnews")=Tjnews
session("content")=content
session("nfrom")=title
session("newsid")=nfrom
session("Selectpic")=Selectpic
session("Picurl")=Picurl
session("Typeid")=Typeid
%>
</head>
<link rel="stylesheet" type="text/css" href="../style.css">
<body bgcolor="#FFFFFF" marginheight=0 marginwidth=0 leftmargin=0>
<SCRIPT language=javascript>
var upfile_obj;
function OnUpFile()
{
upfile_obj.src=upfile_obj.lowsrc;
upfile_obj.src=document.forms["form1"].upfile.value;
}
</SCRIPT>
<form name="form1" method="post" action="saveedit.asp">
<INPUT name=upfile onchange=return(OnUpFile()) type=hidden>
<TABLE border="0" cellspacing="0" width="600" cellpadding="4" align=center>
<TR>
<TD bgcolor="#e8f4ff" height=30 colspan=2><b>添加新闻</b></TD>
</TR>
<TR>
<TD width="40%">新闻标题：</TD>
<TD width="60%"><input type="text" name="title" size="52" value="<%=title%>"><font color=#ff6600> *</font></TD>
</TR>
<TR>
<TD>新闻分类：</td>
<TD>
<select name="Typeid">
<option value="<%=Typeid%>" selected><%=typename1%></option>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from hyxxtype"
rs.open sql,conn,1,1
do while not rs.eof
if typeid=cstr(rs("typeid")) then
sel="selected"
else
sel=""
end if
response.write "<option " & sel & " value='"+CStr(rs("typeID"))+"' name=typeid>"+rs("type")+"</option>"+chr(13)+chr(10)
rs.movenext
loop
rs.close
%>
</select>
</TD>
</TR>
<TR>
<TD>推荐新闻：</td>
<TD>
<% select case Tjnews
case 1 response.Write("<INPUT name=tj type=radio value="&Cstr(1)&" CHECKED>推荐   "&"<INPUT name=tj type=radio value="&Cstr(0)&">不推荐")
case 0 response.Write("<INPUT name=tj type=radio value="&Cstr(0)&" CHECKED>不推荐   "&"<INPUT name=tj type=radio value="&Cstr(0)&" >推荐")
case else response.Write "error"
end select
%>
</TD>
</TR>
<TR>
<TD>新闻内容：</TD>
<TD><textarea rows="10" name="content" cols="50" ><%=content%></textarea><font color=#ff6600> *</font></TD>
</TR>
<TR>
<TD>来源：</TD>
<TD><input type="text" name="nfrom" size="30" value="<%=nfrom%>"></TD>
</TR>
<TR>
<TD>是否包含图片：</td>
<TD> <% select case Selectpic
case 1 response.Write("<INPUT name=Selectpic type=radio value="&Cstr(1)&" CHECKED>包含   "&"<INPUT name=Selectpic type=radio value="&Cstr(0)&">不包含")
case 0 response.Write("<INPUT name=Selectpic type=radio value="&Cstr(0)&" >包含   "&"<INPUT name=Selectpic type=radio value="&Cstr(0)&" CHECKED >不包含")
case else response.Write "error"
end select
%></TD>
</TR>
<TR>
<TD> 上传文件： </TD>
<TD><iframe name="ad" frameborder=0 width=100% height=30 scrolling=no src=upload.asp></iframe></TD>
</TR>
<TR height="30">
<TD colspan="2" align="center" bgcolor="#e8f4ff" ><input type="button" value=" 提　交" onclick="check()">
<input type="button" name="Submit2" value=" 重　执">
</TR>
</TABLE>
</FORM>
</BODY>
</HTML>

...全文

78 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

dh20156 2006-02-26

打赏
举报

rs.update
rs.close
set rs=noting
应该是rs1吧？

edsion 2006-02-26

打赏
举报

editsave.asp是这样的
<%@ codepage ="936" %>

<%
if instr(session("flag_tyadmin"),"51")=0 then
response.redirect "../login.asp"
response.end
end if
%>
<link rel="stylesheet" type="text/css" href="../style.css">
<%
dim sql,rs,newsid,sql1,rs1
newsid=session("newsid")
Typeid1=session("Typeid")
Typeid=request.Form("Typeid")
sql="select type from hyxxType where Typeid="&cstr(Typeid)
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
typename1=rs("type")

dim title
dim content
dim tjnews
dim nfrom
dim Selectpic
'dim title
title=request.Form("title")
content=request.Form("content")
tjnews=request.Form("Tjnews")
nfrom=request.Form("nfrom")
Selectpic=request.Form("Selectpic")

sql1="select * from hyxx where Typeid="&cstr(Typeid1)
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,3
newsid=rs1("newsid")
rs1("title")=title
title1=rs1("title")‘测试下有没有执行
rs1("content")=content
rs1("typeid")=Typeid
rs1("typename")=typename1
rs1("tjnews")=tjnews
rs1("nfrom")=nfrom
rs1("Selectpic")=Selectpic
'if request.Form("upfile")<>"" then rs1("picurl")=request.Form("upfile")
'upfile=session("upfile")
session("newsid")=newsid
session("title")=title
session("Typename")=Typename1
session("Tjnews")=Tjnews
session("content")=content
session("nfrom")=title
session("newsid")=nfrom
session("Selectpic")=Selectpic
' session("Picurl")=Picurl
session("Typeid")=Typeid
rs.update
rs.close
set rs=noting
conn.close
set conn=nothing
response.write "<br>"+"信息修改成功，点此<a href=../../hyxx/shownews.asp?newsid="&newsid&" target=_blank><font color=#ff000>预览</font></a>，请<a href=default.asp><font color=#ff000>继续</font></a>其他操作。"
response.Write "<br>"&title1，有结果输出是和要求的结果
%>

能执行修改，若有在最后一行写response.Write "<br>" title1能输出结果
但是就不能写进数据库里
不知道怎么回事
明明rs1("title")是有结果了，为什么数据库里还是不变呢
谢谢；

封装了DAO对象，用于直接操纵access数据库 免费而且公开源码个人感觉超过Diamond

本书主要介绍使用Access 2000进行数据库系统设计的最新概念。全书分为七大部分，主要内容有：Access基础、最大限度地利用查询、设计窗体和报表、在Intranet和Internet上发布数据、集成Access与其他office 2000...

支持更换贴子显示风格，还可自定义(从论坛下载或自己写XSL)，用Access与Oracle数据库的速度都还可以，Dbisam也过得去，Interbase方面实在不熟，所以没有优化过。这几天闹着好玩，把各种控件都装上用了一下，...

支持ACCESS或SQL SERVER数据库（通过ODBC支持），兼容etchat用户文件格式。用户注册管理部分用DLL形式从iChat.exe中独立出来。用户注册、验证部分DLL模块源码公开。

网上的一些教程都不太友好，对于刚入门的新手来说晦涩难懂。...连接字符串简单的说，连接字符串就像是一把钥匙，如果C#想和数据库进行连接，得有一把钥匙，不然门都进不去。下面介绍怎么获取Access得连接字符串...