option 循环赋值

    var changestatus = "${changeStatus}";//后台传递的status
    //获取公告状态select中数据
    $.ajax({
        type:"post",
        url:'/bulletin/bulletinAction!getBulletinStautsSelectOption.do',
        datatype: "json",
        data: {
        },
        success:function(data){
            var str = data;
            $("#status").html(str); 
           if(changestatus != null && "" != changestatus){
           $("#status option").each(function(){
            if($(this).val() == changestatus){
                $(this).attr("selected",true);
            }
            });
          }

        }
    });

div中文字的自动换行

<div style='width:98%;clear:both;word-wrap:break-word;'>9999999999999999999999999</div>

width:98%:继承的是父div的宽度。

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
'这个代码用在工控I/O接点检测 判定某个接点为 0(关闭状态) 或 1(打开状态) '十进制与二进制的转换 '添加 Text1 Command1 Command2 Command3 Label1 Shape1(0) '128,64,32,16,8,4,2,1 (从右边往左算是1-128 连乘2 合计 255) '可以理解为2的7次方 7次方 6次方 5次方。。。。。0次方 Option Explicit Private WithEvents Timer1 As Timer Dim i&, j&, aa$ '变量定义与型态声明 Private Sub Form_Load() Command1.Caption = "10转2" Command2.Caption = "2转10" Command3.Caption = "随机灯号" Command1.Enabled = True Command2.Enabled = False Text1.Text = "151" '比方说I/O板卡返回 151 转为二进制得到 10010111 '****************************** For i = 1 To 7 '循环线上添加 7个 Shape数组 形状控件 与原先的1个 共有8个 Load Shape1(i) '装载控件 索引编号为i Shape1(i).Visible = True '线上添加的控件默认为不可见 我们得将它设为 可见 Shape1(i).Left = Shape1(i - 1).Left + Shape1(0).Width + 70 '定位新添加的控件,在前一个控件的位置加上宽度再加上间距70 Next i '******************************* Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2 '窗体定位于屏幕中心 Command1_Click '自动点击按钮1 将十进制的151转为二进制 Set Timer1 = Controls.Add("vb.Timer", "Timer1") '线上添加 Timer1 定时器控件 Timer1.Interval = 3000: Timer1.Enabled = False '定时器Timer1的激发间隔设为3000毫秒 暂时禁用 Me.Caption = "工控第一课 研华PCI-1761接点检测" Label1.Caption = "151" End Sub Private Sub Command1_Click() '十进制转二进制 If Command3.Caption = "停止演示" Then Command3_Click '如果随机演示正在进行中 我们先自动点击按钮3 让它停止演示 'Text1.Text是文字形态 我们必须先使用Val函数将它转为数值 '调用 Ten2Two 副程序将Text1.Text转换过的数值 转换为文字型态的二进制 再赋值给 Text1.Text Text1.Text = Format(Ten2Two(Val(Text1.Text)), "00000000") For i = 1 To Len(Text1.Text) '从1开始循环到Text1长度 '如果Shape1数组i-1的值为0 Shape1的颜色显示绿色 否则显示红色 Shape1(i - 1).FillColor = IIf(Mid(Text1.Text, i, 1) = 0, QBColor(10), QBColor(12)) Next i Command1.Enabled = Not Command1.Enabled 'Not的使用技术原理是反向 假变成真 真变成假 Command2.Enabled = Not Command2.Enabled '让两个按钮反向为 可用或不可用 End Sub Private Sub Command2_Click() '二进制转十进制 If Command3.Caption = "停止演示" Then Command3_Click '如果随机演示正在进行中 我们先自动点击按钮3 让它停止演示 '调用副程序Two2Ten 将Text1文本框内的二进制内容转换返回数值 '再使用 Cstr函数将此数值转换为文字型态 再用 Trim函数将此文字型内容左右两边可能的空白字符去掉 Text1.Text = Trim(CStr(Two2Ten(Text1.Text))) Command1.Enabled = Not Command1.Enabled '让两个按钮反向为 可用或不可用 Command2.Enabled = Not Command2.Enabled End Sub Private Sub Command3_Click() '随机演示数值转换并显示相应的灯号 Command3.Caption = IIf(Command3.Caption = "随机灯号", "停止演示", "随机灯号") Timer1.Enabled = Not Timer1.Enabled '定时器反向 开始或停止演示 End Sub Function Ten2Two(ByVal Tvalue As Long) As String '十进制转二进制 If Tvalue = 0 Then Ten2Two = "00000000": Exit Function aa = "" Do Until Tvalue 0, TmpVal + 2 ^ (i - 1), TmpVal) Next i Two2Ten = TmpVal '将数值变量TmpVal返回 End Function Private Sub Timer1_Timer() '定时器的事件 Dim RndVal& '变量定义 Timer1.Enabled = False '换算过程前暂时先让定时器停止运行 Randomize '随机数种子初始化 RndVal = Int(Rnd * 256) '0-255共256个数 随机取值 '将取到的随机数调用副程序Ten2Two 将十进制接收值转换为0与1的二进制后 赋值给文字型变量aa aa = Format(Trim(CStr(Ten2Two(RndVal))), "00000000") Label1.Caption = CStr(RndVal) '让标签显示接收到(随机数)的十进制值 Text1.Text = aa '文本框Text1显示变量aa的内容 For i = 1 To Len(aa) '从第一个字符开始循环到变量aa包含几个字符 '如果Shape1数组i-1的值为0 Shape1的颜色显示绿色 否则显示红色 Shape1(i - 1).FillColor = IIf(Mid(aa, i, 1) = "0", QBColor(10), QBColor(12)) Next i Timer1.Enabled = True '换算完成后再让定时器继续运行 End Sub
//为了避免重复包含文件而造成错误,加了判断函数是否存在的条件: $page = $_GET[page]; if(!function_exists(pageft)){ //定义函数pageft(),三个参数的含义为: //$totle:信息总数; //$displaypg:每页显示信息数,这里设置为默认是20; //$url:分页导航中的链接,除了加入不同的查询信息“page”外的部分都与这个URL相同。 //   默认值本该设为本页URL(即$_SERVER["REQUEST_URI"]),但设置默认值的右边只能为常量,所以该默认值设为空字符串,在函数内部再设置为本页URL。 function pageft($totle,$displaypg=20,$url=''){ //定义几个全局变量: //$page:当前页码; //$firstcount:(数据库)查询的起始项; //$pagenav:页面导航条代码,函数内部并没有将它输出; //$_SERVER:读取本页URL“$_SERVER["REQUEST_URI"]”所必须。 global $page,$firstcount,$pagenav,$_SERVER; //为使函数外部可以访问这里的“$displaypg”,将它也设为全局变量。注意一个变量重新定义为全局变量后,原值被覆盖,所以这里给它重新赋值。 $GLOBALS["displaypg"]=$displaypg; if(!$page) $page=1; //如果$url使用默认,即空值,则赋值为本页URL: if(!$url){ $url=$_SERVER["REQUEST_URI"];} //URL分析: $parse_url=parse_url($url); $url_query=$parse_url["query"]; //单独取出URL的查询字串 if($url_query){ //因为URL中可能包含了页码信息,我们要把它去掉,以便加入新的页码信息。 //这里用到了正则表达式,请参考“PHP中的正规表达式” $url_query=ereg_replace("(^|&)page=$page","",$url_query); //将处理后的URL的查询字串替换原来的URL的查询字串: $url=str_replace($parse_url["query"],$url_query,$url); //在URL后加page查询信息,但待赋值: if($url_query) $url.="&page;"; else $url.="page"; }else { $url.="?page"; } //页码计算: $lastpg=ceil($totle/$displaypg); //最后页,也是总页数 $page=min($lastpg,$page); $prepg=$page-1; //上一页 $nextpg=($page==$lastpg ? 0 : $page+1); //下一页 $firstcount=($page-1)*$displaypg; //开始分页导航条代码: $pagenav="显示第 <B>".($totle?($firstcount+1):0)."</B>-<B>".min($firstcount+$displaypg,$totle)."</B> 条记录,共 $totle 条记录"; //如果只有一页则跳出函数: if($lastpg<=1) return false; $pagenav.=" <a href='$url=1'>首页</a> "; if($prepg) $pagenav.=" <a href='$url=$prepg'>上一页</a> "; else $pagenav.=" 上一页 "; if($nextpg) $pagenav.=" <a href='$url=$nextpg'>下一页</a> "; else $pagenav.=" 下一页 "; $pagenav.=" <a href='$url=$lastpg'>尾页</a> "; //下拉跳转列表,循环列出所有页码: $pagenav.=" 到第 <select name='topage' size='1'>\n"; for($i=1;$i<=$lastpg;$i++){ if($i==$page) $pagenav.="<option value='$i' selected>$i</option>\n"; else $pagenav.="<option value='$i'>$i</option>\n"; } $pagenav.="</select> 页,共 $lastpg 页"; } }

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值