Use PHP + Java to implement an automatic rolling window for news

Source: Internet
Author: User

Show. php Source code :
<?
If ($ action = "CP "){
Echo "<Div align = center>
<P> rolling menu data input </P>
<Form method = post action = show. php? Action = Edit>
<P> text 1:
<Input type = text name = T1 maxlength = 30>
Link 1:
<Input type = text name = L1 maxlength = 50>
</P>
<P> text 2:
<Input type = text name = t2 maxlength = 30>
Link 2:
<Input type = text name = L2 maxlength = 50>
</P>
<P> Text 3:
<Input type = text name = T3 maxlength = 30>
Link 3:
<Input type = text name = L3 maxlength = 50>
</P>
<P> text 4:
<Input type = text name = T4 maxlength = 30>
Link 4:
<Input type = text name = L4 maxlength = 50>
</P>
<P> text 5:
<Input type = text name = T5 maxlength = 30>
Link 5:
<Input type = text name = L5 maxlength = 50>
</P>
<P>
<Input type = submit name = submit value = submit>
<Input type = submit name = submit2 value = rewrite>
</P>
</Form>
</Div> "; exit ;}
If ($ action = "edit "){
$ Wname = "data.txt"; # data storage file, attribute 666
$ Writeurl = "<a href = $ L1> $ t1 <\/A> <br> <a href = $ L2> $ t2 <\/A> <br> <br> <a href = $ L3> $ T3 <\/A> <br> <a href = $ L4> $ t4 <\/A> <br> <br> <a href = $ L5> $ T5 <\/A> <br> ";
$ Fp = fopen ($ wname, "W ");
$ WW = fputs ($ FP, $ writeurl );
If ($ ww) {ECHO file written successfully;} else {echo write failed ;}
Exit ;}
$ Wname = "PHP-bin/data.txt"; # because it is called on the page, you must enter the page and Program Relative or absolute path!
$ Fa = fopen ($ wname, "R + ");
$ Wwww = fread ($ FA, filesize ($ wname ));
Echo "<Table border = \" 0 \ "bgcolor = \" # a8eb9b \ "cellpadding = \" 1 \ "cellspacing = \" 0 \ "width = 129> <tr> <TD> <Table bgcolor = \ "# ffffff \" cellpadding = \ "5 \" cellspacing = \ "0 \" width = 129 border = \ "0 \" valign = \ "Top \"> <tr> <TD> <script language = \ "javascript1.2 \">
VaR marqueewidth = 118
VaR marqueeheights = 104
VaR speed = 1
VaR marqueecontents = '$ wwww'
If (document. All)
Document. write ('<marquee ction = \ "up \" scrollamount =' + speed + 'style = \ "width:' + marqueewidth + '; height: '+ marqueeheight +' \ "> '+ marqueecontents +' </marquee> ')
Function regenerate (){
Window. Location. Reload ()
}
Function regenerate2 (){
If (document. layers ){
SetTimeout (\ "window. onresize = regenerate \", 450)
Intializemarquee ()
}
}
Function intializemarquee (){
Document.cmarquee01.document.cmarquee02.doc ument. Write (marqueecontents)
Document.cmarquee01.document.cmarquee02.doc ument. Close ()
Thelength316document.cmarquee01.document.cmarquee02.doc ument. Height
Scrollit ()
}
Function scrollit (){
If (document.cmarquee01.doc ument. cmarquee02.top> = thelength * (-1 )){
Document.cmarquee01.doc ument. cmarquee02.top-= speed
SetTimeout (\ "scroltimeout () \", 100)
}
Else {
Document.cmarquee01.doc ument. cmarquee02.top = marqueeheight
Scrollit ()
}
}
Window. onload = regenerate2
</SCRIPT> <ilayer width = & {marqueewidth}; Height = & {marqueeheight }; name = \ "cmarquee01 \"> <layer name = \ "cmarquee02 \" width = & {marqueewidth}; Height = & {marqueeheight};> </layer> </ilayer> </tr> </table> </TD> </tr> </table> ";
?>

Create a blank file named data.txt in the same level directory of show. php before using include on the page!
Show. php? Action = CP and can be set. Of course, because there is no password protection, you can change CP to another text!

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.