asp后台提交无法入数据库急死阿!

来源：百度知道 编辑：UC知道 时间：2024/05/27 13:46:15
以下是CONN.ASP代码我的是ACCESS数据库,我下的这套程序是ASSESS数据库可改SQL版的!我不明白啥意思!我在后台提交修改的东西!提交后什么都没变~!不入数据库啊!
<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Option Explicit
Response.Buffer = True
Dim Dataname,Startime,Conn,Db
Dim SqlString
Dim ConnStr
Startime = Timer()
Const IsSqlDataBase = 0 '定义数据库类别，1为SQL数据库，0为Access数据库
Call OpenConn()
On Error Resume Next
Sub OpenConn()
On Error Resume Next
Db = "../Data/0795sj.mdb" '数据库目录和名称,请使用绝对路径.
SqlString = "Now()"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(Db)
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If
End Sub
'----------------------------------------------------------------------------------------

代码貌似没有错误，你在我的电脑中找到data/0795sj.mdb 右键属性把everyone的所有权限都打开看看是否可以正常插入数据库？

建立数据库连接代码文件conn.asp(文件名和放在哪个目录你自己定),哪页面用到它就<!--#include file="conn.asp"-->包含进来,conn.asp代码:
1\连接SQL数据库代码:
dim conn,connstr
Set conn = Server.CreateObject("ADODB.Connection")
connStr="Provider=SQLOLEDB.1; Persist Security Info=True; Data Source=IP地址; Initial Catalog=数据库名; User ID=用户名; Password=密码"
conn.Open connstr
2\连接ACCESS数据库代码:
connstr="DBQ="+server.mappath("../Data/0795sj.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
注意("../Data/0795sj.mdb")路径问题,否则连不上ACCESS数据库,建议用SQL数据库,没ACCESS那么多毛病,上面的两个连接代码只能用一个,把不用的代码注释掉

发这么多没用的代码还不如发一下你这个东西哪里下载的，让别人下载来看看更好

首先看看你的AC数据库的权限，如果你是NTFS系统，要把USERS组给一下权限．
其次，看一下你打开的记录集属性，往里边写，一般这样写
rs.open sql,conn,1,3
看好了，后边的是3