预览模式: 普通 | 列表

ASP读取XML

通常是利用数据库来保存数据,但也可以使用xml文件来保存数据。假设xml文件的内容是:
test.xml
<?xml version="1.0" encoding="gb2312"?>
<site>
<root>

查看更多...

分类:应用开发 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2664

ASP禁止IP访问

<%
Dim IP,IPString,VisitIP
'要禁止的IP地址
IPString="|219.142.118.71|127.0.0.1|"
'获取IP地址

查看更多...

分类:应用开发 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2410

asp在线人数

<%
Dim RefreshTime, IdleTime, TotalUsers, OnlineUser(), Tmp(), Num, I, ID
RefreshTime = 10           '设置网页自动更新时间为10秒
IdleTime = RefreshTime * 3 '设置闲置时间为自动更新时间的3倍
Application.Lock

查看更多...

分类:应用开发 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2164
<%
Function autoLink(str)
str=" "&str
Set re=new regExp '建立正则表达式对象regular e­xpression
re.IgnoreCase=true '忽略大小写

查看更多...

分类:应用开发 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 3056
<%
set fs=server.createobject("scripting.filesystemobject")
file=server.mappath("time.txt")
set txt=fs.opentextfile(file,1,true)
if not txt.atendofstream then

查看更多...

分类:应用开发 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2359

yyyy-MM-dd时间相关的ASP代码

同上,使用 format 函数:
如:
Dim MyTime, MyDate, MyStr
MyTime = #17:04:23#
MyDate = #January 27, 1993#

查看更多...

分类:应用开发 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 3760

ASP关于“本周热门/近期排行”的代码

上一星期(七天之内):
select * from art where [now] between dateadd("ww",-1,now()) and now()
上一星期(上周一至周日):
select * from art where [now] between dateadd("d",-Weekday(Now())-5,now()) and dateadd("d",-Weekday(Now())+1,now())
上一月(上月的今天至今天):

查看更多...

分类:应用开发 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2384
我用asp做了一个提交数据到数据库这个功能的显示页面,但是由于显示页面数据量比较大,每次提交完成后显示页面会自动刷新一次,我想用ajax的无刷新技术让每次提交数据时显示页面不刷新,但是没有用过ajax,希望大家帮我实现这个功能

我的源代码 显示页面:yunxingtu.asp 提交页面:yxtu.asp
注:这里我用的yunxingtu.asp代码只是一个简答的显示页面,仅做示例。
yunxingtu.asp代码:

查看更多...

分类:应用开发 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2740

ASP取字符串中第N个字符

asp.net中可以用C#或者vb.net语言
vb的函数有
mid(str,2,4)函数,str表示你要取的字符串,2代表从str中第2个字符开始,4代表要取几个字符。这个函数你可以用在vb.net中,也可以用在vbscript中
c语言中可以这么做:
例如char *str="hello world" (你要从中取第2个字符到第5个字符)

查看更多...

分类:应用开发 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 3687

ASP过滤SQL非法字符并格式化html

'Jmail邮件发送
Function SendJmail(Email,Topic,MailBody)

Dim JMail
on error resume next

查看更多...

分类:应用开发 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2469

ASP过滤SQL非法字符并格式化html代码

<%
function changechr(str)
changechr=replace(replace(replace(replace(str,"<","<"),">",">"),chr(13),"<br>")," "," ")
changechr=replace(replace(replace(replace(changechr,"[sayyes]","<div align=center><img src="),"","<b>"),"[red]","<font color=CC0000>"),"[big]","<font size=7>")
changechr=replace(replace(replace(replace(changechr,"[/sayyes]","></img></div>"),"
","</b>"),"[/red]","</font>"),"[/big]","</font>")

查看更多...

分类:应用开发 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2459

ASP汉字编码互转

<%
'System.Text.Encoding.GetEncoding

'汉字gb2312转换为UTF-8编码:
function chinese2unicode(Str)

查看更多...

分类:应用开发 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2956