yzxx.aspx

ASP.NET开发实战详解

<%@ Page Language="VB" Debug="true" %>
<%@ import Namespace="system.data" %>
<%@ import Namespace="system.data.sqlclient" %>
<script runat="server">

    dim Cnn as sqlconnection
    dim cmd as sqlcommand
    Sub Page_Load(Sender As Object, E As EventArgs)
      dim Sql as string
      dim dataR as sqldatareader
      If Not IsPostBack Then
         If Session("curruser") = "" Then
            Response.Redirect("../index.aspx")
         End If
      end if
    End Sub
    
    Sub save_click(Sender As Object, E As EventArgs)
      dim sql as string
      dim sql1 as string
      dim datar as sqldatareader
      dim dycode as string
      dim dystr as string=dyname.text
      dim namestr as string=name.text
      dim birdatestr as string=birdate.text
      dim sexstr as string=sex.selecteditem.value
      dim khhstr as string=khh.text
      dim gjstr as string=gj.text
      dim yhzhstr as string=yhzh.text
      dim gfhtstr as string=gfht.text
      dim fczhstr as string=fczh.text
      dim slrqstr as string=slrq.text
      dim zjhmstr as string=zjhm.text
      dim zjlxstr as string=zjlx.selecteditem.value
      dim gzdwstr as string=gzdw.text
      dim zwstr as string=zw.text
      dim szpcsstr as string=szpcs.text
      dim mzstr as string=mz.text
      dim lxdhstr as string=lxdh.text
      dim jgstr as string=jg.text
      dim lxdzstr as string=lxdz.text
      dim zipstr as string=zip.text
      dim jjlxrxmstr as string=jjlxrxm.text
      dim jjlxrdhstr as string=jjlxrdh.text
      dim jjlxrdzstr as string=jjlxrdz.text
      dim memostr as string=memo.text
      if trim(dystr)="" then
         page.registerstartupscript("",getalertinfo("请输入单元名称！"))
         exit sub
      end if
      if trim(namestr)="" then
         page.registerstartupscript("",getalertinfo("业主姓名不可为空！"))
         exit sub
      end if
      cnn=new sqlconnection(configurationsettings.appsettings("connection"))
      sql="select * from fc_cell where name='" & trim(dystr) & "'"
      cmd=new sqlcommand(sql,cnn)
      cnn.open
      datar=cmd.executereader()
      if datar.read() then
         dycode=datar("code")
      else
         page.registerstartupscript("",getalertinfo("该单元不存在，数据无法保存！"))
         exit sub
      end if
      datar.close()
      sql="select * from zh_owner where cellcode='" & trim(dycode) & "'"
      cmd=new sqlcommand(sql,cnn)
      datar=cmd.executereader()
      if datar.read() then
          sql="update zh_owner set name='" & namestr & "',birdate='" & birdatestr & "',sex='" & sexstr & "',khh='" & khhstr & "',gj='" & gjstr & "',yhzh='" & yhzhstr & "',gfht='" & gfhtstr & "',fczh='" & fczhstr & "',slrq='" & slrqstr & "',zjhm='" & zjhmstr & "',zjlx='" & zjlxstr & "',gzdw='" & gzdwstr & "',zw='" & zwstr & "',szpcs='" & szpcsstr & "',mz='" & mzstr & "',lxdh='" & lxdhstr & "',jg='" & jgstr & "',lxdz='" & lxdzstr & "',zip='" & zipstr & "',jjlxrxm='" & jjlxrxmstr & "',jjlxrdh='" & jjlxrdhstr & "',jjlxrdz='" & jjlxrdzstr & "',memo='" & memostr & "' where cellcode='" & trim(dycode) & "'"
      else
          sql="insert into zh_owner(cellcode,name,birdate,sex,khh,gj,yhzh,gfht,fczh,slrq,zjhm,zjlx,gzdw,zw,szpcs,mz,lxdh,jg,lxdz,zip,jjlxrxm,jjlxrdh,jjlxrdz,memo) values('" & dycode & "','" & namestr & "','" & birdatestr & "','" & sexstr & "','" & khhstr & "','" & gjstr & "','" & yhzhstr & "','" & gfhtstr & "','" & fczhstr & "','" & slrqstr & "','" & zjhmstr & "','" & zjlxstr & "','" & gzdwstr & "','" & zwstr & "','" & szpcsstr & "','" & mzstr & "','" & lxdhstr & "','" & jgstr & "','" & lxdzstr & "','" & zipstr & "','" & jjlxrxmstr & "','" & jjlxrdhstr & "','" & jjlxrdzstr & "','" & memostr & "')"
      end if
      datar.close()
      cmd=new sqlcommand(sql,cnn)
      cmd.executenonquery
      if checkbox1.checked then
         sql="select * from zh_master where cellcode='" & trim(dycode) & "'"
         cmd=new sqlcommand(sql,cnn)
         datar=cmd.executereader()
         if datar.read() then
            sql="update zh_master set name='" & namestr & "',state='自住',birdate='" & birdatestr & "',sex='" & sexstr & "',khh='" & khhstr & "',yhzh='" & yhzhstr & "',gzdw='" & gzdwstr & "',zw='" & zwstr & "',szpcs='" & szpcsstr & "',jg='" & jgstr & "',zjhm='" & zjhmstr & "',zjlx='" & zjlxstr & "',lxdh='" & lxdhstr & "',lxdz='" & lxdzstr & "',zip='" & zipstr & "' where cellcode='" & dycode & "'"
         else
            sql="insert into zh_master(cellcode,state,name,birdate,sex,khh,yhzh,gzdw,zw,szpcs,jg,zjhm,zjlx,lxdh,lxdz,zip) values('" & dycode & "','自住','" & namestr & "','" & birdatestr & "','" & sexstr & "','" & khhstr & "','" & yhzhstr & "','" & gzdwstr & "','" & zwstr & "','" & szpcsstr & "','" & jgstr & "','" & zjhmstr & "','" & zjlxstr & "','" & lxdhstr & "','" & lxdzstr & "','" & zipstr & "')"
         end if
         datar.close()
         cmd=new sqlcommand(sql,cnn)
         cmd.executenonquery
      end if 
      call cleardata()
      page.registerstartupscript("",getalertinfo("数据保存成功！"))
    End Sub
    
    Function GetAlertInfo(byval str1 as string) as String
        dim Str2 as String
        str2="<script language='javascript'>alert('" & str1 & "')<"
        str2+="/"
        str2+="script>"
        return trim(str2)
    End Function

    sub cleardata()
      name.text=""
      birdate.text=""
      khh.text=""
      gj.text=""
      yhzh.text=""
      gfht.text=""
      fczh.text=""
      slrq.text=""
      zjhm.text=""
      gzdw.text=""
      zw.text=""
      szpcs.text=""
      mz.text=""
      lxdh.text=""
      jg.text=""
      lxdz.text=""
      zip.text=""
      jjlxrxm.text=""
      jjlxrdh.text=""
      jjlxrdz.text=""
      memo.text=""
    end sub

    Sub sure_click(Sender As Object, E As EventArgs)
      dim sql as string
      dim datar as sqldatareader
      dim dystr as string=dyname.text
      if trim(dystr)="" then
 	 page.registerstartupscript("",getalertinfo("请输入单元名称！"))
      else
         cnn=new sqlconnection(configurationsettings.appsettings("connection"))
         sql="select code from fc_cell where name='" & trim(dystr) & "'"
         cmd=new sqlcommand(sql,cnn)
         cnn.open
         datar=cmd.executereader()
         if datar.read() then
            datar.close()
            call cleardata() 
            sql="select * from zh_owner where cellcode in (select code from fc_cell where name='" & trim(dystr) & "')"
            cmd=new sqlcommand(sql,cnn)
