View Mode: Normal | Article List
ASP获取浏览器地址栏的完整信息
[ 2008-01-18 21:38:12 | Author: colacat ]
去年自己写论坛“跳转至操作前页面”功能的时候用到的代码，比较有用，整理了一下，作用是根据不同的方式获取地址栏的不同信息。
Read More...
<%Function GetUrl(action)
GetUrl=request.servervariables("script_name") '赋目录及文件名
if action="div" then exit Function
GetUrl=Mid(Request.ServerVariables("script_name"),InstrRev(Replace(Request.ServerVariables("script_name"),"\","/"),"/")+1) '赋文件名
if action="page" then exit Function
GetUrl=request.servervariables("QUERY_STRING") '赋地址栏参数
...GetUrl=request.servervariables("script_name") '赋目录及文件名
if action="div" then exit Function
GetUrl=Mid(Request.ServerVariables("script_name"),InstrRev(Replace(Request.ServerVariables("script_name"),"\","/"),"/")+1) '赋文件名
if action="page" then exit Function
GetUrl=request.servervariables("QUERY_STRING") '赋地址栏参数
Read More...
ASP内置函数FormatDateTime的用法
[ 2008-01-18 21:28:55 | Author: colacat ]
虽然很简单，可是却一直记不住，又比较常用，所以还是整理了一下。
函数调用格式：FormatDateTime(Date[,NamedFormat])
参数说明：
一、Date：必选，指的是要被格式化的日期表达式。
二、NamedFormat：可选，指的是所使用的日期/时间格式的数值，如果省略，则默认为vbGeneralDate。
NamedFormat参数可以有以下几个值：
1、vbGeneralDate：值为0，显示日期和/或时间；如果有日期部分，则将该部分显示为短日期格式；如果有时间部分，则将该部分显示为长时间格式；如果都存在，则显示所有部分。
2、vbLongDate：值为1，使用计算机区域设置中指定的长日期格式显示日期。
3、vbShortDate：值为2，使用计算机区域设置中指定的短日期格式显示日期。
4、vbLongTime：值为3，使用计算机区域设置中指定的时间格式显示时间。
...
Read More...
函数调用格式：FormatDateTime(Date[,NamedFormat])
参数说明：
一、Date：必选，指的是要被格式化的日期表达式。
二、NamedFormat：可选，指的是所使用的日期/时间格式的数值，如果省略，则默认为vbGeneralDate。
NamedFormat参数可以有以下几个值：
1、vbGeneralDate：值为0，显示日期和/或时间；如果有日期部分，则将该部分显示为短日期格式；如果有时间部分，则将该部分显示为长时间格式；如果都存在，则显示所有部分。
2、vbLongDate：值为1，使用计算机区域设置中指定的长日期格式显示日期。
3、vbShortDate：值为2，使用计算机区域设置中指定的短日期格式显示日期。
4、vbLongTime：值为3，使用计算机区域设置中指定的时间格式显示时间。
...
Read More...
ASP随机读取数据库中指定条数的记录
[ 2008-01-18 21:17:37 | Author: colacat ]
这几天在琢磨在线考试系统，发现其它方面实现起来没多少困难，而如何随机读取数据库中指定条数的记录？这个之前一直以为不是问题的问题倒难住了我。
通过网上查找和蓝色理想上网友的帮助，有两种方法可以实现：
第一种：
Read More...
通过网上查找和蓝色理想上网友的帮助，有两种方法可以实现：
第一种：
<%'以下代码为随机读取数据库中100条的记录
'连接数据库
sql="select * from test"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.bof and not rs.eof then
call disrndrecord(100,rs.recordcount)
sub disrndrecord(disnum,rsbound)
if rsbound<disnum then disnum=rsbound
for i=0 to disnum-1
...'连接数据库
sql="select * from test"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.bof and not rs.eof then
call disrndrecord(100,rs.recordcount)
sub disrndrecord(disnum,rsbound)
if rsbound<disnum then disnum=rsbound
for i=0 to disnum-1
Read More...
Click Here to Show/Hide Media日子总是在匆匆忙忙一晃就过去了，依旧一事无成、一无是处、一片混钝、一团乱麻，重新开了博客，随便记录下生活工作中的点点滴滴，希望自己在08年能有所改变吧。
