求一个asp的增删改查的代码 急急急！！
求一个完整的asp的增删改查的代码。。不要代码片段，要一个整和起来的4个功能都能实现的是sql数据库。。。数据库2个字段就可以。。前台一个文本框4个按纽分别实现4个功能。...
求一个完整的asp的增删改查的代码。。不要代码片段，要一个整和起来的 4个功能都能实现的 是sql数据库。。。数据库2个字段就可以。。前台一个文本框 4个按纽分别实现4个功能。。。谢谢各位大师！！！
展开
1个回答
展开全部
前台代码：文件：index.html
<html>
<head>
</head>
<body>
<form name="form1" action="" method="post">
<center><textarea value="请输入SQL代码。" name="command"></textarea></center>
<br>
<center><input type="button" value="增" onclick="window.location='sql.asp?rel=add';">input type="button" value="删" onclick="window.location='sql.asp?rel=del';"><input type="button" value="改" onclick="window.location='sql.asp?rel=update';"><input type="button" value="查" onclick="window.location='sql.asp?rel=select';"></center>
</form>
</body>
</html>
后台代码：文件：sql.asp
<%
'数据库连接
Dim sql,strconn,rel
Set sql=Server.createobject(“adodb.connection”)
strconn=”Driver={SQL Server};Server=ServerName;”
“Uid=UserName;Pwd=Password;”
“DataBase=DatabaseName”
sql.Open strconn,1,1
set rs=server.createobject("adodb.recordset")
rel=request.Querystring("rel")
comm=request.form("command")
'设置分支语句判断按的哪个按钮
if rel=add then
rs.open comm,sql,1,3
response.write "<script>javascript:alert("添加成功");</script>"
response.write "<script>javascript:history.go(-1);</script>"
rs.close
set rs=nothing
if rel=del then
rs.open comm,sql,1,3
response.write "<script>javascript:alert("删除成功");</script>"
response.write "<script>javascript:history.go(-1);</script>"
rs.close
set rs=nothing
if rel=update then
rs.open comm,sql,1,3
response.write "<script>javascript:alert("修改成功");</script>"
response.write "<script>javascript:history.go(-1);</script>"
rs.close
set rs=nothing
if rel=select then
rs.open comm,sql,1,3
response.write "<script>javascript:alert("查找成功");</script>"
response.write "<script>javascript:history.go(-1);</script>"
rs.close
set rs=nothing
%>
<html>
<head>
</head>
<body>
<form name="form1" action="" method="post">
<center><textarea value="请输入SQL代码。" name="command"></textarea></center>
<br>
<center><input type="button" value="增" onclick="window.location='sql.asp?rel=add';">input type="button" value="删" onclick="window.location='sql.asp?rel=del';"><input type="button" value="改" onclick="window.location='sql.asp?rel=update';"><input type="button" value="查" onclick="window.location='sql.asp?rel=select';"></center>
</form>
</body>
</html>
后台代码：文件：sql.asp
<%
'数据库连接
Dim sql,strconn,rel
Set sql=Server.createobject(“adodb.connection”)
strconn=”Driver={SQL Server};Server=ServerName;”
“Uid=UserName;Pwd=Password;”
“DataBase=DatabaseName”
sql.Open strconn,1,1
set rs=server.createobject("adodb.recordset")
rel=request.Querystring("rel")
comm=request.form("command")
'设置分支语句判断按的哪个按钮
if rel=add then
rs.open comm,sql,1,3
response.write "<script>javascript:alert("添加成功");</script>"
response.write "<script>javascript:history.go(-1);</script>"
rs.close
set rs=nothing
if rel=del then
rs.open comm,sql,1,3
response.write "<script>javascript:alert("删除成功");</script>"
response.write "<script>javascript:history.go(-1);</script>"
rs.close
set rs=nothing
if rel=update then
rs.open comm,sql,1,3
response.write "<script>javascript:alert("修改成功");</script>"
response.write "<script>javascript:history.go(-1);</script>"
rs.close
set rs=nothing
if rel=select then
rs.open comm,sql,1,3
response.write "<script>javascript:alert("查找成功");</script>"
response.write "<script>javascript:history.go(-1);</script>"
rs.close
set rs=nothing
%>
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
云创
2023-07-25 广告
不同公司提供的服务不一样，价格也都不一样。如果想了解更多详细信息,可以咨询下北京磐安公司。北京磐安公司是一家专业从事高新软件的技术公司，公司致力于向企业客户提供一站式企业级软件采购、企业信息化基础架构、信息安全、数字化设计和信息技术教育培训...
点击进入详情页
本回答由云创提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
