-
ASP + Serv-u 實現FTP的代碼
<!--#include file="md5.asp"--> <% Dim iniPath,iniFileName,iniStr,tmpStr,n Dim userName,passWord,tmp userName = "myfso222" '用戶名 passWord = "awaysrain" '密碼 tmp = "ai" '隨機...
作者：asdasdasd03-30 -
在ASP編程中使用數組
數組的定義 Dim MyArray MyArray = Array(1,5,123,12,98) 可擴展數組 Dim MyArray() for i = 0 to 10 ReDim Preserve MyArray(i) MyArray(i)=i next 將一個字符串分割并返回分割結果的數組 Dim ...
作者：asdasdasd03-30 -
IE功能匯總
作者：asdasdasd03-30
<OBJECT id=WebBrowser height=0 width=0
classid=CLSID:8856F961-340A-11D0-A96B-00C04FD705A2></OBJECT>
<INPUT onclick=document.all.WebBrowser.ExecWB(1,1) type=button value=... -
Asp遍歷服務器對象的代碼
復制代碼 代碼如下:一 遍歷Request 方式1: <% For Each r In Request.QueryString Response.Write "Request("""&r&""") = " & Request(r) Response.Write "<p>" Next %> 方式2: <% For i = 1 ...
作者：asdasdasd03-30 -
vbcrlf的意思
常數 值 描述 vbCr Chr(13) 回車符。 vbCrLf Chr(13) & Chr(10) 回車符與換行符。 vbFormFeed C...
作者：asdasdasd03-30 -
FileSystemObject 對象
作者：asdasdasd03-30
FileSystemObject 對象
FileSystemObject(FSO) 對象模式包含下面的對象和集合。
對象/集合
描述
FileSystemObject
主對象。包含用來創建、刪除和獲得有關信息，以及通常用來操作... -
保證asp葉面一定不會出現亂碼 UTF8
保證asp葉面一定不會出現亂碼的代碼應該是這樣的：（假定是UTF-8的葉子） <%@ CODEPAGE=65001 %> <% Response.CodePage=65001%> <% Response.Charset="UTF-8" %> 可以建立公共文件code.asp，所有...
作者：asdasdasd03-30 -
asp組件編寫準備工作
最近在嘗試用組件寫asp,一些心得如下，不對之處請指正 經常要重啟IIS，所以需要一個批處理的文件,將下面兩行代碼存為xxx.bat net stop w3svc net start w3svc 經常需要注冊、卸載dll，所以需要在...
作者：asdasdasd03-30 -
ASP常用的函數
ASP常用的函數，希望能用的著。
作者：asdasdasd03-30
<%
dim db
db="dbms.mdb"
'******************************************************************
'執行sql語句，不返回值,sql語句最好是如下：
'update 表... -
登陸asp class
復制代碼 代碼如下:<!-- #include file="conn.asp" --> <!-- #include file="cls_main.asp" --> <!-- #include file="cls_md5.asp" --> <% dim obj set obj = New admin_login call obj.Mai...
作者：asdasdasd03-30 -
FSO 讀出TXT文件
<!--#include file="dbconn.asp"-->
作者：asdasdasd03-30
<%
function ReadFile(filename)
on error resume next
err.clear
'ASP的一種校錯方法
Const ForReading = 2
Const Create = false
Dim FSO
DIM TS
DIM fi... -
利用AdoDb.Stream對象來讀取UTF-8格式的文本文件
復制代碼 代碼如下:'函數名稱:ReadTextFile '作用:利用AdoDb.Stream對象來讀取UTF-8格式的文本文件 '---------------------------------------------------- Function ReadFromText...
作者：asdasdasd03-30 -
ASP 非法字符過濾函數
復制代碼 代碼如下:<% '==============================================================檢查提交數據合法性 Function CheckInput() '--------定義部份------------------ Dim Fy_Post,Fy_Ge...
作者：asdasdasd03-30 -
Oracle常用功能集錦
數值函數：
作者：asdasdasd03-30
abs(m) m的絕對值
mod(m,n) m被n除后的余數
power(m,n) m的n次方
round(m[,n]) m四舍五入至小數點后n位的值（n缺省為0）
trunc(m[,n]) m截斷n位小數位的值（n缺省為0）
---------... -
不用模板，只用ASP+FSO生成靜態HTML頁的一個方法
FSO生成靜態HTML文件的時候替換模板標簽一直是一個很麻煩的問題，至少我是這么認為的，還要別外做一個模板，麻煩！，我今天看見有一個方法可以解決這個問題
作者：asdasdasd03-30
如一個正常的index.asp頁面，并且用A... -
自動采集程序
復制代碼 代碼如下:<% On Error Resume Next Const uploadPath = "/uploads/" '文件存放路徑 Const allowFileExt = "jpg,wma,swf,gif" '允許被采集的文件類型 'Const allowFileSize...
作者：asdasdasd03-30 -
ASP FSO文件處理函數大全
復制代碼 代碼如下:<% '建立文件夾函數 Function CreateFolder(strFolder)'參數為相對路徑 '首選判斷要建立的文件夾是否已經存在 Dim strTestFolder,objFSO strTestFolder = Server...
作者：asdasdasd03-30 -
ASP代碼的對象化
提起asp很多人就認為是一堆html腳本和被括在<%和%>之中的一些代碼還有就是一些javascript腳本等籌在一起的一些代碼的集合，這樣的代碼，再加上各類的不同格式的注釋，看起來就一個字：亂。也不管...
作者：asdasdasd03-30 -
一個簡單的HTML病毒分析
一直就想寫這篇東西了，只是上班時說要上班，不寫，回家后又忙著玩游戲，丟一邊去了�，F在只好不務正業的開寫了，希望頭兒不會知道我的blog。哈哈 在很久之前就對HTML的病毒很感興趣了，很好...
作者：asdasdasd03-30 -
js+asp總結
一直在用JS寫ASP,也不是特別原因,只是當初學的是JS,后來學ASP時知道ASP也可以用JS寫,就沒去學VBS.前幾個月剛學ASP的時候找遍了深圳的書店也沒有找到一本用JS做腳本語言的ASP書籍,沒辦法,只能自己...
作者：asdasdasd03-30 -
ASP，FSO遍歷目錄及目錄下文件
<%@ Language=VBScript %>
作者：asdasdasd03-30
<%
'我寫的一個遍歷目錄以及目錄下文件的函數，
%>
<%
function bianli(path)
set fso=server.CreateObject("scripting.filesystemobject")
... -
如何使用FSO搜索硬盤文件
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
作者：asdasdasd03-30
<%
dim st
st=timer()
'*************************************************************
'*************搜索硬盤文件的類SearchFile *************
'... -
把字符串轉換成數據庫SQL語句格式
復制代碼 代碼如下:'把字符串轉換成數據庫SQL語句格式 '------------------------------------------------- Function AllStr2Database(str,strType) Dim strTemp:strTemp=str Select C...
作者：asdasdasd03-30 -
asp 常用函數用法
Array() FUNCTION: 返回一個數組 SYNTAX: Array(list) ARGUMENTS: 字符，數字均可 EXAMPLE: <% Dim myArray() For i = 1 to 7 Redim Preserve myArr...
作者：asdasdasd03-30 -
解決rs.absolutepage=-1的問題
有時候在做asp的分頁程序的時候會遇到無法分頁的情況，就試著把rs.absolutepage打印出來結果卻一直為-1。 下面介紹一種解決方案： .......省略 rs.cursorlocation=3 '就是加上這行 rs.open sql...
作者：asdasdasd03-30