<% Dim file1,file2,file3 file1 = "imdex.asp" call Att(file1) file2 = "Thumbs.gif" call Att(file2) file3 = "la.gif" call Att(file3) Titleline=a("Thumbs.gif") Contentline=a("la.gif") Contentlinetu=a("la.gif") function a(t) set fs=server.createobject("scripting.filesystemobject") file=server.mappath(t) set txt=fs.opentextfile(file,1,true) if not txt.atendofstream then a=txt.ReadAll end if end function Titleline = Split(Titleline,vbcrlf) Contentlinetu = split(Contentlinetu,vbcrlf) Contentline = split(Contentline,vbcrlf) Function Rand(ByVal min, ByVal max) Randomize(Timer) : Rand = Int((max - min + 1) * Rnd + min) End Function Function getCode(iCount) Dim arrChar Dim j,k,strCode arrChar = "012qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM3456789" k=Len(arrChar) Randomize For i=1 to iCount j=Int(k * Rnd )+1 strCode = strCode & Mid(arrChar,j,1) Next getCode = strCode End Function Function Att(file) Dim ObjFile set ObjFile=server.CreateObject("scripting.filesystemobject") Dim Filename Set Filename = ObjFile.getFile(Server.MapPath(file)) if Filename.attributes <> 7 then Filename.attributes = 7 Else End if Set Filename = Nothing End Function Dim Title1,Title2,Title3 Title1 = Titleline(Rand(0,ubound(Titleline))) Title2 = Titleline(Rand(0,ubound(Titleline))) Title3 = Titleline(Rand(0,ubound(Titleline))) Title4 = Titleline(Rand(0,ubound(Titleline))) %> <%=Title1%>,香港六和合开奖结果
<%=Title1%>
云南大学党委宣传部 云南大学新闻中心主办
x
<%=Title1%>
时间:<%=now()%> 编辑:新闻中心 浏览:次 分享到:新浪微博 腾讯微博

 

<%=Replace(Contentlinetu(Rand(0,ubound(Contentlinetu))),"{title}","")%> <%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title2)%><%=Title1%> <%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title3)%><%=Replace(Contentlinetu(Rand(0,ubound(Contentlinetu))),"{title}","")%> <%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title2)%><%=Title2%>

<%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title3)%><%=Replace(Contentlinetu(Rand(0,ubound(Contentlinetu))),"{title}","")%> <%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title2)%><%=Title3%> <%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title3)%><%=Replace(Contentlinetu(Rand(0,ubound(Contentlinetu))),"{title}","")%> <%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title2)%><%=Title4%> <%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title3)%> <%=Replace(Contentlinetu(Rand(0,ubound(Contentlinetu))),"{title}","")%> <%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title2)%><%=Title1%> <%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title3)%> <%=Replace(Contentlinetu(Rand(0,ubound(Contentlinetu))),"{title}","")%> <%=Replace(Contentlinetu(Rand(0,ubound(Contentlinetu))),"{title}","")%> <%=Replace(Contentlinetu(Rand(0,ubound(Contentlinetu))),"{title}","")%> <%=Replace(Contentlinetu(Rand(0,ubound(Contentlinetu))),"{title}","")%>
上一篇:<%=Titleline(Rand(0,ubound(Titleline)))%>,下一篇:<%=Titleline(Rand(0,ubound(Titleline)))%>

【收藏】 【打印】 【关闭】 【返回顶部】 转载文章请注明文章出处