关于.vb文件拷贝到其他目录后调用报错的问题
我用c#做了一个aps.net的网站,需要从另一个vb做的asp.net站中考个用户管理的模块过去,就是一个文件夹,但是发现有些文件调用的时候就抱错，比如:
login/login_form.aspx这个登陆页
编译错误
说明: 在编译向该请求提供服务所需资源的过程中出现错误。请检查下列特定错误详细信息并适当地修改源代码。
编译器错误信息: ASPNET: 请确保此代码文件中定义的类与“inherits”属性匹配，并且该类扩展的基类(例如 Page 或 UserControl)是正确的。
源错误:
行 15:
行 16:
行 17: 'Partial Class login //红色显示
行 18: Partial Class Migrated_login
行 19:
=====================================
对应的代码为:
Imports Evaluation.Components //这行提示:说不包含公共成员,怎么指定他的路径呢,该命名空间存放位置在根目录下的components/projectinfo.vb中
Imports System.IO
Namespace Evaluation
'Partial Class login
Partial Class Migrated_login
Inherits login
#Region " Web 窗体设计器生成的代码 "
'该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Protected WithEvents Label1 As System.Web.UI.WebControls.Label
Protected WithEvents Label2 As System.Web.UI.WebControls.Label
Protected WithEvents lablogininfo As System.Web.UI.WebControls.Label
Protected WithEvents Image1 As System.Web.UI.WebControls.Image
Protected WithEvents Image2 As System.Web.UI.WebControls.Image
'注意: 以下占位符声明是 Web 窗体设计器所必需的。
'不要删除或移动它。
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
End Sub
'Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
'End Sub
'Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
' ' Response.Redirect( "../Userlogon/register_form.aspx ")
' Response.Write( " <script language= 'javascript '> window.parent.iContent.location.href= '../Userlogin/register_form.aspx '; </script> ")
'End Sub
Public Overrides Sub DisplayAlert(ByVal message As String)
RegisterStartupScript(Guid.NewGuid().ToString(), _
" <script language= " "JavaScript " "> " & GetAlertScript(message) & " </script> ")
End Sub
Public Overrides Function GetAlertScript(ByVal message As String) As String
Return "alert( ' " & message.Replace( " ' ", "\ ' ") & " '); "
End Function
Public Overrides Sub newslist_show()
Dim newspath As String
Try
newspath = Server.MapPath( "!newslist.txt ")
Dim objreader As StreamReader
objreader = New StreamReader(newspath, System.Text.Encoding.GetEncoding( "gb2312 "))
Do While objreader.Peek() > = 0
Dim str_line As String
str_line = objreader.ReadLine()
Dim delimStr As String = "# "
Dim delimiter As Char() = delimStr.ToCharArray()
Dim split As String() = Nothing
split = str_line.Split(delimiter, 3)
Response.Write( " <li> ")
Response.Write( " <a href= ' " + split(2) + " ' target= ' " + "iContent ' " + "> ")
Response.Write(split(0) + " </a> " + " <span class= 'date_show '> " + " " + split(1) + " </span> </li> ") '& Chr(13) & Chr(10))
Response.Write(Chr(10))
'Console.WriteLine(objreader.ReadLine())
Loop
objreader.Close()
Catch e As Exception
Console.WriteLine( "The process failed: ", e.ToString())
End Try
End Sub
Private Overloads Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles Button1.Click
Dim currentuser As user
Dim c_name, c_password As String
c_name = txt_username.Text
c_password = txt_userpassword.Text
currentuser = New user
currentuser.name = c_name
currentuser.userpassword = c_password
If (currentuser.Login()) Then
DisplayAlert( "成功登录 ")
Session.Add( "userid ", currentuser.id)
Session.Add( "indentifyid ", currentuser.createindentify(currentuser.id))
' RegisterStartupScript(Guid.NewGuid().ToString(), _
' " <script language= " "JavaScript " "> " & "window.location.href= '../default.aspx ' " & " </script> ")
' Response.Redirect( "../default.aspx ")
' Response.Write( " <script language= 'javascript '> window.location.href= '../default.aspx '; </script> ")
Else
DisplayAlert( "登录失败 ")
txt_username.Text = " "
txt_userpassword.Text = " "
End If
End Sub
Private Overloads Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs)
'Response.Write( " <script language= 'javascript '> window.parent.iContent.location.href= '../Userlogin/register_form.aspx '; </script> ")
End Sub
End Class
End Namespace
[解决办法]
一个网站可以有多个命名空间吗？
如何加以区别不同的命名空间
比如
有a1.aspx中命名空间a11
有a2.aspx中命名空间a22
在a3.aspx中直接import a11就行了？那import a11.xxxx中的xxxx怎么定义？表示什么？
