bmform.aspx.vb

本程序修改自飞天BBS 7.0 将原来的ASP语法迁移为ASP.NET并封装成DLL ASP.NET相对ASP有更快的执行效率以及更高的并发访问量 基于ASP.NET的DLL可以运行在支持ASP

' ***************************************************
' *        本程序由AspToAspX风火轮0.99转换生成      *
' *        http://Www.AspToAspX.Cn                  *
' *        Q Q :  139227536                         *
' *        QQ群:  17152722                          *
' *        MSN :  [e-mail]        *
' *        EMail  [e-mail]              *
' ***************************************************
Imports Microsoft.VisualBasic
Imports System.Web
Imports System.Math
Imports System.Web.SessionState


Public Class _BMFORM
    Inherits System.Web.UI.Page
    Implements IHttpHandler, AspToAspX_Interface

    Public AspToAspX_Host_Class_Object As Object

Public titleid
Public bmstr
#Region "..."
    Public Sub AspToAspX_InitIncludeFiles()
    End Sub

    Public Sub AspToAspX_UnloadIncludeFiles()
    End Sub

#End Region
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
        AspToAspXGlobal.Application = Application
        AspToAspXGlobal.Server = Server
        AspToAspXGlobal.Response = Response
        AspToAspXGlobal.Request = Request
        AspToAspXGlobal.Session = Session
        AspToAspX_Host_Class_Object = Me
        AspToAspX_InitIncludeFiles()
        AspToAspX_Page_Init()
        End Sub
    Public Sub AspToAspX_Page_Init()
    On Error GoTo _AspToAspX_Err
    titleid = Request ( "titleid" ) '3
    bmstr = "<table width=100% border=0 bgcolor=#ffffee>" '4
    bmstr = bmstr + "<form action=../bm.aspx?titleid=" & titleid & " method=post name=form2 >" '5
    bmstr = bmstr + "<tr>" '6
    bmstr = bmstr + "<td height=25 colspan=3 align=center class=td001> <strong>报名表</strong></td>" '7
    bmstr = bmstr + "</tr>" '8
    bmstr = bmstr + "<tr>" '9
    bmstr = bmstr + "<td width=24% align=right>姓名： </td>" '10
    bmstr = bmstr + "<td width=24% ><input name='username' type=text id=username size='16' maxlength=50></td>" '11
    bmstr = bmstr + "<td width=52% >电话：" '12
    bmstr = bmstr + "<input name=tel type=text id=tel size='15' maxlength=20>" '13
    bmstr = bmstr + "</td>" '14
    bmstr = bmstr + "</tr>" '15
    bmstr = bmstr + "<tr>" '16
    bmstr = bmstr + "<td align=right>年龄：</td>" '17
    bmstr = bmstr + "<td><input name=age type=text id=Age size='16' maxlength=20  min=1 max=100>" '18
    bmstr = bmstr + "</td>" '19
    bmstr = bmstr + "<td>性别：" '20
    bmstr = bmstr + "<select name=sex style=width:100>" '21
    bmstr = bmstr + "<option value=男 selected=selected>男</option>" '22
    bmstr = bmstr + "<option value=女>女</option>" '23
    bmstr = bmstr + "</select>" '24
    bmstr = bmstr + "</td>" '25
    bmstr = bmstr + "</tr>" '26
    bmstr = bmstr + "<tr>" '27
    bmstr = bmstr + "<td align=right>职业：</td>" '28
    bmstr = bmstr + "<td><input name=Job type=text id=Job size='16' maxlength=20></td>" '29
    bmstr = bmstr + "<td>学历：" '30
    bmstr = bmstr + "<select name=edu id=edu style=width:100>" '31
    bmstr = bmstr + "<option value=博士以上>博士以上</option>" '32
    bmstr = bmstr + "<option value=博士>博士</option>" '33
    bmstr = bmstr + "<option value=研究生>研究生</option>" '34
    bmstr = bmstr + "<option value=本科>本科</option>" '35
    bmstr = bmstr + "<option value=大专 selected=selected>大专</option>" '36
    bmstr = bmstr + "<option value=大专以下>大专以下</option></select></td>" '37
    bmstr = bmstr + "</tr>" '38
    bmstr = bmstr + "<tr>" '39
    bmstr = bmstr + "<td width=24% align=right>来自： </td>" '40
    bmstr = bmstr + "<td width=24% ><input name='address' type=text id=address size='16' maxlength=50></td>" '41
    bmstr = bmstr + "<td width=52% >QQ号：" '42
    bmstr = bmstr + "<input name=qq type=text id=qq size='15' maxlength=20>" '43
    bmstr = bmstr + "</td>" '44
    bmstr = bmstr + "</tr>" '45
    bmstr = bmstr + "<tr>" '46
    bmstr = bmstr + "<td align=right>爱好特长:<br>意见建议:</td>" '47
    bmstr = bmstr + "<td colspan=2><textarea name=note cols=43 rows=8 id=note></textarea></td>" '48
    bmstr = bmstr + "</tr>" '49
    bmstr = bmstr + "<tr>" '50
    bmstr = bmstr + "<td height=35></td>" '51
    bmstr = bmstr + "<td colspan=2><input type=submit value='我要报名参加' name='bm'>&nbsp;&nbsp;" '52
    bmstr = bmstr + "<input type=button value='看看有谁报名' name='lk' language='javascript' onClick=window.open('../seeuser.aspx?infotype=0&titleid=" & titleid & "','whojoin','width=450,height=500,toolbar=yes,scrollbars=yes')></td>" '53
    bmstr = bmstr + "</tr>" '54
    bmstr = bmstr + "</form>" '55
    bmstr = bmstr + "</table>" '56
    Response.Write ( "document.write (""" & bmstr & """);" ) '57
    Response.Write ( vbCrLf )

        AspToAspX_UnloadIncludeFiles()
        Exit Sub
    _AspToAspX_Err:
        AspToAspX_WriteLog ("bmform_aspx Page_Init:" & Err.Description)
        Resume Next
        End Sub
#Region "..."
#End Region
End Class