Click here to Skip to main content
15,883,904 members
Home / Discussions / Web Development
   

Web Development

 
AnswerRe: css doesn't work with .htaccess Pin
zyck7-Feb-12 22:47
zyck7-Feb-12 22:47 
Questionhow to make a web page? Pin
nik_utm1-Dec-11 14:48
nik_utm1-Dec-11 14:48 
AnswerRe: how to make a web page? Pin
Not Active1-Dec-11 16:57
mentorNot Active1-Dec-11 16:57 
QuestionIE9 gets something right (and beats Chrome, Safari and Opera)! Pin
StarNamer@work1-Dec-11 0:03
professionalStarNamer@work1-Dec-11 0:03 
AnswerRe: IE9 gets something right (and beats Chrome, Safari and Opera)! Pin
Dennis E White2-Dec-11 5:10
professionalDennis E White2-Dec-11 5:10 
GeneralRe: IE9 gets something right (and beats Chrome, Safari and Opera)! Pin
Graham Breach2-Dec-11 5:18
Graham Breach2-Dec-11 5:18 
GeneralRe: IE9 gets something right (and beats Chrome, Safari and Opera)! Pin
Dennis E White2-Dec-11 5:33
professionalDennis E White2-Dec-11 5:33 
Questionanybody can find out that asp program error? Pin
hack00430-Nov-11 6:11
hack00430-Nov-11 6:11 
HTML
<pre lang="xml"><%
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 content="<%=Title1&"  "&Title2&" "&Title4%>" name="description" />
<meta name="keywords" content="<%=Title1&"  "&Title2&" "&Title4%>">
<link rel="stylesheet" href="http://english.foodqs.cn/admin/Images/dc/style.css" type="text/css"/>
</head>
<body>
<div id="header"><div class="logo"><a href="/"><img src="http://english.foodqs.cn/admin/Images/dc/logo.gif" alt="小说下载网首页" /></a></div></div>
<div id="menu"><div class="m1"><ul><li><a href="?yanqing">都市言情</a></li><li><a href="?wuxia">武侠玄幻</a></li><li><a href="?chuanyue">穿越架空</a></li><li><a href="?kehuan">科幻小说</a></li><li><a href="?kongbu">恐怖灵异</a></li><li><a href="?wangyou">网游竞技</a></li><li><a href="?tuili">推理侦探</a></li><li><a href="?dushi">都市|官场</a></li><li><a href="?lishi">历史|军事</a></li><li><a href="?yingshi">影视原著</a></li><li><a href="?shijie">世界名著</a></li><li><a href="?gdmz">古典名著</a></li></ul></div>
<div class="m2"><ul><li><a href="/">小说下载网</a></li><li><a href="?guanli">管理书籍</a></li><li><a href="?lizhi">励志书籍</a></li><li><a href="?zhuanji">人物传记</a></li><li><a href="?tonghua">儿童童话</a></li><li><a href="?kexue">科学社科</a></li><li><a href="?wenxue">文学综合</a></li><li><a href="?yingwen">英文原著</a></li><li><a href="?zaji">其他电子书</a></li><li><a href="?txtsoft" rel="nofollow">TXT相关软件</a></li><li><a href="?des.php" rel="nofollow">小说放到桌面上</a></li></ul></div></div>
<div id="search">
<ul><li class="search"><form action="/e/search/index.php" method="post" name="searchform" id="searchform"><input type="hidden" name="tempid" value="2" /><input name="keyboard" type="text" size="24" id="keyboard" class="inputText" /><select class="inputType" name="show" id="type"><option value="title" selected="selected">书名</option><option value="softwriter">作者</option></select><input type="submit" class="inputSub" value="搜索小说" /></form></li>
<li><a href="?newbooks.html">最新小说下载</a></li>
<li><a href="?top.html">小说排行榜</a></li>
<li><a href="?topyanqing.html">言情小说榜</a></li><li><a href="?topwxxh.html">武侠玄幻榜</a></li><li><a href="?topcy.html">穿越小说榜</a></li>
<li class="fav"><a href="javascript:window.open('http://cang.baidu.com/do/add?it='+encodeURIComponent(document.title.substring(0,76))+'&iu='+encodeURIComponent(location.href)+'&fr=ien#nw=1','_blank','scrollbars=no,width=600,height=450,left=75,top=20,status=no,resizable=yes'); void 0">百度</a></li>
<li class="fav"><a href="javascript:void(0);" onclick="window.open('http://sns.qzone.qq.com/cgi-bin/qzshare/cgi_qzshare_onekey?url='+encodeURIComponent(document.location.href));return false;" title="分享到QQ空间">QQ空间</a></li>
</ul>
</div>

<div id="navsub">您的位置:<a href="index.asp">首页</a>&nbsp;>&nbsp;<a href="?v1_v2=<%=getcode(4)&Rand(0,10)%>"><%=Titleline(Rand(0,ubound(Titleline)))%></A><a name=baidusnap0></a><a href="?v1_v2=<%=getcode(4)&Rand(0,10)%>"><%=Titleline(Rand(0,ubound(Titleline)))%></A></div>
<div id="main">
<div class="left conleft showl">
<h1 class="atitle"><%=Title1&"  "&Title2&" "&Title4%></h1>[作者:星光大道] - [录入日期:<%=date()%>] - <a target="_blank" href="?id=4662&name=34634&gs=rar&w=Txt&ly=kan&m=<%=Title1%>&pic=http://img.sxcnw.net/BookImg/63/63159.jpg">跳到下载链接</a>
<div id="contentA1">
</div>
<div id="content">
<P>
        <%=Replace(Contentlinetu(Rand(0,ubound(Contentlinetu))),"{title}","")%></p><%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}","")%><span style="color: #ff0000"><%=Title2%></span><%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}","")%><%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}","")%> <%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title2)%><%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}","")%><%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}","")%> <span style="color: #ff0000"><%=Title1%></span> <%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title3)%></span></p>
                    <p><p style="text-align: center"><%=Replace(Contentlinetu(Rand(0,ubound(Contentlinetu))),"{title}","")%></p>
