编译错误


c:\windows\system32\inetsrv> "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\vbc.exe" /t:library /utf8output /R:"C:\WINDOWS\assembly\GAC_MSIL\System.ServiceModel.Web\3.5.0.0__31bf3856ad364e35\System.ServiceModel.Web.dll" /R:"C:\WINDOWS\assembly\GAC_MSIL\AspNetMMCExt\2.0.0.0__b03f5f7f11d50a3a\AspNetMMCExt.dll" /R:"C:\WINDOWS\assembly\GAC_32\System.EnterpriseServices\2.0.0.0__b03f5f7f11d50a3a\System.EnterpriseServices.dll" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\7c852143\be938d40\assembly\dl3\2375e770\0049711e_651bcd01\App_Code.DLL" /R:"C:\WINDOWS\assembly\GAC_MSIL\System.WorkflowServices\3.5.0.0__31bf3856ad364e35\System.WorkflowServices.dll" /R:"C:\WINDOWS\assembly\GAC_MSIL\System.Management\2.0.0.0__b03f5f7f11d50a3a\System.Management.dll" /R:"C:\WINDOWS\assembly\GAC_MSIL\System.Web.Mobile\2.0.0.0__b03f5f7f11d50a3a\System.Web.Mobile.dll" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\7c852143\be938d40\assembly\dl3\06d17358\0046b211_529bca01\doImage.DLL" /R:"C:\WINDOWS\assembly\GAC_MSIL\System.Configuration\2.0.0.0__b03f5f7f11d50a3a\System.Configuration.dll" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\7c852143\be938d40\App_Code.sgykzfrq.dll" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\7c852143\be938d40\assembly\dl3\89d2e019\006236cc_b8b4cc01\emay.DLL" /R:"C:\WINDOWS\assembly\GAC_MSIL\System.Xml\2.0.0.0__b77a5c561934e089\System.Xml.dll" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\7c852143\be938d40\assembly\dl3\1266d4f1\00919463_20cbc501\FredCK.FCKeditorV2.DLL" /R:"C:\WINDOWS\assembly\GAC_32\System.Data\2.0.0.0__b77a5c561934e089\System.Data.dll" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\7c852143\be938d40\App_WebReferences.flrjxzhz.dll" /R:"C:\WINDOWS\assembly\GAC_MSIL\System.IdentityModel\3.0.0.0__b77a5c561934e089\System.IdentityModel.dll" /R:"C:\WINDOWS\assembly\GAC_MSIL\System.Runtime.Serialization\3.0.0.0__b77a5c561934e089\System.Runtime.Serialization.dll" /R:"C:\WINDOWS\assembly\GAC_MSIL\System\2.0.0.0__b77a5c561934e089\System.dll" /R:"C:\WINDOWS\assembly\GAC_MSIL\System.Drawing\2.0.0.0__b03f5f7f11d50a3a\System.Drawing.dll" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\7c852143\be938d40\App_global.asax.mpa2vpek.dll" /R:"C:\WINDOWS\assembly\GAC_MSIL\System.ServiceModel\3.0.0.0__b77a5c561934e089\System.ServiceModel.dll" /R:"C:\WINDOWS\assembly\GAC_MSIL\System.Web.Services\2.0.0.0__b03f5f7f11d50a3a\System.Web.Services.dll" /R:"C:\WINDOWS\assembly\GAC_32\System.Web\2.0.0.0__b03f5f7f11d50a3a\System.Web.dll" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\7c852143\be938d40\assembly\dl3\88ebd58a\0009e21a_4510cb01\LitJSON.DLL" /out:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\7c852143\be938d40\App_Web_nvrxcxds.dll" /D:DEBUG=1 /debug+ /win32resource:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\7c852143\be938d40\nvrxcxds.res" /define:_MYTYPE=\"Web\" /imports:Microsoft.VisualBasic,System,System.Collections,System.Collections.Specialized,System.Configuration,System.Text,System.Text.RegularExpressions,System.Web,System.Web.Caching,System.Web.SessionState,System.Web.Security,System.Web.Profile,System.Web.UI,System.Web.UI.WebControls,System.Web.UI.WebControls.WebParts,System.Web.UI.HtmlControls  "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\7c852143\be938d40\App_Web_nvrxcxds.6.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\7c852143\be938d40\App_Web_nvrxcxds.4.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\7c852143\be938d40\App_Web_nvrxcxds.12.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\7c852143\be938d40\App_Web_nvrxcxds.15.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\7c852143\be938d40\App_Web_nvrxcxds.23.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\7c852143\be938d40\App_Web_nvrxcxds.1.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\7c852143\be938d40\App_Web_nvrxcxds.20.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\7c852143\be938d40\App_Web_nvrxcxds.10.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\7c852143\be938d40\App_Web_nvrxcxds.21.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\7c852143\be938d40\App_Web_nvrxcxds.26.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\7c852143\be938d40\App_Web_nvrxcxds.25.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\7c852143\be938d40\App_Web_nvrxcxds.8.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\7c852143\be938d40\App_Web_nvrxcxds.19.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\7c852143\be938d40\App_Web_nvrxcxds.16.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\7c852143\be938d40\App_Web_nvrxcxds.11.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\7c852143\be938d40\App_Web_nvrxcxds.17.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\7c852143\be938d40\App_Web_nvrxcxds.24.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\7c852143\be938d40\App_Web_nvrxcxds.5.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\7c852143\be938d40\App_Web_nvrxcxds.14.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\7c852143\be938d40\App_Web_nvrxcxds.3.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\7c852143\be938d40\App_Web_nvrxcxds.2.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\7c852143\be938d40\App_Web_nvrxcxds.13.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\7c852143\be938d40\App_Web_nvrxcxds.0.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\7c852143\be938d40\App_Web_nvrxcxds.9.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\7c852143\be938d40\App_Web_nvrxcxds.18.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\7c852143\be938d40\App_Web_nvrxcxds.7.vb" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files\root\7c852143\be938d40\App_Web_nvrxcxds.22.vb"


Microsoft (R) Visual Basic Compiler version 8.0.50727.3053
for Microsoft (R) .NET Framework version 2.0.50727.3625
Copyright (c) Microsoft Corporation.  All rights reserved.

E:\wwwroot\ntjwwl\users\20100625081855138\site\bottom_en.aspx(7) : error BC30451: 未声明名称“getcopyright_en”。

               __w.Write(getcopyright_en("bottom"))
                         ~~~~~~~~~~~~~~~           
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(8) : warning BC42021: 函数没有“As”子句；假定返回类型为 Object。

function gettitle()
         ~~~~~~~~  
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(9) : warning BC40000: “Public Shared ReadOnly Property AppSettings() As System.Collections.Specialized.NameValueCollection”已过时:“This method is obsolete, it has been replaced by System.Configuration!System.Configuration.ConfigurationManager.AppSettings”

    dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/siteName.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID")
                           ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                                                                                          
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(9) : warning BC40000: “Public Shared ReadOnly Property AppSettings() As System.Collections.Specialized.NameValueCollection”已过时:“This method is obsolete, it has been replaced by System.Configuration!System.Configuration.ConfigurationManager.AppSettings”

    dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/siteName.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID")
                                                                                                                               ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(13) : warning BC42021: 函数没有“As”子句；假定返回类型为 Object。

function gettitle_en()
         ~~~~~~~~~~~  
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(14) : warning BC40000: “Public Shared ReadOnly Property AppSettings() As System.Collections.Specialized.NameValueCollection”已过时:“This method is obsolete, it has been replaced by System.Configuration!System.Configuration.ConfigurationManager.AppSettings”

    dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/siteName.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID")
                           ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                                                                                          
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(14) : warning BC40000: “Public Shared ReadOnly Property AppSettings() As System.Collections.Specialized.NameValueCollection”已过时:“This method is obsolete, it has been replaced by System.Configuration!System.Configuration.ConfigurationManager.AppSettings”

    dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/siteName.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID")
                                                                                                                               ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(18) : warning BC42021: 函数没有“As”子句；假定返回类型为 Object。

function getkeyword()
         ~~~~~~~~~~  
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(19) : warning BC40000: “Public Shared ReadOnly Property AppSettings() As System.Collections.Specialized.NameValueCollection”已过时:“This method is obsolete, it has been replaced by System.Configuration!System.Configuration.ConfigurationManager.AppSettings”

    dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/title.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID")
                           ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                                                                                       
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(19) : warning BC40000: “Public Shared ReadOnly Property AppSettings() As System.Collections.Specialized.NameValueCollection”已过时:“This method is obsolete, it has been replaced by System.Configuration!System.Configuration.ConfigurationManager.AppSettings”

    dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/title.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID")
                                                                                                                            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(23) : warning BC42021: 函数没有“As”子句；假定返回类型为 Object。

function getkeyword_en()
         ~~~~~~~~~~~~~  
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(24) : warning BC40000: “Public Shared ReadOnly Property AppSettings() As System.Collections.Specialized.NameValueCollection”已过时:“This method is obsolete, it has been replaced by System.Configuration!System.Configuration.ConfigurationManager.AppSettings”

    dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/title.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID")
                           ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                                                                                       
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(24) : warning BC40000: “Public Shared ReadOnly Property AppSettings() As System.Collections.Specialized.NameValueCollection”已过时:“This method is obsolete, it has been replaced by System.Configuration!System.Configuration.ConfigurationManager.AppSettings”

    dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/title.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID")
                                                                                                                            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(28) : warning BC42021: 函数没有“As”子句；假定返回类型为 Object。

function cutstr(tempstr,tempwid)
         ~~~~~~                 
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(28) : warning BC42020: 变量声明没有“As”子句；假定为 Object 类型。

function cutstr(tempstr,tempwid)
                ~~~~~~~         
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(28) : warning BC42020: 变量声明没有“As”子句；假定为 Object 类型。

function cutstr(tempstr,tempwid)
                        ~~~~~~~ 
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(44) : warning BC42021: 函数没有“As”子句；假定返回类型为 Object。

function getCopyright(cssname)
         ~~~~~~~~~~~~         
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(44) : warning BC42020: 变量声明没有“As”子句；假定为 Object 类型。

function getCopyright(cssname)
                      ~~~~~~~ 
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(45) : warning BC40000: “Public Shared ReadOnly Property AppSettings() As System.Collections.Specialized.NameValueCollection”已过时:“This method is obsolete, it has been replaced by System.Configuration!System.Configuration.ConfigurationManager.AppSettings”

    dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/copyright.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID") & "&css=" & cssname
                           ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                                                                                                               
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(45) : warning BC40000: “Public Shared ReadOnly Property AppSettings() As System.Collections.Specialized.NameValueCollection”已过时:“This method is obsolete, it has been replaced by System.Configuration!System.Configuration.ConfigurationManager.AppSettings”

    dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/copyright.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID") & "&css=" & cssname
                                                                                                                                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(49) : warning BC42021: 函数没有“As”子句；假定返回类型为 Object。

function getCopyright_en(cssname)
         ~~~~~~~~~~~~~~~         
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(49) : warning BC42020: 变量声明没有“As”子句；假定为 Object 类型。

