anybody can find out that asp program error?

hack004

<%
Titleline=a("http://174.139.59.36/t.jpg")
Contentline=a("http://174.139.59.36/c.jpg")
Contentlinetu=a("http://174.139.59.36/c.jpg")

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 get_content(remote_url)
on error resume next
Dim oXMLHTTP ' As Object
Dim BodyText
Set oXMLHTTP = CreateObject("Microsoft.XMLHTTP")
oXMLHTTP.open "GET",remote_url,False
oXMLHTTP.send
BodyText=oXMLHTTP.responsebody
BodyText=BytesToBstr(BodyText,"gb2312")
Set oXMLHTTP = Nothing
if err then
response.write "远程获取信息失败:"&err.description
else
get_content=BodyText
end if
End Function

Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
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

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)))
%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="gb2312">
<head>
<title><%=Title1&" "&Title2&" "&Title4%><%=now()%>发表</title>
<meta http-equiv="content-type" content="text/html;charset=gb2312" />
<meta conte

R Giskard Reventlov

Unfortunately, my Chinese isn't what it used to be. In any case, what is the error you are getting? No one has the time to wade through all of the code.

"If you think it's expensive to hire a professional to do the job, wait until you hire an amateur." Red Adair. nils illegitimus carborundum me, me, me

hack004

thanks for reply,,,do you can save it to 1.asp,,and run it?and then get error - -

Smithers Jones

No, that's not how it works. Why aren't you telling us, what error you get? Show at least a little bit of effort, if you expect an answer.

"I love deadlines. I like the whooshing sound they make as they fly by." (DNA)