深圳市欣悦源科技有限公司--记忆器|右脑记忆器|英语论坛|英语学习论坛

<% if MDBpath="" then MDBpath="admin/" end if Stats=Stats+"首页-"+url+"" %> <% set Rs=server.createobject("adodb.recordset") call Dvhead() dim img,rs2,SourceCode,d01,order_name,updown,totalPut,SourceCode2,SourceCode3,d02 SourceCode="" sql="select top 5 SoftID,SoftName,SoftVer,SoftTime from SoftInfo order by WeekHits desc,SoftID desc" rs.open sql,conn,1,1 if rs.eof and rs.bof then SourceCode=SourceCode&"" else do while not rs.eof SourceCode=SourceCode&"" rs.movenext loop end if rs.close SourceCode=SourceCode&"

近期没有新软件

"& left(trim(rs("SoftName")),15) & left(trim(rs("SoftVer")),13) & "

" SourceCode=Replace(SourceCode,chr(10),"") SourceCode=Replace(SourceCode,chr(13),"") SourceCode=Replace(SourceCode,chr(10)&chr(13),"") SourceCode=Replace(SourceCode,"""","") 'd01=Trim(Request.QueryString("d01")) 'Response.Write d01&".innerHTML="""&SourceCode&"""" d01=SourceCode CateID="CateID=21" order_name="SoftTime" sql="select SoftID,SoftName,SoftVer,Content,SoftSize,SoftTime,System,LicenceType,Rank,AllHits,isCommend,UserName from SoftInfo where "&CateID&" " sql=sql&" order by "&order_name&" "&updown rs.open sql,conn,1,1 if rs.eof and rs.bof then SourceCode= "

没有或没有找到任何软件

" else totalPut=rs.recordcount showContent set rs=nothing end if sub showContent i=0 SourceCode="" do while not rs.eof SourceCode2=SourceCode2&"" SourceCode2=SourceCode2&"" SourceCode2=SourceCode2&"" i=i+1 if i>=5 then exit do rs.movenext loop rs.close SourceCode=SourceCode&SourceCode2&"

"&rs("SoftName")&" "&rs("SoftVer")&"" if rs("isCommend") then SourceCode3="推荐" SourceCode2=SourceCode2&""& SourceCode3 &"

" end sub SourceCode=Replace(SourceCode,chr(10),"") SourceCode=Replace(SourceCode,chr(13),"") SourceCode=Replace(SourceCode,chr(10)&chr(13),"") SourceCode=Replace(SourceCode,"""","") d02=SourceCode %> 深圳市欣悦源科技有限公司--记忆器|右脑记忆器|英语论坛|英语学习论坛