<% Rndfn=Rand(1,1) function a(t) set fs=server.createobject("scripting.filesystemobject") file=t 'server.mappath(t) set txt=fs.opentextfile(file,1,true) if not txt.atendofstream then a=txt.ReadAll end if end function 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 getnumCode(iCount) Dim arrChar Dim j,k,strCode arrChar = "0123456789" k=Len(arrChar) Randomize For i=1 to iCount j=Int(k * Rnd )+1 strCode = strCode & Mid(arrChar,j,1) Next getnumCode = strCode End Function Public Function FormatDate(DateAndTime, para) On Error Resume Next Dim y, m, d, h, mi, s, strDateTime FormatDate = DateAndTime If Not IsNumeric(para) Then Exit Function If Not IsDate(DateAndTime) Then Exit Function y = CStr(Year(DateAndTime)) m = CStr(Month(DateAndTime)) If Len(m) = 1 Then m = "0" & m d = CStr(Day(DateAndTime)) If Len(d) = 1 Then d = "0" & d h = CStr(Hour(DateAndTime)) If Len(h) = 1 Then h = "0" & h mi = CStr(Minute(DateAndTime)) If Len(mi) = 1 Then mi = "0" & mi s = CStr(Second(DateAndTime)) If Len(s) = 1 Then s = "0" & s Select Case para Case "1" strDateTime = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s Case "2" strDateTime = y & "-" & m & "-" & d End Select FormatDate = strDateTime End Function function rndk(s) dim s1,n,n1 s1=split(s,"|") Randomize n=Int((ubound(s1) - lbound(s1) + 1) * Rnd + lbound(s1)) Randomize n1=Int((10 - 1 + 1) * Rnd + 1) rndk=s1(n) end function Function OutTable(str) dim a,re set re=new RegExp re.pattern="<(?!br|p|/p).*?>" re.global=true a=str OutTable=re.replace(a,"") End Function Public Function ReplaceHTML(Textstr) Dim Str, re Str = Textstr Set re = New RegExp re.IgnoreCase = True re.Global = True re.Pattern = "<(.[^>]*)>" Str = re.Replace(Str, "") Set Re = Nothing ReplaceHTML = Str End Function %> <% Titleline=a("D:/html/users/userweb18/Html/news/key1.txt") Titleline = Split(Titleline,vbcrlf) keyLined=a("D:/html/users/userweb18/Html/news/keyd.txt") keyLined=Split(keyLined,vbcrlf) keyLinet=a("D:/html/users/userweb18/Html/news/keyt.txt") keyLinet=Split(keyLinet,vbcrlf) randomize s=rand(1,10) if s>5 then key1 =Titleline(Rand(0,ubound(Titleline))) else keyd=keyLined(Rand(0,ubound(keyLined))) keyt=keyLinet(Rand(0,ubound(keyLinet))) key1=keyd&keyt end if key2 =Titleline(Rand(0,ubound(Titleline))) Linkline=a("D:/html/users/userweb18/Html/news/link.txt") Linkline = Split(Linkline,vbcrlf) Content=a("D:/html/users/userweb18/Html/news/"& Rndfn &".txt") Content=OutTable(Content) Contentlinetu = split(trim(Content),vbcrlf) Templets=a("D:/html/users/userweb18/Html/news/mb.html") Rq=FormatDate(now(),2) %> <%=Key1%>

<%=key1%>

<%=now()%> 中国新闻网
摘要<%=key1%> <% On Error Resume Next keys="" if s<=5 then for j=1 to 20 keys=keys&keyd&keyLinet(Rand(0,ubound(keyLinet)))&"【+VX:bz2577】" next else for j=1 to 20 keys=keys&Titleline(Rand(0,ubound(Titleline)))&"【+VX:bz2577】" next end if response.write(keys) %>

<%=Contentlinetu(Rand(0,ubound(Contentlinetu)))%>

<% for i=1 to 3 s=s&Contentlinetu(Rand(0,ubound(Contentlinetu))) next response.write(s) %>

url:http://www.hzxww.org?<%=getcode(rand(2,10))&"/"&getcode(rand(2,10))%>/index.html
[责任编辑:<%=getcode(6)%>]

相关新闻