冠霖的部落格

9月 25 週四 200809:04
[轉]用ASP實現在線壓縮與解壓縮

作者:FindSome 日期:2007-11-12
一、問題的提出
　　隨著互連網的發展，網站的數量以驚人的數字增加。網站的作用除了給廣大網友們提供信息資訊服務外，還應該成為網友們上傳與下載文件的場所。在上傳與下載文件的過程中，傳輸時間是關鍵，這就要求有較快的傳輸速度。在傳輸速度固定不變或是上下變動不大的情況下，盡量減小傳輸文件的體積，是一個可行的辦法：上傳文件的時候，先將要上傳的文件用WINRAR壓縮，上傳成功後在網站內通過程序實現解壓縮；下載文件的時候，先將要下載的文件在網站內通過程序實現壓縮然後再下載。本文就針對該問題的解決進行探討。

(繼續閱讀...)

11 發表在痞客邦留言(0) 人氣(1)

個人分類：ASP

▲top

7月 16 週三 200811:06
圖片上傳前取得尺寸

圖片上傳前取得尺寸
<html>
<head>
<script language="vbscript">
sub thisform_onSubmit

(繼續閱讀...)

11 發表在痞客邦留言(0) 人氣(3)

個人分類：ASP

▲top

7月 16 週三 200811:00
[轉]大量資料的排序與查詢

大量資料的排序與查詢
今天要教大家的是如何處理大量資料的排序與查詢,筆者選擇這個題目的原因主要是因為前幾天本公司業務拿了一份新浪網(Sina)上個月的廣告統計表給筆者,由於新浪網的業務量大,廣告統計表的資料量相對的也非常的大,令筆者在觀看時非常不便,甚至要找到某家廣告商的資料都很難,我相信這份廣告統計表如果交到廣告商的手上也會令廣告商非常頭痛,因為這份資料包含的欄位有廣告商名稱、廣告放置頁面、廣告放置起始時間、廣告放置截止時間、廣告被瀏覽次數、廣告被點選次數、廣告點選率等等,於是筆者就在想如果能夠讓廣告商上網查閱這些資料,而且能夠對這些資料進行排序與搜尋的功能不但能夠減少紙張的浪費(現在大家都在提倡環保),而且也方便廣告商的觀看,廢話不多說馬上就讓我們進入程式的撰寫,一開始我們也是先建立一個存放資料的資料庫,我們把這個資料庫取名為Companyx.mdb資料庫欄位定義如下
tblEmployeesID自動編號Name文字Title文字Department文字接著讓我們看看程式內容並為大家解說:我們把這個程式名為Sort_search.asp
Sort_search.asp

