异界代码

祝大家2010新年快乐

jamesyan@foxmail.com(Jevan) — Fri,12 Feb 2010 12:20:55 +0800

嘿嘿
祝大家新年快乐
也庆祝我儿子生日快乐
我儿子昨天出生了

图片来自：异界代码
网址：http://www.yjcode.net/

应要求上传一张

javascript中iframe里面的页面调用父窗口js函数的方法

jamesyan@foxmail.com(Jevan) — Mon,21 Dec 2009 12:16:16 +0800

实现iframe内部页面直接调用该iframe所属父窗口自定义函数的方法。

比如有A窗口，A内有个IFRAME. B，B里面的装载的是C页面，这时C要直接调用A里面的一个自定义函数ExpandPage();

那么只要在C页面中写如下JS函数就可以了：

折叠展开javascript 代码复制内容到剪贴板

window.parent.ExpandPage();

如果ExpandPage()有参数也可以直接传递合适的参数进去。

关于Sql Server企业管理器MMC 不能打开文件的解决方法

jamesyan@foxmail.com(Jevan) — Fri,18 Dec 2009 09:23:49 +0800

早上开机，打开企业管理器弹出如下错误提示

图片来自：异界代码
网址：http://www.yjcode.net/

在网上找到了解决方法：

  1、打开运行对话框输入：mmc

  2、控制台--添加/删除管理单元--添加--找到MicrosoftSQL企业管理器--添加--关闭--确定

  3、控制台--选项--控制台模式选择"用户模式完全访问"--将下面的选择全部取消

  4、控制台--另存为--存储为:C:\ProgramFiles\MicrosoftSQLServer\80\Tools\BINN\SQLServerEnterpriseManager.MSC

   好了，控制台恢复成功！

等待PJ4的更新

jamesyan@foxmail.com(Jevan) — Tue,15 Dec 2009 09:52:42 +0800

因为PJ4的开发...
因为PJ4的核心和PJ3的不同...
可能以后更新到PJ4会有点难度...所以暂时不打算更新此博客了
到时候等PJ4出来后.重新开博
感谢大家对本站的关注
最近也比较忙..没有到留言本里回大家
在这里对大家表示歉意

html 的 image button 自动提交 form

jamesyan@foxmail.com(Jevan) — Thu,10 Dec 2009 21:46:12 +0800

今天在做网页的时候遇到了用提交表单
却不能进入表单的onsubmit="clickForm()"的函数
经过网络上的搜索得到.原来JS控制的submit()是不能进入onsubmit的
看来只能另找它法了..
于是又想到了图片按钮
直接可以提交.进入onsubmit了
哈哈

jquery如何判断checkbox（复选框）是否被选中

jamesyan@foxmail.com(Jevan) — Thu,10 Dec 2009 00:05:38 +0800

谁都知道在html 如果一个复选框被选中是 checked="checked"。

但是我们如果用jquery alert($("#id").attr("checked")) 会提示您是true而不是checked

所以很多朋友判断 if($("#id").attr("checked")=="true") 这个是错误的，其实应该是 if($("#id").attr("checked")==true)

例子里面包括了一下几个功能。







代码




 New Document 

    

  




   
   
   
   
   
   

   
   checkbox1
   
   checkbox2
   
   checkbox3
   
   checkbox4
   
   checkbox5
   
   checkbox6
   
   checkbox7
   
checkbox8

斑点猫卖楼记

jamesyan@foxmail.com(Jevan) — Tue,08 Dec 2009 09:15:54 +0800

斑点猫卖楼记

ASP 代码高亮类

jamesyan@foxmail.com(Jevan) — Mon,07 Dec 2009 10:00:01 +0800

'======================================
'代码高亮类
'使用方法:
'Set HL = New Highlight '定义类
'HL.Language = "vb" '指定程序语言,支持 VBS ,JS ,XML, HTML, SQL, C#, Java...等
'还可通过直接设置下列属性还设置相关关键字等
' Public Keywords  '关键字
' Public Objects  '对象
' Public SplitWords '分隔符
' Public LineComment '行注释
' Public CommentOn '多行注释
' Public CommentOff '多行注释结束
' Public Ignore  '是否区分大小写
' Public CodeContent '代码内容
' Public Tags   '标记
' Public StrOn  '字符串标记
' Public Escape  '字符串界定符转义
' Public IsMultiple '允许多行引用
'HL.CodeContent = "要高亮的代码内容"
'Response.Write(Hl.Execute) '该方法返回高亮后的代码
'=====================================

折叠展开vb 代码复制内容到剪贴板