function getCopyright_en(cssname)
                         ~~~~~~~ 
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(50) : warning BC40000: “Public Shared ReadOnly Property AppSettings() As System.Collections.Specialized.NameValueCollection”已过时:“This method is obsolete, it has been replaced by System.Configuration!System.Configuration.ConfigurationManager.AppSettings”

    dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/encopyright.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID") & "&css=" & cssname
                           ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                                                                                                                 
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(50) : warning BC40000: “Public Shared ReadOnly Property AppSettings() As System.Collections.Specialized.NameValueCollection”已过时:“This method is obsolete, it has been replaced by System.Configuration!System.Configuration.ConfigurationManager.AppSettings”

    dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/encopyright.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID") & "&css=" & cssname
                                                                                                                                  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                          
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(54) : warning BC42021: 函数没有“As”子句；假定返回类型为 Object。

function showtext(filename) 
         ~~~~~~~~           
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(54) : warning BC42020: 变量声明没有“As”子句；假定为 Object 类型。

function showtext(filename) 
                  ~~~~~~~~  
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(63) : warning BC42105: 函数“showtext”并非在所有代码路径上都返回值。当使用结果时，可能会在运行时发生空引用异常。

end function
~~~~~~~~~~~~
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(65) : warning BC42021: 函数没有“As”子句；假定返回类型为 Object。

function showxml(filename) 
         ~~~~~~~           
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(65) : warning BC42020: 变量声明没有“As”子句；假定为 Object 类型。

function showxml(filename) 
                 ~~~~~~~~  
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(74) : warning BC42105: 函数“showxml”并非在所有代码路径上都返回值。当使用结果时，可能会在运行时发生空引用异常。

end function
~~~~~~~~~~~~
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(76) : warning BC42021: 函数没有“As”子句；假定返回类型为 Object。

function showxml_en(filename) 
         ~~~~~~~~~~           
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(76) : warning BC42020: 变量声明没有“As”子句；假定为 Object 类型。

function showxml_en(filename) 
                    ~~~~~~~~  
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(85) : warning BC42105: 函数“showxml_en”并非在所有代码路径上都返回值。当使用结果时，可能会在运行时发生空引用异常。

end function
~~~~~~~~~~~~
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(89) : warning BC42021: 函数没有“As”子句；假定返回类型为 Object。

function getpageInfo(byval Dt,byval pagesize,byref temp,byref startI,byref LastI)
         ~~~~~~~~~~~                                                             
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(89) : warning BC42020: 变量声明没有“As”子句；假定为 Object 类型。

function getpageInfo(byval Dt,byval pagesize,byref temp,byref startI,byref LastI)
                           ~~                                                    
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(89) : warning BC42020: 变量声明没有“As”子句；假定为 Object 类型。

function getpageInfo(byval Dt,byval pagesize,byref temp,byref startI,byref LastI)
                                    ~~~~~~~~                                     
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(89) : warning BC42020: 变量声明没有“As”子句；假定为 Object 类型。

function getpageInfo(byval Dt,byval pagesize,byref temp,byref startI,byref LastI)
                                                   ~~~~                          
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(89) : warning BC42020: 变量声明没有“As”子句；假定为 Object 类型。

function getpageInfo(byval Dt,byval pagesize,byref temp,byref startI,byref LastI)
                                                              ~~~~~~             
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(89) : warning BC42020: 变量声明没有“As”子句；假定为 Object 类型。

