ASP数据库连接方式大全五,开源盛世-源代码下载网,一切精彩开放源代码尽在开源盛世！,开源,源代码,源码,VC,VB,Delphi,MapX,GIS,PDA,EVC,EVB,MapInfo,Visual C++,Visual Basic,开放源代码

处理文件夹
在下面的表中，描述了普通的文件夹任务和执行它们的方法。
任务方法
创建文件夹。 FileSystemObject.CreateFolder
删除文件夹。 Folder.Delete 或 FileSystemObject.DeleteFolder
移动文件夹。 Folder.Move 或 FileSystemObject.MoveFolder
复制文件夹。 Folder.Copy 或 FileSystemObject.CopyFolder
检索文件夹的名字。 Folder.Name
如果文件夹在驱动器上存在，则找出它。 FileSystemObject.FolderExists
获得现有 Folder 对象的实例。 FileSystemObject.GetFolder
找出文件夹的父文件夹名。 FileSystemObject.GetParentFolderName
找出系统文件夹的路径。 FileSystemObject.GetSpecialFolder

请考察示例代码，来看看在 FileSystemObject 中使用了多少种这些的方法和属性。

下面的示例示范了如何在 VBscript 中使用 Folder 和 FileSystemObject 对象，来操作文件夹和获得有关它们的信息：

Sub ShowFolderInfo()
Dim fso, fldr, s
' 获得 FileSystemObject 的实例。
Set fso = CreateObject("scripting.FileSystemObject")
' 获得 Drive 对象。
Set fldr = fso.GetFolder("c:")
' 打印父文件夹名字。
Response.Write "Parent folder name is: " & fldr & "
"
' 打印驱动器名字。
Response.Write "Contained on drive " & fldr.Drive & "
"
' 打印根文件名。
If fldr.IsRootFolder = True Then
Response.Write "This is the root folder." & ""
"
"
Else
Response.Write "This folder isn't a root folder." & "

"
End If
' 用 FileSystemObject 对象创建新的文件夹。
fso.CreateFolder ("C:\Bogus")
Response.Write "Created folder C:\Bogus" & "
"
' 打印文件夹的基本名字。
Response.Write "Basename = " & fso.GetBaseName("c:\bogus") & "
"
' 删除新创建的文件夹。
fso.DeleteFolder ("C:\Bogus")
Response.Write "Deleted folder C:\Bogus" & "
"
End Sub

下面的示例显示如何在 Jscript 中使用 Folder 和 FileSystemObject 对象：
function ShowFolderInfo()
{
var fso, fldr, s = "";
// 获得 FileSystemObject 的实例。
fso = new ActiveXObject("scripting.FileSystemObject");
// 获得 Drive 对象。
fldr = fso.GetFolder("c:");
// 打印父文件夹名。
Response.Write("Parent folder name is: " + fldr + "
");
// 打印驱动器名字。
Response.Write("Contained on drive " + fldr.Drive + "
");
// 打印根文件名。
if (fldr.IsRootFolder)
Response.Write("This is the root folder.");
else
Response.Write("This folder isn't a root folder.");
Response.Write("

");
// 用 FileSystemObject 对象创建新的文件夹。
fso.CreateFolder ("C:\\Bogus");
Response.Write("Created folder C:\\Bogus" + "
");
// 打印文件夹的基本名。
Response.Write("Basename = " + fso.GetBaseName("c:\\bogus") + "
");
// 删除新创建的文件夹。
fso.DeleteFolder ("C:\\Bogus");
Response.Write("Deleted folder C:\\Bogus" + "
");
}
ASP分页函数

Function ExportPageInfo(ByRef rs,curpage,i,LinkFile)
Dim retval, j, pageNumber, BasePage

retval = "第" & curpage & "页/总" & rs.pagecount & "页 "
retval = retval & "本页" & i & "条/总" & rs.recordcount & "条 "

If curpage = 1 Then
retval = retval & "首页前页 "
Else
retval = retval & "首页前页 "
End If
If curpage = rs.pagecount Then
retval = retval & "后页末页"
Else
retval = retval & "后页末页"
End if

retval = retval & "
"
BasePage = (curpage \ 10) * 10
If BasePage > 0 Then retval = retval & " <<"
For j = 1 to 10
pageNumber = BasePage + j
If PageNumber > rs.pagecount Then Exit For
If pageNumber = Cint(curpage) Then
retval = retval & " " & pageNumber & ""
Else
retval = retval & " " & pageNumber & ""
End If
Next
If rs.pagecount > BasePage Then retval = retval & " >>"

ExportPageInfo = retval
End Function

应用

<%
adoPageRS.open "SELECT * FROM news ORDER BY addtime DESC", conn, 1, 1
if err.number <> 0 then
response.write "数据库操作失败："&err.description
else
if adoPageRS.eof and adoPageRS.bof then
response.write "没有记录"
else
%>

<%
adoPageRS.pagesize = 10
adoPageRS.absolutepage = curpage
for i = 0 to 9
%>

<%
adoPageRS.movenext
if adoPageRS.eof then
i = i + 1
exit for
End If
next
%>

新闻标题	日期	操　　作
<%= adoPageRS("title") %>	<% = adoPageRS("addtime") %>	编辑删除
<% = ExportPageInfo(adoPageRS, curpage, i, "Newsman.asp?") %>

asp常常用到的一些东西，
<%=Request.ServerVariables("remote_addr")%>

FOR each item in Request.form
tempvalue=trim(Request(item))
tempvalue=Replace(tempvalue,chr(13)&chr(10),"
")
tempvalue=Replace(tempvalue,"

","
")
if tempvalue="" then tempvalue=0
Execute item&"="""&tempvalue&""""
'response.write item&"="&tempvalue&"
"
next
'response.write request("id")
'response.end

if ="" then
response.write "<script language='javascript'>window.alert('')</script>"
response.write "<script language='javascript'>window.history.go(-1);</script>"
response.end
end if

<--#include file="" -->
<--#include virtual="" -->

sql="select max(id) from pack"
set RS=conn.execute(sql)
if isnull(RS(0)) then
id=1
else
id=RS(0)+1
end if
set rs=nothing

sql="insert into pack(id,strpackdm,strusername) values("&id&",'"&strpackdm&"','"&Session("username")&"')"
set RS=conn.execute(sql)

sql="update pack set "&Itemname&"='"&tempvalue&"' where id="&id&""
if Itemname<>"id" then
response.write sql&"
"
set rs=conn.execute(sql)

if err.number<>0 then
'错误处理
response.write "数据库操作失败：" & err.description
err.clear
end if

Set rs=Nothing
Conn.close
Set conn=Nothing

do while not rs.eof and rowcount>0

rowcount=rowcount-1
rs.MoveNext

do while not rs.eof

rs.MoveNext
loop

for each item in rs2.fields
Execute item.name&"="""&trim(rs2(""&item.name&""))&""""
next

function Mycn(str)
str=lcase(str)
str=replace(str,"","")
response.write str
end function

dim conn
dim connstr
on error resume next
set conn=server.CreateObject("adodb.connection")

Connstr="driver=SQL Server; server="&servername&"; uid="&username&"; pwd="&password&"; database="&datebasename&";"

Connstr="DBQ="+server.mappath(mydbpath&mdbname)+";DRIVER={Microsoft Access Driver (*.mdb)};"

'response.write Connstr
'response.end
conn.Open connstr
if err<>0 then
Response.Write "无法建立到数据库的连接！"
end if

MD5不可逆加密算法的ASP实现实例（一）

软件：
文章：