VB:条件数组

[不指定 2019/06/06 11:29 | by 吕进 | Via 本站原创 ]
直接上代码,方便日后查阅:
Sub byw()
Dim arr, arr1
Dim i%, j%, s%
arr = Sheet6.Range("A1:K" & [A65536].End(3).Row) '第一行为标题行'
ReDim arr1(1 To UBound(arr), 1 To 11)
s = 1
For i = 2 To UBound(arr)  '数据区域从第二行开始'
    If arr(i, 10) = "是" Then
       For j = 1 To 11
         'arr1(s, j) = arr(i, j) '如果不改变数组的排列
         arr1(s, 1) = s '我给加的一个序号
         arr1(s, 2) = arr(i, 5)
         arr1(s, 3) = arr(i, 4)
         arr1(s, 4) = arr(i, 3)
         arr1(s, 5) = arr(i, 1)
         arr1(s, 6) = arr(i, 6)        
       Next
       s = s + 1
    End If
Next
Sheet1.Range("A4:AU100").ClearContents
Sheet1.[A4].Resize(s, 6) = arr1
End Sub

以上代码会经常使用,可收藏!
Tags: ,

PHP+sqlite3验证登录用户名和密码

[不指定 2019/05/30 14:43 | by 吕进 | Via 本站原创 ]
Session:在计算机中,尤其是在网络应用中,称为“会话控制”。Session 对象存储特定用户会话所需的属性及配置信息。这样,当用户在应用程序的 Web 页之间跳转时,存储在 Session 对象中的变量将不会丢失,而是在整个用户会话中一直存在下去。当用户请求来自应用程序的 Web 页时,如果该用户还没有会话,则 Web 服务器将自动创建一个 Session 对象。当会话过期或被放弃后,服务器将终止该会话。
以下实例(整个登录程序的结构分别为登录页面,用户中心,连接数据库。由于没添加注册功能,所以使用create.php创建一个用户):
1、create.php
<?php
   class MyDB extends SQLite3
   {
      function __construct()
      {
         $this->open('sqlite3.db');
      }
   }
   $db = new MyDB();
   if(!$db){
      echo $db->lastErrorMsg();
   } else {
      echo "Opened database successfully\n";
   }

   $sql =<<<EOF
      CREATE TABLE COMPANY
      (userid INT PRIMARY KEY     NOT NULL,
      username           TEXT    NOT NULL,
      password           TEXT     NOT NULL);
EOF;

   $ret = $db->exec($sql);
   if(!$ret){
      echo $db->lastErrorMsg();
   } else {
      echo "Table created successfully\n";
   }
  
  
   $sql2 =<<<EOF
      INSERT INTO COMPANY (userid,username,password)
      VALUES (1, 'popy32', $(MD5("popy32")));
EOF;

$ret = $db->exec($sql2);
   if(!$ret){
      echo $db->lastErrorMsg();
   } else {
      echo "Insert data successfully\n";
   }  
   $db->close();
?>

2、login.php(登录处理)、负责生成登录页面和验证登录的信息
Tags:

下棋

[不指定 2019/05/30 07:38 | by 吕进 | Via 本站原创 ]
棋盘是硝烟弥漫的战场,
棋子是冲锋陷阵的将士。
双方斗智斗勇攻城略地,
一步走错整盘输全军覆没。
战车隆隆直捣敌营,
骁将冲锋所向披靡,
英勇小卒勇往直前从不畏惧。
阵前拼杀生死是常事,
你争我夺有胜有败毫不为奇,
胜不骄败不馁,
人生如棋。

——特约小记者:姜长卿  
点击在新窗口中浏览此图片
Tags:

[不指定 2019/05/30 07:35 | by 吕进 | Via 本站原创 ]
山上如同深林一般寂静,
湖水更是平如明镜。
夕阳西下,
鸡群向鸡舍一步步靠近,
忽然空中飞沙走石,
山影也在湖中来回晃动。
只见那鸡屁股被石头砸中,
鸡群一瞬间逃得无影无踪。

——特约小记者:姜长卿
点击在新窗口中浏览此图片
Tags:

PHP、JAVA和VB对同结果的编辑语言实例

[不指定 2019/05/20 13:43 | by 白燕湾 | Via 本站原创 ]
工作中,常常用PHP、VB编辑一些工具,这两天在读Java 方面的教程,顺便总结并记录一下。
假设用三种语言来表达一天中不同时间点的问候:
PHP语言,很多人都“共识”,PHP是最简单的语言?
<?php
date_default_timezone_set('PRC');
$dt = date("G",time());  //用“H”也行,具体百度时间函数;

if($dt >=5 and $dt < 8){
echo "早上好!";
}
else if($dt >=8 and $dt < 10){
echo "准备好,上班去啦!";
}
else if($dt >=10 and $dt < 17){
echo "努力工作,但不忘活动活动筋骨";
}
else if($dt >=17 and $dt < 22){
echo "晚上吃什么?";
}

else{
echo "做个好梦吧";
}
?>
分页: 4/142 第一页 上页 1 2 3 4 5 6 7 8 9 10 下页 最后页 [ 显示模式: 摘要 | 列表 ]