BlogJava-java编程-文章分类-javascript

获取网页源码asp

rrong_m — Wed, 10 Jun 2009 14:09:00 GMT

转载请注明:http://www.pmjava.com/Article/ShowInfo.asp?ID=56669

'==================================================
'函数名：GetHttpPage
'作用：获取网页源码
'参数：HttpUrl ------网页地址
'==================================================
Function GetHttpPage(HttpUrl)
   If IsNull(HttpUrl)=True Or Len(HttpUrl)<5 Then
      GetHttpPage="$False$"
      Exit Function
   End If
   Dim Http
   Set Http=server.createobject("MSXML2.XMLHTTP")
   Http.open "GET",HttpUrl,False
   Http.Send()
   If Http.Readystate<>4 then
      Set Http=Nothing
          GetHttpPage="False"
      Exit function
   End if
   GetHTTPPage=BytesToBstr(Http.responseBody,"GB2312")
   Set Http=Nothing
   If Err.number<>0 then
      Err.Clear
   End If
End Function

'==================================================
'函数名：BytesToBstr
'作用：将获取的源码转换为中文
'参数：Body ------要转换的变量
'参数：Cset ------要转换的类型
'==================================================
Function BytesToBstr(Body,Cset)
   Dim Objstream
   Set Objstream = Server.CreateObject("adodb.stream")
   objstream.Type = 1
   objstream.Mode =3
   objstream.Open
   objstream.Write body
   objstream.Position = 0
   objstream.Type = 2
   objstream.Charset = Cset
   BytesToBstr = objstream.ReadText
   objstream.Close
   set objstream = nothing
End Function

'============================================
'函数名：OpenFile
'作用：用FSO打开文件
'参数：txt ------文件的路径
'============================================
Function OpenFile(txt)
Set fso= Server.CreateObject( "Scripting.FileSystemObject" )
    set ObjFile=fso.OpenTextFile(Server.MapPath(txt),1)
       OpenFile=ObjFile.ReadAll
       ObjFile.close
       Set ObjFile=Nothing
End Function

'============================================
'函数名：isChkInteger
'作用：判断数字是否整形
'参数: para 要检测的参数
'============================================
function isChkInteger(para)
       on error resume next
       dim str
       dim l,i
       if isNUll(para) then
          isChkInteger=false
          exit function
       end if
       str=cstr(para)
       if trim(str)="" then
          isChkInteger=false
          exit function
       end if
       l=len(str)
       for i=1 to l
           if mid(str,i,1)>"9" or mid(str,i,1)<"0" then
              isChkInteger=false
              exit function
           end if
       next
       isChkInteger=true
       if err.number<>0 then err.clear
end function

'============================================
'函数名：srequest(ParaName,ParaType)
'作用：判断数字是否为整形，过滤特殊字符串
'参数: ParaName 要检测的参数
'        ParaType 值为1时,判断数字是否为整形;
'                 值为0时,过滤特殊字符串。
'============================================
Function srequest(ParaName,ParaType)
    Dim ParaValue
    ParaValue=ParaName
    If ParaType=1 then
        If not isNumeric(ParaValue) then
            Response.write "参数" & ParaName & "必须为数字型！"
            Response.end
        End if
    end if
    if ParaType=0 then
        ParaValue=replace(ParaValue,"'","''")
        ParaValue=replace(ParaValue,"'","’")
        ParaValue=replace(ParaValue,";","；")
        ParaValue=replace(ParaValue,">","》")
        ParaValue=replace(ParaValue,"<","《")
        ParaValue=replace(ParaValue,"=","＝")
        ParaValue=replace(ParaValue,"%","％")
        ParaValue=replace(ParaValue,",","，")
        ParaValue=replace(ParaValue,".","。")
        ParaValue=replace(ParaValue,"@","￥")
        ParaValue=replace(ParaValue,"*","＊")
        ParaValue=replace(ParaValue,"?","？")
        ParaValue=replace(ParaValue,"(","（")
        ParaValue=replace(ParaValue,")","）")
        ParaValue=replace(ParaValue,"#","＃")
        ParaValue=replace(ParaValue,"!","！")
        ParaValue=Lcase(ParaValue)
        If Instr(ParaValue,"select") or Instr(ParaValue,"insert") or Instr(ParaValue,"delete") or Instr(ParaValue,"count(") or Instr(ParaValue,"table") or Instr(ParaValue,"update") or Instr(ParaValue,"truncate") or Instr(ParaValue,"asc(") or Instr(ParaValue,"mid(") or Instr(ParaValue,"char(") or Instr(ParaValue,"xp_cmdshell") or Instr(ParaValue,"exec%20master") or Instr(ParaValue,"net%20localgroup%20administrators") or Instr(ParaValue,":") or Instr(ParaValue,"net%20user") or Instr(ParaValue,"'") or Instr(ParaValue,"%20or%20") then
            Response.write "参数" & ParaName & "有问题！"
            Response.end
        end if
        ParaValue=replace(ParaValue,"'","''")
    End if
    SRequest=ParaValue
    End function

