-
vbs或asp采集网站内容时网页编码问题
所属栏目：[Asp教程] 日期：2023-11-18 热度：6086
'/*=========================================================================
' * Intro 研究网页编码很长时间了，因为最近要设计一个友情链接检测的VBS脚本，而与你链接的人的页面很可能是各[详细] -
实用301转向到另一域名对应页面的asp代码
所属栏目：[Asp教程] 日期：2023-11-16 热度：8357
前几天，为了增强本站的SEO，着手把另一个域名：www.kanshule.com下的所有页面301转向到www.Cuoxin.com下。
由于本站目前只有一个博客，于是从博客上入手。
代码如下：
复制代码 代码如下:
<%
Dim toDomain,fro[详细] -
ASP获得ACCESS数据库表名和结构的代码
所属栏目：[Asp教程] 日期：2023-11-16 热度：8357
<html>
<head>
<title>获取ACCESS数据库表名_www.Cuoxin.com</title>
</head>
<body style="text-align:left;margin-left:50px;font-family:'arial';font-size:12px">
<form style="padding:5px;margin[详细] -
asp下检索xml的实现代码
所属栏目：[Asp教程] 日期：2023-11-16 热度：8357
现在有一个xml，格式如下：
<date>
<item>
<id> 1 </id>
<name> ABC </name>
</item>
<item>
<id> 2 </id>
<name> cde </name>
</item>
<item>
<id> 3 </id>
<name>[详细] -
asp MYSQL出现问号乱码的处理方法
所属栏目：[Asp教程] 日期：2023-11-16 热度：8357
这样的问题是因为
数据库字符集,表字符集,字段字符集都设为：gbk_chinese_ci
注意数据库连接串里面的 Stmt=Set Names 'GBK' ，一定要有这一句。
下面是asp链接mysql的代码。请注意，后面有个GBK。[详细] -
asp选取指定英汉混合字符串_支持中文
所属栏目：[Asp教程] 日期：2023-11-16 热度：8357
说明：本函数作用是截取指定英汉混合字符串，并保持显示长度一至。就是将一个汉字当两英文来截取。
用途：一般会用在标题显示列表，可以避免截取的字符串参插不齐的现象。
程序代码
复制代码 代码如下:
'//A[详细] -
不用WinRar只有asp将网络空间上的文件压缩下载
所属栏目：[Asp教程] 日期：2023-11-16 热度：8357
<%@ Language=VBScript %>
<% Option Explicit %>
<!--#include file="asptar.asp"-->
<%
Response.Buffer = True
Response.Clear
Dim Co,Temp,T,x,i,fsoBrowse,theFolder,TheSubFolders,FilePath,s,PH,objTar[详细] -
解决 utf-8 和 utf-16 加载问题及导致的编码混乱
所属栏目：[Asp教程] 日期：2023-11-16 热度：8357
在windows操作系统上使用IE作为浏览器时。常常会发生这样的问题：在浏览使用UTF-8编码的网页时，浏览器无法自动侦测（即没有设定“自动选择”编码格式时）该页面所用的编码。
即使网页已经声明过编码格式[详细] -
asp两组字符串数据对比合并相同数据
所属栏目：[Asp教程] 日期：2023-11-16 热度：8357
a1="sp2=20;sp1=34;"
a2="sp3=2;sp2=3;sp1=4;"
两组字符串数据，将字符串中相同的数据值相加后得到新的一组数据
即“sp3=2;sp2=23;sp1=38”
(p.s 一个简单的应用：商品二原有数量20件，商品一原有数[详细] -
asp获取数据库中表格名称与列标题的代码
所属栏目：[Asp教程] 日期：2023-11-16 热度：8357
复制代码 代码如下:
< %
'功能：显示数据库中表名、字段名、字段内容
'原创：wangsdong
'原创文章，转载请保留此信息，谢谢
set rs=server.CreateObject("adodb.recordset")
db="db1.mdb"
set [详细] -
实现 RSS 生的 Asp 类型
所属栏目：[Asp教程] 日期：2023-11-16 热度：8357
什么是RSS？
RSS是站点用来和其他站点之间共享内容的一种简易方式（也叫聚合内容），通常被用于新闻和其他按顺序排列的网站，例如Blog。一段项目的介绍可能包含新闻的全部介绍等。或者仅仅是额外的内容或者简短的介[详细] -
asp下用fso与ado.stream写xml文件的方法
所属栏目：[Asp教程] 日期：2023-11-14 热度：823
asp按关键字查询XML的问题
'------------------------------------------------------
'读取文件 ReadTxtFile(FileName)
'------------------------------------------------------
Function ReadTx[详细] -
asp.net常用函数收集第1/2页
所属栏目：[Asp教程] 日期：2023-11-14 热度：823
/// <summary>
/// 得到站点用户IP
/// </summary>
/// <returns></returns>
public static string getUserIP()
{
return HttpContext.Current.Request.ServerVariables["REMOTE_ADDR"].ToString();
}
///[详细] -
asp按关键字查看XML的代码ASP
所属栏目：[Asp教程] 日期：2023-11-14 热度：823
现在有一个xml，格式如下：
复制代码 代码如下:
<date>
<item>
<id> 1 </id>
<name> ABC </name>
</item>
<item>
<id> 2 </id>
<name> cde </name>
</item>
<item>
<id> 3 </id>
[详细] -
ASP 测试是否有中文的代码
所属栏目：[Asp教程] 日期：2023-11-14 热度：823
在 ASP（VBScript 为语言）中，Asc 函数的返回值小于 0 的，可以被判断为中文字符。Asc 函数返回与字符串的第一个字母对应的 ANSI 字符代码。
复制代码 代码如下:
'判断字符串中是否有中文字符
'有－返回[详细] -
ASP保留远程图片到本地
所属栏目：[Asp教程] 日期：2023-11-14 热度：823
采集中 或者 在线添加文章中 都可以用到此功能
俺自己在baidu上搜索的保存远程图片到本地的代码 感觉比较难用点 而且没有现成的比较全的代码 俺也看不懂
俺从 SNA新闻采集系统 For 3.62 (程序制作:ansir)里提取了点[详细] -
asp代理搜集的核心函数代码
所属栏目：[Asp教程] 日期：2023-11-14 热度：823
Function ProxyPage(url)
Set Retrieval = CreateObject("MSXML2.ServerXMLHTTP.5.0")
With Retrieval
.SetProxy 2 , "255.0.0.0:80" '代理ip:代理端口
.Open "Get", url, False, "", ""
.setRequestHeader[详细] -
关于ASP循环表格的问题给予解惑
所属栏目：[Asp教程] 日期：2023-11-14 热度：823
下面是代码，如果看不懂，建议先把表格的一些<tr><td>的表格原理弄清楚了，就可以了
复制代码 代码如下:
<table border="0" cellpadding="0" cellspacing="0">
<%
dim rs,sqltext
set rs = Server.CreateObject[详细] -
一个asp版XMLDOM操作方法
所属栏目：[Asp教程] 日期：2023-11-14 热度：823
<script language="vbscript" runat="server">
'============================================================
'作者：做回自己
'时间：2005-3-15
=============================================[详细] -
在ASP中实现虚继承的示例代码
所属栏目：[Asp教程] 日期：2023-11-14 热度：823
其中使用到一个分页类CPaging
复制代码 代码如下:
Class CPaging
Public RS ' RecordSet对象
Public Mark ' 指针标签
Private sSize ' 每页显示数
Private sTotal ' 总记录数
Private sPage [详细] -
使用ASP的随机字符生成器函数
所属栏目：[Asp教程] 日期：2023-11-13 热度：2207
'*************************************
'asp计算随机数
'*************************************
Function randomStr(intLength)
Dim strSeed, seedLength, pos, Str, i
strSeed = "abcdefghij[详细] -
ASP新闻分页，将一篇过长的文章分页，形成静态页面
所属栏目：[Asp教程] 日期：2023-11-13 热度：2207
上次还是CSDN里的朋友回答的，我复制了下来。原文如下
利用统计文章字数，然后达到一定字数就截断输出，但是分页的内容就会在莫名其妙的地方截断，不是很友好。
很简单，在要截断的地方附近找下面的符号:
；[详细] -
asp 根据IP地址自动识别多路径分发的代码
所属栏目：[Asp教程] 日期：2023-11-13 热度：2207
Function getIpvalue(clientIP)'得到客户端的IP转换成长整型，返回值getIpvalue
On Error Resume Next
Dim strIp, array_Ip
strIp=0
array_Ip = Split(clientIP,".")
If UBound(array_Ip)<>3 Then
getIpva[详细] -
Ajax+asp应用的例子中， 注册模块，表单提交
所属栏目：[Asp教程] 日期：2023-11-13 热度：2207
<!--注册模块-->default.asp
复制代码 代码如下:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.or[详细] -
Google Translate利用于实现其API的一套源代码
所属栏目：[Asp教程] 日期：2023-11-13 热度：2207
直接看代码：
复制代码 代码如下:
Class GoogleTranslator
sub Class_Initialize()
RURI="http://translate.google.com/translate_t?langpair={0}&text={1}"
End Sub
Private Opt_ '
Property Get Opt
O[详细]