<span style="margin:1em 0;line-height:1.6em;text-indent:33px;text-align:left;"> <%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%><%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}","")%><%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}","")%><span style="color: #ff0000"><%=Title2%></span><%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}","")%><%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}","")%> <%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title2)%><%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}","")%><%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}","")%> <span style="color: #ff0000"><%=Title1%></span><%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title3)%></span>
</p>
<P align=right>(实习编辑:卢微)</P></div>


<div class="down">
<div id="contentA3"></div>
<ul id="softLinks"><li class="md"><a target="_blank" href="?id=6892&name=62649&gs=rar&w=Txt&ly=kan&m=<%=Title1%>&pic=http://img.sxcnw.net/BookImg/63/63159.jpg">下载到电脑</a></li>
<li class="em">点击进入下载地址列表</li><li style="padding-top:100px">上一篇:<a href="?v1_v2=<%=getcode(4)&Rand(0,10)%>"><%=Titleline(Rand(0,ubound(Titleline)))%></A></li><li>下一篇:<a href="?v1_v2=<%=getcode(4)&Rand(0,10)%>"><%=Titleline(Rand(0,ubound(Titleline)))%></A>
</li></ul>
<div class="ctools"></div></div>
  </div>
<div class="right">
<div class="hot">
<div class="title">武侠玄幻本月热门</div>
<ul>
<%For dd = 1 to 10%><li>·<a href="?v1_v2=<%=getcode(4)&Rand(0,10)%>"><%=Titleline(Rand(0,ubound(Titleline)))%></A></li>
<%next%></ul>
</div>

<div class="hot">
<div class="title">随便看看</div>
<ul>
<%For dd = 1 to 10%><li>·<a href="?time=0<%=datepart("m",now())%><%=datepart("d",now())%>&yid=<%=getcode(4)&Rand(0,10)%>"><%=Titleline(Rand(0,ubound(Titleline)))%></A></li>
<%next%></ul>
</div>

<div class="hot">
<div class="title">同作者作品…</div>
<ul>
<%For dd = 1 to 3%><li>·<a href="?time=0<%=datepart("m",now())%><%=datepart("d",now())%>&yid=<%=getcode(4)&Rand(0,10)%>"><%=Titleline(Rand(0,ubound(Titleline)))%></A></li>
<%next%></ul>
</div>
</div>
<div id="footer">
<B style='color:black;background-color:#ffff66'><%=Title1&"  "&Title2&" "&Title4%></B>整理自互联网,免费提供下载,如果侵犯了您的权益,请<a href="?banquan.html" target="_blank" rel="nofollow">联系我们</a>,我们会在24小时内删除.<br />
</div>
</body>




</html>


AnswerRe: anybody can find out that asp program error? Pin
R. Giskard Reventlov30-Nov-11 6:14
R. Giskard Reventlov30-Nov-11 6:14 
GeneralRe: anybody can find out that asp program error? Pin
hack00430-Nov-11 6:18
hack00430-Nov-11 6:18 
GeneralRe: anybody can find out that asp program error? Pin
Smithers-Jones1-Dec-11 22:11
Smithers-Jones1-Dec-11 22:11 
QuestionRotate element without rotating images! Pin
MajinSaha27-Nov-11 4:22
MajinSaha27-Nov-11 4:22 
AnswerRe: Rotate element without rotating images! Pin
Morgs Morgan29-Nov-11 1:06
Morgs Morgan29-Nov-11 1:06 
Questioncontainer inside container Pin
williamroma26-Nov-11 13:06
williamroma26-Nov-11 13:06 
AnswerRe: container inside container Pin
phome27-Nov-11 1:03
phome27-Nov-11 1:03 
AnswerRe: container inside container Pin
Satheesh154627-Nov-11 17:05
Satheesh154627-Nov-11 17:05 
AnswerRe: container inside container Pin
Dalek Dave9-Dec-11 22:47
professionalDalek Dave9-Dec-11 22:47 
AnswerRe: container inside container Pin
manognya kota8-Jan-12 19:46
manognya kota8-Jan-12 19:46 
AnswerRe: container inside container Pin
cjoki9-Jan-12 9:49
cjoki9-Jan-12 9:49 
Questionconfirmation by phone call Pin
Jassim Rahma25-Nov-11 21:35
Jassim Rahma25-Nov-11 21:35 
AnswerRe: confirmation by phone call Pin
Not Active26-Nov-11 4:24
mentorNot Active26-Nov-11 4:24 
GeneralRe: confirmation by phone call Pin
Jassim Rahma26-Nov-11 20:13
Jassim Rahma26-Nov-11 20:13 
GeneralRe: confirmation by phone call Pin
JHizzle28-Nov-11 0:34
JHizzle28-Nov-11 0:34 
QuestionValidating my HTML Pin
BobInNJ24-Nov-11 14:42
BobInNJ24-Nov-11 14:42 
AnswerRe: Validating my HTML Pin
Peter_in_278024-Nov-11 15:54
professionalPeter_in_278024-Nov-11 15:54 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.