高手请教我一下，高分

[夜若]

由于很久没有写代码了，有很多东东忘了

请各位朋友给几句调试好的代码
我要ASP Access语句以下的
1.asp新建表 删除表
2.表内的所有写入、删除、修改

[yzxlyd]

asp代码生成器
http://www.ddooo.com/softdown/13315.htm
http://www.mydown.com/soft/32/32389.html

[zhanghongwen]

<%
'数据库连接程序conn.asp
strSQL="DBQ="+server.mappath("admin/data/news.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open strSQL
%>

'写入数据
<!--#include file="conn.asp"-->
<%strck_name1=trim(request.form("ck_name1"))
strck_name2=trim(request.form("ck_name2"))

if strsp_shl<>"" then
if not isnumeric(strsp_shl) then
response.Write"<script>alert('数量必须为数字！');window.location='javascript:history.back()';</script>"
response.end
end if
end if
set rs2=server.createobject("adodb.recordset")
sql="select * from dh_table"
rs2.open sql,conn,1,3
rs2.addnew
rs2("sp_type")=strck_name1
rs2("sp_name")=strck_name2
rs2.update
response.write "<script>alert('写入完成!!');window.location='kg.asp';</script>"
response.end
%>

修改数据与写入数据一样,只要去掉 rs2.addnew 就行.


'删除数据
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="delete from ck_table where id="&request("id")
rs.open sql,conn,1,3

response.write "<script>alert('成功删除!!');window.location='kg.asp';</script>"
response.end
%>

[earthpea]

将语句写成可以正常运行的sql后，在ASP中调用就可以了，没有什么特别的。

[hztgcl1986]

顶吧

[bingdian37]

高手请教我一下,高分

^_^