日记首页  | 列表 | 添加日记  | 管理登陆  | 搜索 | 退出 直达底部 
****************************************
2018/9/22《测试网页链接跳转》
<p style=""><font face="Arial"><span style="font-size: 14px;"><a href="http://测试.heml">测试网页链接跳转新标签页</a></span></font></p>
****************************************
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"%> <%@Language="vbscript" Codepage="936"%>  
例如采用GBK编码，就在文件的最上面加上 上： 
<%@Language="vbscript" Codepage="936"%>  
4、设置asp内置对象 符号映射 和 响应content-type header的编码 
如果你采用utf-8编码， 就在文章最上面加上： 
<meta charset="utf-8"> 
如果你采用GBK编码， 就在文章最上面加上： 
<%@Language="vbscript" Codepage="936"%>  
注意你可以把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，好了。


上面是win2003的配置方法，在win2008R中，我们发现，我们已经在iis找不到相应的选项了，事实上它并未消失，配置方法如下：

1、打开 IIS 管理器，然后导航至您要管理的级别，比如asp；

2、在“功能视图”主页”页上，双击“处理程序映射”；

3、在“操作”页上，单击“编辑功能权限”（右上角第5行）；

4、在“编辑功能权限”对话框中，执行以下操作：

选中“读取”可启用需要对虚拟目录具有读取访问权限的处理程序，清除“读取”可禁用需要对虚拟目录具有读取访问权限的处理程序。

选中“脚本”可启用需要对虚拟目录具有脚本权限的处理程序，清除“脚本”可禁用需要对虚拟目录具有脚本权限的处理程序。

选中“执行”可启用需要对虚拟目录具有执行权限的处理程序，清除“执行”可禁用需要对虚拟目录具有执行权限的处理程序。 只有当“脚本”处于选中状态时，“执行”选项才启用。
****************************************
2002/1/19《怎么标注备份》
  1. 怎么标注备份
  2. 现有查询代码繁琐，改进参考，海尔--桌面--窗口系统--多条件查询
****************************************
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
  共有日记399篇，每页10篇，分39/40页   9首页 3上页 下页4 尾页:  转到：