网页范例为: http://cye.com.cn/2009/zhexue/
只用更换内部文字就可以使用的那种代码。谢谢!
网页范例为: http://cye.com.cn/2009/zhexue/
只用更换内部文字就可以使用的那种代码。谢谢!
你看到浏览器的菜单“文件”--“保存”------“网页,全部”
下载下来后,有txt方式打开,修改文章即可
把网页保存之后 要全部下下来 包括css 图片 然后 该修改的修改一下 就可以仿一个站了
浏览器菜单中:文件——另存为——保存
下载下来后,编辑文字,就可以了
<HTML><HEAD> <meta http-equiv="Content-Language" content="en-us"> <TITLE></TITLE> <META content="text/html; charset=gb2312" http-equiv=Content-Type> <STYLE type=text/css> TD { FONT-SIZE: 14px; LINE-HEIGHT: 28px } </STYLE>
</HEAD> <BODY > <SCRIPT language=VBScript> dim w,t,p,mm,c,mr,dy,tmp,vs:vs=5:dy=1:p=1:mr="<BR><BR><BR>":c="<font color=white><B>|"&mr:Set w = document.body
sub tp m=mid(t,p,1):if m="" then c=mr if m="`" then m="":mm=mid(mm,1,len(mm)-1) if m="<" then av=instr(mid(t,p),">"):m=mid(t,p,av):p=p+av-1 if m="&" then av=instr(mid(t,p),";"):m=mid(t,p,av):p=p+av-1 tmp=100:if m="." then tmp=400 else if m="," then tmp=200 else if m=" " then tmp=200 if w.scrollHeight-w.scrollTop>w.offsetHeight then w.scrollTop=w.scrollTop+int(dy):dy=dy+dy/vs else dy=1 mm=mm&m:w1.innerHTML=mm&c:p=p+1:if p<=len(t)+1 then SetTimeOut "tp",16+tmp else w.scroll="yes" end sub
sub window_onload() w.scroll="yes" w.bgcolor="#A8A8A8" w.style.cursor="crosshair" t=w0.innerHTML:tp end sub </SCRIPT>
<DIV id=w0 style="DISPLAY: none"> <TABLE align=center border=0 width="90%"> <TBODY> <TR> <TD> <P><span lang="zh-cn">在这里这里输入你的文字</span></P> </TD> </TR> </TBODY> </TABLE> </DIV> <DIV id=w1></DIV> </BODY></HTML>