現在才發現asp裡面也可以自己寫一些類，而且基本上和其他語言差不多，所以就自己寫了乙個試試，嘿嘿！紀年一下！
<%
class clsdsj
private p_error,p_author,p_weburl
public property get
version
version="dsj 1.0.0 beta"
end property
public property get error
error=p_error
end property
public property get author
author=p_author
end property
public property let author(strauthor)
strauthor=trim(strauthor)
if strauthor="" then
p_author="
孤劍"else
孤劍"weburl="http://.blog.csdn.***/alonesword/"
p_error=-1
end sub
private sub class_terminate
end sub
public function gottopic(str,strlen)
rem 限制字串顯示長度在一定的範圍內
dim i,stringlen,charsize,echochartype
stringlen=len(str)
charsize=0
for i=1 to stringlen
echochartype=abs(asc(mid(str,i,1)))
if echochartype>255 then
charsize=charsize+2
else
charsize=charsize+1
end if
if charsize>strlen then
gottopic=left(str,i) & "..."
exit for
else
gottopic=str & ""
end if
next
end function
'******************************
'名稱: chkinvaildwords
'引數:words
'返回值：true/falsh
'作用:檢查引數是否有非法字元
'******************************
function chkwords(words)
rem 定義需要過濾得非法字元
const invaildwords="select|update|delete|insert|@|--|,|'|#|%"
chkwords=true
invaildword=split(invaildwords,"|")
inwords=lcase(trim(words))
for i=lbound(invaildword) to ubound(invaildword)
if instr(inwords,invaildword(i))>0 then
p_error=0
chkwords=false
exit function
end if
next
chkwords=true
end function
function dividedpage(objrs,perpagesize,currentpage)
objrs.pagesize=perpagesize
totalpage=objrs.pagecount
if isempty(perpagesize) or isempty(currentpage) then
p_error=1
response.write("引數不能為空！
")response.end()
exit function
elseif (isnumeric(perpagesize)=false or isnumeric(currentpage)=false) then
p_error=2
response.write("引數不能為空！
")response.end()
exit function
end if
if clng(currentpage)<1 then currentpage=1 end if
if clng(currentpage)>totalpage then currentpage=totalpage end if
if totalpage>0 then
objrs.absolutepage=currentpage
end if
items=1
do while not objrs.eof
response.write(items)
objrs.movenext
loop
end function '終止於2023年11月27日
end class
dim dsj
set dsj=new clsdsj
%>
MyVector類模仿設計
今天學完演算法之後突然想起來上個學期乙個課上模仿vector設計的乙個類可以貼出來水一水，如果有類似課程作業的同志可以參考下吧 但質量不保證，僅供參考，可能有錯。ifndef myvector hpp define myvector hpp include using namespace std t...
ASP 類程式設計
首先asp的類是由事件和方法 它們就是構成類的成員了 構成的，asp模擬較簡單，它不具有真正意義類的繼承 過載等特性，儘管如此，它仍然是非常有用的，它降低了我們程式設計的複雜度，使我們的程式模組更加合理。它支援以下內容 公有成員變數 私有成員變數 屬性 公有成員函式 私有成員函式 建構函式 析構函式...
ASP中使用類
class webuser public property get islogin username if username then islogin true else islogin false jstz 請您先登入 login.htm end if end property public pr...