|
|
|
|
| ****************************************
| | 2018/9/20 | 《代码中每行用绿线划分》 |
|
代码中每行用绿线划分
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<title>1</title>
<style>
*{padding:0;margin:0;}
html{height:100%;}
body{min-height:100%;}
body{position:relative;}
.footer{
height:100px;
background:red;
width:100%;
position:absolute;
bottom:0;
left:0;
}
.box{
padding-bottom:130px;
}
.box p{
line-height:30px;
text-align:center;
border:solid 1px green;
}
</style>
</head>
<body>
<div class="box">
<p>离离原上草</p>
<p>离离原上草</p>
<p>离离原上草</p>
<p>离离原上草</p>
<p>离离原上草</p>
<p>离离原上草</p>
<p>离离原上草</p>
<p>离离原上草</p>
<p>离离原上草</p>
<p>离离原上草</p>
<p>离离原上草</p>
<p>离离原上草</p>
<p>离离原上草</p>
<p>离离原上草</p>
<p>离离原上草</p>
<p>离离原上草</p>
</div>
<div class="footer"></div>
</body>
</html>
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2018/9/17 | 《VBA检测是否重复》 |
|
四段代码分别：1.检测并标注 2.检测并提示 3.检测并标注及提示 4.检测全部（不对比2列）并标注
Sub zz()
Dim d, ar
Set d = CreateObject("Scripting.Dictionary")
ar = [a2].CurrentRegion
For i = 1 To UBound(ar)
d(ar(i, 1)) = d(ar(i, 1)) + 1
Next
For i = 2 To UBound(ar) + 1
If d(Cells(i, 1).Value) > 1 Then Cells(i, 1).Interior.ColorIndex = 3
Next
End Sub
Sub 检验()
Columns("A:A").Font.ColorIndex = 0
Dim w, y As Integer
For w = 4 To [a65536].End(xlUp).Row
y = [a65536].End(xlUp).Row
If WorksheetFunction.CountIf(Range("a2:a" & y), Range("a" & w)) >= 2 Then
MsgBox "发现重复", 16, "系统提示"
Range("a" & w).Font.ColorIndex = 3
End If
Next
End Sub
Public Sub AAA()
Dim w&
For w = 4 To 5000 Step 1
If Application.CountIf(Range("A4:A5000"), Range("A" & w)) >= 2 Then
MsgBox "发现重复", 16, "系统提示": Application.Goto Range("A" & w): Exit Sub
End If
Next
End Sub
Sub 检测列重复()
Set d = CreateObject("Scripting.Dictionary") lr = [b65536].End(3).Row arr = Range("A1:H" & lr) '范围（小了报错，下标越界） For i = 1 To UBound(arr) s = arr(i, 1) & arr(i, 3) & arr(i, 4) & arr(i, 5) & arr(i, 6) & arr(i, 7) & arr(i, 8) '主范围 d(s) = d(s) + 1 Next For i = 2 To UBound(arr) s = arr(i, 1) & arr(i, 3) & arr(i, 4) & arr(i, 5) & arr(i, 6) & arr(i, 7) & arr(i, 8) If d(s) > 1 Then Cells(i, 1).Interior.ColorIndex = 3 Next End Sub
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2018/9/10 | 《网站，不能更新。数据库或对象为只读。》 |
|
天人文章管理系统-ASP检测时：网站，不能更新。数据库或对象为只读。 问题代码：-2147217911
检查是否将网站所在目录对 EveryOne 用户打开所有权限。
具体方法是:
打开 “ 我的电脑 ”---- 找到网站所在文件夹 ---- 在其上点右键 ---- 选 “ 属性 ”----- 切换到 “ 安全性 ” 选项卡，在这里给 EveryOne（Users） 用户所有权限（我只选了写入）。
注意: 如果你的系统是 XP ，请先点 “ 工具 ”----“ 文件夹选项 ”----“ 查看 ”----- 去掉 “ 使用简单文件共享 ” 前的勾，确定后，文件夹 “ 属性 ” 对话框中才会有 “ 安全性 ” 这一个选项卡。
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2002/1/1 | 《VBA查询改进》 |
|
If xm <> "" Then
If d.Exists(xm) Then
m = d(xm)
arr(3, 1) = xm
arr(3, j) = brr(m, ncm + 2)
Else
arr(3, j) = " /"
End If 改成 arr(3, j) = " "，效果：没有从显示/，为空白。
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2002/1/1 | 《iis搭建网站中碰到的问题》 |
|
搭建网站中碰到的问题： 1.安装iis时出错，要安装iis5.1，为了防止下一次出错，把有问题删除。 2.如果gosht系统有问题，安装E盘的，D盘是原始的。 3.安装好iis，并设置指向D盘ASP文件夹，打不开。ping，ip不通，解决方法：执行，开始→程序→装机人员工具→解决局域网共享→开通共享，ping，ip，ok。但是还是打不开网页。 4.关闭防火墙解决了。 5.主页能打开了，但asp程序打不开（403.1禁止访问）。 解决方法：打开“管理工具”的“Internet 信息服务”，右键选择“WEB站点属性”的“主目录”选项卡，把“执行许可”的选项从“无”改为“纯脚本”就好了。 6.asp打开乱码。允许执行falsh，好了。
上面是win2003的配置方法，在win2008R中，我们发现，我们已经在iis找不到相应的选项了，事实上它并未消失，配置方法如下： 1、打开 IIS 管理器，然后导航至您要管理的级别，比如asp； 2、在“功能视图”主页”页上，双击“处理程序映射”； 3、在“操作”页上，单击“编辑功能权限”（右上角第5行）； 4、在“编辑功能权限”对话框中，执行以下操作： 选中“读取”可启用需要对虚拟目录具有读取访问权限的处理程序，清除“读取”可禁用需要对虚拟目录具有读取访问权限的处理程序。 选中“脚本”可启用需要对虚拟目录具有脚本权限的处理程序，清除“脚本”可禁用需要对虚拟目录具有脚本权限的处理程序。 选中“执行”可启用需要对虚拟目录具有执行权限的处理程序，清除“执行”可禁用需要对虚拟目录具有执行权限的处理程序。 只有当“脚本”处于选中状态时，“执行”选项才启用。
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2002/1/19 | 《怎么标注备份》 |
- 怎么标注备份
- 现有查询代码繁琐，改进参考，海尔--桌面--窗口系统--多条件查询
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2002/1/19 | 《移动查询完成》 |
|
查询时，先运行完代码，要最后出现查询完成。作如下改动：
模块x数据查询
Sheet1.Activate
[A2:E1000] = ""
t = UBound(arr1)
Range("A2:G7").Resize(t) = arr1 '("A2:E18")中的18是指第18列
UserForm2.TextBox1.Value = ""
' 从这里移到下面
Call 删除重复行
Application.ScreenUpdating = True
MsgBox "查询完成"
End Sub
|
|
|
|
|
|
|
|
|
|
| ****************************************
| | 2002/1/12 | 《搜索-筛选代码》 |
Public Sub MySelRows()
Dim cnn, SQL$ '定义数据库连接和SQL语句
Set cnn = CreateObject("adodb.connection") '创建数据库连接
Set rs = CreateObject("adodb.recordset") '创建一个数据集保存数据 cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;HDR=yes;IMEX=2';data source=" & ThisWorkbook.FullName SQL = "select * from [sheet1$] where 受理人 Like '%zuoxi%' Or 受理人 Like '&dudao%'" Set rs = cnn.Execute(SQL) Range("A2").CopyFromRecordset rs Set cnn = Nothing
Set rs = Nothing
End Sub
Public Sub tt()
Set cnn = Nothing
Set rs = Nothing
End Sub
Sub 删除行() '数组
Dim nRow&, m&, Arr(), Brr()
With Sheet1
nRow = .Range("a65536").End(xlUp).Row
Arr = .Range("a2:g" & nRow).Value '共有G列
ReDim Brr(1 To nRow, 1 To 7)
For i = 1 To nRow - 1
If Arr(i, 5) Like "*zuoxi*" Or Arr(i, 5) Like "*dudao*" Then '第*列筛选"zuoxi*" Or Arr(i, 5) Like "dudao*"
m = m + 1
For j = 1 To 7
Brr(m, j) = Arr(i, j)
Next
End If
Next
.Range("a2:g" & nRow).Value = Brr
End With
End Sub
'忽略了大写
Sub 删除行2()
Dim c%, i%
c = Cells(Rows.Count, 5).End(3).Row '取第*列第一次出现的非空单元格的行号
For i = c To 1 Step -1
If Cells(i, 5) Like "*否*" Then
Rows(i).Delete
End If
Next
End Sub
|
|
|
|
|
|
|