ASP+ACC,跪求通过一个网页插入一个数据库表的代码
答案:3 悬赏:60 手机版
解决时间 2021-03-03 00:43
- 提问者网友：世勋超人
- 2021-03-02 13:04
ASP+ACC,跪求通过一个网页插入一个数据库表的代码
最佳答案
- 五星知识达人网友：北方的南先生
- 2021-03-02 13:39
代码如下
<%
dim conn
dim connstr
dim db
db="db.mdb" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
sub CloseConn()
conn.close
set conn=nothing
end sub
%>
<%
set rs=server.createobject("adodb.recordset")
TableName=request.Form("xxx") '代表你的文本框ID
sql="CREATE TABLE "&TableName&" (ID int(4) NOT NULL,Title char(10))，...."
conn.Execute(sql)
'...代表的是你需要添加的字段值这里不知道你需要添加的字段
%>参考资料：ASP ACCESS
<%
dim conn
dim connstr
dim db
db="db.mdb" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
sub CloseConn()
conn.close
set conn=nothing
end sub
%>
<%
set rs=server.createobject("adodb.recordset")
TableName=request.Form("xxx") '代表你的文本框ID
sql="CREATE TABLE "&TableName&" (ID int(4) NOT NULL,Title char(10))，...."
conn.Execute(sql)
'...代表的是你需要添加的字段值这里不知道你需要添加的字段
%>参考资料：ASP ACCESS
全部回答
- 1楼网友：掌灯师
- 2021-03-02 16:28
<%
a=request("b")
If a="" then
%>
<%
else
set rs=server.createobject("adodb.recordset")
sql="create table ["&a&"]"
rs.open sql,conn,1,3
response.write " "&a&" 表已经创建"
end if
%>
a=request("b")
If a="" then
%>
<%
else
set rs=server.createobject("adodb.recordset")
sql="create table ["&a&"]"
rs.open sql,conn,1,3
response.write " "&a&" 表已经创建"
end if
%>
- 2楼网友：青尢
- 2021-03-02 14:52
跟帖 等答案！
偶也想知道！~
偶也想知道！~
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