rrong_m 2009-06-10 22:09 发表评论

MD5加密代码: asp

rrong_m — Wed, 10 Jun 2009 14:09:00 GMT

摘要: 转载请注明:http://www.pmjava.com/Article/ShowInfo.asp?ID=56670 Private Const BITS_TO_A_BYTE = 8 Private Const BYTES_TO_A_WORD = 4 Private Const BI... 阅读全文

rrong_m 2009-06-10 22:09 发表评论

asp文件操作

rrong_m — Wed, 10 Jun 2009 14:08:00 GMT

转载请注明:http://www.pmjava.com/Article/ShowInfo.asp?ID=56668

==================================================
'函数名：BuildFolder
'作用：创建文件夹
'参数：path ----------要创建的文件夹(路径)
'==================================================
function BuildFolder(path)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
    fso.CreateFolder(Server.MapPath(path))
    fso.Close
    Set fso=Nothing
End Function
'==================================================
'函数名：Buildfile
'作用：创建文件
'参数：Htmlcode ------要创建的文件信息
'参数：filex ----------要创建的文件名(路径)
'==================================================
function Buildfile(filex,Htmlcode)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
    Set html = fso.CreateTextFile(Server.MapPath(filex))
        html.WriteLine Htmlcode
        html.close
    Set html=Nothing
    fso.Close
    Set fso=Nothing
End Function
'==================================================
'函数名：Savefile
'作用：修改文件
'参数：file_body ------要创建的文件信息
'参数：file_name ------要创建的文件名(路径)
'参数：Cset -----------定义要创建的文件编码
'==================================================
Function Savefile(file_body,file_name,Cset)
Set OS=Server.CreateObject("ADODB.Stream")
        OS.Type=2
        OS.Open
        OS.Charset = Cset
        OS.Position=OS.Size
        OS.WriteText=file_body
        OS.SaveToFile Server.MapPath(file_name),2
        OS.Close
Set OS=Nothing
End Function

'==================================================
'函数名：DelFolder
'作用：删除文件夹
'参数：FolderPath ------要删除的文件夹路径
'==================================================
Function DelFolder(FolderPath)
    dim path
    path=FolderPath
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    Set DeleteFolder = FSO.GetFolder(Server.MapPath(path))
    DeleteFolder.Delete
    fso.Close
    Set fso=Nothing
    Response.Write(" ")
End Function
'==================================================
'函数名：ChkFile
'作用：检索文件是否存在
'参数：FilePath ------要检索的文件路径
'==================================================
Function ChkFile(FilePath)
    dim path
    path=Server.MapPath(FilePath)
    Set fso=Server.CreateObject("Scripting.FileSystemObject")
    If fso.FileExists(path) then
       ChkFile="OK!"
    Else
       ChkFile="文件不存在"
    End IF
    fso.Close
    Set fso=Nothing
End Function

'==================================================
'函数名：DelFile
'作用：删除文件
'参数：FilePath ------要删除的文件的路径
'==================================================
Function DelFile(FilePath)
dim path
    path=Server.MapPath(FilePath)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
    '用两种方法删除文件
    fso.DeleteFile(path)'第一种方法
    Set File= FSO.GetFile(path)'第二种方法
        File.Delete
    fso.Close
    Set fso=Nothing
End Function

'===========================专门用来过滤Request的参数值===================================
function GetVariable(strVariableName)
    if IsEmpty(Request(strVariableName)) then
        GetVariable=empty
        exit Function
    end if
    GetVariable=Replace(Request(strVariableName),"'","''")
    GetVariable=Replace(GetVariable,";","")
    GetVariable=Replace(GetVariable,"--","")
