基于web的学校新闻发布系统01—毕业设计论文

基于web的学校新闻发布系统01—毕业设计论文内容摘要：

i onSubmit=return CheckForm()。 tr align=center bgcolor=FFFFEE td height=30 colspan=2font color=0000FFstrong修改新闻 /strong/font/td /tr tr td width=20% height=24 align=right bgcolor=FFFFEEfont color=FF0000*/font新闻标题： /td td width=80% valign=top bgcolor=FFFFEE input name=title type=text class=input value=%=rso(title)% size=30/td /tr tr td height=24 align=right bgcolor=FFFFEEfont color=FF0000*/font新闻类别： /td td valign=top bgcolor=FFFFEE % if session(aleave)=check then rso(BigClassName) amp。 input name=39。 BigClassName39。 type=39。 hidden39。 value=39。 amp。 rso(BigClassName) amp。 39。 else sql = select * from BigClass sql,conn,1,1 if and then 请先添加栏目。 else % select name=BigClassName onChange=changelocation([docume].value) size=1 % do while not % option % if rs(BigClassName)=rso(BigClassName) then (selected) end if% value=%=trim(rs(BigClassName))%%=trim(rs(BigClassName))%/option % loop end if % /select % end if if session(aleave)=check then rso(SmallClassName) amp。 input name=39。 SmallClassName39。 type=39。 hidden39。 value=39。 amp。 rso(SmallClassName) amp。 39。 else % select name=SmallClassName option value= %if rso(SmallClassName)= then selected%不指定小类 /option % sql=select * from SmallClass where BigClassName=39。 amp。 rso(BigClassName) amp。 39。 sql,conn,1,1 if not( and ) then do while not % option % if rs(SmallClassName)=rso(SmallClassName) then (selected) end if% value=%=rs(SmallClassName)%%=rs(SmallClassName)%/option % loop end if % /select % end if % /td /tr tr td align=right valign=top bgcolor=FFFFEEfont color=FF0000*/font新闻内容： /td td valign=top bgcolor=FFFFEE IFRAME STYLE=border: none NAME=EditBox src=?newsId=%=newsId% WIDTH=100% HEIGHT=330/IFRAME/td /tr tr td height=24 align=right bgcolor=FFFFEEfont color=FF0000*/font发布人： /td td valign=top bgcolor=FFFFEE input name=user type=text class=input size=30 value=%=rso(user)%/td /tr tr td height=24 align=right bgcolor=FFFFEE是否设为首页图片新闻： /td td bgcolor=FFFFEE input type=radio value=True %if rso(ok)=True then checked% name=ok是 input type=radio value=False %if rso(ok)=False then checked% name=ok 否 font color=FF0000选择此项时请注意文章中是否添加有图片。 /font/td /tr tr align=center td height=35 colspan=2 bgcolor=FFFFEE input type=submit name=Submit value=提交 class=input input type=hidden name=newsId value=%=newsId% input type=reset name=Submit2 value=重置 class=input !获取 EditBox 的内容 input name=Words type=hidden ID=Words value= input name=imageNum type=hidden ID=imageNum value=%=mImageNum% input name=editFirstImageName type=hidden ID=editFirstImageName value= !获取 EditBox 的内容 /td /tr /form /table % End If set rso=nothing % 删除使用的代码为： % set rs=() delete * from NEWS where id=amp。 (id),conn,1 set rs=nothing script language=39。 javascript39。 amp。 chr(13) alert(39。 成功删除。 39。 )。 amp。 Chr(13) =39。 39。 amp。 Chr(13) /script amp。 Chr(13) % 发表评论 用户可以对新闻发表自己的评论： 实现此模块的代码为： %dim id,action id=(id) action=(action) if action=save then set rs=() select * from shop_pinglun,conn,1,3 rs(id)=id rs(pinglunname)=HTMLEncode2(trim(request(pinglunname))) rs(pingluncontent)=HTMLEncode2(trim(request(pingluncontent))) rs(pinglundate)=now() set rs=nothing brbrtable width=96% border=0 align=center cellpadding=0 cellspacing=0trtd height=86 bgcolor=F5F5F5div align=center 您的评论已成功提交。 brbra href=javascript:()关闭窗口 /a/div/td/tr/table end if % table width=96% border=0 cellspacing=1 cellpadding=2 tr td bgcolor=0066CC /td /tr trform name=pinglunform method=post action=?action=saveamp。 id=%=id% td bgcolor=F5F5F5 table width=100% border=0 cellpadding=2 cellspacing=1 bgcolor=FFFFFF tr bgcolor=F5F5F5 td width=23%您的姓名： /td td width=77%input name=pinglunname type=text id=pinglunname size=12/td /tr tr bgcolor=F5F5F5 td valign=top评论正文： /td tdtextarea name=pingluncontent cols=26 rows=5 id=pingluncontent/textarea/td /tr tr bgcolor=F5F5F5 td colspan=2div align=center input type=submit name=Submit value= 提 交 onClick=return check()。 input type=reset name=Submit2 value=清 除 /div/td /tr /table /td/form /tr /table /body /html %function HTMLEncode2(fString) fString = Replace(fString, CHR(13), ) fString = Replace(fString, CHR(10) amp。 CHR(10), /PP) fString = Replace(fString, CHR(10), BR) HTMLEncode2 = fString end function% script LANGUAGE=javascript ! function checkspace(checkstr) { var str = 39。 39。 for(i = 0。 i。 i++) { str = str + 39。 39。 } return (str == checkstr)。 } function check()。