makenewpage.asp

功能说明： 1

<%
dim str
sub outjs()
str=""
str=str&"var newstr"
str=str&chr(13)&"newstr="""";"
str=str&chr(13)&"newstr=newstr+""<div id=""+""marquees""+""> "";"
str=str&chr(13)&"newstr=newstr+""<table width=""+""100%""+"" border=""+""0""+"" cellspacing=""+""2""+"" cellpadding=""+""0""+"">"";"
set rs=server.CreateObject("adodb.recordset")
sql="select * from newsinfo order by id desc"
rs.open sql,conn,1,1
i=1
while not rs.eof and i<=10								'限制首页公告条数
newtitle=rs("title")
newtitle=replace(newtitle,"""","＂")
newtitle=replace(newtitle,"'","＇")
if len(newtitle)>12 then newtitle=left(rs("title"),11)&"…"
str=str&chr(13)&"newstr=newstr+"" <tr> "";"
str=str&chr(13)&"newstr=newstr+""       <td> · <a href='Article/news"&rs("id")&".htm' style='color:#"&rs("titlecolor")&"' title='"&rs("title")&"－－发布日期："&rs("fbdate")&"'target='_blank'>"&newtitle&"</a></td> "";"
str=str&chr(13)&"newstr=newstr+"" </tr>""; "
i=i+1
rs.movenext
wend
rs.close
set rs=nothing
str=str&chr(13)&"newstr=newstr+""</table> ""; "
str=str&chr(13)&"newstr=newstr+""</div>"";"
str=str&chr(13)&"document.write (newstr);"
str=str&chr(13)&"marqueesHeight=100; "
str=str&chr(13)&"stopscroll=false; "
str=str&chr(13)&"with(marquees){"
str=str&chr(13)&"noWrap=true;"
str=str&chr(13)&"style.width=180;"
str=str&chr(13)&"style.height=marqueesHeight;"
str=str&chr(13)&"style.overflowY=""hidden""; "
str=str&chr(13)&"onmouseover=new Function(""stopscroll=true""); "
str=str&chr(13)&"onmouseout=new Function(""stopscroll=false""); "
str=str&chr(13)&"}"
str=str&chr(13)&"document.write('<div id=""templayer"" style=""position:absolute;z-index:1;visibility:hidden""></div>');"
str=str&chr(13)&"function init(){ "
str=str&chr(13)&"while(templayer.offsetHeight<marqueesHeight){"
str=str&chr(13)&" templayer.innerHTML+=marquees.innerHTML;"
str=str&chr(13)&"} "
str=str&chr(13)&"marquees.innerHTML=templayer.innerHTML+templayer.innerHTML;"
str=str&chr(13)&"setInterval(""scrollUp()"",60);"							'滚动速度
str=str&chr(13)&"}"
str=str&chr(13)&"document.body.onload=init;"
str=str&chr(13)&" preTop=0; "
str=str&chr(13)&" function scrollUp(){ "
str=str&chr(13)&"if(stopscroll==true) return; "
str=str&chr(13)&"preTop=marquees.scrollTop;"
str=str&chr(13)&"marquees.scrollTop+=1; "
str=str&chr(13)&"if(preTop==marquees.scrollTop){"
str=str&chr(13)&" marquees.scrollTop=templayer.offsetHeight-marqueesHeight+1;"
str=str&chr(13)&" }"
str=str&chr(13)&"}"
set openobject=server.createobject("scripting.filesystemobject")
  sMapFileName=server.mappath("../images/tenew.js")
   If openobject.FileExists(sMapFileName) Then
		 openobject.DeleteFile(sMapFileName)
    end if
     set openfile=openobject.createtextfile(server.mappath("../images/tenew.js"),true)
      openfile.write str
     set openfile=nothing
     set openobject=nothing
end sub


