CSDN论坛 > Java > 非技术区

散分了300分~高兴,朋友的网站访问者有分~不够在加!!!!!!!!!!一定给分! [问题点数:0分]

Bbs1
本版专家分:0
结帖率 100%
CSDN今日推荐
Bbs2
本版专家分:396
Bbs4
本版专家分:1805
Bbs6
本版专家分:5354
Bbs1
本版专家分:20
Bbs4
本版专家分:1425
Bbs6
本版专家分:5147
Bbs1
本版专家分:70
Bbs6
本版专家分:5354
Bbs1
本版专家分:23
Bbs5
本版专家分:3166
Bbs3
本版专家分:573
Blank
红花 2003年11月 Oracle大版内专家分月排行榜第一
Blank
黄花 2003年12月 Oracle大版内专家分月排行榜第二
Blank
蓝花 2003年10月 Oracle大版内专家分月排行榜第三
Bbs1
本版专家分:82
Bbs5
本版专家分:3227
Bbs4
本版专家分:1637
Bbs8
本版专家分:37303
Blank
蓝花 2007年1月 Java大版内专家分月排行榜第三
Bbs2
本版专家分:205
Bbs2
本版专家分:462
Bbs4
本版专家分:1320
Bbs1
本版专家分:10
Bbs1
本版专家分:2
Bbs2
本版专家分:216
Bbs2
本版专家分:370
Bbs2
本版专家分:341
Bbs6
本版专家分:6708
Bbs7
本版专家分:11848
Blank
蓝花 2004年5月 Java大版内专家分月排行榜第三
Bbs4
本版专家分:1083
Bbs2
本版专家分:137
Bbs4
本版专家分:1529
Bbs4
本版专家分:1332
Bbs4
本版专家分:1504
Bbs3
本版专家分:993
Bbs2
本版专家分:293
Bbs5
本版专家分:3321
Bbs1
本版专家分:0
Bbs4
本版专家分:1972
Bbs1
本版专家分:45
Bbs4
本版专家分:1689
Bbs3
本版专家分:550
Bbs3
本版专家分:728
Bbs3
本版专家分:831
Bbs5
本版专家分:2819
Bbs1
本版专家分:79
Bbs4
本版专家分:1571
Bbs1
本版专家分:0
Bbs2
本版专家分:197
Bbs2
本版专家分:111
Bbs3
本版专家分:581
Bbs2
本版专家分:265
Bbs7
本版专家分:11476
匿名用户不能发表回复!
其他相关推荐
5-25 朋友圈
某学校有N个学生,形成M个俱乐部。每个俱乐部里的学生有着一定相似的兴趣爱好,形成一个朋友圈。一个学生可以同时属于若干个不同的俱乐部。根据“我的朋友的朋友也是我的朋友”这个推论可以得出,如果A和B是朋友,且B和C是朋友,则A和C也是朋友。请编写程序计算最大朋友圈中有多少人。 输入格式: 输入的第一行包含两个正整数N(\le≤30000)和M(\le≤1000),分别代表学校的学生总数和俱
[笔试] 分田地
牛牛和 15 个朋友来玩打土豪分田地的游戏,牛牛决定让你来分田地,地主的田地可以看成是一个矩形,每个位置有一个价值。分割田地的方法是横竖各切三刀,分成 16 份,作为领导干部,牛牛总是会选择其中总价值最小的一份田地, 作为牛牛最好的朋友,你希望牛牛取得的田地的价值和尽可能大,你知道这个值最大可以是多少吗? 输入描述: 每个输入包含 1 个测试用例。每个测试用例的第一行包含两个整数 n 和 m(
网易2017校园招聘笔试程序题(分田地)
题目描述: 牛牛和 15 个朋友来玩打土豪分田地的游戏,牛牛决定让你来分田地,地主的田地可以看成是一个矩形,每个位置有一个价值。分割田地的方法是横竖各切三刀,分成 16 份,作为领导干部,牛牛总是会选择其中总价值最小的一份田地, 作为牛牛最好的朋友,你希望牛牛取得的田地的价值和尽可能大,你知道这个值最大可以是多少吗? 输入描述: 每个输入包含 1 个测试用例。每个测试用例的第一行包含两个整数
蓝桥杯 算法提高 分苹果
算法提高 分苹果   时间限制:1.0s   内存限制:256.0MB      问题描述   小朋友排成一排,老师给他们分苹果。   小朋友从左到右标号1..N。有M个老师,每次第i个老师会给第Li个到第Ri个,一共Ri-Li+1个小朋友每人发Ci个苹果。   最后老师想知道每个小朋友有多少苹果。 输入格式   第一行两个整数N、M,表示小朋友个数
个能对访问者进行编号、记录访问次数、、时间的统计
一个能对访问者进行编号、记录访问次数、IP、时间的统计制作实例 我以ACCESS库为例子,其实用SQL SERVER库也只要改一下链接库的语句就得啦, 库结构如下 库文件名: CONT.ASP 本来是CONT.MDB但在建好后把扩展名改为了ASP,以防库被下载。 表名:tab 字段名 数据类型 说明 ID 自动编号 访客的编号 IP 文本 用于记录访客的IP dat1 日期时间 用于记录访客最后访问的时间 dat 日期时间 用于记录访客第一次访问的时间 CS 数字,整型 用于记录访客访问次数 程序很简单,只有两个文件,dispcont.asp 用于显示统计结果,contpage.asp用于统计信息, 先看看CONTPAGE.ASP 是乍么统计的,代码如下: <% Set Conn=Server.CreateObject("ADODB.Connection") Connstr="DBQ="+server.mappath("cont.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" Conn.Open connstr '*****以上语句用于连接库,cont.asp是库文件名。 keren=request.cookies("keren") '读取cookies,cookies的名为:“keren”,哈哈。。阿余的E文学的臭,只懂用拼音啦。 if keren="" then '判断cookees是不是空,如果是空,那么肯定是新朋友啦,否则是老朋友。 sql="SELECT * FROM tab where id=-1" set rs=server.createobject("ADODB.Recordset") rs.Open sql,conn, 1, 3 rs.addnew '如果是新访客的话,在库中新增一条记录。 rs("cs")=1 '记下访问次数为1 rs("ip")=request.servervariables("remote_addr") '记下IP, rs("dat")=now '记下当前的日期时间, rs("dat1")=date '记下当前的日期,以后用来做第一次访问的日期, response.cookies("keren")=rs("id") '写入一个cookies,内容就和ID一样。 response.cookies("keren").expires=date+365 '设置cookies的有效日期从现在开始,365天, else '以上是新朋友的处理办法,对老朋友怎么办呢?看下面的: sql="SELECT * FROM tab where id="&keren '到库中去找出我们老朋友的记录 set rs=server.createobject("ADODB.Recordset") rs.Open sql,conn, 1, 3 rs("cs")=rs("cs")+1 '好啦,找到啦,把访问次数加上1 rs("ip")=request.servervariables("remote_addr") '看看他的IP是多少了,记下来。 rs("dat")=now '记下现在的时间,也就是最后一次访问的时间, response.cookies("keren")=rs("id") '再把cookies写进去,我不知这句是否多余,没有试。 response.cookies("keren").expires=date+365 '设置cookies过期时间,免得一年到了我就不认得他了。 end if rs.update '该记的都记下了,更新库吧。 rs.close '关闭recordset对象。 set conn=nothing '释放conn,我还是认为connection要随开随关才对,放到SESSION中我认为最不可取。4 %> 好啦,记录就做好啦,有二十几行代码,很简单的一个小程序,但我想,高手肯定还有高招,有高招的朋友不忘了教教阿余, 程序写好了,怎么放到页面中呢?很简单,在首页上随便找个地方,加上这行代码:<img src="contpage.asp" width="0" height="0">就行了。 接下来就是把记录显示出来,这个能做得比阿余好的人多的是,不过还是来现个丑。 文件名:dispcont.asp , 请看代码: <% Set Conn=Server.CreateObject("ADODB.Connection") Connstr="DBQ="+server.mappath("cont.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" Conn.Open connstr '*****以上语句用于连接库,cont.asp是库文件名。 page3=request("pag") if page3="" then page3=session("contpag") '分页数,当前分页 if page3="" then page3="1" pa=request("pa") if pa="" then pa=session("contpa") '每页显示数 if pa="" then pa=15 '默认每页显示15条,可任意改 session("contpag")=page3 session("contpa")=pa pages=pa '每页显示数量***************以上一段程序用于实现分页功能 SQL="SELECT * FROM tab order by -dat,-id" dim rs Set rs=Server.CreateObject("ADODB.RecordSet") rs.Open sql,conn,1,1 csi=0 cs1=0 cs100=0 csdat1=0 do while not rs.eof csi=csi+rs("cs") if rs("cs")=1 then cs1=cs1+1 if rs("cs")>=100 then cs100+1 if datevalue(rs("dat"))=date then csdat1=csdat1+1 end if rs.movenext loop ZS=RS.RECORDCOUNT '*****************************************************8以下一段程序用于分页显示 %> <head> <title>卓越电脑统计</title> </head> <body style="font-size: 9pt" bgcolor="#D8EDF8"> 共有<%Response.Write zs%>条记录,现在是第<%Response.Write page3%>页 每页显示:[<a href="dispcont.asp?pag=<%=page3%>&pa=15">15]条、[<a href="dispcont.asp?pag=<%=page3%>&pa=20">20]条、[<a href="dispcont.asp?pag=<%=page3%>&pa=30">30]条、[<a href="dispcont.asp?pag=<%=page3%>&pa=40">40]条 [<a href="dispcont.asp">刷新] <div align="left"> <table border="0" cellpadding="0" style="font-size: 9pt"> <tr><td>页码</td><%page2=1 for i=1 to zs step pages if page3=cstr(page2) then %><td >[<%Response.Write page2%>]</td> <% else %> <td ><a href="dispcont.asp?pag=<%Response.Write page2%>">[<%Response.Write page2%>]</td> <% end if page2=page2+1 next sn=pages*(page3-1) '当前记录号=每页显示数*页数-每页显示数 if sn>zs then sn=0 rs.move sn,1 '**********************************以上一段用于分页 %> </tr></table> </div> <table style="font-size: 9pt" width="100%" bordercolorlight="#000000" border="1" bordercolordark="#FFFFFF" bgcolor="#A4D1E8" cellspacing="0" cellpadding="3"> <tr><td>编号</td><td>最后访问首页</td><td>最后访问IP</td><td>首页次数</td><td>首次访问日期</td></tr><% for i=1 to pages Response.Write "</tr>" Response.Write "<td>"&rs("ID")&"</td>" Response.Write "<td>"&rs("dat")&"</td>" Response.Write "<td>"&rs("IP")&"</td>" Response.Write "<td>"&rs("CS")&"</td>" Response.Write "<td>"&rs("DAT1")&" </td>" Response.Write "</tr>" rs.movenext if rs.eof then exit for next rs.close %> <tr><td>合计<%=zs%></td><td>访问次数为100次以上的有<%=cs100%> </td><td>访问次数为1的有:<%=cs1%></td><td>总访问次数<%=csi%></td><td>今天访问量:<%=csdat1%></td></tr> </table> '****************************以上是完整的分页显示全部复制下来就可用。没有考虑一条记录也没有的情况。
做还是不做
让老婆高兴就做爱让家人高兴就做饭让朋友高兴就做东让大家高兴就做事
实验9-8 通讯录排序(20 分)
实验9-8 通讯录排序(20 分) 输入n个朋友的信息,包括姓名、生日、电话号码,本题要求编写程序,按照年龄从大到小的顺序依次输出通讯录。题目保证所有人的生日均不相同。 输入格式: 输入第一行给出正整数n(&amp;lt;10)。随后n行,每行按照“姓名 生日 电话号码”的格式给出一位朋友的信息,其中“姓名”是长度不超过10的英文字母组成的字符串,“生日”是yyyymmdd格式的日期,“电话号码”是不超...
天梯赛初赛 5-4 帅到没朋友
(20分) 当芸芸众生忙着在朋友圈中发照片的时候,总有一些人因为太帅而没有朋友。本题就要求你找出那些帅到没有朋友的人。 输入格式: 输入第一行给出一个正整数N(\le 100≤100),是已知朋友圈的个数;随后N行,每行首先给出一个正整数K(\le 1000≤1000),为朋友圈中的人数,然后列出一个朋友圈内的所有人——为方便起见,每人对应一个ID号,为5位数字(从0
[中等] 动态规划经典-堆石子问题
1. 问题描述: 设有N堆沙子排成一排,其编号为1,2,3,…,N(N 【输入格式】     输入由若干行组成,第一行有一个整数,n(1≤n≤100);表示沙子堆数。第2至m+1行是每堆沙子的数量。  【输出格式】     一个整数,归并的最小代价。 【输入样例】 7 13 7 8 16 21 4 18 【输出样例】 239 2. 解题思路: 首先这也是一个
【算法】网易2017校园招聘笔试程序题(分田地)
题目牛牛和15个朋友玩打土豪分田地的游戏,牛牛决定让你来分田地,地主的田地可以看成是一个矩形,每个位置有一个价值。分割田地的方法是横竖各切三刀,分成16份,作为领导干部,牛牛总是会选择其中总价值最小的一份田地,作为牛牛最好的朋友,你希望牛牛取得的田地的价值和尽可能大,你知道这个值最大可以是多少吗? 输入描述每个输入包含1个测试用例。每个测试用例的第一行包含两个整数n和m(1 <= n,m <= 75
关闭