2006-11-30 9:48:00 <一>数据库的连接方法：
1.Access数据库的DSN-less连接方法:
set adocon=Server.Createobject("adodb.connection")
adoconn.Open"Driver={Microsoft Access Driver(*.mdb)};DBQ="& _
&n.. |
2006-11-29 21:56:00 <html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; Charset=gb2312" />
<title>ASP vbs 代码大小写规范-http://www.yongfa365.com/item/749527cce93b7c5d.htm</title>
</head>
.. |
2006-11-29 15:37:00 '
////////////////////////////////////////////////FSO操作/////////////////////////////////////
'
判断文件夹是否存在
Function
FolderExits(Folder)
Folder
=
Server.Mappath(Folder)
Set
FSO
=
Server.CreateObject(
"
Scripting.FileSystemObject
"
)
.. |
2006-11-28 17:32:00 Function BoldWord(strContent,word)
dim objRegExp
Set objRegExp=new RegExp
objRegExp.IgnoreCase =true
objRegExp.Global=True
objRegExp.Pattern="(" & word & ")"
strContent=objR.. |
2006-11-28 16:51:00 原名：在MsSql、Access两种数据库中插入记录后马上得到自动编号的ID值
本编文章将要介绍重点解释如何在Ms Sql Server中更新或添加一条记录后立即得到其标识列的值，这个值在ACCESS就是我们熟知的自动编号的
ID值，好了，闲话不多说，代码我也不多写，只写关键些，相信各位高手一看就明白，呵呵。后面也附带了在.. |
2006-11-28 16:05:00 一、系统没有开启FSO组件
系统没有开启FSO组件.
FSO组件的开启和关闭方法
Dll 文件的注册和注销：
运行cmd命令
注消FSO组件：RegSvr32 /u %windir%\SYSTEM32\scrrun.dll
启用FSO命令：RegSvr32 %windir%\SYSTEM32\scrrun.dll
二、多次注消、启动后还是出现错误，原因是没权限，不知道怎么造成的,下边提供.. |
2006-11-28 16:04:00 错误提示：
ADODB.Recordset 错误 '800a0cc1'
Item cannot be found in the collection corresponding to the requested name or ordinal.
/index.asp，行15
错误原因：服务器上安装动易组件最新组件，但网站系统是用的4.0，系统没有找到相应的字段。动易组件从4.02开始向下兼容，但不兼容4.0。
解决方法：请在.. |
2006-11-28 11:50:00 这是一个简短的分页显示的例子:
<%language="vbscript"
set conn=server.createobject("adodb.connection")
conn.oen "driver={sql server};server=huang;uid=sa;pwd=;database=test"
<%pgsize=5
page=request.querystring("page")
sql="select *.. |
2006-11-28 10:59:00 '金钱转换.12;-.12==>0.12;-0.12
Function MoneyChange(str)
if instr(str,".")=1 then
str="0"&str
elseif instr(str,".")=2 then
str="-0"&mid(str,2)
end if
MoneyChange=str
End Function
'禁.. |
2006-11-27 10:59:00 MoveFirst
使当前记录成为记录集内第一条记录。
MoveLast
使当前记录成为记录集内最后一条记录。
MoveNext
使当前记录成为记录集内下一条记录。
MovePrevious
使当前记录成为记录集内前一条记录
Move n
从当前记录开始向下移动N次 |
2006-11-16 17:18:00 <!----建立数据库start
Create Table Online
(
id varchar (25),--session.sessionid
online int default(0), --0为访客,1为会员
lasttime datetime,--最近活动时间
username varchar (25),--会员用户名
ip varchar (15),--访问者IP
)
--建立.. |
2006-11-6 21:21:00 <!----建立数据库start
Create Table Online
(
id varchar (25),--session.sessionid
online int default(0), --0为访客,1为会员
lasttime datetime,--最近活动时间
username varchar (25),--会员用户名
ip varchar (15),--访问者IP
)
--建立.. |
2006-11-6 19:58:00 在ASP中使用 Request.ServerVariables("REMOTE_ADDR") 来取得客户端的IP地址，但如果客户端是使用代理服务器来访问，那取到的就是代理服务器的IP地址，而不是真正的客户端IP地址。要想透过代理服务器取得客户端的真实IP地址，就要使用 Request.ServerVariables("HTTP_X_FORWARDED_FOR") 来读取。不过要.. |
2006-11-6 18:12:00 <% For Each x In Request.Form %>
Request.Form("<%= x %>") = "<%= Request.Form(x) %>" <BR>
<% Next %> |
2006-10-31 13:38:00 '随机数字转化为A-J的字母
Function ChangeCode(id)
ChangeCode=""
For i=1 to len(id)
ChangeCode = ChangeCode + chr(mid(id,i,1)+65)
Next
End Function
msgbox ChangeCode(54352345),,"随机数字转化为A-J的字母"
把上边的存为changecode.vb.. |
| | | | 文章分类 | | |
|