//生成新闻页面
sub outnew(id)
str=""
str=str&"<script src=""images/top.js""></script>"
str=str&chr(13)&"<table width=""770"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
str=str&chr(13)&"  <tr>"
str=str&chr(13)&"    <td height=""5""></td>"
str=str&chr(13)&"  </tr>"
str=str&chr(13)&"  <tr>"
str=str&chr(13)&"    <td><script language=""javascript"" src=""showad.asp?id=22""></script></td>"
str=str&chr(13)&"  </tr>"
str=str&chr(13)&"  <tr>"
str=str&chr(13)&"    <td height=""5""></td>"
str=str&chr(13)&"  </tr>"
str=str&chr(13)&"</table>"
str=str&chr(13)&"<table width=""770"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
str=str&chr(13)&"  <tr>"
str=str&chr(13)&"    <td width=""180"" class=""kuancolor"" valign=""top""><table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
str=str&chr(13)&"        <tr>"
str=str&chr(13)&"          <td class=""dancolor"" height=""25"" align=""center"">网吧公告</td>"
str=str&chr(13)&"        </tr>"
str=str&chr(13)&"        <tr>"
str=str&chr(13)&"          <td><script language=""javascript"" src=""images/all.js""></script></td>"
str=str&chr(13)&"        </tr>"
str=str&chr(13)&"      </table></td>"
str=str&chr(13)&"    <td width=""5""></td>"
set rs=server.CreateObject("adodb.recordset")
sql="select * from newsinfo where id="&id
rs.open sql,conn,1,1
str=str&chr(13)&"    <td valign=""top""><table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
str=str&chr(13)&"        <tr> "
str=str&chr(13)&"          <th height=""35"">"&rs("title")&"</th>"
str=str&chr(13)&"        </tr>"
str=str&chr(13)&"		<tr>"
str=str&chr(13)&"          <td align=""center"" class=""px12"">添加时间："&rs("fbdate")&"点击次数<script language=""JavaScript"" type=""text/JavaScript"" src=""admin/hit.asp?id="&id&"""></td>"
str=str&chr(13)&"        </tr>"
str=str&chr(13)&"        <tr> "
str=str&chr(13)&"          <td bgcolor=""#D2E4FC"" height=""1""></td>"
str=str&chr(13)&"        </tr>"
str=str&chr(13)&"        <tr>"
str=str&chr(13)&"          <td height=""400"" valign=""top""><table width=""98%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
str=str&chr(13)&"              <tr>"
str=str&chr(13)&"                 <td>&nbsp;</td>"
str=str&chr(13)&"              </tr>"
str=str&chr(13)&"              <tr>"
str=str&chr(13)&"                <td style=""font-size:12px;line-height:22px"">"&rs("memo")&"</td>"
str=str&chr(13)&"              </tr>"
rs.close
set rs=nothing
str=str&chr(13)&"            </table></td>"
str=str&chr(13)&"        </tr>"
str=str&chr(13)&"		<tr>"
str=str&chr(13)&"          <td bgcolor=""#D2E4FC"" height=""1""></td>"
str=str&chr(13)&"        </tr>"
str=str&chr(13)&"        <tr>"
str=str&chr(13)&"          <td class=""px12"" align=""center"" height=""25"" valign=""bottom""><a href=""javascript:window.close()"">关闭此窗口</a></td>"
str=str&chr(13)&"        </tr>"
str=str&chr(13)&"      </table></td>"
str=str&chr(13)&"  </tr>"
str=str&chr(13)&"</table>"
str=str&chr(13)&"<script src=""images/bottom.js""></script>"
str=str&chr(13)&"<table width=""770"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
str=str&chr(13)&"  <tr>"
str=str&chr(13)&"    <td align=""center""><script src=""count/online.asp""></script></td>"
str=str&chr(13)&"  </tr>"
str=str&chr(13)&"</table>"
set openobject=server.createobject("scripting.filesystemobject")
  sMapFileName=server.mappath("../tenews.htm")
   If openobject.FileExists(sMapFileName) Then
		 openobject.DeleteFile(sMapFileName)
    end if
     set openfile=openobject.createtextfile(server.mappath("../news"&id&".htm"),true)
      openfile.write str
     set openfile=nothing
     set openobject=nothing
end sub




sub outall()
str=""
str=str&"<table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
str=str&"  <tr>"
str=str&"    <td height=""5""></td>"
str=str&"  </tr>"

set rs=server.CreateObject("adodb.recordset")
sql="select * from newsinfo order by id asc"
rs.open sql,conn,1,1
while not rs.eof
newtitle=rs("title")
newtitle=replace(newtitle,"""","＂")
newtitle=replace(newtitle,"'","＇")
if len(newtitle)>12 then newtitle=left(rs("title"),11)&"…"
str=str&"  <tr>"
str=str&"    <td height=""21""> · <a href=""Article/news"&rs("id")&".htm"" style=""color:#"&rs("titlecolor")&""" title="""&rs("title")&"－－发布日期："&rs("fbdate")&""">"&newtitle&"</a></td>"
str=str&"  </tr>"
str=str&"<tr><td height=1 background=""images/h.gif""></td></tr>"
rs.movenext
wend
rs.close
set rs=nothing
str=str&"  </table>"
allstr="document.write('"&str&"')"
set openobject=server.createobject("scripting.filesystemobject")
  sMapFileName=server.mappath("../images/all.js")
   If openobject.FileExists(sMapFileName) Then
		 openobject.DeleteFile(sMapFileName)
    end if
     set openfile=openobject.createtextfile(server.mappath("../images/all.js"),true)
      openfile.write allstr
     set openfile=nothing
     set openobject=nothing
end sub
%>