日记首页  | 列表 | 添加日记  | 管理登陆
****************************************
2018/9/24《工信部icp备案su-yuan.top》
【工信部备案系统】工业和信息化部网站备案系统-短信通知：尊敬的用户苏媛，您的ICP备案申请已通过审核，备案/许可证编号为：陕ICP备18016240号，备案密码为：QBP948，审核通过日期：2018-09-18 08:31:10。请牢记和妥善保管您的备案号、备案密码，备案密码将是以后变更备案信息的重要依据。
****************************************
2018/9/22《1》
****************************************
2018/9/20《asp乱码解决方法》

ASP页面显示乱码解决方法/ASP设置编码

如果你发现浏览页面的时候出现乱码。你可以尝试一下步骤：

1、 确保你页面本身编码格式正确：例如test.asp中使用charset=utf-8，那么请先确保这个文件本身就是Utf-8编码的。你可以利用记事本进行转换。同样如果使用charset=GBK，请先确保这个文件本身就是GBK编码的。 

2、确认你得到的原数据（例如从数据库中得到的数据）编码方式与页面编码方式一至。 
3、尝试指定IIS按什么编码读取。 
<%@ codepage=65001%>UTF-8 
<%@ codepage=936%>简体中文 
<%@ codepage=950%>繁体中文 
<%@ codepage=437 %>美国/加拿大英语 
<%@ codepage=932 %>日文 
<%@ codepage=949 %>韩文 
<%@ codepage=866 %>俄文 
codepage指定了IIS按什么编码读取。 
例如采用UTF-8编码，就在文件的最上面加上 <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> 
例如采用GBK编码，就在文件的最上面加上 <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 
4、设置asp内置对象 符号映射 和 响应content-type header的编码 
如果你采用utf-8编码， 就在文章最上面加上： 
<% Session.CodePage=65001 
Response.Charset="UTF-8" %> 
如果你采用GBK编码， 就在文章最上面加上： 
<% Session.CodePage=936 
Response.Charset="GBK" %> 
注意你可以把3，4中指出的设置放到一个被公共包含的文件(例如conn.asp)的最上面。那么所有的页面都应用此属性。
****************************************
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《HTML 基础标签实例网站》

https://tool.lu/


HTML 基础标签实例网站http://www.w3school.com.cn/example/html_examples.asp

可测试网页代码


ASP基础标签实例网站

http://www.runoob.com/asp/asp-examples.html
****************************************
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，好了。
****************************************
2002/1/19《怎么标注备份》
  1. 怎么标注备份
  2. 现有查询代码繁琐，改进参考，海尔--桌面--窗口系统--多条件查询
  共有日记30篇，每页10篇，分2/3页   9首页 3上页 下页4 尾页: