【在线求助】ASP插入数据SQL语句问题

来源：百度知道 编辑：UC知道 时间：2024/07/02 13:02:59
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("../data/DongZhouOpen.mdb")

nameStr = request.Form("nameStr")
titleStr = request.Form("title")
authorStr = request.Form("author")
dateStr = request.Form("date")
originStr = request.Form("origin")
amountStr = request.Form("amount")
textStr = request.Form("content1")

dim sql="insert into "&nameStr&"(title,author,date,origin,amount,text) values("&titleStr&","&authorStr&","&dateStr&","&originStr&","&amountStr&","&textStr&")"

conn.execute sql
conn.close
set conn=nothing

response.redirect "../admin/admin.asp?nameStr="&nameStr

%>
---------------------------------

把你的这句：
dim sql="insert into "&nameStr&"(title,author,date,origin,amount,text) values("&titleStr&","&authorStr&","&dateStr&","&originStr&","&amountStr&","&textStr
换成：
dim sql
sql="insert into "&nameStr&"(title,author,date,origin,amount,text) values('"&titleStr&"','"&authorStr&"','"&dateStr&"','"&originStr&"','"&amountStr&"','"&textStr&"')"

field1=array("titleStr","authorStr","dateStr","originStr","amountStr","textStr")

value1=array(titleStr,authorStr,dateStr,originStr,amountStr,textStr)

for i=0 to ubound(field1)
value1(i)=replace(value1(i),"'","''")
next

sql = "INSERT INTO " & table & " (" & Join(fiel