&

ASP資料收集

admin

2013年11月28日 11:43 本文熱度 6275

1.Asp 對象與內置組件
1.1 Response
resPonse.write "html語句"
response.redirect "url"
response.writeBinary Variable (圖像資料)
response.end
response.clear
response.Flush
response.AppenTLog "Information" ->iis login file
response.buffer=true/false -> 馬上解釋馬上顯示
response.ContentType="text/html" "image/gif"
response.CharSet "gb2312"
response.expirse=n 分 (0)
response.ExpireAbsolute=#9，2000 8:30:30#
response.status="403 Forbidden"

ResPonse.Cookies(cookie)[key]|(.attribute)=value
.cookies() 的屬性.Domain
.expires 到期時間
.HasKeys
.Path
response.cookies("University")="TsingHua"
response.cookies("university").expires="January,1,2001"

response.cookies("university").("TsingHua")="January" 一個可有多值

1.2 Request
Request.form("ID")
request.querystring("ID")

1.3 Server變量和方法
ServerVariables
For each name in Request.ServerVariables
response.write("<br>"&name&"="&Request.serverVariables(name)
next
Server.method
server.createobject()
server.mappath()
server.HtmEncode("<html>") 不會被解釋
server.urlEncode("url")

1.4 Session
session.collection|Property|method
<%@ EnableSessionstate=False%>
session.SessionID (會話標識)
session.Timeout (分鐘為單位)
session.Abandon (破壞釋放)

for i=1 to Session.Contents.Count
Response.write("<br>"&Session.contents(i))
next

1.5 Application
Application("aa")="aa"
set Application("My")=server.createobject("MYcomponent")

global.asa
<script language=Vbscript runat=server>
sub Application_onStart
Applicaiton.lock
Application("All")=0
Application("OnLine")=0
Application.unlock
end sub
Sub session_Onstart
Application.lock
Application("Online")= Application("ONline")+1
Application("all")= Application("all")+1
Application.unlock
end Sub

sub session_onend
Application.lock
Application("Online")=Application("Online")-1
end sub

Sub Application_Onend

end sub
</script>
1.6 內置組件略

2.使用瀏覽器的能力
[browscap.ini 文件最新]
<%set Mybrow=server.createobject("mswc.browserType")
aa=mybrow.browser %>
browser: 瀏覽器類型 version: 版本號
majorver: 主版本 miorver: 輔版本
frames: 支持分屏 tables: 支持表格
cookies: 支持cookies backgroundsounds:支持bgsound
vbscript: 支持否 javascripts: 支持否
javaapplets: 支持否 activexcontrols: 支持否
beta: 是否是測試版 platform: os
win16: 16(win31) 32(win95 winnT)
3.文件存取
File Access:
1 FilesystemObject 文件系統基本方法
2 textstream 讀寫文本文件
3 file 處理單個文件
4 folder 處理文件夾
5 drive 磁盤驅動器與網絡共享
File Access Component:
1 Files 文件夾中一系列文件
2 Folder
3 Drive
文件讀寫
<%
set Fobject=server.createobject("scripting.FilesystemObject")
set Tfile=Fobject.CreateTextFile("aa.txt")
""""" set Tfile=Fobject.opentextfile
""""" while not Tfile.atEndofStream
""""" response.write (tFIle.readline)
""""" wend
Tfile.writeline("hellp")
Tfile.close
%>
CreateTextFile(filename,[Overwrite(true/False)[,unicode]])
Opentextfile(filename[,Mode] [,Create] [,Format])
mode:1 ForReading , 8 ForAppending
Create 文件不存在是否創建 true/false
format -2 默認， -1 unicode , 0 ASCII

textstream的屬性和方法
atendofLine Read(N)
atendofstream ReadLine()
column ReadAll
line Skip(n)
Close

文件的處理
set Fileobject=server.createobject(scripting.FileSystemOjbect)
set Tfile=Fileobject.opentextfile("aa.txt")
或者
set Tfile=FileObject.getFile("aa.txt")
FilesystemObject 方法 File 方法 File 屬性
Fileobject.copyFile "aa.txt" "bb.txt" Tfile.copy "bb.txt" attributes 0 normal ,1 read-only
Fileobject.MoveFile "aa.txt" "bb.txt" Tfile.move "bb.txt" 2 hidden ,4 system 8 volume,
Fileobject.deleteFile "aa.txt" Tfile.delete 16 directory ,32 archive
64 alias ,128 compressed
dateCreated 創建日期
DateLastAccessed 最后訪問日期
DateLastModified 最后修改日期
Drive 驅動器
name 文件名
ParentFolder 所在文件夾
path 全路徑
size 文件字節數
type 文件類型

FileSystemObject 的方法
set FileObject=server.createobject(scripting.Filesystemobject)
FileObjet.FileExists(fileName)
FileObjet.GetFile(fileName)
Myfileobject.DirveExists("c:")
Myfileobject.GetDrive("C:")
Myfileobject.getDriveName(path)
Fileobject.CopyFolder "c:\aa" "d:\bb"
Fileobject.DeleteFolder "c:\aa"
Fileobject.FolderExists ("c:\aa")
Fileobject.GetFolder("c:\")
Fileobject.MoveFolder("c:\")

4.驅動器的操作與文件夾的操作
<%set myfileobject=server.createobject("scripting filesystemObject")
for each thing in myfileobject.driver %>
thing.driverletter
thing.totalsize
thing.availablespace
next
'FilesystemObject 方法
Myfileobject.DirveExists("c:")
Myfileobject.GetDrive("C:")
Myfileobject.getDriveName(path)
'driver 方法
set Dir=FileSystemobject.getDrive("C:")
dir.AvailableSpace() '可用空間
dir.driverletter 'drive name
dir.DriveType 'cd-rom removeable drive
dir.serialNumber 'serialNumber
dir.totalsize
dir.shareName
dir.VolumnName
'FilesystemObject 方法
Fileobject.CopyFolder "c:\aa" "d:\bb"
Fileobject.DeleteFolder "c:\aa"
Fileobject.FolderExists ("c:\aa")
Fileobject.GetFolder("c:\")
Fileobject.MoveFolder("c:\")
'Folder 方法
set Fol=FileSystemObject.getFolder("c:\MyFile")
for each thing in Fol.Files
response.write ("<p>"&thing) '
next
Fol.copyFolder "d:\bb" [,overwrite]
Fol.DeleteFolder
Fol.Files
Fol.name
Fol.moveFolder "c:\aa"

5.郵件發送
[ smtp service ]
asp 發送email
sub sendMail(fromwho,towho,subject,body)
dim mymail
set mymail=server.createobject("CDONTS.Newmail")
Mymail.From=FromWho
Mymail.To=Towho
Mymail.Subject=Subject
MyMail.Body=body
'Mymail.AttachFile thispage "source"
Mymail.cc="[email protected]" '抄送
Mymail.bcc="[email protected];[email protected];[email protected]" '密送
Mymail.Sendset
set Mymail=NOthing
end sub

'FromWho=trim(reauest.form("fromWho"))
'...
'...
'If towho<>"" then
' SendMail fromwho,towho,subject,body
'end If

6.Ado 主要對象
1 Connection:
2 Command
3 Recordset
4 Error
5 Parameter
6 Property
7 Field

SET CONN=SERVER.CREATEOBJECT("ADODB.CONNECTION")
'SET RS=SERVER.CREATEOBJECT("ADODB.RECORDSET")
'SET COMM=SERVER.CREATEOBJECT("ADODB.COMMAND")
CONN.OPEN "DSN=HELLO"
SET RS=CONN.EXECUTE(SQLLANGUAGE) ' n,n | 1,3

WHILE RS.EOF
RS.MOVENEXT
RS.MOVEFIRST
RS.MOVELAST
RS.MOVEPREVIOUS
RS.MOVE NUMBER
WEND
'RS.move,RS.BOF RS.EOF
'RS.RecordCount RS.PageCount RS.PageSize RS.MaxRecords
'RS.AbsolutePage
.RS.CursorLocation=3 RS.AbsolutePosition [位置順序號] 要配合使用
'rs("fieldname") rs(Number) rs.Fields("fieldname") rs.Fields(Number)
'Rs.Fields.Item("fieldname") Rs.Fields.item(Number)

關于Connection 與 Command
Set Conn=Server.CreateObject("Adodb.Connection")
Set MyCommand=server.createObject("Adodb.Command")
Conn.open "DSN=Hello"
Set Mycommand.activeConnection=Conn
Mycommand.CommandType=adCMDText
Mycommand.CommandText="select * from tablename"
set Rs=Mycommand.Execute()
Rs.close
conn.close
關于 RecordSet 與 Command
Set Conn=Server.CreateObject("Adodb.Connection")
Set MyCommand=server.createObject("Adodb.Command")
SET RS=SERVER.CREATEOBJECT("ADODB.RECORDSET")
Conn.open "DSN=Hello"
Set Mycommand.activeConnection=Conn
Mycommand.CommandType=adCMDText
Mycommand.CommandText="select * from tablename"
Rs.open Mycommand,adOpenStatic,adLockOptimstic
Rs.close
conn.close

COMMAND 帶參數存儲過程
略

不用DSN訪問數據源
Connection to Access:
" Driver={Microsoft Access Driver (*.mdb)} ;DBQ="& server.mappath("aa.mdb")&"uid=;pwd=;"
Connection to Vfp:
DBC

DBF
Connection to SQL:
" Driver={Sql Server};Server=carl2; DataBase=pubs; uid=sa;pwd=;"
Connection to ORCale:
" Driver={Microsoft ODBC for Orcale};server=OrcaleServer.world; uid=demo;pwd=demo;"

該文章在 2013/11/28 11:43:01 編輯過

關鍵字查詢

資料

正在查詢...

點晴ERP是一款針對中小制造業的專業生產管理軟件系統,系統成熟度和易用性得到了國內大量中小企業的青睞。

點晴PMS碼頭管理系統主要針對港口碼頭集裝箱與散貨日常運作、調度、堆場、車隊、財務費用、相關報表等業務管理，結合碼頭的業務特點，圍繞調度、堆場作業而開發的。集技術的先進性、管理的有效性于一體，是物流碼頭及其他港口類企業的高效ERP管理信息系統。

點晴WMS倉儲管理系統提供了貨物產品管理,銷售管理,采購管理,倉儲管理,倉庫管理,保質期管理,貨位管理,庫位管理,生產管理,WMS管理系統,標簽打印,條形碼,二維碼管理,批號管理軟件。

點晴免費OA是一款軟件和通用服務都免費，不限功能、不限時間、不限用戶的免費OA協同辦公管理系統。

国产高清在线免费观看-国产高清在线免费无码-国产高清在线男人的天堂-国产高清在线视频-国产高清在线视频精品视频-国产高清在线视频伊甸园

ASP資料收集