'            cnn.open
            datar=cmd.executereader()
            if datar.read() then
               dim sexstr as string=datar("sex")
               dim zjlxstr as string=datar("zjlx")
               name.text=Iif(IsDbNull(datar("name")),"",datar("name"))
               birdate.text=Iif(IsDbNull(datar("birdate")),"",datar("birdate"))
               khh.text=Iif(IsDbNull(datar("khh")),"",datar("khh"))
               gj.text=Iif(IsDbNull(datar("gj")),"",datar("gj"))
               yhzh.text=Iif(IsDbNull(datar("yhzh")),"",datar("yhzh"))
               gfht.text=Iif(IsDbNull(datar("gfht")),"",datar("gfht"))
               fczh.text=Iif(IsDbNull(datar("fczh")),"",datar("fczh"))
               slrq.text=Iif(IsDbNull(datar("slrq")),"",datar("slrq"))
               zjhm.text=Iif(IsDbNull(datar("zjhm")),"",datar("zjhm"))
               gzdw.text=Iif(IsDbNull(datar("gzdw")),"",datar("gzdw"))
               zw.text=Iif(IsDbNull(datar("zw")),"",datar("zw"))
               szpcs.text=Iif(IsDbNull(datar("szpcs")),"",datar("szpcs"))
               mz.text=Iif(IsDbNull(datar("mz")),"",datar("mz"))
               lxdh.text=Iif(IsDbNull(datar("lxdh")),"",datar("lxdh"))
               jg.text=Iif(IsDbNull(datar("jg")),"",datar("jg"))
               lxdz.text=Iif(IsDbNull(datar("lxdz")),"",datar("lxdz"))
               zip.text=Iif(IsDbNull(datar("zip")),"",datar("zip"))
               jjlxrxm.text=Iif(IsDbNull(datar("jjlxrxm")),"",datar("jjlxrxm"))
               jjlxrdh.text=Iif(IsDbNull(datar("jjlxrdh")),"",datar("jjlxrdh"))
               jjlxrdz.text=Iif(IsDbNull(datar("jjlxrdz")),"",datar("jjlxrdz"))
               memo.text=Iif(IsDbNull(datar("memo")),"",datar("memo"))
               select case sexstr
	       case "男"
		 sex.selectedindex=0	
	       case "女"
		 sex.selectedindex=1