<%'指定資料庫路徑%>
<% Session("DatabasePath") = "C:\inetpub\wwwroot\asp\search\companyx.mdb" %>
<%
'-- 宣告變數
Dim DataConnection, cmdDC, RecordSet
Dim SearchText
SValue = Request("SValue")
SValue1 = Request("SValue1")
SearchText = Request.Form("txtSearchText")
'-- 建立資料庫物件與開啟資料庫連結
Set DataConnection = Server.CreateObject("ADODB.Connection")
DataConnection.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Session("DatabasePath") & ";"
Set cmdDC = Server.CreateObject("ADODB.Command")
cmdDC.ActiveConnection = DataConnection
'-- default SQL
SQL = "SELECT * FROM tblEmployees"
'排序的功能全部都以按鈕來完成
'如果是按下編號排序的按鈕則
'-- 列出資料時以編號作為排序索引
If Request.Form("btnSortID") = "升羃排序" Then
SQL = "SELECT tblEmployees.*, tblEmployees.ID FROM tblEmployees ORDER BY
tblEmployees.ID ASC;"
End If
If Request.Form("btnSortID") = "降羃排序" Then
SQL = "SELECT tblEmployees.*, tblEmployees.ID FROM tblEmployees ORDER BY tblEmployees.ID DESC;"
End If
'如果是按下姓名排序的按鈕則
'-- 列出資料時以姓名作為排序索引
If Request.Form("btnSortName") = "升羃排序" Then
SQL = "SELECT tblEmployees.*, tblEmployees.Name FROM tblEmployees ORDER BY tblEmployees.Name ASC;"
End If
If Request.Form("btnSortName") = "降羃排序" Then
SQL = "SELECT tblEmployees.*, tblEmployees.Name FROM tblEmployees ORDER BY tblEmployees.Name DESC;"
End If
'如果是按下職銜排序的按鈕則
'-- 列出資料時以職銜作為排序索引
If Request.Form("btnSortTitle") = "升羃排序" Then
SQL = "SELECT tblEmployees.*, tblEmployees.Title FROM tblEmployees ORDER BY tblEmployees.Title ASC;"
End If
If Request.Form("btnSortTitle") = "降羃排序" Then
SQL = "SELECT tblEmployees.*, tblEmployees.Title FROM tblEmployees ORDER BY tblEmployees.Title DESC;"
End If
'如果是按下部門排序的按鈕則
'-- 列出資料時以部門作為排序索引
If Request.Form("btnSortDepartment") = "升羃排序" Then
SQL = "SELECT tblEmployees.*, tblEmployees.Department FROM tblEmployees ORDER BY tblEmployees.Department ASC;"
End If
If Request.Form("btnSortDepartment") = "降羃排序" Then
SQL = "SELECT tblEmployees.*, tblEmployees.Department FROM tblEmployees ORDER BY tblEmployees.Department DESC;"
End If
'-- 如果是搜尋資料的話
If Request.Form("btnSearch") = "Search" Then
SQL = "SELECT * FROM tblEmployees WHERE " & SValue & " Like '%" & SearchText & "%' ORDER BY " & SValue & " " & SValue1 & ";"
End If
cmdDC.CommandText = SQL
Set RecordSet = Server.CreateObject("ADODB.Recordset")
'開啟資料庫集合時是以唯讀模式開啟且擁有最快回應時間
'cursortype = 1 locktype = 0
RecordSet.Open cmdDC, , 0, 1
%>
<html>
<body>
<center>
<%'將所有資料與按鈕顯示出來%>
<form action="sort_search.asp" method="post">
<table border="1" cellpadding="0" cellspacing="0" width="500">
<tr>
<td align="center"><b>編號</b></td>
<td align="center"><b>姓名</b></td>
<td align="center"><b>職銜</b></td>
<td align="center"><b>部門</b></td>
</tr>
<tr><%'以按鈕的型式作參數傳遞的功能%>
<td align="center"><input type="submit" name="btnSortID" value="升羃排序"><input
type="submit" name="btnSortID" value="降羃排序"></td>
<td align="center"><input type="submit" name="btnSortName" value="升羃排序">
<input type="submit" name="btnSortName" value="降羃排序"></td>
<td align="center"><input type="submit" name="btnSortTitle" value="升羃排序"><input
type="submit" name="btnSortTitle" value="降羃排序"></td>
<td align="center"><input type="submit" name="btnSortDepartment" value="升羃排
序"><input type="submit" name="btnSortDepartment" value="降羃排序"></td>
</tr>

(繼續閱讀...)

11 發表在痞客邦留言(0) 人氣(1)

個人分類：ASP

▲top

7月 16 週三 200810:58
ASP操作Excel技術總結

目錄
一、環境配置
二、 ASP對Excel的基本操作
三、 ASP操作Excel產生資料表
四、 ASP操作Excel產生Chart圖
五、伺服器端Excel檔案瀏覽、下載、刪除方案
六、附錄

(繼續閱讀...)

11 發表在痞客邦留言(2) 人氣(9)

個人分類：ASP

▲top

7月 16 週三 200810:57
視窗關閉觸發事件

視窗關閉觸發事件
body onunload="goaway()"
Script Language="JavaScript">
function goaway(){
var tmpurl = "close.asp";
var strFeature = "Top=-150,Left=-15,width=100,height=100"
window.open(tmpurl,"GoAway",strFeature);
}

