2018年6月8日
asp登录校验及登录检测
摘要： <% dim name,pwd name=trim(request("name")) pwd=trim(request("pwd")) if name=”” or pwd=”” then response.Write "<script>alert('账户密码不能为空！');location='man 阅读全文
posted @ 2018-06-08 11:28 黑旗君 阅读(428) 评论(0) 推荐(0)
asp对话框提示
摘要： 自动弹出对话框 <%Response.Write "<script language='javascript'>alert('删除成功！');</script>"%> 执行链接提示对话框 <a href="1.asp" onClick="return confirm('您确定进行删除操作吗？')"> 阅读全文
posted @ 2018-06-08 11:12 黑旗君 阅读(752) 评论(0) 推荐(0)
asp文件包括调用
摘要： <!--#include file="conn.asp" --> 阅读全文
posted @ 2018-06-08 11:11 黑旗君 阅读(125) 评论(0) 推荐(0)
asp数据删除
摘要： <% set rs=server.createobject("adodb.recordset") exec="delete * from [guide] where id="&request.querystring("id") rs.open exec,conn,3,2 Response.Write 阅读全文
posted @ 2018-06-08 11:10 黑旗君 阅读(183) 评论(0) 推荐(0)
asp数据修改（编辑、更新）
摘要： <% title=trim(request("title")) title=request.Form("title") cont=request.Form("cont") time1=request.Form("time1") publisher=request.Form("publisher") 阅读全文
posted @ 2018-06-08 11:09 黑旗君 阅读(316) 评论(0) 推荐(0)
asp数据添加
摘要： <% if trim(request("action"))="add" then set rs=server.CreateObject("adodb.recordset") rs.open "select * from [news]",conn,1,3 rs.addnew rs("title")=r 阅读全文
posted @ 2018-06-08 11:07 黑旗君 阅读(202) 评论(0) 推荐(0)
asp数据动态传递
摘要： 数据动态传递 <a href="<%=rs(“url”)%>" title="<%=rs("title")%>" target="_blank"><%=rs("title")%></a> 或 <a href="123.asp" title="<%=rs("title")%>" target="_bl 阅读全文
posted @ 2018-06-08 11:06 黑旗君 阅读(101) 评论(0) 推荐(0)
asp数据输出及数据循环输出
摘要： <% set rs=server.createobject("adodb.recordset") sql="select * from recruitment where audit='审核通过' order by id DESC" rs.open sql,conn,1,1 %> 数据输出 <%=r 阅读全文
posted @ 2018-06-08 11:04 黑旗君 阅读(592) 评论(0) 推荐(0)
asp数据查询及数据筛选
摘要： “排序” <% set rs=server.createobject("adodb.recordset") sql="select * from [session] order by id DESC" rs.open sql,conn,1,1 %> order by为数据排序，DESC降序，ASC升 阅读全文
posted @ 2018-06-08 11:02 黑旗君 阅读(545) 评论(0) 推荐(0)
数据链接（无源方式）
摘要： <% Set conn = Server.CreateObject("ADODB.Connection") connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/mydate.mdb") conn.ope 阅读全文
posted @ 2018-06-08 10:59 黑旗君 阅读(225) 评论(0) 推荐(0)
2018年5月13日
HTML5 Input 类型
摘要： HTML5 新的 Input 类型 HTML5 拥有多个新的表单输入类型。这些新特性提供了更好的输入控制和验证。 本章全面介绍这些新的输入类型： email url number range Date pickers (date, month, week, time, datetime, datet 阅读全文
posted @ 2018-05-13 09:49 黑旗君 阅读(194) 评论(0) 推荐(0)
2018年5月5日
access窗口标签居中
摘要： Private Sub Form_Resize() On Error Resume Next Me.Width = Me.InsideWidth Me.Section(acDetail).Height = Me.InsideHeight Me.Label_u.Move (Me.InsideWidth 阅读全文
posted @ 2018-05-05 21:11 黑旗君 阅读(471) 评论(0) 推荐(0)
2018年5月4日
access treeview读取数据表成树并与子窗体联动
摘要： Private Sub Form_Load()Dim i As IntegerDim rst As DAO.RecordsetSet rst = CurrentDb.OpenRecordset("SELECT * FROM menu;") '以要链接的表建立记录集If rst.RecordCount 阅读全文
posted @ 2018-05-04 00:07 黑旗君 阅读(721) 评论(0) 推荐(0)
2018年5月2日
完整的treeview菜单实例
摘要： 以下是我用treeview控件按部门和员工显示设备领用情况代码. Option Compare Database Dim rec As New ADODB.Recordset Dim recPlant As New ADODB.Recordset Dim nodindex As Node Dim k 阅读全文
posted @ 2018-05-02 23:48 黑旗君 阅读(830) 评论(0) 推荐(0)
treeview调用数据库成树
摘要： 目的：将数据库中的数据与树控件绑定背景：我们想在树控件中显示销售客户的层级列表，这个销售客户的分层是这样的，先按“大区”，再按“省份”，最后到“客户”我们在数据库中建立了三个表，字段如下：大区表：大区ID，大区名称省份表：省份ID，省份名称，所属大区客户表：客户ID，客户名称，所属省份这三个表互相建 阅读全文
posted @ 2018-05-02 23:17 黑旗君 阅读(380) 评论(0) 推荐(1)
treeview树（利用数据表实现）带展开
摘要： Private Sub Form_Load()'引用C:\windows\system32\MSCOMCTL.OCX，否则提示出错。 Dim Rec As New ADODB.Recordset Dim stRecQL As String Dim Item As Integer Dim i As I 阅读全文
posted @ 2018-05-02 14:35 黑旗君 阅读(283) 评论(0) 推荐(0)
2018年5月1日
access按钮事件在子窗体打开窗体或报表
摘要： Private Sub Com1_Click()Me.win.SourceObject = "窗体1"End Sub Private Sub Com2_Click()Me.win.SourceObject = "窗体2"End Sub 阅读全文
posted @ 2018-05-01 23:37 黑旗君 阅读(894) 评论(0) 推荐(0)
access窗体主体居中
摘要： Private Sub Form_Load()DoCmd.Echo False Dim x, y As IntegerDoCmd.Maximizex = Me.WindowWidthy = Me.WindowHeightDoCmd.RestoreDoCmd.Echo TrueMove (x - Me 阅读全文
posted @ 2018-05-01 13:43 黑旗君 阅读(577) 评论(0) 推荐(0)
access窗体最大化到软件大小
摘要： Private Sub Form_Load()DoCmd.ShowToolbar "Ribbon", acToolbarNo '窗体最大化，占满软件最 End Sub 阅读全文
posted @ 2018-05-01 13:42 黑旗君 阅读(540) 评论(0) 推荐(0)
Access Treeview树节点代码二
摘要： Private Sub Form_Load() '引用C:\windows\system32\MSCOMCTL.OCX，否则提示出错。 Dim Rec As New ADODB.Recordset Dim stRecQL As String Dim Item As Integer Dim i As 阅读全文
posted @ 2018-05-01 12:01 黑旗君 阅读(496) 评论(0) 推荐(0)
Access Treeview树节点代码一
摘要： Private Sub TreeView0_Updated(Code As Integer)Dim ndeindex As NodeSet ndeindex = TreeView0.Nodes.Add(, , "a", "基础资料 ", "k1")Set ndeindex = TreeView0.N 阅读全文
posted @ 2018-05-01 10:36 黑旗君 阅读(667) 评论(0) 推荐(0)
access登录校验代码二
摘要： ‘ 这一段是用来检查有没有输入用户名或密码的If IsNull(Trim(Me.username )) ThenDoCmd.BeepMsgBox ("请输入用户名称! ")ElseIf IsNull(Trim(Me.password )) ThenDoCmd.BeepMsgBox ("请输入密码! 阅读全文
posted @ 2018-05-01 10:34 黑旗君 阅读(827) 评论(0) 推荐(0)
access登录窗口校验代码一
摘要： Private Sub login_Click()If IsNull(Me.username) ThenMsgBox "请输入用户名！", vbExclamationElseIf IsNull(Me.password) ThenMsgBox "请输入密码！", vbExclamationElseIf 阅读全文
posted @ 2018-05-01 10:15 黑旗君 阅读(1823) 评论(0) 推荐(0)