易截截图软件、单文件、免安装、纯绿色、仅160KB

asp添加数据记录写入,删除,查看实列

<!--#include file="conn.asp"-->
<%
if request.Form("username")="" or request.form("password")="" then
response.Write("<script>alert('您好,不能为空
');location.href='index.html';</script>")
end if
%>
<%
dim rs,sql,lyq,ekaida
lyq=request.form("username")
ekaida=request.form("password")
sql="select * from admin"
set rs=server.createobject("adodb.recordset")
rs.open sql,db,1,3
rs.addnew
rs("username")=lyq
rs("password")=ekaida
rs.update
rs.close
set rs=nothing
response.Write("<script>alert('您好,数据库写入成功,正在转入首页
');location.href='index.html';</script>")
%>
---------------------------------------------------------------------------------------------------
<!--#include file="conn.asp"-->
<%
username=request.form("delnet")
if request.Form("delnet")="" then
response.Write("<script>alert('您好,请输入删除的用户名然后点击提
交!');location.href='index.html';</script>")
end if
%>
<%
set rs=server.createobject("adodb.recordset")
sql="delete * from admin where
username='"&trim(request.form("delnet"))&"'"
rs.open sql,db,3,2
db.close
set db=nothing
%>
<%
response.Write("<script>alert('用户:"&username&"删除成功
');location.href='index.html';</script>")
%>
-------------------------------------------------------------------------------
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from admin order by id desc"
rs.open sql,db,1,1
%>
<%
do while not rs.eof
%>
<%=rs("username")%>
<%=rs("password")%>
<%
rs.movenext
loop
%>
--------------------


相关文档:

asp class类用法ASP技术

asp class类用法
asp class
 
严格地说,ASP 并不是一门编程语言,所以不存在类这一概念,我们这里说 ASP 类是指 ASP 的编程语言 VBScript 在 ASP 里应用时的类。
ASP 类比较简单,它不具有真正意义类的继承、重载等特性,尽管如此,它仍然是非常有用的,它降低了我们编程的复杂度,使我们的程序模块更加合理。
A ......

ASP程序整合UCenter Server方法和实现

本程序是asp实现 php uc_client 功能
程序说明
网上的一些代码号称UCenter 整合ASp,但是大部分都没有一个实例,只有一个加密解密函数,很多新手无法利用其进行实际应用。
近期公司网站项目--课堂无忧 需整合asp ucenter,研究了一把UCenter,写了这个范例程序
虽然只简单写了登陆和注册部分功能的实现,其余模块您可以 ......

ASP循环输出表格行tr的方法

  <%
for i=1 to rs.recordCount '变量i从1循环到数据库中的全部记录数
if (i mod 1 =1) then '每个tr即每行显示1个记录,可根据需要自行修改, 将左边的1修改为2即显示两行。
response.write "<tr align='center'>"
end if
%>
此处为要循环的内容
  <%if (i mod 1 = 0) then ......

asp连接access数据例子

<%Dim connstrconnstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Stu.mdb")
Set bb = Server.CreateObject("ADODB.Connection")
bb.Open connstr%>
<html>
<head>
<meta http-equiv="content-Language" content="zh-cn" />
<meta http-equiv="Content-Type ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号