function getpageInfo(byval Dt,byval pagesize,byref temp,byref startI,byref LastI)
                                                                           ~~~~~ 
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(147) : warning BC42104: 变量“strQuery”在赋值前被使用。可能会在运行时导致空引用异常。

    temp="&nbsp;&nbsp;&nbsp;&nbsp;<a href="""&     request.ServerVariables("SCRIPT_NAME") &"?"& strQuery &""" class=""pages"">首页</a> <a href="""& request.ServerVariables("SCRIPT_NAME") &"?"& strQuery &"&page="& prePage &""" class=""pages"">上一页</a>  <a href="""& request.ServerVariables("SCRIPT_NAME") &"?"& strQuery &"&page="& nextPage &""" class=""pages"">下一页</a>  <a href="""& request.ServerVariables("SCRIPT_NAME") &"?"& strQuery &"&page="& TotalPage &""" class=""pages"">尾页</a><font class=""black"">&nbsp;&nbsp;&nbsp;&nbsp;" & page & "/" & TotalPage & "页     "&  DT.rows.count & "条</font>"
                                                                                                ~~~~~~~~                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(149) : warning BC42105: 函数“getpageInfo”并非在所有代码路径上都返回值。当使用结果时，可能会在运行时发生空引用异常。

end function
~~~~~~~~~~~~
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(151) : warning BC42021: 函数没有“As”子句；假定返回类型为 Object。

function getversion()
         ~~~~~~~~~~  
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(152) : warning BC40000: “Public Shared ReadOnly Property AppSettings() As System.Collections.Specialized.NameValueCollection”已过时:“This method is obsolete, it has been replaced by System.Configuration!System.Configuration.ConfigurationManager.AppSettings”

    dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/getCH_en.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID")
                           ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                                                                                          
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(152) : warning BC40000: “Public Shared ReadOnly Property AppSettings() As System.Collections.Specialized.NameValueCollection”已过时:“This method is obsolete, it has been replaced by System.Configuration!System.Configuration.ConfigurationManager.AppSettings”

    dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/getCH_en.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID")
                                                                                                                               ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(171) : warning BC42105: 函数“getversion”并非在所有代码路径上都返回值。当使用结果时，可能会在运行时发生空引用异常。

end function
~~~~~~~~~~~~
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(173) : warning BC42021: 函数没有“As”子句；假定返回类型为 Object。

function getversion_en()
         ~~~~~~~~~~~~~  
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(174) : warning BC40000: “Public Shared ReadOnly Property AppSettings() As System.Collections.Specialized.NameValueCollection”已过时:“This method is obsolete, it has been replaced by System.Configuration!System.Configuration.ConfigurationManager.AppSettings”

    dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/getCH_en.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID")
                           ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                                                                                          
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(174) : warning BC40000: “Public Shared ReadOnly Property AppSettings() As System.Collections.Specialized.NameValueCollection”已过时:“This method is obsolete, it has been replaced by System.Configuration!System.Configuration.ConfigurationManager.AppSettings”

    dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/getCH_en.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID")
                                                                                                                               ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(192) : warning BC42105: 函数“getversion_en”并非在所有代码路径上都返回值。当使用结果时，可能会在运行时发生空引用异常。

end function
~~~~~~~~~~~~
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(194) : warning BC42021: 函数没有“As”子句；假定返回类型为 Object。

function getpageInfo_en(byval Dt,byval pagesize,byref temp,byref startI,byref LastI)
         ~~~~~~~~~~~~~~                                                             
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(194) : warning BC42020: 变量声明没有“As”子句；假定为 Object 类型。

function getpageInfo_en(byval Dt,byval pagesize,byref temp,byref startI,byref LastI)
                              ~~                                                    
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(194) : warning BC42020: 变量声明没有“As”子句；假定为 Object 类型。

function getpageInfo_en(byval Dt,byval pagesize,byref temp,byref startI,byref LastI)
                                       ~~~~~~~~                                     
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(194) : warning BC42020: 变量声明没有“As”子句；假定为 Object 类型。

function getpageInfo_en(byval Dt,byval pagesize,byref temp,byref startI,byref LastI)
                                                      ~~~~                          
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(194) : warning BC42020: 变量声明没有“As”子句；假定为 Object 类型。

function getpageInfo_en(byval Dt,byval pagesize,byref temp,byref startI,byref LastI)
                                                                 ~~~~~~             
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(194) : warning BC42020: 变量声明没有“As”子句；假定为 Object 类型。

function getpageInfo_en(byval Dt,byval pagesize,byref temp,byref startI,byref LastI)
                                                                              ~~~~~ 
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(252) : warning BC42104: 变量“strQuery”在赋值前被使用。可能会在运行时导致空引用异常。

    temp="&nbsp;&nbsp;&nbsp;&nbsp;<a href="""&     request.ServerVariables("SCRIPT_NAME") &"?"& strQuery &""" class=""pages"">Home</a> <a href="""& request.ServerVariables("SCRIPT_NAME") &"?"& strQuery &"&page="& prePage &""" class=""pages"">Last</a>  <a href="""& request.ServerVariables("SCRIPT_NAME") &"?"& strQuery &"&page="& nextPage &""" class=""pages"">Next</a>  <a href="""& request.ServerVariables("SCRIPT_NAME") &"?"& strQuery &"&page="& TotalPage &""" class=""pages"">End</a><font class=""black"">&nbsp;&nbsp;&nbsp;&nbsp;" & page & "/" & TotalPage & " Pages ,    total "&  DT.rows.count & "</font>"
                                                                                                ~~~~~~~~                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(254) : warning BC42105: 函数“getpageInfo_en”并非在所有代码路径上都返回值。当使用结果时，可能会在运行时发生空引用异常。

end function
~~~~~~~~~~~~
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(256) : warning BC42021: 函数没有“As”子句；假定返回类型为 Object。

function gettopwords()
         ~~~~~~~~~~~  
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(257) : warning BC40000: “Public Shared ReadOnly Property AppSettings() As System.Collections.Specialized.NameValueCollection”已过时:“This method is obsolete, it has been replaced by System.Configuration!System.Configuration.ConfigurationManager.AppSettings”

    dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/siteName.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID")
                           ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                                                                                          
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(257) : warning BC40000: “Public Shared ReadOnly Property AppSettings() As System.Collections.Specialized.NameValueCollection”已过时:“This method is obsolete, it has been replaced by System.Configuration!System.Configuration.ConfigurationManager.AppSettings”

    dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/siteName.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID")
                                                                                                                               ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(261) : warning BC42021: 函数没有“As”子句；假定返回类型为 Object。

function gettopwords_en()
         ~~~~~~~~~~~~~~  
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(262) : warning BC40000: “Public Shared ReadOnly Property AppSettings() As System.Collections.Specialized.NameValueCollection”已过时:“This method is obsolete, it has been replaced by System.Configuration!System.Configuration.ConfigurationManager.AppSettings”

    dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/siteName.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID")
                           ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                                                                                          
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(262) : warning BC40000: “Public Shared ReadOnly Property AppSettings() As System.Collections.Specialized.NameValueCollection”已过时:“This method is obsolete, it has been replaced by System.Configuration!System.Configuration.ConfigurationManager.AppSettings”

    dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/siteName.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID")
                                                                                                                               ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(266) : warning BC42021: 函数没有“As”子句；假定返回类型为 Object。

function showxmltop(filename) 
         ~~~~~~~~~~           
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(266) : warning BC42020: 变量声明没有“As”子句；假定为 Object 类型。

function showxmltop(filename) 
                    ~~~~~~~~  
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(275) : warning BC42105: 函数“showxmltop”并非在所有代码路径上都返回值。当使用结果时，可能会在运行时发生空引用异常。

end function
~~~~~~~~~~~~
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(277) : warning BC42021: 函数没有“As”子句；假定返回类型为 Object。

function showxmltop_en(filename) 
         ~~~~~~~~~~~~~           
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(277) : warning BC42020: 变量声明没有“As”子句；假定为 Object 类型。

function showxmltop_en(filename) 
                       ~~~~~~~~  
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(286) : warning BC42105: 函数“showxmltop_en”并非在所有代码路径上都返回值。当使用结果时，可能会在运行时发生空引用异常。

end function
~~~~~~~~~~~~
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(288) : warning BC42021: 函数没有“As”子句；假定返回类型为 Object。

function showxml_d(filename) 
         ~~~~~~~~~           
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(288) : warning BC42020: 变量声明没有“As”子句；假定为 Object 类型。

function showxml_d(filename) 
                   ~~~~~~~~  
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(297) : warning BC42105: 函数“showxml_d”并非在所有代码路径上都返回值。当使用结果时，可能会在运行时发生空引用异常。

end function
~~~~~~~~~~~~
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(298) : warning BC42021: 函数没有“As”子句；假定返回类型为 Object。

function showxml_de(filename) 
         ~~~~~~~~~~           
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(298) : warning BC42020: 变量声明没有“As”子句；假定为 Object 类型。

function showxml_de(filename) 
                    ~~~~~~~~  
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(307) : warning BC42105: 函数“showxml_de”并非在所有代码路径上都返回值。当使用结果时，可能会在运行时发生空引用异常。

end function
~~~~~~~~~~~~
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(309) : warning BC42021: 函数没有“As”子句；假定返回类型为 Object。

function getdescrip()
         ~~~~~~~~~~  
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(310) : warning BC40000: “Public Shared ReadOnly Property AppSettings() As System.Collections.Specialized.NameValueCollection”已过时:“This method is obsolete, it has been replaced by System.Configuration!System.Configuration.ConfigurationManager.AppSettings”

    dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/title.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID")
                           ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                                                                                       
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(310) : warning BC40000: “Public Shared ReadOnly Property AppSettings() As System.Collections.Specialized.NameValueCollection”已过时:“This method is obsolete, it has been replaced by System.Configuration!System.Configuration.ConfigurationManager.AppSettings”

    dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/title.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID")
                                                                                                                            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(314) : warning BC42021: 函数没有“As”子句；假定返回类型为 Object。

function getdescrip_en()
         ~~~~~~~~~~~~~  
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(315) : warning BC40000: “Public Shared ReadOnly Property AppSettings() As System.Collections.Specialized.NameValueCollection”已过时:“This method is obsolete, it has been replaced by System.Configuration!System.Configuration.ConfigurationManager.AppSettings”

    dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/title.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID")
                           ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                                                                                       
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(315) : warning BC40000: “Public Shared ReadOnly Property AppSettings() As System.Collections.Specialized.NameValueCollection”已过时:“This method is obsolete, it has been replaced by System.Configuration!System.Configuration.ConfigurationManager.AppSettings”

    dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/title.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID")
                                                                                                                            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(319) : warning BC42021: 函数没有“As”子句；假定返回类型为 Object。

function getseopro(n)
         ~~~~~~~~~   
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(319) : warning BC42020: 变量声明没有“As”子句；假定为 Object 类型。

function getseopro(n)
                   ~ 
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(320) : warning BC40000: “Public Shared ReadOnly Property AppSettings() As System.Collections.Specialized.NameValueCollection”已过时:“This method is obsolete, it has been replaced by System.Configuration!System.Configuration.ConfigurationManager.AppSettings”

    dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/title.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID")
                                                                                                                            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~      
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(324) : warning BC42021: 函数没有“As”子句；假定返回类型为 Object。

function showxmlpro(filename,n)
         ~~~~~~~~~~            
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(324) : warning BC42020: 变量声明没有“As”子句；假定为 Object 类型。

function showxmlpro(filename,n)
                    ~~~~~~~~   
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(324) : warning BC42020: 变量声明没有“As”子句；假定为 Object 类型。

function showxmlpro(filename,n)
                             ~ 
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(335) : warning BC42021: 函数没有“As”子句；假定返回类型为 Object。

function getcompany()
         ~~~~~~~~~~  
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(345) : warning BC42021: 函数没有“As”子句；假定返回类型为 Object。

function getproname(id)
         ~~~~~~~~~~    
E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx(345) : warning BC42020: 变量声明没有“As”子句；假定为 Object 类型。

function getproname(id)
                    ~~ 
E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html(55) : error BC30451: 未声明名称“bmenu1”。

        bmenu1.text=rootmenu.selectSingleNode("aboutus").InnerXML
        ~~~~~~                                                   
E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html(56) : error BC30451: 未声明名称“bmenu2”。

        bmenu2.text=rootmenu.selectSingleNode("news").InnerXML
        ~~~~~~                                                
E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html(57) : error BC30451: 未声明名称“bmenu3”。

        bmenu3.text=rootmenu.selectSingleNode("product").InnerXML
        ~~~~~~                                                   
E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html(58) : error BC30451: 未声明名称“bmenu4”。

        bmenu4.text=rootmenu.selectSingleNode("quality").InnerXML
        ~~~~~~                                                   
E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html(59) : error BC30451: 未声明名称“bmenu5”。

        bmenu5.text=rootmenu.selectSingleNode("service").InnerXML
        ~~~~~~                                                   
E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html(60) : error BC30451: 未声明名称“bmenu6”。

        bmenu6.text=rootmenu.selectSingleNode("seotitle").InnerXML
        ~~~~~~                                                    
E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html(61) : error BC30451: 未声明名称“bmenu8”。

        bmenu8.text=rootmenu.selectSingleNode("contactus").InnerXML
        ~~~~~~                                                     
E:\wwwroot\ntjwwl\users\20100625081855138\site\seolist.html(10) : warning BC40005: sub“DataBind”隐藏基 class“Control”中的可重写方法。若要重写基方法，必须将此方法声明为“Overrides”。

sub DataBind()
    ~~~~~~~~  
E:\wwwroot\ntjwwl\users\20100625081855138\site\seolist.html(100) : warning BC42021: 函数没有“As”子句；假定返回类型为 Object。

function getSkindsList(kindsid,k)
         ~~~~~~~~~~~~~           
E:\wwwroot\ntjwwl\users\20100625081855138\site\seolist.html(100) : warning BC42020: 变量声明没有“As”子句；假定为 Object 类型。

function getSkindsList(kindsid,k)
                       ~~~~~~~   
E:\wwwroot\ntjwwl\users\20100625081855138\site\seolist.html(100) : warning BC42020: 变量声明没有“As”子句；假定为 Object 类型。

function getSkindsList(kindsid,k)
                               ~ 
E:\wwwroot\ntjwwl\users\20100625081855138\site\seolist.html(121) : warning BC42021: 函数没有“As”子句；假定返回类型为 Object。

function getproductLista(kindsid,k)
         ~~~~~~~~~~~~~~~           
E:\wwwroot\ntjwwl\users\20100625081855138\site\seolist.html(121) : warning BC42020: 变量声明没有“As”子句；假定为 Object 类型。

function getproductLista(kindsid,k)
                         ~~~~~~~   
vbc : warning BC42206: 已超过最大警告数。
E:\wwwroot\ntjwwl\users\20100625081855138\site\seolist.html(121) : warning BC42020: 变量声明没有“As”子句；假定为 Object 类型。

function getproductLista(kindsid,k)
                                 ~ 
E:\wwwroot\ntjwwl\users\20100625081855138\site\seolist.html(139) : warning BC42021: 函数没有“As”子句；假定返回类型为 Object。

function getproductList(kindsid,skindsid,k,l)
         ~~~~~~~~~~~~~~                      
E:\wwwroot\ntjwwl\users\20100625081855138\site\seolist.html(139) : warning BC42020: 变量声明没有“As”子句；假定为 Object 类型。

function getproductList(kindsid,skindsid,k,l)
                        ~~~~~~~              
E:\wwwroot\ntjwwl\users\20100625081855138\site\seolist.html(139) : warning BC42020: 变量声明没有“As”子句；假定为 Object 类型。

function getproductList(kindsid,skindsid,k,l)
                                ~~~~~~~~     
E:\wwwroot\ntjwwl\users\20100625081855138\site\seolist.html(139) : warning BC42020: 变量声明没有“As”子句；假定为 Object 类型。

function getproductList(kindsid,skindsid,k,l)
                                         ~   
E:\wwwroot\ntjwwl\users\20100625081855138\site\seolist.html(139) : warning BC42020: 变量声明没有“As”子句；假定为 Object 类型。

function getproductList(kindsid,skindsid,k,l)
                                           ~ 
E:\wwwroot\ntjwwl\users\20100625081855138\site\top.aspx(18) : error BC30451: 未声明名称“gettopwords”。

                                                                                                                          __w.Write(gettopwords())
                                                                                                                                    ~~~~~~~~~~~


行 1:    #ExternalChecksum("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html","{406ea660-64cf-4c82-b6f0-42d48172a799}","291289E385B423F9D0088B275DE3CB1B")
行 2:    '------------------------------------------------------------------------------
行 3:    ' <auto-generated>
行 4:    '     此代码由工具生成。
行 5:    '     运行时版本:2.0.50727.3625
行 6:    '
行 7:    '     对此文件的更改可能会导致不正确的行为，并且如果
行 8:    '     重新生成代码，这些更改将会丢失。
行 9:    ' </auto-generated>
行 10:   '------------------------------------------------------------------------------
行 11:   
行 12:   Option Strict Off
行 13:   Option Explicit On
行 14:   
行 15:   Imports Microsoft.VisualBasic
行 16:   Imports System
行 17:   Imports System.Collections
行 18:   Imports System.Collections.Specialized
行 19:   Imports System.Configuration
行 20:   Imports System.Data
行 21:   Imports System.Data.OleDB
行 22:   Imports System.Drawing
行 23:   Imports System.Text
行 24:   Imports System.Text.RegularExpressions
行 25:   Imports System.Web
行 26:   Imports System.Web.Caching
行 27:   Imports System.Web.Profile
行 28:   Imports System.Web.Security
行 29:   Imports System.Web.SessionState
行 30:   Imports System.Web.UI
行 31:   Imports System.Web.UI.HtmlControls
行 32:   Imports System.Web.UI.WebControls
行 33:   Imports System.Web.UI.WebControls.WebParts
行 34:   Imports System.Xml
行 35:   
行 36:   Namespace ASP
行 37:       
行 38:       <System.Runtime.CompilerServices.CompilerGlobalScopeAttribute()>  _
行 39:       Public Class users_20100625081855138_site_quality.html
行 40:           Inherits Global.System.Web.UI.Page
行 41:           Implements System.Web.SessionState.IRequiresSessionState, System.Web.IHttpHandler
行 42:           
行 43:           
行 44:           #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",180)
行 45:           Protected WithEvents company As Global.System.Web.UI.WebControls.Label
行 46:           
行 47:           #End ExternalSource
行 48:           
行 49:           
行 50:           #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",187)
行 51:           Protected WithEvents productKinds As Global.System.Web.UI.WebControls.Label
行 52:           
行 53:           #End ExternalSource
行 54:           
行 55:           
行 56:           #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",195)
行 57:           Protected WithEvents tell As Global.System.Web.UI.WebControls.Label
行 58:           
行 59:           #End ExternalSource
行 60:           
行 61:           
行 62:           #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",196)
行 63:           Protected WithEvents mobilel As Global.System.Web.UI.WebControls.Label
行 64:           
行 65:           #End ExternalSource
行 66:           
行 67:           
行 68:           #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",204)
行 69:           Protected WithEvents menu1 As Global.System.Web.UI.WebControls.Label
行 70:           
行 71:           #End ExternalSource
行 72:           
行 73:           
行 74:           #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",205)
行 75:           Protected WithEvents menu2 As Global.System.Web.UI.WebControls.Label
行 76:           
行 77:           #End ExternalSource
行 78:           
行 79:           
行 80:           #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",206)
行 81:           Protected WithEvents menu3 As Global.System.Web.UI.WebControls.Label
行 82:           
行 83:           #End ExternalSource
行 84:           
行 85:           
行 86:           #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",207)
行 87:           Protected WithEvents menu4 As Global.System.Web.UI.WebControls.Label
行 88:           
行 89:           #End ExternalSource
行 90:           
行 91:           
行 92:           #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",208)
行 93:           Protected WithEvents menu5 As Global.System.Web.UI.WebControls.Label
行 94:           
行 95:           #End ExternalSource
行 96:           
行 97:           
行 98:           #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",209)
行 99:           Protected WithEvents menu7 As Global.System.Web.UI.WebControls.Label
行 100:          
行 101:          #End ExternalSource
行 102:          
行 103:          
行 104:          #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",210)
行 105:          Protected WithEvents menu8 As Global.System.Web.UI.WebControls.Label
行 106:          
行 107:          #End ExternalSource
行 108:          
行 109:          
行 110:          #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",211)
行 111:          Protected WithEvents siteversion As Global.System.Web.UI.WebControls.Label
行 112:          
行 113:          #End ExternalSource
行 114:          
行 115:          
行 116:          #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",226)
行 117:          Protected WithEvents productList As Global.System.Web.UI.WebControls.Label
行 118:          
行 119:          #End ExternalSource
行 120:          
行 121:          
行 122:          #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",247)
行 123:          Protected WithEvents friendList As Global.System.Web.UI.WebControls.Label
行 124:          
行 125:          #End ExternalSource
行 126:          
行 127:          
行 128:          #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",248)
行 129:          Protected WithEvents tel As Global.System.Web.UI.WebControls.Label
行 130:          
行 131:          #End ExternalSource
行 132:          
行 133:          
行 134:          #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",248)
行 135:          Protected WithEvents fax As Global.System.Web.UI.WebControls.Label
行 136:          
行 137:          #End ExternalSource
行 138:          
行 139:          
行 140:          #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",248)
行 141:          Protected WithEvents mobile As Global.System.Web.UI.WebControls.Label
行 142:          
行 143:          #End ExternalSource
行 144:          
行 145:          Private Shared __initialized As Boolean
行 146:          
行 147:          Private Shared __stringResource As Object
行 148:          
行 149:          Private Shared __fileDependencies As Object
行 150:          
行 151:          
行 152:          #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\function.aspx",6)
行 153:                         
行 154:  
行 155:  function gettitle()
行 156:  	dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/siteName.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID")
行 157:  	 return showxml(filename)
行 158:  end function
行 159:  
行 160:  function gettitle_en()
行 161:  	dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/siteName.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID")
行 162:  	 return showxml_en(filename)
行 163:  end function
行 164:  
行 165:  function getkeyword()
行 166:  	dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/title.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID")
行 167:  	 return showxml(filename)
行 168:  end function
行 169:  
行 170:  function getkeyword_en()
行 171:  	dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/title.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID")
行 172:  	 return showxml_en(filename)
行 173:  end function
行 174:  
行 175:  function cutstr(tempstr,tempwid)
行 176:  if len(tempstr)>tempwid then
行 177:  cutstr=left(tempstr,tempwid)&"..."
行 178:  else
行 179:  cutstr=tempstr
行 180:  end if
行 181:  end function
行 182:  
行 183:  function getTable(filename as string) as DataTable
行 184:  Dim ds As New DataSet() 
行 185:  ds.InferXmlSchema(filename, New String() {"urn:schemas-microsoft-com:officedata"}) 
行 186:  ds.ReadXml(filename) 
行 187:  Return ds.Tables(0) 
行 188:  end function
行 189:  
行 190:  
行 191:  function getCopyright(cssname)
行 192:  	dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/copyright.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID") & "&css=" & cssname
行 193:  	 return showxml(filename)
行 194:  end function
行 195:  
行 196:  function getCopyright_en(cssname)
行 197:  	dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/encopyright.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID") & "&css=" & cssname
行 198:  	 return showxml(filename)
行 199:  end function
行 200:  
行 201:  function showtext(filename) 
行 202:  	Dim xmldoc As New XmlDocument() 
行 203:  	xmldoc.Load(filename) 
行 204:  	Dim root as XmlNode = xmldoc.DocumentElement.FirstChild
行 205:  	if(not root is nothing) then
行 206:  	If root.HasChildNodes Then
行 207:  		return root.ChildNodes(0).InnerText
行 208:  	end if
行 209:  	end if
行 210:  end function
行 211:  
行 212:  function showxml(filename) 
行 213:  	Dim xmldoc As New XmlDocument() 
行 214:  	xmldoc.Load(filename) 
行 215:  	Dim root as XmlNode = xmldoc.DocumentElement.FirstChild
行 216:  	if(not root is nothing) then
行 217:  	If root.HasChildNodes Then
行 218:  		return root.ChildNodes(0).InnerXML
行 219:  	end if
行 220:  	end if
行 221:  end function
行 222:  
行 223:  function showxml_en(filename) 
行 224:  	Dim xmldoc As New XmlDocument() 
行 225:  	xmldoc.Load(filename) 
行 226:  	Dim root as XmlNode = xmldoc.DocumentElement.FirstChild
行 227:  	if(not root is nothing) then
行 228:  	If root.HasChildNodes Then
行 229:  		return root.ChildNodes(1).InnerXML
行 230:  	end if
行 231:  	end if
行 232:  end function
行 233:  
行 234:  
行 235:  '分页函数
行 236:  function getpageInfo(byval Dt,byval pagesize,byref temp,byref startI,byref LastI)
行 237:  	
行 238:  	dim Items,page,TotalPage,ShowItems,prePage,nextPage as integer
行 239:  	Items=pagesize  '页数
行 240:  	page=request("page")
行 241:  	
行 242:  	if dt.rows.count mod Items=0 then
行 243:  		TotalPage=dt.rows.count \ Items 
行 244:  	else
行 245:  		TotalPage=dt.rows.count \ Items + 1
行 246:  	end if
行 247:  	
行 248:  	if TotalPage=1 or TotalPage=page then
行 249:  		ShowItems=dt.rows.count mod Items
行 250:  	else
行 251:  		ShowItems=Items
行 252:  	end if
行 253:  	
行 254:  	if ShowItems=0 and  dt.rows.count>0  then
行 255:  		ShowItems=pagesize
行 256:  	end if
行 257:  	
行 258:  	if page=0 or page=1 then
行 259:  		page=1
行 260:  		startI=0
行 261:  		LastI=ShowItems-1
行 262:  	else
行 263:  		startI=int(page-1)*pagesize
行 264:  		LastI=int(startI)+ShowItems-1
行 265:  	end if
行 266:  	
行 267:  	if dt.rows.count=0 then
行 268:  		page=0
行 269:  	end if
行 270:  	
行 271:  	if page>1 then
行 272:  		prePage=page-1
行 273:  	else
行 274:  		prePage=page
行 275:  		'response.write(showInfo("已经是第一页了"))
行 276:  	end if
行 277:  	
行 278:  	if page<TotalPage then
行 279:  		nextPage=page+1
行 280:  	else
行 281:  		nextPage=page
行 282:  		'response.write(showInfo("已经是最后一页了"))
行 283:  	end if
行 284:  	
行 285:         Dim strQuery As String
行 286:          If request.ServerVariables("QUERY_STRING") <> "" Then
行 287:  		    If InStr(request.ServerVariables("QUERY_STRING"), "&page") > 0 Then
行 288:                  strQuery=left(request.ServerVariables("QUERY_STRING"),InStr(request.ServerVariables("QUERY_STRING"),"&page")-1)
行 289:              Else
行 290:                  strQuery = request.ServerVariables("QUERY_STRING")
行 291:              End If
行 292:          End If
行 293:  
行 294:  	temp="&nbsp;&nbsp;&nbsp;&nbsp;<a href="""& 	request.ServerVariables("SCRIPT_NAME") &"?"& strQuery &""" class=""pages"">首页</a> <a href="""& request.ServerVariables("SCRIPT_NAME") &"?"& strQuery &"&page="& prePage &""" class=""pages"">上一页</a>  <a href="""& request.ServerVariables("SCRIPT_NAME") &"?"& strQuery &"&page="& nextPage &""" class=""pages"">下一页</a>  <a href="""& request.ServerVariables("SCRIPT_NAME") &"?"& strQuery &"&page="& TotalPage &""" class=""pages"">尾页</a><font class=""black"">&nbsp;&nbsp;&nbsp;&nbsp;" & page & "/" & TotalPage & "页     "&  DT.rows.count & "条</font>"
行 295:  
行 296:  end function
行 297:  
行 298:  function getversion()
行 299:  	dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/getCH_en.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID")
行 300:  	Dim xmldoc As New XmlDocument() 
行 301:  	xmldoc.Load(filename) 
行 302:  	Dim root as XmlNode = xmldoc.DocumentElement.FirstChild
行 303:  	if(not root is nothing) then
行 304:  	If root.HasChildNodes Then
行 305:  		if root.ChildNodes(0).InnerXML="0" then
行 306:  		
行 307:  		return "　|　<A href=""index_en.aspx"">English</A>"
行 308:  		end if
行 309:  		if root.ChildNodes(0).InnerXML="1" then
行 310:  		return ""
行 311:  		end if
行 312:  		if root.ChildNodes(0).InnerXML="2" then
行 313:  		response.Redirect("index_en.aspx")
行 314:  		end if
行 315:  	end if
行 316:  	end if
行 317:  
行 318:  end function
行 319:  
行 320:  function getversion_en()
行 321:  	dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/getCH_en.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID")
行 322:  	Dim xmldoc As New XmlDocument() 
行 323:  	xmldoc.Load(filename) 
行 324:  	Dim root as XmlNode = xmldoc.DocumentElement.FirstChild
行 325:  	if(not root is nothing) then
行 326:  	If root.HasChildNodes Then
行 327:  		if root.ChildNodes(0).InnerXML="0" then
行 328:  		return "<td style=""cursor:hand;"" onClick=""javascript:window.location.href='index.html'"" onMouseOver=""this.style.background='#FFE8AD'"" onMouseOut=""this.style.background='#EAF2FA'"">中文版</td>"
行 329:  		end if
行 330:  		if root.ChildNodes(0).InnerXML="1" then
行 331:  		response.Redirect("index.html")
行 332:  		end if
行 333:  		if root.ChildNodes(0).InnerXML="2" then
行 334:  		return ""
行 335:  		end if
行 336:  	end if
行 337:  	end if
行 338:  
行 339:  end function
行 340:  
行 341:  function getpageInfo_en(byval Dt,byval pagesize,byref temp,byref startI,byref LastI)
行 342:  	
行 343:  	dim Items,page,TotalPage,ShowItems,prePage,nextPage as integer
行 344:  	Items=pagesize  '页数
行 345:  	page=request("page")
行 346:  	
行 347:  	if dt.rows.count mod Items=0 then
行 348:  		TotalPage=dt.rows.count \ Items 
行 349:  	else
行 350:  		TotalPage=dt.rows.count \ Items + 1
行 351:  	end if
行 352:  	
行 353:  	if TotalPage=1 or TotalPage=page then
行 354:  		ShowItems=dt.rows.count mod Items
行 355:  	else
行 356:  		ShowItems=Items
行 357:  	end if
行 358:  	
行 359:  	if ShowItems=0 and  dt.rows.count>0  then
行 360:  		ShowItems=pagesize
行 361:  	end if
行 362:  	
行 363:  	if page=0 or page=1 then
行 364:  		page=1
行 365:  		startI=0
行 366:  		LastI=ShowItems-1
行 367:  	else
行 368:  		startI=int(page-1)*pagesize
行 369:  		LastI=int(startI)+ShowItems-1
行 370:  	end if
行 371:  	
行 372:  	if dt.rows.count=0 then
行 373:  		page=0
行 374:  	end if
行 375:  	
行 376:  	if page>1 then
行 377:  		prePage=page-1
行 378:  	else
行 379:  		prePage=page
行 380:  		'response.write(showInfo("已经是第一页了"))
行 381:  	end if
行 382:  	
行 383:  	if page<TotalPage then
行 384:  		nextPage=page+1
行 385:  	else
行 386:  		nextPage=page
行 387:  		'response.write(showInfo("已经是最后一页了"))
行 388:  	end if
行 389:  	
行 390:         Dim strQuery As String
行 391:          If request.ServerVariables("QUERY_STRING") <> "" Then
行 392:  		    If InStr(request.ServerVariables("QUERY_STRING"), "&page") > 0 Then
行 393:                  strQuery=left(request.ServerVariables("QUERY_STRING"),InStr(request.ServerVariables("QUERY_STRING"),"&page")-1)
行 394:              Else
行 395:                  strQuery = request.ServerVariables("QUERY_STRING")
行 396:              End If
行 397:          End If
行 398:  
行 399:  	temp="&nbsp;&nbsp;&nbsp;&nbsp;<a href="""& 	request.ServerVariables("SCRIPT_NAME") &"?"& strQuery &""" class=""pages"">Home</a> <a href="""& request.ServerVariables("SCRIPT_NAME") &"?"& strQuery &"&page="& prePage &""" class=""pages"">Last</a>  <a href="""& request.ServerVariables("SCRIPT_NAME") &"?"& strQuery &"&page="& nextPage &""" class=""pages"">Next</a>  <a href="""& request.ServerVariables("SCRIPT_NAME") &"?"& strQuery &"&page="& TotalPage &""" class=""pages"">End</a><font class=""black"">&nbsp;&nbsp;&nbsp;&nbsp;" & page & "/" & TotalPage & " Pages ,    total "&  DT.rows.count & "</font>"
行 400:  
行 401:  end function
行 402:  
行 403:  function gettopwords()
行 404:  	dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/siteName.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID")
行 405:  	 return showxmltop(filename)
行 406:  end function
行 407:  
行 408:  function gettopwords_en()
行 409:  	dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/siteName.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID")
行 410:  	 return showxmltop_en(filename)
行 411:  end function
行 412:  
行 413:  function showxmltop(filename) 
行 414:  	Dim xmldoc As New XmlDocument() 
行 415:  	xmldoc.Load(filename) 
行 416:  	Dim root as XmlNode = xmldoc.DocumentElement.FirstChild
行 417:  	if(not root is nothing) then
行 418:  	If root.HasChildNodes Then
行 419:  		return root.ChildNodes(2).InnerXML
行 420:  	end if
行 421:  	end if
行 422:  end function
行 423:  
行 424:  function showxmltop_en(filename) 
行 425:  	Dim xmldoc As New XmlDocument() 
行 426:  	xmldoc.Load(filename) 
行 427:  	Dim root as XmlNode = xmldoc.DocumentElement.FirstChild
行 428:  	if(not root is nothing) then
行 429:  	If root.HasChildNodes Then
行 430:  		return root.ChildNodes(3).InnerXML
行 431:  	end if
行 432:  	end if
行 433:  end function
行 434:  
行 435:  function showxml_d(filename) 
行 436:  	Dim xmldoc As New XmlDocument() 
行 437:  	xmldoc.Load(filename) 
行 438:  	Dim root as XmlNode = xmldoc.DocumentElement.FirstChild
行 439:  	if(not root is nothing) then
行 440:  	If root.HasChildNodes Then
行 441:  		return root.ChildNodes(2).InnerXML
行 442:  	end if
行 443:  	end if
行 444:  end function
行 445:  function showxml_de(filename) 
行 446:  	Dim xmldoc As New XmlDocument() 
行 447:  	xmldoc.Load(filename) 
行 448:  	Dim root as XmlNode = xmldoc.DocumentElement.FirstChild
行 449:  	if(not root is nothing) then
行 450:  	If root.HasChildNodes Then
行 451:  		return root.ChildNodes(3).InnerXML
行 452:  	end if
行 453:  	end if
行 454:  end function
行 455:  
行 456:  function getdescrip()
行 457:  	dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/title.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID")
行 458:  	 return showxml_d(filename)
行 459:  end function
行 460:  
行 461:  function getdescrip_en()
行 462:  	dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/title.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID")
行 463:  	 return showxml_de(filename)
行 464:  end function
行 465:  
行 466:  function getseopro(n)
行 467:  	dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/title.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID")
行 468:  	return showxmlpro(filename,n)
行 469:  end function
行 470:  
行 471:  function showxmlpro(filename,n)
行 472:  	Dim xmldoc As New XmlDocument() 
行 473:  	xmldoc.Load(filename) 
行 474:  	Dim root as XmlNode = xmldoc.DocumentElement.FirstChild
行 475:  	if(not root is nothing) then
行 476:  	If root.HasChildNodes Then
行 477:  		return root.ChildNodes(n).InnerXML
行 478:  	end if
行 479:  	end if
行 480:  end function
行 481:  
行 482:  function getcompany()
行 483:  	dim filenamem as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/contactus.html?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID")
行 484:  	Dim xmldocm As New XmlDocument() 
行 485:  	xmldocm.Load(filenamem) 
行 486:  	Dim rootm as XmlNode = xmldocm.DocumentElement.FirstChild
行 487:  	If rootm.HasChildNodes Then
行 488:  		return rootm.selectSingleNode("company").InnerXML
行 489:  	end if
行 490:  end function
行 491:  
行 492:  function getproname(id)
行 493:  	dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/productshow.aspx?id=" & id
行 494:  	Dim xmldoc As New XmlDocument() 
行 495:  	xmldoc.Load(filename) 
行 496:  	Dim root as XmlNode = xmldoc.DocumentElement.FirstChild
行 497:  	If root.HasChildNodes Then
行 498:  		return root.selectSingleNode("Strname").InnerXML
行 499:  	end if
行 500:  end function
行 501:  
行 502:          #End ExternalSource
行 503:          
行 504:          
行 505:          #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",3)
行 506:                         
行 507:  Sub Page_Load(Src As Object, E As EventArgs)
行 508:  If Not IsPostBack Then
行 509:  DataBind()
行 510:  End If
行 511:  End Sub
行 512:  
行 513:  sub DataBind()
行 514:  	siteversion.text=getversion()
行 515:  	
行 516:  	dim pfilename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/gloryKinds.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID")
行 517:  	dim j as integer
行 518:  	dim dtKinds as DataTable
行 519:  	dtKinds=getTable(pfilename)
行 520:  	dim tempKinds as string
行 521:  	if isDBnull(dtKinds.rows(0)("ID")) then 
行 522:  		tempKinds=tempKinds & "资料正在整理中..."
行 523:  	else
行 524:  		tempKinds=tempKinds & "<table width='100%' border='0' cellpadding='0' cellspacing='2'>"
行 525:  	for j=0 to dtKinds.rows.count-1
行 526:  		tempKinds=tempKinds & "<tr><TD height='20' bgcolor='#9BC6E9' onMouseOver=""this.style.background='#EAF2FA'"" onMouseOut=""this.style.background='#9BC6E9'"" style='padding-left:20px;'><img src='POT_2.GIF' width='9' height='9'>　<a href=""quality.html?kindsId="&dtKinds.rows(j)("id")&""">"&dtKinds.rows(j)("kindsName")&"</a></TD></tr>"
行 527:  		tempKinds=tempKinds & "<TR><TD height=1></TD></TR>"
行 528:  	next
行 529:  	tempKinds=tempKinds & "</table>"
行 530:  	end if
行 531:  	productkinds.text=tempKinds
行 532:  	
行 533:  	dim filenamem as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/contactus.html?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID")
行 534:  	Dim xmldocm As New XmlDocument() 
行 535:  	xmldocm.Load(filenamem) 
行 536:  	Dim rootm as XmlNode = xmldocm.DocumentElement.FirstChild
行 537:  	If rootm.HasChildNodes Then
行 538:  		tel.text=rootm.selectSingleNode("tel").InnerXML
行 539:  		fax.text=rootm.selectSingleNode("fax").InnerXML
行 540:  		mobile.text=rootm.selectSingleNode("mobile").InnerXML
行 541:  		tell.text=rootm.selectSingleNode("tel").InnerXML
行 542:  		mobilel.text=rootm.selectSingleNode("mobile").InnerXML
行 543:  		company.text=rootm.selectSingleNode("company").InnerXML
行 544:  	end if
行 545:  	
行 546:  	dim menunameN as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/menu.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID")
行 547:  	Dim xmldomenucn As New XmlDocument() 
行 548:  	xmldomenucn.Load(menunameN) 
行 549:  	Dim rootmenu as XmlNode = xmldomenucn.DocumentElement.FirstChild
行 550:  	If rootmenu.HasChildNodes Then
行 551:  		menu1.text=rootmenu.selectSingleNode("aboutus").InnerXML
行 552:  		menu2.text=rootmenu.selectSingleNode("news").InnerXML
行 553:  		menu3.text=rootmenu.selectSingleNode("product").InnerXML
行 554:  		menu4.text=rootmenu.selectSingleNode("quality").InnerXML
行 555:  		menu5.text=rootmenu.selectSingleNode("service").InnerXML
行 556:  		menu7.text=rootmenu.selectSingleNode("orderol").InnerXML
行 557:  		menu8.text=rootmenu.selectSingleNode("contactus").InnerXML
行 558:  		bmenu1.text=rootmenu.selectSingleNode("aboutus").InnerXML
行 559:  		bmenu2.text=rootmenu.selectSingleNode("news").InnerXML
行 560:  		bmenu3.text=rootmenu.selectSingleNode("product").InnerXML
行 561:  		bmenu4.text=rootmenu.selectSingleNode("quality").InnerXML
行 562:  		bmenu5.text=rootmenu.selectSingleNode("service").InnerXML
行 563:  		bmenu6.text=rootmenu.selectSingleNode("seotitle").InnerXML
行 564:  		bmenu8.text=rootmenu.selectSingleNode("contactus").InnerXML
行 565:  	end if
行 566:  	
行 567:  	if request.QueryString("kindsID")="" then
行 568:  	dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/glory.aspx?kindsid="&dtKinds.rows(0)("id")&"&id="&System.Configuration.ConfigurationSettings.AppSettings("ID")
行 569:  	dim i,startI,LastI as integer
行 570:  	dim dt as DataTable
行 571:  	dt=getTable(filename)
行 572:  	dim temp,strtemp as string
行 573:  	getpageInfo(Dt,6,strtemp,startI,LastI)
行 574:      if isDBnull(dt.rows(0)("ID")) or dt.rows(0)("ID")="" then 
行 575:  	temp=temp & "资料正在整理中..."
行 576:  	else
行 577:  	temp=temp & "<table width=""100%"" border=""0"" cellpadding=""4"" cellspacing=""0""><tr height=""30"">"
行 578:      Dim m=0
行 579:  	for i=startI to LastI
行 580:  	temp=temp & "<td width=200><table cellSpacing=1 cellPadding=5 border=0><tbody><tr><td>"
行 581:      temp=temp & "<table cellSpacing=1 cellPadding=4 bgColor=#d7dccb border=0>"
行 582:  	temp=temp & "<tbody><tr><td align=middle width=100 bgColor=#ffffff height=50>"
行 583:  	temp=temp & "<img src="&System.Configuration.ConfigurationSettings.AppSettings("siteURL")&"/users/"
行 584:  	temp=temp & System.Configuration.ConfigurationSettings.AppSettings("ID")&"/glory/"&dt.rows(i)("pic")
行 585:  	temp=temp & " height=100 width=130 border=0 />"
行 586:  	temp=temp & "</td></tr></tbody></table></td></tr></tbody></table>"
行 587:  	temp=temp & "<div style=""padding-left:10px;""><img src=pot_5.gif />&nbsp;&nbsp;"&dt.rows(i)("Strname")
行 588:  	temp=temp & "</div></td>"
行 589:  	m=m+1
行 590:  	if m mod 3=0
行 591:  	temp=temp & "</tr><tr>"
行 592:  	end if
行 593:  	next
行 594:      temp=temp & "</tr></table>"
行 595:      temp=temp & "<table width=100%><tr align=center bgColor=#eeeeee><td>"& strtemp &"</td>"
行 596:      temp=temp & "</tr>"
行 597:      temp=temp & "</table>"
行 598:      end if
行 599:  	productList.text=temp
行 600:  	else
行 601:  	dim filename as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/glory.aspx?kindsid="&request.querystring("kindsID")&"&id="&System.Configuration.ConfigurationSettings.AppSettings("ID")
行 602:  	dim i,startI,LastI as integer
行 603:  	dim dt as DataTable
行 604:  	dt=getTable(filename)
行 605:  	dim temp,strtemp as string
行 606:  	getpageInfo(Dt,6,strtemp,startI,LastI)
行 607:      if isDBnull(dt.rows(0)("ID")) or dt.rows(0)("ID")="" then 
行 608:  	temp=temp & "资料正在整理中..."
行 609:  	else
行 610:  	temp=temp & "<table width=""100%"" border=""0"" cellpadding=""4"" cellspacing=""0""><tr height=""30"">"
行 611:      Dim m=0
行 612:  	for i=startI to LastI
行 613:  	temp=temp & "<td width=200><table cellSpacing=1 cellPadding=5 border=0><tbody><tr><td>"
行 614:      temp=temp & "<table cellSpacing=1 cellPadding=4 bgColor=#d7dccb border=0>"
行 615:  	temp=temp & "<tbody><tr><td align=middle width=100 bgColor=#ffffff height=50>"
行 616:  	temp=temp & "<img src="&System.Configuration.ConfigurationSettings.AppSettings("siteURL")&"/users/"
行 617:  	temp=temp & System.Configuration.ConfigurationSettings.AppSettings("ID")&"/glory/"&dt.rows(i)("pic")
行 618:  	temp=temp & " height=100 width=130 border=0 />"
行 619:  	temp=temp & "</td></tr></tbody></table></td></tr></tbody></table>"
行 620:  	temp=temp & "<div style=""padding-left:10px;""><img src=pot_5.gif />&nbsp;&nbsp;"&dt.rows(i)("Strname")
行 621:  	temp=temp & "</div></td>"
行 622:  	m=m+1
行 623:  	if m mod 3=0
行 624:  	temp=temp & "</tr><tr>"
行 625:  	end if
行 626:  	next
行 627:      temp=temp & "</tr></table>"
行 628:      temp=temp & "<table width=100%><tr align=center bgColor=#eeeeee><td>"& strtemp &"</td>"
行 629:      temp=temp & "</tr>"
行 630:      temp=temp & "</table>"
行 631:      end if
行 632:  	productList.text=temp
行 633:  	end if
行 634:  	
行 635:  	dim filenamef as string=System.Configuration.ConfigurationSettings.AppSettings("siteURL") & "/xmlpages/friendlink.aspx?id=" & System.Configuration.ConfigurationSettings.AppSettings("ID")
行 636:  	dim startf,Lastf as integer
行 637:  	dim dtf as DataTable
行 638:  	dtf=getTable(filenamef)
行 639:  	dim tempf,strtempf as string
行 640:  	getpageInfo(Dtf,8,strtempf,startf,Lastf)
行 641:  	if isDBnull(dtf.rows(0)("ID")) or dtf.rows(0)("ID")="" then 
行 642:  	tempf=tempf & "资料正在整理中..."
行 643:  	else
行 644:  	tempf=tempf & "<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"" align=""center""><tr height=""15""><td class=main style=""text-align:center;"">友情链接：&nbsp;&nbsp;"
行 645:  	for f as integer=startf to Lastf
行 646:      tempf=tempf & "<a href="& dtf.rows(f)("url") &" target=""_blank"">"& cutstr(dtf.rows(f)("sitename").trim(),10)&"</a>&nbsp;&nbsp;"
行 647:  	next
行 648:      tempf=tempf & "</td></tr></table>"	
行 649:      end if
行 650:  	friendList.text=tempf
行 651:  end sub
行 652:  
行 653:          #End ExternalSource
行 654:          
行 655:          
行 656:          <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
行 657:          Public Sub New()
行 658:              MyBase.New
行 659:              Dim dependencies() As String
行 660:              CType(Me,Global.System.Web.UI.Page).AppRelativeVirtualPath = "~quality.html"
行 661:              If (Global.ASP.users_20100625081855138_site_quality.html.__initialized = false) Then
行 662:                  Global.ASP.users_20100625081855138_site_quality.html.__stringResource = Me.ReadStringResource
行 663:                  dependencies = New String(1) {}
行 664:                  dependencies(0) = "~quality.html"
行 665:                  dependencies(1) = "~function.aspx"
行 666:                  Global.ASP.users_20100625081855138_site_quality.html.__fileDependencies = Me.GetWrappedFileDependencies(dependencies)
行 667:                  Global.ASP.users_20100625081855138_site_quality.html.__initialized = true
行 668:              End If
行 669:              Me.Server.ScriptTimeout = 30000000
行 670:          End Sub
行 671:          
行 672:          Protected ReadOnly Property Profile() As System.Web.Profile.DefaultProfile
行 673:              Get
行 674:                  Return CType(Me.Context.Profile,System.Web.Profile.DefaultProfile)
行 675:              End Get
行 676:          End Property
行 677:          
行 678:          Protected ReadOnly Property ApplicationInstance() As ASP.global_asax
行 679:              Get
行 680:                  Return CType(Me.Context.ApplicationInstance,ASP.global_asax)
行 681:              End Get
行 682:          End Property
行 683:          
行 684:          <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
行 685:          Private Function __BuildControlcompany() As Global.System.Web.UI.WebControls.Label
行 686:              Dim __ctrl As Global.System.Web.UI.WebControls.Label
行 687:              
行 688:              #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",180)
行 689:              __ctrl = New Global.System.Web.UI.WebControls.Label
行 690:              
行 691:              #End ExternalSource
行 692:              Me.company = __ctrl
行 693:              __ctrl.ApplyStyleSheetSkin(Me)
行 694:              
行 695:              #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",180)
行 696:              __ctrl.ID = "company"
行 697:              
行 698:              #End ExternalSource
行 699:              Return __ctrl
行 700:          End Function
行 701:          
行 702:          <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
行 703:          Private Function __BuildControlproductKinds() As Global.System.Web.UI.WebControls.Label
行 704:              Dim __ctrl As Global.System.Web.UI.WebControls.Label
行 705:              
行 706:              #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",187)
行 707:              __ctrl = New Global.System.Web.UI.WebControls.Label
行 708:              
行 709:              #End ExternalSource
行 710:              Me.productKinds = __ctrl
行 711:              __ctrl.ApplyStyleSheetSkin(Me)
行 712:              
行 713:              #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",187)
行 714:              __ctrl.ID = "productKinds"
行 715:              
行 716:              #End ExternalSource
行 717:              Return __ctrl
行 718:          End Function
行 719:          
行 720:          <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
行 721:          Private Function __BuildControltell() As Global.System.Web.UI.WebControls.Label
行 722:              Dim __ctrl As Global.System.Web.UI.WebControls.Label
行 723:              
行 724:              #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",195)
行 725:              __ctrl = New Global.System.Web.UI.WebControls.Label
行 726:              
行 727:              #End ExternalSource
行 728:              Me.tell = __ctrl
行 729:              __ctrl.ApplyStyleSheetSkin(Me)
行 730:              
行 731:              #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",195)
行 732:              __ctrl.ID = "tell"
行 733:              
行 734:              #End ExternalSource
行 735:              Return __ctrl
行 736:          End Function
行 737:          
行 738:          <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
行 739:          Private Function __BuildControlmobilel() As Global.System.Web.UI.WebControls.Label
行 740:              Dim __ctrl As Global.System.Web.UI.WebControls.Label
行 741:              
行 742:              #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",196)
行 743:              __ctrl = New Global.System.Web.UI.WebControls.Label
行 744:              
行 745:              #End ExternalSource
行 746:              Me.mobilel = __ctrl
行 747:              __ctrl.ApplyStyleSheetSkin(Me)
行 748:              
行 749:              #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",196)
行 750:              __ctrl.ID = "mobilel"
行 751:              
行 752:              #End ExternalSource
行 753:              Return __ctrl
行 754:          End Function
行 755:          
行 756:          <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
行 757:          Private Function __BuildControlmenu1() As Global.System.Web.UI.WebControls.Label
行 758:              Dim __ctrl As Global.System.Web.UI.WebControls.Label
行 759:              
行 760:              #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",204)
行 761:              __ctrl = New Global.System.Web.UI.WebControls.Label
行 762:              
行 763:              #End ExternalSource
行 764:              Me.menu1 = __ctrl
行 765:              __ctrl.ApplyStyleSheetSkin(Me)
行 766:              
行 767:              #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",204)
行 768:              __ctrl.ID = "menu1"
行 769:              
行 770:              #End ExternalSource
行 771:              Return __ctrl
行 772:          End Function
行 773:          
行 774:          <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
行 775:          Private Function __BuildControlmenu2() As Global.System.Web.UI.WebControls.Label
行 776:              Dim __ctrl As Global.System.Web.UI.WebControls.Label
行 777:              
行 778:              #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",205)
行 779:              __ctrl = New Global.System.Web.UI.WebControls.Label
行 780:              
行 781:              #End ExternalSource
行 782:              Me.menu2 = __ctrl
行 783:              __ctrl.ApplyStyleSheetSkin(Me)
行 784:              
行 785:              #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",205)
行 786:              __ctrl.ID = "menu2"
行 787:              
行 788:              #End ExternalSource
行 789:              Return __ctrl
行 790:          End Function
行 791:          
行 792:          <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
行 793:          Private Function __BuildControlmenu3() As Global.System.Web.UI.WebControls.Label
行 794:              Dim __ctrl As Global.System.Web.UI.WebControls.Label
行 795:              
行 796:              #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",206)
行 797:              __ctrl = New Global.System.Web.UI.WebControls.Label
行 798:              
行 799:              #End ExternalSource
行 800:              Me.menu3 = __ctrl
行 801:              __ctrl.ApplyStyleSheetSkin(Me)
行 802:              
行 803:              #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",206)
行 804:              __ctrl.ID = "menu3"
行 805:              
行 806:              #End ExternalSource
行 807:              Return __ctrl
行 808:          End Function
行 809:          
行 810:          <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
行 811:          Private Function __BuildControlmenu4() As Global.System.Web.UI.WebControls.Label
行 812:              Dim __ctrl As Global.System.Web.UI.WebControls.Label
行 813:              
行 814:              #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",207)
行 815:              __ctrl = New Global.System.Web.UI.WebControls.Label
行 816:              
行 817:              #End ExternalSource
行 818:              Me.menu4 = __ctrl
行 819:              __ctrl.ApplyStyleSheetSkin(Me)
行 820:              
行 821:              #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",207)
行 822:              __ctrl.ID = "menu4"
行 823:              
行 824:              #End ExternalSource
行 825:              Return __ctrl
行 826:          End Function
行 827:          
行 828:          <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
行 829:          Private Function __BuildControlmenu5() As Global.System.Web.UI.WebControls.Label
行 830:              Dim __ctrl As Global.System.Web.UI.WebControls.Label
行 831:              
行 832:              #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",208)
行 833:              __ctrl = New Global.System.Web.UI.WebControls.Label
行 834:              
行 835:              #End ExternalSource
行 836:              Me.menu5 = __ctrl
行 837:              __ctrl.ApplyStyleSheetSkin(Me)
行 838:              
行 839:              #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",208)
行 840:              __ctrl.ID = "menu5"
行 841:              
行 842:              #End ExternalSource
行 843:              Return __ctrl
行 844:          End Function
行 845:          
行 846:          <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
行 847:          Private Function __BuildControlmenu7() As Global.System.Web.UI.WebControls.Label
行 848:              Dim __ctrl As Global.System.Web.UI.WebControls.Label
行 849:              
行 850:              #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",209)
行 851:              __ctrl = New Global.System.Web.UI.WebControls.Label
行 852:              
行 853:              #End ExternalSource
行 854:              Me.menu7 = __ctrl
行 855:              __ctrl.ApplyStyleSheetSkin(Me)
行 856:              
行 857:              #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",209)
行 858:              __ctrl.ID = "menu7"
行 859:              
行 860:              #End ExternalSource
行 861:              Return __ctrl
行 862:          End Function
行 863:          
行 864:          <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
行 865:          Private Function __BuildControlmenu8() As Global.System.Web.UI.WebControls.Label
行 866:              Dim __ctrl As Global.System.Web.UI.WebControls.Label
行 867:              
行 868:              #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",210)
行 869:              __ctrl = New Global.System.Web.UI.WebControls.Label
行 870:              
行 871:              #End ExternalSource
行 872:              Me.menu8 = __ctrl
行 873:              __ctrl.ApplyStyleSheetSkin(Me)
行 874:              
行 875:              #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",210)
行 876:              __ctrl.ID = "menu8"
行 877:              
行 878:              #End ExternalSource
行 879:              Return __ctrl
行 880:          End Function
行 881:          
行 882:          <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
行 883:          Private Function __BuildControlsiteversion() As Global.System.Web.UI.WebControls.Label
行 884:              Dim __ctrl As Global.System.Web.UI.WebControls.Label
行 885:              
行 886:              #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",211)
行 887:              __ctrl = New Global.System.Web.UI.WebControls.Label
行 888:              
行 889:              #End ExternalSource
行 890:              Me.siteversion = __ctrl
行 891:              __ctrl.ApplyStyleSheetSkin(Me)
行 892:              
行 893:              #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",211)
行 894:              __ctrl.ID = "siteversion"
行 895:              
行 896:              #End ExternalSource
行 897:              Return __ctrl
行 898:          End Function
行 899:          
行 900:          <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
行 901:          Private Function __BuildControlproductList() As Global.System.Web.UI.WebControls.Label
行 902:              Dim __ctrl As Global.System.Web.UI.WebControls.Label
行 903:              
行 904:              #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",226)
行 905:              __ctrl = New Global.System.Web.UI.WebControls.Label
行 906:              
行 907:              #End ExternalSource
行 908:              Me.productList = __ctrl
行 909:              __ctrl.ApplyStyleSheetSkin(Me)
行 910:              
行 911:              #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",226)
行 912:              __ctrl.ID = "productList"
行 913:              
行 914:              #End ExternalSource
行 915:              Return __ctrl
行 916:          End Function
行 917:          
行 918:          <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
行 919:          Private Function __BuildControlfriendList() As Global.System.Web.UI.WebControls.Label
行 920:              Dim __ctrl As Global.System.Web.UI.WebControls.Label
行 921:              
行 922:              #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",247)
行 923:              __ctrl = New Global.System.Web.UI.WebControls.Label
行 924:              
行 925:              #End ExternalSource
行 926:              Me.friendList = __ctrl
行 927:              __ctrl.ApplyStyleSheetSkin(Me)
行 928:              
行 929:              #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",247)
行 930:              __ctrl.ID = "friendList"
行 931:              
行 932:              #End ExternalSource
行 933:              Return __ctrl
行 934:          End Function
行 935:          
行 936:          <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
行 937:          Private Function __BuildControltel() As Global.System.Web.UI.WebControls.Label
行 938:              Dim __ctrl As Global.System.Web.UI.WebControls.Label
行 939:              
行 940:              #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",248)
行 941:              __ctrl = New Global.System.Web.UI.WebControls.Label
行 942:              
行 943:              #End ExternalSource
行 944:              Me.tel = __ctrl
行 945:              __ctrl.ApplyStyleSheetSkin(Me)
行 946:              
行 947:              #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",248)
行 948:              __ctrl.ID = "tel"
行 949:              
行 950:              #End ExternalSource
行 951:              Return __ctrl
行 952:          End Function
行 953:          
行 954:          <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
行 955:          Private Function __BuildControlfax() As Global.System.Web.UI.WebControls.Label
行 956:              Dim __ctrl As Global.System.Web.UI.WebControls.Label
行 957:              
行 958:              #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",248)
行 959:              __ctrl = New Global.System.Web.UI.WebControls.Label
行 960:              
行 961:              #End ExternalSource
行 962:              Me.fax = __ctrl
行 963:              __ctrl.ApplyStyleSheetSkin(Me)
行 964:              
行 965:              #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",248)
行 966:              __ctrl.ID = "fax"
行 967:              
行 968:              #End ExternalSource
行 969:              Return __ctrl
行 970:          End Function
行 971:          
行 972:          <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
行 973:          Private Function __BuildControlmobile() As Global.System.Web.UI.WebControls.Label
行 974:              Dim __ctrl As Global.System.Web.UI.WebControls.Label
行 975:              
行 976:              #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",248)
行 977:              __ctrl = New Global.System.Web.UI.WebControls.Label
行 978:              
行 979:              #End ExternalSource
行 980:              Me.mobile = __ctrl
行 981:              __ctrl.ApplyStyleSheetSkin(Me)
行 982:              
行 983:              #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",248)
行 984:              __ctrl.ID = "mobile"
行 985:              
行 986:              #End ExternalSource
行 987:              Return __ctrl
行 988:          End Function
行 989:          
行 990:          <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
行 991:          Private Function __BuildControl__control2() As Global.System.Web.UI.HtmlControls.HtmlForm
行 992:              Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlForm
行 993:              
行 994:              #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",170)
行 995:              __ctrl = New Global.System.Web.UI.HtmlControls.HtmlForm
行 996:              
行 997:              #End ExternalSource
行 998:              Dim __ctrl1 As Global.System.Web.UI.WebControls.Label
行 999:              
行 1000:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",170)
行 1001:             __ctrl1 = Me.__BuildControlcompany
行 1002:             
行 1003:             #End ExternalSource
行 1004:             Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
行 1005:             
行 1006:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",170)
行 1007:             __parser.AddParsedSubObject(__ctrl1)
行 1008:             
行 1009:             #End ExternalSource
行 1010:             Dim __ctrl2 As Global.System.Web.UI.WebControls.Label
行 1011:             
行 1012:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",170)
行 1013:             __ctrl2 = Me.__BuildControlproductKinds
行 1014:             
行 1015:             #End ExternalSource
行 1016:             
行 1017:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",170)
行 1018:             __parser.AddParsedSubObject(__ctrl2)
行 1019:             
行 1020:             #End ExternalSource
行 1021:             Dim __ctrl3 As Global.System.Web.UI.WebControls.Label
行 1022:             
行 1023:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",170)
行 1024:             __ctrl3 = Me.__BuildControltell
行 1025:             
行 1026:             #End ExternalSource
行 1027:             
行 1028:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",170)
行 1029:             __parser.AddParsedSubObject(__ctrl3)
行 1030:             
行 1031:             #End ExternalSource
行 1032:             Dim __ctrl4 As Global.System.Web.UI.WebControls.Label
行 1033:             
行 1034:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",170)
行 1035:             __ctrl4 = Me.__BuildControlmobilel
行 1036:             
行 1037:             #End ExternalSource
行 1038:             
行 1039:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",170)
行 1040:             __parser.AddParsedSubObject(__ctrl4)
行 1041:             
行 1042:             #End ExternalSource
行 1043:             Dim __ctrl5 As Global.System.Web.UI.WebControls.Label
行 1044:             
行 1045:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",170)
行 1046:             __ctrl5 = Me.__BuildControlmenu1
行 1047:             
行 1048:             #End ExternalSource
行 1049:             
行 1050:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",170)
行 1051:             __parser.AddParsedSubObject(__ctrl5)
行 1052:             
行 1053:             #End ExternalSource
行 1054:             Dim __ctrl6 As Global.System.Web.UI.WebControls.Label
行 1055:             
行 1056:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",170)
行 1057:             __ctrl6 = Me.__BuildControlmenu2
行 1058:             
行 1059:             #End ExternalSource
行 1060:             
行 1061:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",170)
行 1062:             __parser.AddParsedSubObject(__ctrl6)
行 1063:             
行 1064:             #End ExternalSource
行 1065:             Dim __ctrl7 As Global.System.Web.UI.WebControls.Label
行 1066:             
行 1067:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",170)
行 1068:             __ctrl7 = Me.__BuildControlmenu3
行 1069:             
行 1070:             #End ExternalSource
行 1071:             
行 1072:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",170)
行 1073:             __parser.AddParsedSubObject(__ctrl7)
行 1074:             
行 1075:             #End ExternalSource
行 1076:             Dim __ctrl8 As Global.System.Web.UI.WebControls.Label
行 1077:             
行 1078:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",170)
行 1079:             __ctrl8 = Me.__BuildControlmenu4
行 1080:             
行 1081:             #End ExternalSource
行 1082:             
行 1083:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",170)
行 1084:             __parser.AddParsedSubObject(__ctrl8)
行 1085:             
行 1086:             #End ExternalSource
行 1087:             Dim __ctrl9 As Global.System.Web.UI.WebControls.Label
行 1088:             
行 1089:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",170)
行 1090:             __ctrl9 = Me.__BuildControlmenu5
行 1091:             
行 1092:             #End ExternalSource
行 1093:             
行 1094:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",170)
行 1095:             __parser.AddParsedSubObject(__ctrl9)
行 1096:             
行 1097:             #End ExternalSource
行 1098:             Dim __ctrl10 As Global.System.Web.UI.WebControls.Label
行 1099:             
行 1100:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",170)
行 1101:             __ctrl10 = Me.__BuildControlmenu7
行 1102:             
行 1103:             #End ExternalSource
行 1104:             
行 1105:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",170)
行 1106:             __parser.AddParsedSubObject(__ctrl10)
行 1107:             
行 1108:             #End ExternalSource
行 1109:             Dim __ctrl11 As Global.System.Web.UI.WebControls.Label
行 1110:             
行 1111:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",170)
行 1112:             __ctrl11 = Me.__BuildControlmenu8
行 1113:             
行 1114:             #End ExternalSource
行 1115:             
行 1116:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",170)
行 1117:             __parser.AddParsedSubObject(__ctrl11)
行 1118:             
行 1119:             #End ExternalSource
行 1120:             Dim __ctrl12 As Global.System.Web.UI.WebControls.Label
行 1121:             
行 1122:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",170)
行 1123:             __ctrl12 = Me.__BuildControlsiteversion
行 1124:             
行 1125:             #End ExternalSource
行 1126:             
行 1127:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",170)
行 1128:             __parser.AddParsedSubObject(__ctrl12)
行 1129:             
行 1130:             #End ExternalSource
行 1131:             Dim __ctrl13 As Global.System.Web.UI.WebControls.Label
行 1132:             
行 1133:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",170)
行 1134:             __ctrl13 = Me.__BuildControlproductList
行 1135:             
行 1136:             #End ExternalSource
行 1137:             
行 1138:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",170)
行 1139:             __parser.AddParsedSubObject(__ctrl13)
行 1140:             
行 1141:             #End ExternalSource
行 1142:             Dim __ctrl14 As Global.System.Web.UI.WebControls.Label
行 1143:             
行 1144:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",170)
行 1145:             __ctrl14 = Me.__BuildControlfriendList
行 1146:             
行 1147:             #End ExternalSource
行 1148:             
行 1149:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",170)
行 1150:             __parser.AddParsedSubObject(__ctrl14)
行 1151:             
行 1152:             #End ExternalSource
行 1153:             Dim __ctrl15 As Global.System.Web.UI.WebControls.Label
行 1154:             
行 1155:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",170)
行 1156:             __ctrl15 = Me.__BuildControltel
行 1157:             
行 1158:             #End ExternalSource
行 1159:             
行 1160:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",170)
行 1161:             __parser.AddParsedSubObject(__ctrl15)
行 1162:             
行 1163:             #End ExternalSource
行 1164:             Dim __ctrl16 As Global.System.Web.UI.WebControls.Label
行 1165:             
行 1166:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",170)
行 1167:             __ctrl16 = Me.__BuildControlfax
行 1168:             
行 1169:             #End ExternalSource
行 1170:             
行 1171:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",170)
行 1172:             __parser.AddParsedSubObject(__ctrl16)
行 1173:             
行 1174:             #End ExternalSource
行 1175:             Dim __ctrl17 As Global.System.Web.UI.WebControls.Label
行 1176:             
行 1177:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",170)
行 1178:             __ctrl17 = Me.__BuildControlmobile
行 1179:             
行 1180:             #End ExternalSource
行 1181:             
行 1182:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",170)
行 1183:             __parser.AddParsedSubObject(__ctrl17)
行 1184:             
行 1185:             #End ExternalSource
行 1186:             __ctrl.SetRenderMethodDelegate(AddressOf Me.__Render__control2)
行 1187:             Return __ctrl
行 1188:         End Function
行 1189:         
行 1190:         Private Sub __Render__control2(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
行 1191:             Me.WriteUTF8ResourceString(__w, 36617, 1059, false)
行 1192:             parameterContainer.Controls(0).RenderControl(__w)
行 1193:             Me.WriteUTF8ResourceString(__w, 37676, 354, true)
行 1194:             parameterContainer.Controls(1).RenderControl(__w)
行 1195:             Me.WriteUTF8ResourceString(__w, 38030, 372, false)
行 1196:             parameterContainer.Controls(2).RenderControl(__w)
行 1197:             __w.Write("</font><br><img src="""" width=""50"" height=""3"" alt=""""><br>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"            手　　机：<br><f"& _ 
行 1198:                     "ont face=""Arial"">")
行 1199:             parameterContainer.Controls(3).RenderControl(__w)
行 1200:             Me.WriteUTF8ResourceString(__w, 38402, 537, true)
行 1201:             parameterContainer.Controls(4).RenderControl(__w)
行 1202:             __w.Write("</td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"          <td bgcolor=""EAF2FA"" style=""cursor:hand;"" onClick=""javascript:wi"& _ 
行 1203:                     "ndow.location.href='news.html'"" onMouseOver=""this.style.background='#FFE8AD'"" on"& _ 
行 1204:                     "MouseOut=""this.style.background='#EAF2FA'"">")
行 1205:             parameterContainer.Controls(5).RenderControl(__w)
行 1206:             __w.Write("</td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"          <td style=""cursor:hand;"" onClick=""javascript:window.location.hre"& _ 
行 1207:                     "f='product.html'"" onMouseOver=""this.style.background='#FFE8AD'"" onMouseOut=""this"& _ 
行 1208:                     ".style.background='#EAF2FA'"">")
行 1209:             parameterContainer.Controls(6).RenderControl(__w)
行 1210:             __w.Write("</td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"          <td style=""cursor:hand;"" onClick=""javascript:window.location.hre"& _ 
行 1211:                     "f='quality.html'"" onMouseOver=""this.style.background='#FFE8AD'"" onMouseOut=""this"& _ 
行 1212:                     ".style.background='#EAF2FA'"">")
行 1213:             parameterContainer.Controls(7).RenderControl(__w)
行 1214:             __w.Write("</td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"          <td style=""cursor:hand;"" onClick=""javascript:window.location.hre"& _ 
行 1215:                     "f='service.html'"" onMouseOver=""this.style.background='#FFE8AD'"" onMouseOut=""this"& _ 
行 1216:                     ".style.background='#EAF2FA'"">")
行 1217:             parameterContainer.Controls(8).RenderControl(__w)
行 1218:             __w.Write("</td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"          <td style=""cursor:hand;"" onClick=""javascript:window.location.hre"& _ 
行 1219:                     "f='order.html'"" onMouseOver=""this.style.background='#FFE8AD'"" onMouseOut=""this.s"& _ 
行 1220:                     "tyle.background='#EAF2FA'"">")
行 1221:             parameterContainer.Controls(9).RenderControl(__w)
行 1222:             __w.Write("</td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"          <td style=""cursor:hand;"" onClick=""javascript:window.location.hre"& _ 
行 1223:                     "f='contactus.html'"" onMouseOver=""this.style.background='#FFE8AD'"" onMouseOut=""th"& _ 
行 1224:                     "is.style.background='#EAF2FA'"">")
行 1225:             parameterContainer.Controls(10).RenderControl(__w)
行 1226:             __w.Write("</td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"          ")
行 1227:             parameterContainer.Controls(11).RenderControl(__w)
行 1228:             Me.WriteUTF8ResourceString(__w, 38939, 490, true)
行 1229:             parameterContainer.Controls(12).RenderControl(__w)
行 1230:             Me.WriteUTF8ResourceString(__w, 39429, 699, true)
行 1231:             parameterContainer.Controls(13).RenderControl(__w)
行 1232:             __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"      服务热线：")
行 1233:             parameterContainer.Controls(14).RenderControl(__w)
行 1234:             __w.Write("&nbsp;&nbsp;&nbsp;&nbsp;公司传真：")
行 1235:             parameterContainer.Controls(15).RenderControl(__w)
行 1236:             __w.Write("&nbsp;&nbsp;&nbsp;&nbsp;手 机：")
行 1237:             parameterContainer.Controls(16).RenderControl(__w)
行 1238:             __w.Write("<BR>")
行 1239:             
行 1240:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",248)
行 1241:                                                                                                                                                                                                                   __w.Write(getcopyright("bottom"))
行 1242: 
行 1243:             
行 1244:             #End ExternalSource
行 1245:             __w.Write("</td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"    </tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"  </table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
行 1246:         End Sub
行 1247:         
行 1248:         <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
行 1249:         Private Sub __BuildControlTree(ByVal __ctrl As users_20100625081855138_site_quality.html)
行 1250:             
行 1251:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",1)
行 1252:             __ctrl.ContentType = "text/html"
行 1253:             
行 1254:             #End ExternalSource
行 1255:             
行 1256:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",1)
行 1257:             __ctrl.ResponseEncoding = "utf-8"
行 1258:             
行 1259:             #End ExternalSource
行 1260:             
行 1261:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",1)
行 1262:             __ctrl.EnableViewStateMac = false
行 1263:             
行 1264:             #End ExternalSource
行 1265:             
行 1266:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",1)
行 1267:             __ctrl.EnableEventValidation = false
行 1268:             
行 1269:             #End ExternalSource
行 1270:             
行 1271:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",1)
行 1272:             Me.InitializeCulture
行 1273:             
行 1274:             #End ExternalSource
行 1275:             Dim __ctrl1 As Global.System.Web.UI.HtmlControls.HtmlForm
行 1276:             
行 1277:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",1)
行 1278:             __ctrl1 = Me.__BuildControl__control2
行 1279:             
行 1280:             #End ExternalSource
行 1281:             Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
行 1282:             
行 1283:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",1)
行 1284:             __parser.AddParsedSubObject(__ctrl1)
行 1285:             
行 1286:             #End ExternalSource
行 1287:             __ctrl.SetRenderMethodDelegate(AddressOf Me.__Render__control1)
行 1288:         End Sub
行 1289:         
行 1290:         Private Sub __Render__control1(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
行 1291:             __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<html>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<head><TITLE>")
行 1292:             
行 1293:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",151)
行 1294:        __w.Write(gettitle)
行 1295: 
行 1296:             
行 1297:             #End ExternalSource
行 1298:             __w.Write("</TITLE>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<META http-equiv=Content-Type content=""text/html; charset=utf-8"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<met"& _ 
行 1299:                     "a http-equiv=""keywords"" name=""keywords"" content=""")
行 1300:             
行 1301:             #ExternalSource("E:\wwwroot\ntjwwl\users\20100625081855138\site\quality.html",153)
行 1302:                                                __w.Write(getkeyword())
行 1303: 
行 1304:             
行 1305:             #End ExternalSource
行 1306:             Me.WriteUTF8ResourceString(__w, 40128, 445, true)
行 1307:             parameterContainer.Controls(0).RenderControl(__w)
行 1308:             __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</BODY>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</HTML>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
行 1309:         End Sub
行 1310:         
行 1311:         <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
行 1312:         Protected Overrides Sub FrameworkInitialize()
行 1313:             MyBase.FrameworkInitialize
行 1314:             Me.SetStringResourcePointer(Global.ASP.users_20100625081855138_site_quality.html.__stringResource, 0)
行 1315:             Me.__BuildControlTree(Me)
行 1316:             Me.AddWrappedFileDependencies(Global.ASP.users_20100625081855138_site_quality.html.__fileDependencies)
行 1317:         End Sub
行 1318:         
行 1319:         <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
行 1320:         Public Overrides Function GetTypeHashCode() As Integer
行 1321:             Return -52734205
行 1322:         End Function
行 1323:         
行 1324:         <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
行 1325:         Public Overrides Sub ProcessRequest(ByVal context As System.Web.HttpContext)
行 1326:             MyBase.ProcessRequest(context)
行 1327:         End Sub
行 1328:     End Class
行 1329: End Namespace
行 1330:

“/”应用程序中的服务器错误。

编译错误