-
asp 动态创建rss代码
所属栏目：[Asp教程] 日期：2023-11-09 热度：1984
rss的优点
1.您可以有选择地浏览您感兴趣的以及与您的工作相关的新闻。
2.您可以把需要的信息从不需要的信息中分离出来。
3.您可以创建自己的新闻频道，并将之发布到因特网。
什么是 RSS？
RSS 指 Really Simpl[详细] -
asp实现本周的一周时间清单的代码
所属栏目：[Asp教程] 日期：2023-11-09 热度：74
复制代码 代码如下:
td=date()
'此次为设置当前日期,主要是为了调试方便,实际应用中可以使用当天日期..
str="一二三四五六日"
'生成具体是周几的串,根据位置来取就可以了..
for x=1 to 7
'这个循环[详细] -
一种添加水印到 aspjpeg 通道中的功能
所属栏目：[Asp教程] 日期：2023-11-09 热度：74
aspjpeg组件实现加水印函数的调用方法：
<%printwater "/images/水印图片.gif","/uploadfile/上传图片.jpg") %>
复制代码 代码如下:
function printwater(waterpath,upfilepath)
Dim Logobox,LogoPath,ogvbox
L[详细] -
asp下去掉超链接的函数
所属栏目：[Asp教程] 日期：2023-11-09 热度：74
复制代码 代码如下:
<%
Function ReplaceUrl2(HTMLstr)
Dim n,str1,str2,str3,str4
HTMLstr = Lcase(HTMLstr)
For n=1 to Ubound(Split(HTMLstr,"<a"))
str1 = Instr(HTMLstr,"<a")
str2 = Instr(str1,HTMLst[详细] -
ASP 数据库连接字符串，用于动网论坛
所属栏目：[Asp教程] 日期：2023-11-09 热度：74
复制代码 代码如下:
<%@LANGUAGE="VBSCRIPT"%>
<%
option explicit
dim startime,endtime,conn,strCon,db
startime=timer()
Dim strSQLServerName
Dim strSQLDBUserName
Dim strSQLDBPassword
Dim strSQL[详细] -
XML制作的 Menu管理员程序的 ASP
所属栏目：[Asp教程] 日期：2023-11-09 热度：74
以下是menu.asp代码
程序代码
<%
'---------------------------------------
'作者:野 草
'日期:2006年4月24日
'Q Q:94440079
'---------------------------------------
'读取XML文[详细] -
asp datediff 时间差异
所属栏目：[Asp教程] 日期：2023-11-09 热度：74
asp时间加减运算 和转换问题
a=2007-07-24 2:23:15
b=2005-06-25 2:23:15
问题1
如何将a转换成2007-07-24要日期格式不要字符格式！
问题2
如何将a转换成2007要日期格式不要字符格式！
问题3
如何将a转换成2：[详细] -
如何处理asp ie中的页面变量
所属栏目：[Asp教程] 日期：2023-11-09 热度：74
当地址栏没有参数＂id＂时：
复制代码 代码如下:
Request.QueryString["ID"] == null
Convert.ToString(Request.QueryString["ID"]) == null
注意这样会出错：
Request.QueryString["ID"].ToString([详细] -
asp ajax跨域传输数据
所属栏目：[Asp教程] 日期：2023-11-09 热度：74
星期五写了个分类信息的小东东!在数据库里只有ip地址,一般访客不太清楚IP地址来源于哪个城市.如果在表里多一个列保存城市又没有真实性可言.如果能把IP地址变成城市多好呀.当然可以去down下数据库.可就为这个需求觉得[详细]
-
asp HTTP 500错误 常见问题解析
所属栏目：[Asp教程] 日期：2023-11-07 热度：378
首先你要确定错误的原因：
让IE显示详细的出错信息：
菜单--工具--Internet选项--高级--显示友好的HTTP错误信息，去掉这个选择吧，对帮助你确定错误所在非常有帮助！
造成500错误常见原因有：ASP语法出错、AC[详细] -
ASP 包含文件中的路径问题与采用单一数据库连接文件的解决方案
所属栏目：[Asp教程] 日期：2023-11-07 热度：378
啥都不说了，直接奉献原代码
复制代码 代码如下:
'==========注意===============================================
' 1、网站所在文件夹的名字不能为“root”
' 2、网站所在文件夹的名字[详细] -
在ASP语言中得到动态数组中的元素数量
所属栏目：[Asp教程] 日期：2023-11-07 热度：378
一个动态数组 a，如果你已经使用redim 语句给它设定了大小，那么在此之后使用 ubound(a) 就可以得到它的上边界。
如果你没有使用 redim 语句给它设定大小，直接使用 ubound(a) 函数，那么运行时会报错，并会中断程序[详细] -
asp检验是否为中文字符函数
所属栏目：[Asp教程] 日期：2023-11-07 热度：378
<%
'******************************
'函数：CheckChinese(strng)
'参数：strng,待验证字符
'描述：检测是否为中文字符，返回值：中文为true，否则false
'示例：<%=CheckChinese(strng)%>[详细] -
在Win2003 64位下ASP不能够连上Access数据库
所属栏目：[Asp教程] 日期：2023-11-07 热度：378
复制代码 代码如下:
ADODB.Connection 错误 '800a0e7a'
未找到提供程序。该程序可能未正确安装。
/连接“网站内容管理”数据库.asp，行 2
原因：IIS是以64位方式来运行的，它只能加载64位模[详细] -
ASP的读写文件的程式码
所属栏目：[Asp教程] 日期：2023-11-07 热度：378
'*************************************
'读取文件
'*************************************
Function LoadFromFile(ByVal File)
Dim objStream
Dim RText
RText = Array(0, "")
Set objStrea[详细] -
asp 去除非法字符函数
所属栏目：[Asp教程] 日期：2023-11-07 热度：378
<%
Function cutbadchar(str)
badstr="不|文|明|字|符|列|表|格|式"
badword=split(badstr,"|")
For i=0 to Ubound(badword)
If instr(str,badword(i)) > 0 then
str=Replace(str,badword(i),"***")
End If[详细] -
asp之自动闭合HTML/ubb标签函数附简易注释
所属栏目：[Asp教程] 日期：2023-11-07 热度：378
Function closeUBB(strContent)
'*************************************
'自动闭合UBB
'*************************************
Dim arrTags, i, OpenPos, ClosePos, re, strMatchs, j, Match
Set[详细] -
aspjpeg 加入水印教程及生成缩略图教程
所属栏目：[Asp教程] 日期：2023-11-07 热度：378
一、为图片加入水印功能
Dim Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg") ' 建立对象
Jpeg.Open BlogPath & "/upload/" & FileName ' 图片所在位置
Jpeg.Canvas.Font.Color = &H000000 '[详细] -
ASP 根据用户权限判断展示的列标题
所属栏目：[Asp教程] 日期：2023-11-07 热度：378
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse:collapse" bordercolor="#6699CC" width="700" align="center">
<tr>
<td height="25" back[详细] -
asp Http_Referer,Server_Name及Http_Host
所属栏目：[Asp教程] 日期：2023-11-04 热度：8615
刚才运行了一段代码，来查看Request.ServerVariables里面有多少值，看了一下，共50个！
代码<%=Request.ServerVariables.count%>
以前感觉Request.ServerVariables里的值很多，现在看看还是那么多，不过今天谈其中[详细] -
通过asp程序来建构access数据库
所属栏目：[Asp教程] 日期：2023-11-04 热度：8615
如下所示:
复制代码 代码如下:
Set Catalog_object= Server.CreateObject("ADOX.Catalog")
Catalog_object.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/Cuoxin.com.mdb"))
简[详细] -
利用 ASP 的 HTTP_REFERER 判定规则
所属栏目：[Asp教程] 日期：2023-11-04 热度：8615
只要不是HTTP_REFERER来源于（google.com google.cn *.google.com *.google.cn baidu.com *.baidu.com）这些网址来源的请求，就通通转发至404
复制代码 代码如下:
<%
Dim a, reg
a = Request.ServerVariables("H[详细] -
asp base64 utf-8保证兼容asp.net的base64
所属栏目：[Asp教程] 日期：2023-11-04 热度：8615
复制代码 代码如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>
<!--#include file="base64.asp"-->
<%
Function AspUrlDecode(strValue)
Dim varAry, varElement, objStream, ln[详细] -
初学js者对javascript面向对象的认识解析
所属栏目：[Asp教程] 日期：2023-11-04 热度：8615
复制代码 代码如下:
var obj = document.getElementById("name");
function clickMe() {
alert(this.value);
this.value += "!!!!";
alert(this.value);
}
var ActionBinder = function() {//定义一个类
}[详细] -
asp 实现当有新信息时发出语音提示的效果
所属栏目：[Asp教程] 日期：2023-11-04 热度：8615
asp 实现当有新信息时播放语音提示的效果
1、信息表新建立一个字段，并用0、1的方法判断信息的状态。
2、新建一个页面，定时刷新，并查询表中是否有字段值为0的记录。
3、当管理员点击查看该信息的时候，将字段[详细]
