求一个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
%>
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
Storm代理
2023-08-29 广告
"StormProxies是全球大数据IP资源服务商，其住宅代理网络由真实的家庭住宅IP组成，可为企业或个人提供满足各种场景的代理产品。点击免费测试（注册即送1G流量）StormProxies有哪些优势？1、IP+端口提取形式，不限带宽，I...
点击进入详情页
本回答由Storm代理提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