Class Highlight
Public Keywords '关键字
Public Objects '对象
Public SplitWords '分隔符
Public LineComment '行注释
Public CommentOn '多行注释
Public CommentOff '多行注释结束
Public Ignore '是否区分大小写
Public CodeContent '代码内容
Public Tags '标记
Public StrOn '字符串标记
Public Escape '字符串界定符转义
Public IsMultiple '允许多行引用
Private Content
Private Sub Class_Initialize
Keywords = "function,void,this,boolean,while,if,return,new,true,false,try,catch,throw,null,else,int,long,do,var" '关键字
Objects = "src,width,border,cellspacing,cellpadding,align,bgcolor,class,style,href,type,name,String,Number,Boolean,RegExp,Error,Math,Date" '对象
SplitWords = " ,.?!;:/<>(){}[]""'=+-|*%@#$^&"&VBCRLF&CHR(9) '分隔符
LineComment = "//" '行注释
CommentOn = "/*" '多行注释
CommentOff = "*/" '多行注释结束
Ignore = 0 '是否区分大小写
Tags = "a,img,html,head,body,title,style,script,language,input,select,div,span,button,img,iframe,frame,frameset,table,tr,td,caption,form,font,meta,textarea" '标记
StrOn = """'" '字符串标记
Escape = "" '字符串界定符转义
CodeContent = ""
End Sub
Public Function Execute
Dim S
Dim T, Key, X, Str
Dim Flag
Flag = 1: S = 1
For i = 1 to Len(CodeContent)
If Instr(1, SplitWords, Mid(CodeContent, i, 1) , 0)>0 Then
If Flag = 1 Then
Key = Mid(Codecontent, S, i - S)
If Keywords<>"" And Instr(1, ","& Keywords "," , ","&Key"," , Ignore)>0 Then
Content = Content& ""blue"">"&Key""
ElseIf Objects<>"" And Instr(1,","& Objects ",", ","&Key"," , Ignore)>0 Then
Content = Content & ""red"">"&Key""
ElseIf Tags <>"" And Instr(1, ","& Tags ",", ","&Key"," , Ignore)>0 Then
Content = Content & ""#996600"">"&Key""
Else
Content = Content & Key
End If
End if
Flag = 0
X = Mid(CodeContent, i, 1)
If LineComment<>"" And Mid(CodeContent, i, Len(LineComment)) = LineComment Then
S = Instr(i ,CodeContent, VBCRLF)
if S = 0 Then
S = Len(CodeContent)
End if
Content = Content & ""Green"">"& HtmlEnCode(Mid(CodeContent,i ,S - i ))""
i = S
ElseIf StrOn<>"" And Instr(StrOn,Mid(CodeContent, i, 1))>0 Then
Str = Mid(CodeContent, i, 1)
S = i
Do
S = Instr(S + 1 ,CodeContent, Str, 1)
if S <> 0 Then
T = S - 1
Do While Mid(CodeContent, T, 1) = Escape
T = T-1
Loop
If (S -T) Mod 2 = 1 Then
Exit Do
End If
Else
S = Len(CodeContent)
Exit Do
End If
Loop While 1
Content = Content & ""#FF00FF"">"& HtmlEnCode(Mid(CodeContent,i, S - i + 1))""
i = S
ElseIf CommentOn<>"" And Mid(CodeContent, i, Len(CommentOn)) = CommentOn Then
S = Instr(i ,CodeContent, CommentOff, 1)
if S = 0 Then
S = Len(CodeContent)
End if
Content = Content & ""Green"">"& HtmlEnCode(Mid(CodeContent,i, S - i + Len(CommentOff) ))""
i = S + Len(CommentOff)
ElseIf X = "" Then
Content = Content & " "
ElseIf X = """" Then
Content = Content & """
ElseIf X = "" Then
Content = Content & ""
ElseIf X = "<" Then
Content = Content & "<"
ElseIf X = ">" Then
Content = Content & ">"
ElseIf X = Chr(9) Then
Content = Content & " "
ElseIf X = VBLF Then
Content = Content & ""
Else
Content = Content & X
End If
Else
If Flag = 0 Then
S = i
Flag = 1
End if
End If
Next
if Flag = 1 Then
Execute = Content & Mid(CodeContent, S)
Else
Execute = content
End If
End Function
Private Function HtmlEnCode(Str)
If IsNull(Str) Then
HtmlEnCode = "": Exit Function
End if
Str = Replace(Str ,"","")
Str = Replace(Str ,"<","<")
Str = Replace(Str ,">",">")
Str = Replace(Str ,"""",""")
Str = Replace(Str ,Chr(9)," ")
Str = Replace(Str ," "," ")
Str = Replace(Str ,VBLF,"")
HtmlEnCode = Str
End Function
Public Property Let Language(Str)
Dim S
S = UCase(Str)
Select Case true
Case S = "VB" Or S = "VBS" OR S = "VBSCRIPT":
Keywords = "And,ByRef,ByVal,Call,Case,Class,Const,Dim,Do,Each,Else,ElseIf,Empty,End,Eqv,Erase,Error,Exit,Explicit,False,For,Function,Get,If,Imp,In,Is,Let,Loop,Mod,Next,Not,Nothing,Null,On,Option,Or,Private,Property,Public,Randomize,ReDim,Resume,Select,Set,Step,Sub,Then,To,True,Until,Wend,While,Xor,Anchor,Array,Asc,Atn,CBool,CByte,CCur,CDate,CDbl,Chr,CInt,CLng,Cos,CreateObject,CSng,CStr,Date,DateAdd,DateDiff,DatePart,DateSerial,DateValue,Day,Dictionary,Document,Element,Err,Exp,FileSystemObject,Filter,Fix,Int,Form,FormatCurrency,FormatDateTime,FormatNumber,FormatPercent,GetObject,Hex,Hour,InputBox,InStr,InstrRev,IsArray,IsDate,IsEmpty,IsNull,IsNumeric,IsObject,Join,LBound,LCase,Left,Len,Link,LoadPicture,Location,Log,LTrim,RTrim,Trim,Mid,Minute,Month,MonthName,MsgBox,Navigator,Now,Oct,Replace,Right,Rnd,Round,ScriptEngine,ScriptEngineBuildVersion,ScriptEngineMajorVersion,ScriptEngineMinorVersion,Second,Sgn,Sin,Space,Split,Sqr,StrComp,String,StrReverse,Tan,Time,TextStream,TimeSerial,TimeValue,TypeName,UBound,UCase,VarType,Weekday,WeekDayName,Year,Function"
Objects ="String,Number,Boolean,Date,Integert,Long,Double,Single"
SplitWords = ",.?!;:/<>(){}[]""'=+-|*%@#$^& "&VBCRLF&Chr(9)
LineComment = "'"
CommentOn = ""
CommentOff = ""
StrOn = """"
Escape = ""
Ignore = 1
CodeContent = ""
Tags = ""
Case s = "C#":
Keywords = "abstract,as,base,bool,break,byte,case,catch,char,checked,class,const,continue,decimal,default,delegate,do,double,else,enum,event,explicit,extern,false,finally,fixed,float,for,foreach,get,goto,if,implicit,in,int,interface,internal,is,lock,long,namespace,new,null,object,operator,out,override,params,private,protected,public,readonly,ref,return,sbyte,sealed,short,sizeof,stackalloc,static,set,string,struct,switch,this,throw,true,try,typeof,uint,ulong,unchecked,unsafe,ushort,using,value,virtual,void,volatile,while" '关键字
Objects = "String,Boolean,DateTime,Int32,Int64,Exception,DataTable,DataReader" '对象
SplitWords = " ,.?!;:/<>(){}[]""'=+-|*%@#$^&"&VBCRLF&CHR(9) '分隔符
LineComment = "//" '行注释
CommentOn = "/*" '多行注释
CommentOff = "*/" '多行注释结束
Ignore = 0 '是否区分大小写
Tags = "" '标记
StrOn = """" '字符串标记
Escape = "" '字符串界定符转义
Case S = "JAVA" :
Keywords = "abstract,boolean,break,byte,case,catch,char,class,const,continue,default,do,double,else,extends,final,finally,float,for,goto,if,implements,import,instanceof,int,interface,long,native,new,package,private,protected,public,return,short,static,strictfp,super,switch,synchronized,this,throw,throws,transient,try,void,volatile,while" '关键字
Objects = "String,Boolean,DateTime,Int32,Int64,Exception,DataTable,DataReader" '对象
SplitWords = " ,.?!;:/<>(){}[]""'=+-|*%@#$^&"&VBCRLF&CHR(9) '分隔符
LineComment = "//" '行注释
CommentOn = "/*" '多行注释
CommentOff = "*/" '多行注释结束
Ignore = 0 '是否区分大小写
Tags = "" '标记
StrOn = """" '字符串标记
Escape = "" '字符串界定符转义
Case S = "JS" OR S = "JSCRIPT" OR S = "JAVASCRIPT":
Keywords = "function,void,this,boolean,while,if,return,new,true,false,try,catch,throw,null,else,int,long,do,var" '关键字
Objects = "String,Number,Boolean,RegExp,Error,Math,Date" '对象
SplitWords = " ,.?!;:/<>(){}[]""'=+-|*%@#$^&"&VBCRLF&CHR(9) '分隔符
LineComment = "//" '行注释
CommentOn = "/*" '多行注释
CommentOff = "*/" '多行注释结束
Ignore = 0 '是否区分大小写
Tags = "" '标记
StrOn = """" '字符串标记
Escape = "" '字符串界定符转义
Case S = "XML":
Keywords = "!DOCTYPE,?xml,script,version,encoding" '关键字
Objects = "String,Number,Boolean,RegExp,Error,Math,Date" '对象
SplitWords = " ,.?!;:/<>(){}[]""'=+-|*%@#$^&"&VBCRLF&CHR(9) '分隔符
LineComment = "//" '行注释
CommentOn = "" '多行注释结束
Ignore = 0 '是否区分大小写
Tags = "" '标记
StrOn = """" '字符串标记
Escape = "" '字符串界定符转义
Case S = "HTML":
Case S = "SQL":
Keywords = "COMMIT,Delete,Insert,LOCK,ROLLBACK,Select,TRANSACTION,READ,ONLY,WRITE,USE,ROLLBACK,SEGMENT,ROLE,EXCEPT,NONE,Update,DUAL,WORK,COMMENT,FORCE,FROM,Where,INTO,VALUES,ROW,SHARE,MODE,EXCLUSIVE,Update,ROW,NOWAIT,TO,SAVEPOINT,UNION,UNION,ALL,INTERSECT,MINUS,START,WITH,CONNECT,BY,GROUP,HAVING,ORDER,Update,NOWAIT,IDENTIFIED,SET,Drop,PACKAGE,Create,REPLACE,PROCEDURE,FUNCTION,TABLE,RETURN,AS,BEGIN,DECLARE,END,IF,THEN,ELSIF,ELSE,WHILE,CURSOR,EXCEPTION,WHEN,OTHERS,NO_DATA_FOUND,TOO_MANY_ROWS,CURSOR_ALREADY_OPENED,FOR,LOOP,IN,OUT,TYPE,OF,INDEX,BINARY_INTEGER,RAISE,ROWTYPE,VARCHAR2,NUMBER,LONG,DATE,RAW,LONG RAW,CHAR,INTEGER,MLSLABEL,CURRENT,OF,DEFAULT,CURRVAL,NEXTVAL,LEVEL,ROWID,ROWNUM,DISTINCT,ALL,LIKE,IS,NOT,NULL,BETWEEN,ANY,AND,OR,EXISTS,ASC,DESC,ABS,CEIL,COS,COSH,EXP,FLOOR,LN,LOG,MOD,POWER,ROUND,SIGN,SIN,SINH,SQRT,TAN,TANH,TRUNC,CHR,CONCAT,INITCAP,LOWER,LPAD,LTRIM,NLS_INITCAP,NLS_LOWER,NLS_UPPER,REPLACE,RPAD,RTRIM,SOUNDEX,SUBSTR,SUBSTRB,TRANSLATE,UPPER,ASCII,INSTR,INSTRB,LENGTH,LENGTHB,NLSSORT,ADD_MONTHS,LAST_DAY,MONTHS_BETWEEN,NEW_TIME,NEXT_DAY,ROUND,SYSDATE,TRUNC,CHARTOROWID,CONVERT,HEXTORAW,RAWTOHEX,ROWIDTOCHAR,TO_CHAR,TO_DATE,TO_LABEL,TO_MULTI_BYTE,TO_NUMBER,TO_SINGLE_BYTE,DUMP,GREATEST,GREATEST_LB,LEAST,LEAST_UB,NVL,UID,USER,USERENV,VSIZE,AVG,COUNT,GLB,LUB,MAX,MIN,STDDEV,SUM,VARIANCE" '关键字
Objects = "" '对象
SplitWords = " ,.?!;:\/<>(){}[]""'=+-|*%@#$^&"&VBCRLF&CHR(9) '分隔符
LineComment = "--" '行注释
CommentOn = "/*" '多行注释
CommentOff = "*/" '多行注释结束
Ignore = 1 '是否区分大小写
Tags = "" '标记
StrOn = "'" '字符串标记
Escape = "" '字符串界定符转义
End Select
End Property
End Class
Function highlightcode(divid,codetype)
Dim code,HL
code = document.getElementById(divid).innerText;
'code = Document.all.code.value
Set HL = New Highlight
HL.Language = codetype
HL.CodeContent = code
document.getElementById("highlight").innerHTML = HL.Execute
End Function

JS跳出小窗口显示另一个页面

jamesyan@foxmail.com(Jevan) — Mon,07 Dec 2009 09:28:09 +0800

function sAlert(str){ 
   var msgw,msgh,bordercolor; 
   var iframeUrl;
   iframeUrl="浏览器不支持嵌入式框架，或被配置为不显示嵌入式框架。";
   msgw=400;//提示窗口的宽度 
   msgh=100;//提示窗口的高度 
   titleheight=25 //提示窗口标题高度 
   bordercolor="#336699";//提示窗口的边框颜色 
   titlecolor="#99CCFF";//提示窗口的标题颜色 
  
   var sWidth,sHeight; 
   //sWidth=document.body.offsetWidth; 
   //sHeight=screen.height;
   sWidth=document.body.scrollWidth; 
   sHeight=document.body.scrollHeight;
   var bgObj=document.createElement("div"); 
   bgObj.setAttribute('id','bgDiv'); 
   bgObj.style.position="absolute"; 
   bgObj.style.top="0"; 
   bgObj.style.background="#777"; 
   bgObj.style.filter="progid:DXImageTransform.Microsoft.Alpha(style=3,opacity=25,finishOpacity=75"; 
   bgObj.style.opacity="0.6"; 
   bgObj.style.left="0"; 
   bgObj.style.width=sWidth + "px"; 
   bgObj.style.height=sHeight + "px"; 
   bgObj.style.zIndex = "10000"; 
   document.body.appendChild(bgObj); 
    
   var msgObj=document.createElement("div") 
   msgObj.setAttribute("id","msgDiv"); 
   msgObj.setAttribute("align","center"); 
   msgObj.style.background="white"; 
   msgObj.style.border="1px solid " + bordercolor; 
   msgObj.style.position = "absolute"; 
   msgObj.style.left = "50%"; 
   msgObj.style.top = "50%"; 
   msgObj.style.font="12px/1.6em Verdana, Geneva, Arial, Helvetica, sans-serif"; 
   msgObj.style.marginLeft = "-225px" ; 
   msgObj.style.marginTop = -75+document.documentElement.scrollTop+"px"; 
   msgObj.style.width = msgw + "px"; 
   msgObj.style.height =msgh + "px"; 
   msgObj.style.textAlign = "center"; 
   msgObj.style.lineHeight ="25px"; 
   msgObj.style.zIndex = "10001"; 
    
   var title=document.createElement("h4"); 
   title.setAttribute("id","msgTitle"); 
   title.setAttribute("align","right"); 
   title.style.margin="0"; 
   title.style.padding="3px"; 
   title.style.background=bordercolor; 
   title.style.filter="progid:DXImageTransform.Microsoft.Alpha(startX=20, startY=20, finishX=100, finishY=100,style=1,opacity=75,finishOpacity=100);"; 
   title.style.opacity="0.75"; 
   title.style.border="1px solid " + bordercolor; 
   title.style.height="18px"; 
   title.style.font="12px Verdana, Geneva, Arial, Helvetica, sans-serif"; 
   title.style.color="white"; 
   title.style.cursor="pointer"; 
   title.innerHTML="关闭    "; 
   title.onclick=function(){ 
          document.body.removeChild(bgObj); 
          document.getElementById("msgDiv").removeChild(title); 
          document.body.removeChild(msgObj); 
        } 
   document.body.appendChild(msgObj); 
   document.getElementById("msgDiv").appendChild(title); 
   var txt=document.createElement("p"); 
   txt.style.margin="1em 0" 
   txt.setAttribute("id","msgTxt"); 
   //str 显示内容
   //txt.innerHTML=str; 
   txt.innerHTML=iframeUrl;
   document.getElementById("msgDiv").appendChild(txt); 
}

调用方法
1.引用此JS
2.sAlert('xx.asp')

如果在vs2005或vs2008拖动控件进行绝对定位?

jamesyan@foxmail.com(Jevan) — Fri,13 Nov 2009 08:55:01 +0800

有不少人问过这样的问题：如何在Visual Studio 2005或者Visual Studio 2008里面的HTML设计视图下，拖动控件进行绝对定位？其实，这个功能在Visual Studio 2003、Visual Studio 2002时是有的，在Visual Studio 2008里的实现方法是这样的：

打开“工具”-“选项”-“HTML 设计器”-“CSS 样式”-在右边勾选“对于使用工具箱、粘贴或者拖放添加的控件，将定位更改为绝对定位”即可。