建立asp元件修改《serv-u》ftp 的密碼
發布者：[飛翔
] 瀏覽：[
79 ] 評論：[0]
新建一《serv-u》ftp伺服器，在asp中修改指定帳戶的密碼，寫了一asp元件來修改《serv—u》 ftp密碼。
啟動《vb6.0》，選擇新建activex dll，更改工程屬性中的工程名稱為「ftpcommand」，將class名改為xjnftp，源程式如下：
『修改ftp密碼主程式
public function getstr() as string
hopen = 0
hconnection = 0
dim nflag as long
dim strcmd as string
nflag = internet_flag_passive
『建立ftp修改密碼命令字串
strcmd = "site pswd " & oldpassword & space(1) & newpassword
『建立internet連線
hopen = internetopen(scuseragent, internet_open_type_direct, vbnullstring, vbnullstring, 0)
if hopen = 0 then getstr = "不能開啟連線。..."
if hopen <> 0 then
『與ftp伺服器建立連線
hconnection = internetconnect(hopen, urlstr, nternet_invalid_port_number, _
username, oldpassword, internet_service_ftp, nflag, 0)
if hconnection <> 0 then
bret = ftpcommand(hconnection, false, ftp_transfer_type_ascii, strcmd, 0, hfile)
if bret then
getstr = "密碼修改成功!..."
else
getstr = "密碼修改失敗!..."
end if
else
getstr = "無法登入至ftp伺服器，請檢查帳戶名或密碼是否正確。"
end if
end if
『斷開internet連線
if hconnection <> 0 then internetclosehandle (hconnection)
『斷開ftp伺服器連線
if hopen <> 0 then internetclosehandle (hopen)
end function
『傳入ftp伺服器的url
public property let url(url1 as string)
urlstr = url1
end property
『傳入ftp原有密碼
public property let oldpsd(psd as string)
oldpassword = psd
end property
『傳入ftp新密碼
public property let newpsd(psd1 as string)
newpassword = psd1
end property
『傳入ftp帳戶名
public property let user(psd2 as string)
username = psd2
end property
編譯成ftpcommand.dll，在asp伺服器端註冊該元件，（vb6.0在asp伺服器中自動註冊），在asp中呼叫該元件，源程式如下：
<%
『接受傳入的帳戶名
user=trim(request.form("id"))
『接受傳入的原密碼
psw=trim(request.form("password"))
『接受傳入的新密碼
pswx=trim(request.form("passwordx"))
『建立ftp元件應用例項
dim obj
set obj = server.createobject("ftpcommand.xjnftp")
『給ftp元件傳送帳戶名
obj.user=user
『給ftp元件傳送原密碼
obj.oldpsd=psw
『給ftp元件傳送新密碼
obj.newpsd=pswx
『給ftp元件傳送ftp伺服器網域名稱位址（url）
obj.url=""
rr=obj.getstr()
response.write("")
response.write(""+rr+"!")
response.write("系統3秒鐘後自動返回！！！
")response.write("
返回")
set obj=nothing
response.end
%>
本例項在windows 2000 server ，iis 5.0 ，serv-u4.0 ，vb6.0中透過。
ASP定時元件
asp定時元件 在asp中我們為完成某些特定功能時，需要延遲輸出，讓指令碼執行更長的時間，比如說聊天室程式，我們知道更新對話內容有兩種方法，一是 客戶端自動重新整理，每隔一段時間向伺服器查詢一次，看看有沒有新的內容，而另一種就是伺服器主動輸出新的內容，這兩 種辦法的優缺點很明顯，前者內容不夠實時性，...
常見 ASP 元件簡介
出處 www.ajiang.net 郵件收發郵件 jmail 元件 dimac 公司的郵件收發元件，這是乙個非常成熟和強大的郵件元件。它不但可以完成發郵件的工作，還可以pop收信，並支援收發郵件時的pgp加密，內建乙個 郵件的物件，可以使 程式設計更簡單。即使是很多其他元件也都能完成的發郵件功能，j...
ASP元件應用例項
1 vb6.0新建工程activex dll，引用 microsoft active server pages object library 和 microsoft activex data objects 2.1 library 工程名改為mydll，將類模組的名稱改為myclass，cls檔案內...