asp写入数据库access
‘壹’ asp如何写入Access(高手帮忙)
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file = "tuzh_pri.asp"-->
<!--#include file ="../connadmin.asp"-->
<%if request.QueryString("action")="modi" and trim(request.QueryString("id"))<>"" then
dim modi
modi="y"
set rsok=server.createobject("adodb.recordset")
sqlok="select * from com where id="&cint(trim(request.QueryString("id")))
rsok.open sqlok,conn,1,3
rsok.addnew
doid=rsok("id")
title= rsok("title")
content= rsok("content")
kind_id= rsok("yiid")
rsok.update
rsok.close
set rsok=nothing
end if%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../img/css.css">
<title></title>
<title>无标题文档</title>
<SCRIPT language=JavaScript>
function checklogin() {
if (document.form1.kind.value=="") {
alert("请选择类别!");
form1.kind.focus();
return false;
}
if (document.form1.txttitle.value=="") {
alert("请输入标题!");
form1.txttitle.focus();
return false;
}
return true;
}
</SCRIPT>
</head>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from com_kind"
rs.open sql,conn,1,1
dim lm1
lm1=""
do while not rs.eof
if modi="y" and kind_id=rs("yiid") then
lm1=lm1&"<option value='" & rs("yiid") & "' selected>" & rs("yiname")&"</option>"
else
lm1=lm1&"<option value='" & rs("yiid") & "'>" & rs("yiname")&"</option>"
end if
rs.movenext
loop
rs.close%>
‘贰’ asp添加数据进access数据库
假设你单选按钮的名称是 "check" ,值分别就是1,2,3哈
check=request.form("check")
sql="select * from [tongji]"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,3
rs.addnew
if check="1" then
rs("yjs")="yes"
elseif check="2" then
rs("yns")="yes"
else
rs("yys")="yes"
end if
rs.update
rs.close
set rs=nothing
‘叁’ asp如何实现表单上传图片后存入access数据库
asp中表单上传图片后会解析成二进制byte数组保存到access数据库。
1、上传图片：
OpenFileDialog open = new OpenFileDialog();
// image filters
open.Filter = "Image Files(*.jpg; *.jpeg; *.gif; *.bmp)|*.jpg; *.jpeg; *.gif; *.bmp";
if (open.ShowDialog() == DialogResult.OK)
{
// display image in picture box
pictureBox1.Image = new Bitmap(open.FileName);
// image file path
textBox1.Text = open.FileName;
}
2、保存图片信息到acess数据库。
C#实现，保存核心代码：
var pic = File.ReadAllBytes(yourFileName);
using(OleDbConnection con = new OleDbConnection(constr))
using(OleDbCommand cmd = new OleDbCommand("Insert Into DML_Books_List(ID, [Image]) values (@id, @image)", con))
{
con.Open();
cmd.Parameters.AddWithValue("@id", TextBox1.Text);
cmd.Parameters.AddWithValue("@image", pic);
cmd.ExecuteNonQuery();
}
‘肆’ asp将本地的excel表格数据写入网站的access数据库
不是那么复杂吧，使用ADO首先打开 本地的excel表格 读取数据，然后打开 网站的access数据库，写入数据就可以了呀。
ADO 对象支持打开 Excel 表格，也支持打开 Access 数据库以及其他数据库。
‘伍’ ASP读取选择文件夹的所有文件名写入Access数据库
循环读取文件夹文件和子文件夹，可通过FSO组件完成。
FunctionBianli(path)
SetFso=server.createobject("scripting.filesystemobject")
OnErrorResumeNext
SetObjfolder=fso.getfolder(path)
SetObjsubfolders=objfolder.subfoldersNowpath=path+""+Objsubfolder.name
Response.writeNowpath
SetObjfiles=objsubfolder.files
ForEachObjfileInObjfiles
Response.write"<br>---"
Response.writeObjfile.name
Next
Response.write"<p>"
Bianli(nowpath)'递归
Next
SetObjfolder=nothing
SetObjsubfolders=nothing
SetFso=nothing
EndFunction
写入数据库
DBPath="ques.mdb"'ACCESS数据库的文件名，请使用相对于网站根目录的的绝对路径
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath(DBPath)
FunctionQuestionInMdb(byvalQuesTion)
SetConn55=server.createobject("adodb.connection")'连接组件
Conn55.openConnStr'连接数据库
Setrs=server.createobject("adodb.recordset")
sql="selecttop1*fromqa"
rs.opensql,Conn55,1,3
rs.addnew
rs("QuesTion")=QuesTion
QuestionInMdb=rs("id")
rs.close
Setrs=Nothing
Conn55.close
SetConn55=Nothing
EndFunction
‘陆’ 在ASP中怎样把表单中的数据存入ACCESS数据库中
提交表单数据到数据库处理程序，使用add增加到数据库，参考以下代码：
<!--#include file="conn.asp"-->'连接数据库的程序
<%
Set Rs=server.createobject("ADODB.Recordset")
Sql="select * from user"
Rs.open Sql,conn,1,3
Rs.Addnew
Rs("username") = trim(request.Form("username"))
Rs("password") = trim(request.Form("password"))
RS("age") = trim(request.Form("age"))
Rs.update
Rs.close
%>
‘柒’ ASP表单写入ACCESS数据库代码。
你数据库有没有自动编号字段？
如果有，你的sql语句错误
select user,qq,email,content,data from main
你只是选取了user,qq,email,content,data 这几个字段
而没有选取自动编号字段
‘捌’ asp如何将当前时间写入access数据库中
我用过的方法：
1、在数据库里定义一个保存当前时间的字段，不要和一些关键字同名（如time）。
2、设两个变量来或取日期和时间，
如:date1
=
date(now)
time1
=
time(now)
shijian
=
date1
+
time1
3、把时间写入数据库
‘玖’ asp在access数据库中插入数据
1.字符串链接不要用
+
，用
&
。
2。请确定request的数据内容类型和书库中字段类型相同，也要确定不为空。
3。再不会弄就用记录集添加
rs.open
sql,conn,3,3
rs.addnew
rs("id")=id
........
rs.update
rs.updatebatch
rs.close
set
rs=nothing
‘拾’ asp写入access数据库乱码，只有一个表乱码
不是，应该是这样做，按我说的你来查一下你的网站：第一：把每个页面一个一个用记事本打开---文件---另存为---编码（窗口中最下面的）---选择UTF-8-----保存！如果这里是已经utf-8的话就好了，必须打开每页看看，尤其是乱码出来的页面和全部分页面！第二：把asp页面文件里上部的字符编码 gb2312改成utf-8，看看全部页面是否这样的！第三：conn,asp检查一下，上面有没有 Response.CharSet = "utf-8"
Session.CodePage=65001第四：第四不说了应该是上面问题，请查看！