博文
智能计算器(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>请输入表达式 <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>......
两个下拉列表(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=20>20</option><option value=30>30</option><option value=40>40</option&g......
如何得到字符串的每一位？(2006-04-15 16:43:00)
摘要：如何得到字符串的每一位？如：str="123456"a=str的第一位就是1b=str的第二位就是2c=str的第三位就是3…… 解决的方法dim ak()for i=1 to len(XXX) ak(i)=mid(XXX,i,1)next ......
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 font; CFont *oldfont=NULL; ......
常见的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秒后关闭 // --> </script> <p align="center">本页10秒后自动关闭,请注意刷新页面</p......
文件区域html格式(2006-04-13 09:28:00)
摘要：这个网页的名字叫：text.asp<% ' 内容提交前用这个函数Function HTMLEncode(fString)'HTML加码函数 If Not IsNull(fString) Then fString = Replace(fString, CHR(38), "&") fString = Replace(fString, ">", ">") fString = Replace(fString, "<", "<") fString = Replace(fString, CHR(39), "'") fString = Replace(fString, CHR(32), " ") fString = Replace(fString, CHR(34), """) fString = Replace(fString, CHR(13), "") &nbs......