做一个asp网页，功能是可以添加，删除，查询的页面
字段就两个字段，IP_user和IP_add表名称IPrecords，我写了半天，能够实现添加功能，但是查询不了，我现在把网页主页截图上传主要是asp部分的代码，作为初学...
字段就两个字段，IP_user 和IP_add 表名称IPrecords，我写了半天，能够实现添加功能，但是查询不了，我现在把网页主页截图上传
主要是asp部分的代码，作为初学asp的人，老火啊，写不出来，感谢大神们的帮忙，谢谢 展开
主要是asp部分的代码，作为初学asp的人，老火啊，写不出来，感谢大神们的帮忙，谢谢 展开
4个回答
展开全部
注意：此文件是在netbox环境下运行，如在IIS下运行，请修改连接数据库的命令。下载附件中文件，执行1.exe，打开浏览器，输入http://127.0.0.1/1.asp
可看效果，使用此程序，必须停止原asp服务器，如IIS服务
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim dbpath,htmlname
dbpath = "12015217.Sqlite"'数据库名称
htmlname="1.asp"'此文件名
Set conn = CreateObject("NetBox.Database")'此为在netbox下的命令，如不是，请修改为自己的数据库连接方法
conn.Open NetBox.MapPath(dbpath)'此为在netbox下的命令，如不是，请修改为自己的数据库连接方法
%>
<%
dim code,submit,id,IP_add,IP_user,sql,errcode,errmsg
code=Trim(Request.QueryString("code"))
submit=Trim(Request.Form("submit"))
id=Trim(Request.Form("id"))
IP_add=Trim(Request.Form("IP_add"))
IP_user=Trim(Request.Form("IP_user"))
errcode=0
errmsg=""
if submit="添加" then
if IP_user="" then errcode=1:errmsg=errmsg&"姓名为空\n"
if IP_add="" then errcode=1:errmsg=errmsg&"IP地址为空\n"
sql="select * from IPrecords where IP_add='"&IP_add&"' and IP_user='"&IP_user&"'"
set rs = conn.execute(sql)
if not(rs.eof and rs.bof) then errcode=1:errmsg=errmsg&"数据重复\n"
if errcode=0 then
sql="INSERT INTO IPrecords (IP_add,IP_user) values ('"&IP_add&"','"&IP_user&"')"
conn.execute(sql)
response.redirect(htmlname)
else
Response.Write("<script>alert('"&errmsg&"');history.go(-1);</script>")
end if
end if
if submit="删除" then
sql="delete from IPrecords where id in ("&id&")"
conn.execute(sql)
response.redirect(htmlname)
end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "
<html xmlns="
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<style type="text/css">
<!--
label {
width: 100px;
}
ul {
list-style-type: none;
}
li {
float: left;
}
div {
margin: 5px;
width: 100%;
}
table {
border-width: 1px 0px 0px 1px;
border-style: solid;
border-color: #000000;
}
th,td {
border-width: 0px 1px 1px 0px;
border-style: solid;
border-color: #000000;
margin: 0px;
padding: 0px;
}
-->
</style>
<script language="JavaScript" type="text/javascript">
function buttonclick(obj){
document.getElementById("submit").value=obj.value;
//alert(document.getElementById("submit").value)
}
</script>
</head>
<body>
<form id="IPrecords" name="IPrecords" method="post" action="">
<div id="add">
<ul>
<li>
<label for="IP_user">姓 名</label>
<input type="text" id="IP_user" name="IP_user" />
</li>
<li>
<label for="IP_add">IP地址</label>
<input type="text" id="IP_add" name="IP_add" />
</li>
<li>
<input id="bt1" name="bt1" type="submit" value="查询" onclick="buttonclick(this)" />
<input id="bt2" name="bt2" type="submit" value="添加" onclick="buttonclick(this)" />
<input id="bt3" name="bt3" type="submit" value="删除" onclick="buttonclick(this)" />
<input type="reset" value="重置" />
</li>
<input id="submit" name="submit" type="hidden" value="" />
</ul>
</div>
<div id="select">
<table width="240" border="0" cellpadding="0" cellspacing="0">
<tr>
<th scope="col">选择</th>
<th scope="col">姓名</th>
<th scope="col">IP地址</th>
</tr>
<%
sql="select * from IPrecords where 1=1"
if IP_add<>"" then sql=sql&" and IP_add='"&IP_add&"'"
if IP_user<>"" then sql=sql&" and IP_user='"&IP_user&"'"
sql=sql&" order by id desc"
set rs=conn.execute(sql)
do while not rs.eof
%>
<tr>
<td><input name="id" type="checkbox" value="<%= rs("id") %>" /></td>
<td><%= rs("IP_user") %></td>
<td><%= rs("IP_add") %></td>
</tr>
<%rs.movenext:loop%>
</table>
</div>
</form>
</body>
</html>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
把你的查询代码发上来看看
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
你连接的是数据库？
文本域的名称与记录集筛选最后一个框名称对应
文本域的名称与记录集筛选最后一个框名称对应
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
asp页面 添加删除查询帮实现
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