(繼續閱讀...)

11 發表在痞客邦留言(0) 人氣(1)

個人分類：ASP

▲top

7月 16 週三 200810:50
判斷函數一覽

<1>IsArray 函數
返回 Boolean 值指明某變量是否為數組。
語法
IsArray(varname)
varname 參數可以是任意變量。
說明
如果變量是數組，IsArray 函數返回 True；否則，函數返回 False。當變量中包含有數組時，使用 IsArray 函數很有效。

(繼續閱讀...)

11 發表在痞客邦留言(0) 人氣(1)

個人分類：ASP

▲top

7月 16 週三 200810:50
格式化日期(時刻)

FormatDateTime(Date [,Format] )
格式化日期(時刻)Date 是日期(時刻)型態，或是可表示日期(時刻)的
字串。 Format選項是用來指定顯示格式，如果省略
預設值是0[Format] 引數，可以用常數名稱去指定，或者用0到4
的數字去指定皆可。
vbGeneralDate=0 簡短日期，完整時刻
vbLongDate=1 完整日期，省略時刻
vbShortDate=2 簡短日期，省略時刻
vbLongTime=3 省略日期，完整時刻
vbShortTime=4 省略日期，24小時制度 hh:mm

(繼續閱讀...)

11 發表在痞客邦留言(0) 人氣(2)

個人分類：ASP

▲top

7月 16 週三 200810:49
計算當前日期是任意時間段內第幾周的函數

計算當前日期是任意時間段內第幾周的函數
Function CalculateWeekNo(BeginDate,EndDate,InputDate)
dim wdate(500,8)
z=0
x=0
strlong=len(CStr(inputdate))-9
inputdate=cdate(left(CStr(inputdate),strlong))
for i=cdate(BeginDate) to cdate(EndDate)
    if inputdate=i then
    x=z
    Exit For
    end if
    if weekday(i)=7 then
    z=z+1
    end if
next

(繼續閱讀...)

11 發表在痞客邦留言(0) 人氣(0)

個人分類：ASP

▲top

7月 16 週三 200810:48
如何讀取PDF的內容

如何讀取PDF的內容如果PDF檔案裡面有文字.圖檔.框線
要如何不用轉換成文字檔,而取得該PDF檔的文字http://partners.adobe.com/public/developer/acrobat/sdk/index.htmlSet myPDF = CreateObject("acroexch.pddoc")

'once again open the file
openResult = myPDF.Open(filelocation)

For pagenumber = 0 To pageCount - 1
getPDFTextFromPage pagenumber
Next

Set myPDF = Nothing

Sub getPDFTextFromPage(pagenumber )

Set myPDFPage = myPDF.AcquirePage(pagenumber)

Set myPageHilite = CreateObject("acroexch.hilitelist")

hiliteResult = myPageHilite.Add(0, 9000)

Set pageSelect = myPDFPage.CreatePageHilite(myPageHilite)

Dim i As Integer
For i = 0 To pageSelect.GetNumText - 1
pdfData = pdfData & pageSelect.GetText(i)
Next

'clean up

Set myPDFPage = Nothing
Set myPageHilite = Nothing
Set pageSelect = Nothing
getPDFTextFromPage = getPDFTextFromPage=pdfData
End Sub

(繼續閱讀...)

11 發表在痞客邦留言(0) 人氣(5)

個人分類：ASP

▲top

7月 16 週三 200810:48
計算文件下載時間

