pro_city.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 _PRO_CITY

    Public AspToAspX_Host_Class_Object As Object

Public i
Public j
Dim _aspx_i,_aspx_j,_aspx_allpc,_aspx_allp,_aspx_pc,_aspx_eachcity,_aspx_tpnum
#Region "..."
    Public Sub AspToAspX_InitIncludeFiles()
    End Sub

    Public Sub AspToAspX_UnloadIncludeFiles()
    End Sub

#End Region
    Public Sub AspToAspX_Page_Init()
    On Error GoTo _AspToAspX_Err
    Response.Write ( "<script language=""javascript""> " & Chr ( 13 ) ) '1
    Response.Write ( "/*省市显示*/ " & Chr ( 13 ) ) '2
    Response.Write ( "var eachcity=new Array(); " & Chr ( 13 ) ) '3
    Response.Write ( "var tcnum=new Array(); " & Chr ( 13 ) ) '4
    allpc = "北京|东城^西城^崇文^宣武^朝阳^丰台^石景山^海淀^门头沟^房山^通州^顺义^昌平^大兴^平谷^怀柔^密云^延庆*上海|黄浦^卢湾^徐汇^长宁^静安^普陀^闸北^虹口^杨浦^闵行^宝山^嘉定^浦东^金山^松江^青浦^南汇^奉贤^崇明*天津|和平^东丽^河东^西青^河西^津南^南开^北辰^河北^武清^红挢^塘沽^汉沽^大港^宁河^静海^宝坻^蓟县*重庆|万州^涪陵^渝中^大渡口^江北^沙坪坝^九龙坡^南岸^北碚^万盛^双挢^渝北^巴南^黔江^长寿^綦江^潼南^铜梁^大足^荣昌^壁山^梁平^城口^丰都^垫江^武隆^忠县^开县^云阳^奉节^巫山^巫溪^石柱^秀山^酉阳^彭水^江津^合川^永川^南川*河北|石家庄^邯郸^邢台^保定^张家口^承德^廊坊^唐山^秦皇岛^沧州^衡水*山西|太原^大同^阳泉^长治^晋城^朔州^吕梁^忻州^晋中^临汾^运城*内蒙古|呼和浩特^包头^乌海^赤峰^呼伦贝尔盟^阿拉善盟^哲里木盟^兴安盟^乌兰察布盟^锡林郭勒盟^巴彦淖尔盟^伊克昭盟*辽宁|沈阳^大连^鞍山^抚顺^本溪^丹东^锦州^营口^阜新^辽阳^盘锦^铁岭^朝阳^葫芦岛*吉林|长春^吉林^四平^辽源^通化^白山^松原^白城^延边*黑龙江|哈尔滨^齐齐哈尔^牡丹江^佳木斯^大庆^绥化^鹤岗^鸡西^黑河^双鸭山^伊春^七台河^大兴安岭*江苏|南京^镇江^苏州^南通^扬州^盐城^徐州^连云港^常州^无锡^宿迁^泰州^淮安*浙江|杭州^宁波^温州^嘉兴^湖州^绍兴^金华^衢州^舟山^台州^丽水*安徽|合肥^芜湖^蚌埠^马鞍山^淮北^铜陵^安庆^黄山^滁州^宿州^池州^淮南^巢湖^阜阳^六安^宣城^亳州*福建|福州^厦门^莆田^三明^泉州^漳州^南平^龙岩^宁德*江西|南昌^景德镇^九江^鹰潭^萍乡^新馀^赣州^吉安^宜春^抚州^上饶*山东|济南^青岛^淄博^枣庄^东营^烟台^潍坊^济宁^泰安^威海^日照^莱芜^临沂^德州^聊城^滨州^菏泽*河南|郑州^开封^洛阳^平顶山^安阳^鹤壁^新乡^焦作^濮阳^许昌^漯河^三门峡^南阳^商丘^信阳^周口^驻马店^济源*湖北|武汉^宜昌^荆州^襄樊^黄石^荆门^黄冈^十堰^恩施^潜江^天门^仙桃^随州^咸宁^孝感^鄂州*湖南|长沙^常德^株洲^湘潭^衡阳^岳阳^邵阳^益阳^娄底^怀化^郴州^永州^湘西^张家界*广东|广州^深圳^珠海^汕头^东莞^中山^佛山^韶关^江门^湛江^茂名^肇庆^惠州^梅州^汕尾^河源^阳江^清远^潮州^揭阳^云浮*广西|南宁^柳州^桂林^梧州^北海^防城港^钦州^贵港^玉林^南宁地区^柳州地区^贺州^百色^河池*海南|海口^三亚*四川|成都^绵阳^德阳^自贡^攀枝花^广元^内江^乐山^南充^宜宾^广安^达川^雅安^眉山^甘孜^凉山^泸州*贵州|贵阳^六盘水^遵义^安顺^铜仁^黔西南^毕节^黔东南^黔南*云南|昆明^大理^曲靖^玉溪^昭通^楚雄^红河^文山^思茅^西双版纳^保山^德宏^丽江^怒江^迪庆^临沧*西藏|拉萨^日喀则^山南^林芝^昌都^阿里^那曲*陕西|西安^宝鸡^咸阳^铜川^渭南^延安^榆林^汉中^安康^商洛*甘肃|兰州^嘉峪关^金昌^白银^天水^酒泉^张掖^武威^定西^陇南^平凉^庆阳^临夏^甘南*宁夏|银川^石嘴山^吴忠^固原*青海|西宁^海东^海南^海北^黄南^玉树^果洛^海西*新疆|乌鲁木齐^石河子^克拉玛依^伊犁^巴音郭勒^昌吉^克孜勒苏柯尔克孜^博尔塔拉^吐鲁番^哈密^喀什^和田^阿克苏*香港|*澳门|*台湾|台北^高雄^台中^台南^屏东^南投^云林^新竹^彰化^苗栗^嘉义^花莲^桃园^宜兰^基隆^台东^金门^马祖^澎湖*香港|特区*澳门|特区*其他|其他" '6
    allp = AspToAspX_Split ( allpc , "*" ) '7
    For i = 0 To Val ( UBound ( allp ) ) '8
        pc = AspToAspX_Split ( allp ( i ) , "|" ) '9
        eachcity = AspToAspX_Split ( pc ( 1 ) , "^" ) '10
        Response.Write ( " " & Chr ( 13 ) ) '11
        Response.Write ( "eachcity[" ) '12
        Response.Write ( i ) '12
        Response.Write ( "]=new Array(); " & Chr ( 13 ) ) '12
        For j = 0 To Val ( UBound ( eachcity ) ) '14
            Response.Write ( " " & Chr ( 13 ) ) '15
            Response.Write ( "eachcity[" ) '16
            Response.Write ( i ) '16
            Response.Write ( "][" ) '16
            Response.Write ( j ) '16
            Response.Write ( "]=new Array(""" ) '16
            Response.Write ( eachcity ( j ) ) '16
            Response.Write ( """,""" ) '16
            Response.Write ( pc ( 0 ) ) '16
            Response.Write ( """); " & Chr ( 13 ) ) '16
        Next '18
        Response.Write ( " " & Chr ( 13 ) ) '19
        Response.Write ( "tcnum[" ) '20
        Response.Write ( i ) '20
        Response.Write ( "]=" ) '20
        Response.Write ( UBound ( eachcity ) ) '20
        Response.Write ( "; " & Chr ( 13 ) ) '21
    Next '23
    tpnum = UBound ( allp ) '24
    Response.Write ( " " & Chr ( 13 ) ) '25
    Response.Write ( "function changecity(provincevalue){ " & Chr ( 13 ) ) '26
    Response.Write ( "document.form1.city.length = 0; " & Chr ( 13 ) ) '27
    Response.Write ( "for (i=0;i<=" ) '28
    Response.Write ( tpnum ) '28
    Response.Write ( "; i++){ " & Chr ( 13 ) ) '28
    Response.Write ( "for (j=0;j<=tcnum[i];j++){ " & Chr ( 13 ) ) '29
    Response.Write ( "if (provincevalue==eachcity[i][j][1]){ " & Chr ( 13 ) ) '30
    Response.Write ( "document.form1.city.options[document.form1.city.length] = new Option(eachcity[i][j][0],eachcity[i][j][0],"""",""""); " & Chr ( 13 ) ) '31
    Response.Write ( "} " & Chr ( 13 ) ) '32
    Response.Write ( "} " & Chr ( 13 ) ) '33
    Response.Write ( "} " & Chr ( 13 ) ) '34
    Response.Write ( "} " & Chr ( 13 ) ) '35
    Response.Write ( "</script>" & Chr ( 13 ) ) '36

        Exit Sub
    _AspToAspX_Err:
        AspToAspX_WriteLog ("pro_city_aspx Page_Init:" & Err.Description)
        Resume Next
        End Sub
#Region "..."
    Public Property allpc
        Get
            On Error Resume Next
            allpc = AspToAspX_Host_Class_Object.allpc
            If Err.Number = 438 Then
                Err.Clear
                allpc = _aspx_allpc
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.allpc = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_allpc = value
            End If
        End Set
    End Property
    Public Property allp
        Get
            On Error Resume Next
            allp = AspToAspX_Host_Class_Object.allp
            If Err.Number = 438 Then
                Err.Clear
                allp = _aspx_allp
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.allp = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_allp = value
            End If
        End Set
    End Property
    Public Property pc
        Get
            On Error Resume Next
            pc = AspToAspX_Host_Class_Object.pc
            If Err.Number = 438 Then
                Err.Clear
                pc = _aspx_pc
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.pc = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_pc = value
            End If
        End Set
    End Property
    Public Property eachcity
        Get
            On Error Resume Next
            eachcity = AspToAspX_Host_Class_Object.eachcity
            If Err.Number = 438 Then
                Err.Clear
                eachcity = _aspx_eachcity
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.eachcity = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_eachcity = value
            End If
        End Set
    End Property
    Public Property tpnum
        Get
            On Error Resume Next
            tpnum = AspToAspX_Host_Class_Object.tpnum
            If Err.Number = 438 Then
                Err.Clear
                tpnum = _aspx_tpnum
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.tpnum = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_tpnum = value
            End If
        End Set
    End Property
#End Region
End Class