一个很不错的JS日期控件,支持UTF-8编码
作者:xiayuesong 日期:2008-07-31
兼容IE,FF的弹出层登陆界面代码
作者:xiayuesong 日期:2008-07-04
asp+ajax检测用户名是否可用的代码
作者:xiayuesong 日期:2008-06-15
Asp+Ajax边输入边显示查询结果(文本框输入提示)
作者:xiayuesong 日期:2008-06-13
EditorTools 无人值守文章采集发布助手 v1.4
作者:xiayuesong 日期:2008-06-07
用ASP创建日志文件(附源程序)
作者:xiayuesong 日期:2008-12-14
你是否有时想知道什么人访问你的站点,什么时间,IP地址等。下面我就这个问题向
大家来阐述一下。这个例子使用文本文件来写入用户的信息创建一个logfile.asp放
在每一个asp的页面的顶端<!--#Include File="LogFile.asp"-->当有人来访问你
的站点logfile.asp自动把他的信息写入LogFile.txt,如果相关的URl一样的话则不
写入文件
File: LogFile.asp
<%
Dim ValidEntry ' Log variable
' First set that this log is valid
ValidEntry = True
' If Session Variable "LogIn" is not empty
' that mean this person has already been logged
' then set ValidLog to False
If not IsEmpty(Session("LogIn")) then ValidEntry = False
改进的ASP备份SQL Server数据库
作者:xiayuesong 日期:2008-12-10
<form method="post" name="myform" action="?action=backupdatabase">
选择操作:<INPUT TYPE="radio" NAME="act" id="act_backup"value="backup"><label for=act_backup>备份</label>
<INPUT TYPE="radio" NAME="act" id="act_restore" value="restore"><label for=act_restore>恢复</label>
<br>数据库名:<INPUT TYPE="text" NAME="databasename" value="<%=request("databasename")%>">
<br>文件路径:<INPUT TYPE="text" NAME="bak_file" value="c:\$1.bak">(备份或恢复的文件路径)<br>
<input type="submit" value="确定" id=submit1 name=submit1>
</form>
ASP实例:处理多关键词查询实例代码
作者:xiayuesong 日期:2008-12-02
快速掌握ASP+Access数据库的安全法则
作者:xiayuesong 日期:2008-12-02
ASP+Access数据库的18条安全法则:
1.首先,我们需要过滤所有客户端提交的内容,其中包括?id=N一类,另外还有提交的html代码中的操作数据库的select及asp文件操作语法,大家可以把提交的字符转义,然后再存入数据库。
2.然后需要对访问Access数据库的页面进行授权,针对显示数据页面只能使用select语句,过滤其他的update,asp文件则分为许可访问数据库页面和限制访问页。
3.修改数库据连接文件名conn.asp为类似123ljuvo345l3kj34534v.asp文件。
4.修改数据库名为类似q397d0394pjsdlkfgjwetoiu.asp文件。
VISUAL BASCI中的几个函数SPLIT(),UBOUND()
作者:xiayuesong 日期:2008-11-22
Visual Basci中的几个函数:
1.Split(包含子字符串和分隔符的字符串表达式 ,[分隔符],[要返回的子字符串数],[数字值表示判别子字符串时使用的比较方式]),[]部分为可选部分。该函数返回一个以零为下标的一维数组,它包含指定数目的子字符串。
例:
dim xx as variant
xx=split("hello world"," ")将hello world 分隔为hello和world
text1.text= xx(0) 返回hello
text2.text=xx(1) 返回world
2.Ubound(数组名),该函数返回一个 Long 型数据,其值为指定的数组维可用的最大下标
Lbound(数组名),返回一个 Long 型数据,其值为指定数组维可用的最小下标。
例:
dim xx as variant
xx=split("hello world"," ")
text1.text=ubound(xx) 返回1
text2.text=lbound(xx) ‘返回0
3.Instr([start, ]string1, string2),该函数返回 Variant (Long),指定一字符串(string2)在另一字符串中(string1)最先出现的位置,如果没有找到返回0。[start,]为可选参数,表示搜索的开始位置。
例:
dim xx as string
xx="hello world"
text1.text=instr(xx,"o") 返回5
text2.text=instr(6,xx,"o") 返回8,从第6个字符开始查找