end function

function GetFormVariable(strVariableName)
    if IsEmpty(Request.Form(strVariableName)) then
        GetFormVariable=empty
        exit Function
    end if
    GetFormVariable=Replace(Request.Form(strVariableName),"'","''")
    GetFormVariable=Replace(GetFormVariable,"--","")
end function

function GetQueryString(strVariableName)
    if IsEmpty(Request.QueryString(strVariableName)) then
        GetQueryString=empty
        exit Function
    end if
    GetQueryString=Replace(Request.QueryString(strVariableName),"'","''")
    GetQueryString=Replace(GetQueryString,";","")
    GetQueryString=Replace(GetQueryString,"--","")
end function

'===========================专门用来过滤Request的参数值===================================

'**********************************************************************************************
'函数名称: HTMLcode(fString)
'函数功能: 过滤表单的特殊字符
'参数说明: fString          要操作的字符串
'返回值 : 格式化的字符串
'**********************************************************************************************
Function HTMLcode(fString)
if not isnull(fString) then
    fString = replace(fString, ">", ">")
    fString = replace(fString, "<", "<")
    fString = Replace(fString, CHR(32), " ")
    fString = Replace(fString, CHR(9), " ")
    fString = Replace(fString, CHR(34), """)
    fString = Replace(fString, CHR(39), "'")
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "

")
    fString = Replace(fString, CHR(10), "
")
    HTMLcode = fString
end if
end Function

'**********************************************************************************************
'函数名称: GetTrueLength(strChinese, lenMaxWord, strSpaceBar)
'函数功能: 截取正确的英文/汉字长度
'参数说明: strChinese 为被检测字符串
'           lenMaxWord 为限制的字符长度
'         strSpaceBar 为要过滤(去掉)的字符
'返回值 : 格式化的字符串(注：一个中文两个字符。)
'**********************************************************************************************
Function GetTrueLength(strChinese, lenMaxWord, strSpaceBar)
dim i, j, strTail, lenTotal, lenWord, lenNow
dim strWord, bOverFlow, RetString
if strChinese = "" or vartype(strChinese) = vbNull or CLng(lenMaxWord) <= 0 then
GetTrueLength = ""
exit function
end if
strTail = "..."        '标题截取后的表示,如“…”
bOverFlow = False
lenTotal = 0
for i=1 to Len(strChinese)
strWord = mid(strChinese, i, 1)
if asc(strWord) < 0 or asc(strWord) > 127 then
lenTotal = lenTotal + 2
else
lenTotal = lenTotal + 1
end if
next
'判断字符是否溢出
if lenTotal > lenMaxWord then bOverFlow = True
strSpaceBar = ""
if bOverFlow = True then
'字符溢出,去尾
lenWord = 0
RetString = ""
for i=1 to Len(strChinese)
strWord = mid(strChinese, i, 1)
if asc(strWord) < 0 or asc(strWord) > 127 then lenNow = 2 else lenNow = 1
lenWord = lenWord + lenNow
'截掉多余部分
if lenWord <= (lenMaxWord - Len(strTail)) then
    RetString = RetString + strWord
else
    RetString = RetString + strTail
    lenWord = lenWord + Len(strTail) - lenNow
    if (lenMaxWord-lenWord)>0 then
        for j =1 to lenMaxWord-lenWord
        strSpaceBar = strSpaceBar + " "
        next
    end if
    GetTrueLength = RetString
    exit for
end if
next
else
'字符不溢出,填充空位
RetString = strChinese
if (lenMaxWord-lenTotal)>0 then
    for i =1 to lenMaxWord-lenTotal
        strSpaceBar = strSpaceBar + " "
    next
end if
    GetTrueLength = RetString ''''''''''& strSpaceBar
end if
end function

rrong_m 2009-06-10 22:08 发表评论

Jmail 发送程序

rrong_m — Wed, 10 Jun 2009 14:08:00 GMT

转载请注明:http://www.pmjava.com/Article/ShowInfo.asp?ID=56667

<%
'参数说明
'Subject     : 邮件标题
'MailAddress : 发件服务器的地址,如smtp.163.com
'Email       : 收件人邮件地址
'Sender      : 发件人姓名
'Content     : 邮件内容
'Fromer      : 发件人的邮件地址

Sub SendAction(subject, mailaddress, email, sender, content, fromer)
      Set jmail = Server.CreateObject("JMAIL.SMTPMail")   '创建一个JMAIL对象
      jmail.silent = true   'JMAIL不会抛出例外错误，返回的值为FALSE跟TRUE
      jmail.logging = true   '启用使用日志
      jmail.Charset = "GB2312" '邮件文字的代码为简体中文
      jmail.ContentType = "text/html" '邮件的格式为HTML的
      jmail.ServerAddress =mailaddress '发送邮件的服务器
      jmail.AddRecipient Email    '邮件的收件人
      jmail.SenderName = sender   '邮件发送者的姓名
      jmail.Sender = fromer    '邮件发送者的邮件地址
      jmail.Priority = 1   '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
      jmail.Subject = subject '邮件的标题
      jmail.Body = content   '邮件的内容
      '由于没有用到密抄跟抄送，这里屏蔽掉这两句，如果您有需要的话，可以在这里恢复
      'jmail.AddRecipientBCC Email   '密件收件人的地址
      'jmail.AddRecipientCC Email   '邮件抄送者的地址
      jmail.Execute()   '执行邮件发送
if JMailerror then
response.write"发送成功！"
else
response.write JMailerror
end if
      jmail.Close    '关闭邮件对象
End Sub

'调用此Sub的例子

Call SendAction (strSubject,strMailaddress,strEmail,strSender,strContent,strFromer)

%>

rrong_m 2009-06-10 22:08 发表评论

遍历文件夹，找到符合条件的文件 vbs

rrong_m — Wed, 10 Jun 2009 14:07:00 GMT

转载请注明:http://www.pmjava.com/Article/ShowInfo.asp?ID=56666

function bianli(sourcepath,str)
    dim fso,objfolder,objsubfolders,objSubFolder
    set fso=server.CreateObject(Const_ScriptFileSystem)
    set objFolder=fso.GetFolder(server.mappath(sourcepath))
    set objSubFolders=objFolder.Subfolders
    for each objSubFolder in objSubFolders
        if left(objSubFolder.name,sile)=str Then
            response.write sourcepath&"/"&objSubFolder.name &"======================>"&objSubFolder.name &"
"
            i=i+1
        End If
        Call bianli(sourcepath & "/" & objSubFolder.name ,str)'递归
    next
    set objFolder=nothing
    set objSubFolders=nothing
    set fso=nothing
end function

rrong_m 2009-06-10 22:07 发表评论

解码

rrong_m — Wed, 10 Jun 2009 14:05:00 GMT

转载请注明:http://www.pmjava.com/Article/ShowInfo.asp?ID=56660

Function UrlDecode(encodestr)
Dim NewStr
NewStr=""
havechar=false
lastchar=""
For i=1 To Len(encodestr)
   char_c=Mid(encodestr,i,1)
   If char_c = "+" Then
      newstr=newstr & " "
   Elseif char_c="%" then
      next_1_c=Mid(encodestr,i+1,2)
      next_1_num=CInt("&H" & next_1_c)

      If havechar Then
         havechar=false
         newstr=newstr & chr(Cint("&H" & lastchar & next_1_c))
      Else
         If Abs(next_1_num)<=127 Then
            newstr=newstr & chr(next_1_num)
         Else
            havechar=true
            lastchar=next_1_c
         End If
      End If
      i=i+2
   Else
      newstr=newstr & char_c
   End If

Next
urldecode=newstr
End function

rrong_m 2009-06-10 22:05 发表评论

全功能安全过滤函数

rrong_m — Wed, 10 Jun 2009 14:04:00 GMT

转载请注明:http://www.pmjava.com/Article/ShowInfo.asp?ID=56659

Function IIF(Expression,ReturnTrue,ReturnFalse)
If Expression Then
IIF = ReturnTrue
Else
IIF = ReturnFalse
End If
End Function
'函数:全功能安全过滤函数
'参数:请求方式,过滤类型,请求名,值类型,默认值
Function SafeRequest(Requester,FilterType,RequestName,RequestType,DefaultValue)
Dim tmpValue
Select Case Requester
Case 0 : tmpValue = RequestName
Case 1 : tmpValue = Request(RequestName)
Case 2 : tmpValue = Request.Form(RequestName)
Case 3 : tmpValue = Request.QueryString(RequestName)
Case 4 : tmpValue = Request.Cookies(RequestName)
End Select

Select Case RequestType
Case 0
If Not IsNumeric(tmpValue) Or Len(tmpValue) <=0 Then
tmpValue = CLng(DefaultValue)
Else
tmpValue = CLng(tmpValue)
End If
Case 1
If tmpValue="" Or IsNull(tmpValue) Then tmpValue=DefaultValue
Select Case FilterType
Case 0 : tmpValue = tmpValue
Case 1 : tmpValue = SafeSql(tmpValue)
Case 2 : tmpValue = FilterHtml(tmpValue)
End Select
Case 2
If Not IsDate(tmpValue) Or Len(tmpValue) <=0 Then
tmpValue = CDate(DefaultValue)
Else
tmpValue = CDate(tmpValue)
End If
End Select

SafeRequest = tmpValue
End Function

'函数：危险Sql过滤
'参数：Sql
'返回：过滤结果
Function SafeSql(str)
SafeSql = Replace(str, "'", "'")
End Function
'函数：过滤Html标签
'参数：字符串
'返回：过滤后的字符串
Function FilterHtml(str)
If IsNull(str) Or str="" Then FilterHtml="" : Exit Function
Dim r
Set r = New RegExp
r.IgnoreCase = True
r.Global = True
r.MultiLine = True

r.Pattern = " <.+?>"
FilterHtml = r.Replace(str,"")
Set r = Nothing
End Function

rrong_m 2009-06-10 22:04 发表评论

常用的表单验证及一些字符串转义函数

rrong_m — Wed, 10 Jun 2009 13:47:00 GMT

转载请注明:http://www.pmjava.com/Article/ShowInfo.asp?ID=56621

// 是否为空，非空返回真，不非为空返回假
function isBlank(str) { var blankFlag = true;
    if (str.length == 0) return true;
    for (var i = 0; i < str.length; i++) {
        if ((str.charAt(i) != "") && (str.charAt(i) != " ")) {
            blankFlag = false;
            break;
        }
    }
    return blankFlag;
}
function checkNotNull(theField, fieldName) {
    if(isBlank(theField.value)){
        alert(fieldName + "不可为空！");
                if(theField.type!="hidden"){
          theField.focus();
                }
        return false;
    }
    return true;
}

// 是否为数字
function checkNumber(theField, fieldName) {
     var pattern = /^([0-9]|(-[0-9]))[0-9]*((\.[0-9]+)|([0-9]*))$/;
     if(theField.value.trim() == "") return true;
     if (!pattern.test(theField.value.trim())) {
         alert(fieldName + "必须为合法数字");
         theField.focus();
         theField.select();
         return false;
     }

    return true;
}

function isNumber(str) {
var pattern = /^([0-9]|(-[0-9]))[0-9]*((\.[0-9]+)|([0-9]*))$/;
if(str.trim() == "") return false;
if (!pattern.test(str.trim())) return false;
return true;
}

// 是否为指定范围数字
function checkNumberRange(theField, fieldName, min, max) {
    if(theField.value.trim() == "") return true;
    if (!checkNumber(theField, fieldName)) return false;

    if ((min != "") && (theField.value.trim() < min)) {
        alert(fieldName + "不可小于" + min + "！");
        theField.focus();
        theField.select();
        return false;
    }

    if ((max != "") && (theField.value.trim() > max)) {
        alert(fieldName + "不可超过" + max + "！");
        theField.focus();
        theField.select();
        return false;
    }

    return true;
}

function isNumberRange(str, min, max) {
if(str == "") return false;
    if (!isNumber(str)) return false;

    if ((min != "") && (str < min)) {
        return false;
    }

    if ((max != "") && (str > max)) {
        return false;
    }

    return true;
}

// 是否为整数
function checkInteger(theField, fieldName) {
    var pattern = /^(\d|(-\d))\d*$/;

    if(theField.value.trim() == "") return true;
    if (!pattern.test(theField.value.trim())) {
        alert(fieldName + "必须为整数！");
        theField.focus();
        theField.select();
        return false;
    }

    return true;
}

function isInteger(str) {
    var pattern = /^(\d|(-\d))\d*$/;

    if(str.trim() == "") return false;
    if (!pattern.test(str.trim())) {
        return false;
    }
    return true;
}

// 是否为指定范围内整数
function checkIntegerRange(theField, fieldName, min, max) {
    if(theField.value.trim() == "") return true;
    if (!checkInteger(theField, fieldName)) return false;

    if ((min != "") && (theField.value.trim() < min)) {
        alert(fieldName + "不可小于" + min + "！");
        theField.focus();
        theField.select();
        return false;
    }

    if ((max != "") && (theField.value.trim() > max)) {
        alert(fieldName + "不可超过" + max + "！");
        theField.focus();
        theField.select();
        return false;
    }

    return true;
}

function isIntegerRange(str, min, max) {
    if(str == "") return false;
    if (!isInteger(str)) return false;

    if ((min != "") && (str < min)) {
        return false;
    }

    if ((max != "") && (str > max)) {
        return false;
    }

    return true;
}

// 是否为正数
function checkPositiveNumber(theField, fieldName) {
    if(theField.value == "") return true;
    if (theField.value.charAt(0) == '-') {
        alert(fieldName + "必须为正数！");
        theField.focus();
        return false;
    }

    return true;
}

rrong_m 2009-06-10 21:47 发表评论

java的常用函数4

rrong_m — Wed, 10 Jun 2009 04:32:00 GMT

转载请注明:http://www.pmjava.com/Article/ShowInfo.asp?ID=56546

/**
     * 设置JSpinner的编辑属性
     * @param spinner 目标JSpinner
     * @param isAllowInvalid 是否允许输入非法值
     * @param isEditable 是否允许编辑
     */
    public static void setAllowsInvalid(JSpinner spinner, boolean isAllowInvalid, boolean isEditable)
    {
        JSpinner.NumberEditor editor = new JSpinner.NumberEditor(spinner, "#");
        spinner.setEditor(editor);
        JFormattedTextField tf = ((JSpinner.NumberEditor)spinner.getEditor()).getTextField();
        tf.setEditable(isEditable);
        DefaultFormatterFactory factory = (DefaultFormatterFactory)tf.getFormatterFactory();
        NumberFormatter formatter = (NumberFormatter)factory.getDefaultFormatter();
        formatter.setAllowsInvalid(isAllowInvalid);
    }
/**
     * 根据指定方法的参数去构造一个新的对象的拷贝并将他返回
     * @param obj 原始对象
     * @return 新对象
     * @throws NoSuchMethodException
     * @throws InvocationTargetException
     * @throws IllegalAccessException
     * @throws InstantiationException
     * @throws SecurityException
     * @throws IllegalArgumentException
     */
    @SuppressWarnings("unchecked")
    public static Object copy(Object obj) throws IllegalArgumentException, SecurityException, InstantiationException, IllegalAccessException,
                    InvocationTargetException, NoSuchMethodException
    {
        //获得对象的类型
        Class classType = obj.getClass();

        //通过默认构造方法去创建一个新的对象，getConstructor的视其参数决定调用哪个构造方法
        Object objectCopy = classType.getConstructor(new Class[]{}).newInstance(new Object[]{});

        //获得对象的所有属性
        Field[] fields = classType.getDeclaredFields();

        for(int i = 0; i < fields.length; i++)
        {
            //获取数组中对应的属性
            Field field = fields[i];

            String fieldName = field.getName();
            String stringLetter = fieldName.substring(0, 1).toUpperCase();

            //获得相应属性的getXXX和setXXX方法名称
            String getName = "get" + stringLetter + fieldName.substring(1);
            String setName = "set" + stringLetter + fieldName.substring(1);

            //获取相应的方法
            Method getMethod = classType.getMethod(getName, new Class[]{});
            Method setMethod = classType.getMethod(setName, new Class[]{field.getType()});

            //调用源对象的getXXX（）方法
            Object value = getMethod.invoke(obj, new Object[]{});

            //调用拷贝对象的setXXX（）方法
            setMethod.invoke(objectCopy, new Object[]{value});
        }

        return objectCopy;
    }

rrong_m 2009-06-10 12:32 发表评论