【文章內(nèi)容簡介】 tdinput name=paytype type=text size=30 maxlength=30 / /td /tr tr bgcolor=ffffff td width=40% align=right所屬類型：/div/td tdselect name=io option value=1收入/option option value=0支出/option /select　font color=red 請選擇/font/td /tr tr bgcolor=ffffff td width=40% align=rightamp。nbsp。/td tdinput type=submit name=add value= 添 加 //td /tr /form/table/body/html管理類型模塊：!include file=!include file=htmlheadtitle/titlemeta equiv=ContentType content=text/html。 charset=gb2312 /LINK href= type=text/css rel=stylesheet //head%idd=(id)If (type)= 修 改 Thenpaytype = Trim((paytype))Set rs=(Select PayType From [type] Where user=amp。iddamp。 and PayType=39。amp。paytypeamp。39。)If Not ( or ) Then scriptalert(39。該類型已存在39。)。=39。javascript:(1)39。/SCRIPTelseSet rs = ()Sql = Select * From [type] Where user=amp。iddamp。 and id=amp。Request(id)amp。 Sql,Conn,1,3rs(PayType) = paytypeEnd if scriptalert(39。操作成功39。)。=39。39。/SCRIPTend if%bodyscript language=JavaScript!function chk(theForm){if ( == ){ alert(請輸入費用類型!)。 ()。 return (false)。 }}///scripttable width=100%trtd height=25/td/tr/tabletable width=100% border=0 align=center cellpadding=5 cellspacing=1 bgcolor=eeeeee%Set rs = ()Sql = Select * From [type] Where id=amp。Request(id)amp。 Sql,Conn,1,1% form action= method=post name=form1 onSubmit=return chk(this) tr bgcolor=ffffff td width=40% align=right費用類型：/td tdinput name=paytype type=text size=30 maxlength=30 value=%=rs(PayType)% / /td /tr tr bgcolor=ffffff td width=40% align=right添加日期：/div/td td%=rs(date)%/td /tr tr bgcolor=ffffff td width=40% align=right所屬類型：/div/td td% If rs(InOut)=0 Then font color=red支出/font Else 收入 End if %/td /tr tr bgcolor=ffffff td width=40% align=rightamp。nbsp。/td tdinput type=submit name=type value= 修 改 //td /tr /form%%/table/body/html添加收入、添加支出模塊：!include file=!include file=%idd=(id)InOut = Request(add)If (add)= 添 加 Thenadddate = (adddate)selpayer = (selpayer)seltype = (seltype)moneys = Trim((moneys))pjna = Trim((pjna))if seltype= then scriptalert(39。請先添加相關(guān)費用類型!39。)。location=39。39。/SCRIPTend ifSet rs = ()Sql = Select * From [list] Where (ID is null) Sql,Conn,1,3rs(InOut) = InOutrs(PayTypeID) = seltypers(Moneys) = moneysrs(Project) = pjnars(addTime) = adddaters(user) = idd scriptalert(39。操作成功39。)。=39。39。/SCRIPTEnd if%htmlheadtitle/titlemeta equiv=ContentType content=text/html。 charset=gb2312 /LINK href= type=text/css rel=stylesheet //headbodyscript language=JavaScript src=/SCRIPTscript language=javascriptfunction CheckForm() { if (==) { alert(請選擇日期)。 return false。 } if (==) { alert(金額不能為空)。 ()。 return false。 } if (==) { alert(項目名稱不能為空)。 ()。 return false。 }}/scripttable width=100%trtd height=25/td/tr/tabletable width=100% border=0 align=center cellpadding=4 cellspacing=1 bgcolor=eeeeee form action= method=post name=form1 onSubmit=return CheckForm() tr bgcolor=ffffff td height=25 colspan=5 align=center bgcolor=F9F9F9b%If InOut=1 Then font color=blue添 加 收 入/fontElse font color=red添 加 支 出/fontEnd if% /b/td /tr tr bgcolor=ffffff td width=35% align=right日期：/div/td td colspan=4 input name=adddate type=text size=22 maxlength=22 readonly / input onClick=popUpCalendar(this, , 39。yyyymmdd39。) type=button value=選擇日期 //td /tr tr bgcolor=ffffff td align=right費用類型：/td td colspan=4select name=seltype%set rs=()sql=select * from [type] Where user=amp。iddamp。 and InOut=amp。InOutamp。 sql,conn,1,1do while not sel=selected option amp。 sel amp。 value=39。+CStr(rs(ID))+39。 name=seltype+rs(PayType)+/option+chr(13)+chr(10)loop% /select　font color=red 請選擇/font/td /tr tr bgcolor=ffffff td align=right金額：/td td colspan=4 input name=moneys type=text size=20 maxlength=10 / （輸入數(shù)字整數(shù) 如：250）/td /tr tr bgcolor=ffffff td div align=right項目名稱：/div/td td colspan=4 input name=pjna type=text size=50 maxlength=50 //td /tr tr bgcolor=ffffff td colspan=5 align=center input type=submit name=add value= 添 加 //td /tr /form/table/body/html收支明細統(tǒng)計模塊：!include file=!include file=%idd=Request(id)If Request(del) = del ThenSet rs = (Delete * From [list] where user=amp。iddamp。 and ID =amp。Request(id)) scriptalert(39。操作成功39。)。=39。39。/SCRIPTEnd if%htmlheadtitle/titlemeta equiv=ContentType content=text/html。 charset=gb2312 /LINK href= type=text/css rel=stylesheet //headbodyscript type=text/JavaScriptfunction delpay(){ if(confirm(確定刪除？)) return true。 else return false。 }/scripttable width=100% border=0 align=center cellpadding=4 cellspacing=1 bgcolor=eeeeee tr height=22 valign=middle align=center td height=25 colspan=6 bgcolor=F9F9F9用戶: b%=Request(user)%/b amp。nbsp。amp。nbsp。amp。