計算文件下載時間
以下是程式碼範例︰<%
Function DownloadTime(intFileSize, strModemType)
Dim TimeInSeconds, ModemSpeed, strDownloadTime, AppendString
Dim intYears, intWeeks, intDays
Dim intHours, intMinutes, intSeconds
intYears = 0
intWeeks = 0
intDays = 0
intHours = 0
intMinutes = 0
intSeconds = 0
strDownloadTime = ""
Select Case strModemType
Case "Cable"
ModemSpeed = 400000
Case "56kbps"
ModemSpeed = 7000
Case "33.6kbps"
ModemSpeed = 4200
Case "28.8kbps"
ModemSpeed = 3600
End Select
TimeInSeconds = int(intFileSize / ModemSpeed)
'year maths added 1/4 of a day. 1 exact orbit of the sub is 365.25 days.
If (Int(TimeInSeconds / 31471200) <> 0) Then intYears = Int(TimeInSeconds / 31449600)
If ((Int(TimeInSeconds / 604800) Mod 52) <> 0) Then intWeeks = Int(TimeInSeconds / 604800) Mod 52
If ((Int(TimeInSeconds / 86400) Mod 7) <> 0) Then intDays = Int(TimeInSeconds / 86400) Mod 7
If TimeInSeconds >= 3600 Then intHours = Int(TimeInSeconds / 3600) Mod 24
If TimeInSeconds >= 60 Then intMinutes = Int(TimeInSeconds / 60) Mod 60
If TimeInSeconds >= 0 Then intSeconds = Int(TimeInSeconds) Mod 60
If intYears <> 0 Then
If intYears = 1 Then AppendString = "" Else AppendString = "s"
strDownloadTime = strDownloadTime & intYears & " year" & AppendString & ", "
End If
If intWeeks <> 0 Then
If intWeeks = 1 Then AppendString = "" Else AppendString = "s"
strDownloadTime = strDownloadTime & intWeeks & " week" & AppendString & ", "
End If
If intDays <> 0 Then
If intDays = 1 Then AppendString = "" Else AppendString = "s"
strDownloadTime = strDownloadTime & intDays & " day" & AppendString & ", "
End If
If intHours <> 0 Then
If intHours = 1 Then AppendString = "" Else AppendString = "s"
strDownloadTime = strDownloadTime & intHours & " hour" & AppendString & ", "
End If
If intMinutes <> 0 Then
If intMinutes = 1 Then AppendString = "" Else AppendString = "s"
strDownloadTime = strDownloadTime & intMinutes & " minute" & AppendString
End If
If ((intYears = 0) And (intWeeks = 0) And (intDays = 0) And (intHours = 0)) Then
If intSeconds = 1 Then AppendString = "" Else AppendString = "s"
If intMinutes > 0 Then
strDownloadTime = strDownloadTime & ", " & intSeconds & " second" & AppendString
Else
strDownloadTime = strDownloadTime & intSeconds & " second" & AppendString
End If
End If
DownloadTime = strDownloadTime
End Function
%>
<html>
<body>
It is going to take about
<%=DownloadTime(123456,Cable)%> to download this file.
</body>
</html>

(繼續閱讀...)

11 發表在痞客邦留言(0) 人氣(0)

個人分類：ASP

▲top

冠霖的部落格

紀錄工作中的點點滴滴...C#,ASP.NET ,MVC,SQL,ORACLE,JQUERY,CSS,BS..... 歡迎光臨冠霖在痞客邦的小天地這是從XUITE 搬家過來的......

[轉]用ASP實現在線壓縮與解壓縮

圖片上傳前取得尺寸

[轉]大量資料的排序與查詢

ASP操作Excel技術總結

視窗關閉觸發事件

判斷函數一覽

格式化日期(時刻)

計算當前日期是任意時間段內第幾周的函數

如何讀取PDF的內容

計算文件下載時間

個人資訊

參觀人氣

留言板

文章分類

文章搜尋

最新文章

熱門文章

文章精選

紀錄工作中的點點滴滴...C#,ASP.NET ,MVC,SQL,ORACLE,JQUERY,CSS,BS..... 歡迎光臨冠霖在痞客邦的小天地 這是從XUITE 搬家過來的......

個人資訊

參觀人氣

留言板

文章分類

文章搜尋

最新文章

熱門文章

文章精選

紀錄工作中的點點滴滴...C#,ASP.NET ,MVC,SQL,ORACLE,JQUERY,CSS,BS..... 歡迎光臨冠霖在痞客邦的小天地這是從XUITE 搬家過來的......