博文

智能计算器(2006-04-17 10:41:00)

摘要:<html>
<head>
<title>智能计算器</title>
<script language="javascript">
function compute_onclick(){
 var o=document.form1.input.value;
 var result=eval(o);
 document.form1.result.value=result;
}
</script>
</head>
<body><center>
<form name="form1">
<p>请输入表达式&nbsp;<input type="text" name="input"></p>
<p><input type="button" value="计算" name="compute" onclick="compute_onclick()"></p>
<p>结果<input type="text" value="" name="result"></p>
</form>
</body>
</html>......

阅读全文(4778) | 评论:0

两个下拉列表(2006-04-17 10:40:00)

摘要:<script language="javascript">
function show()
{
 for (var i=0;i<document.getElementById("s1").length;i++)
  {for (var j=0;j<document.getElementById("s2").length-1;j++)
     {
 document.getElementById("s2").options.remove(j);
     }
    if (document.getElementById("s1").options[i].selected)
       {show1(document.getElementById("s1").options[i].value);
         break;
       }
    }
}
function show1(v)
{for (var i=1;i<=v;i++)
{
  document.getElementById("s2").options[i]=new Option(i,i);
}
 document.getElementById("s2").options.remove(0);
}
</script>
<select name="s1" onchange="show()" id="s1">
<option value="">请选择</option>
<option value=10>10</option>
<option value=2......

阅读全文(4664) | 评论:0

如何得到字符串的每一位?(2006-04-15 16:43:00)

摘要:如何得到字符串的每一位?
如:str="123456"
a=str的第一位就是1
b=str的第二位就是2
c=str的第三位就是3
……
 
解决的方法
dim ak()
for i=1 to len(XXX)
 ak(i)=mid(XXX,i,1)
next
......

阅读全文(4654) | 评论:0

VC对话框打印功能(2006-04-15 13:17:00)

摘要:void CGetipDlg::OnButton3()
{
  CPrintDialog print(false);
  if(print.DoModal()==IDOK)
  {
    CDC printcd;
    printcd.Attach(print.GetPrinterDC());

    DOCINFO pdoc;
    pdoc.cbSize=sizeof(pdoc);
    pdoc.lpszDocName="pdoc";
    pdoc.lpszDatatype=NULL;
    pdoc.fwType=NULL;
    pdoc.lpszOutput=NULL;
    if(printcd.StartDoc(&pdoc)>=0)
    {
        LOGFONT logfont;
        memset(&logfont,0,sizeof(LOGFONT));
        logfont.lfHeight=75;
        
        CFont fon......

阅读全文(549) | 评论:0

常见的ASP代码(2006-04-15 09:38:00)

摘要:1.获得系统时间: <%=now()%> 2.取得来访用的IP: <%=request.serverVariables("remote_host")%> 3.获得系统,浏览器版本: <script>
window.document.write("版本:"+navigator.appName+navigator.appVersion+" browser.")
</script> 4.去除IE混动条: <body scroll="no"> 
<body style="overflow-y:hidden"> 5.进入网站,跳出广告: <script language="javascript">
<!-- 
<!-- 注意更改文件所在路径-->
window.open(''http://www.gbunix.com",'''',''height=200,width=300,top=0,left=30'');
// -->
</script> 6.随机数: <%randomize%>
<%=(int(rnd()*n)+1)%>
N为可改变数 7.向上混动代码: <marquee direction="up" scrolldelay="200" style="font-size: 9pt; color: #FF0000;
line-height: 150%; font-style:italic; font-weight:bold" scrollamount="2" width="206"
height="207" bgcolor="#FFFF00">Unix中文站</marquee> 8.自动关闭网页: <script LANGUAGE="javascript">
<!--
setTimeout(''window.close();'', 10000); //60秒后关闭
// -->
......

阅读全文(2860) | 评论:0

文件区域html格式(2006-04-13 09:28:00)

摘要:这个网页的名字叫:text.asp
<% 
' 内容提交前用这个函数
Function HTMLEncode(fString)'HTML加码函数
    If Not IsNull(fString) Then
        fString = Replace(fString, CHR(38), "&#38;")
        fString = Replace(fString, ">", "&gt;")
        fString = Replace(fString, "<", "&lt;")
        fString = Replace(fString, CHR(39), "&#39;")
        fString = Replace(fString, CHR(32), "&nbsp;")
        fString = Replace(fString, CHR(34), "&quot;")
        fString = Replace(fString, CHR(13), "")

阅读全文(5136) | 评论:0