function show_ln(){
var txt_ln = document.getElementById('txt_ln');
var txt_main = document.getElementById('txt_main');
txt_ln.scrollTop = txt_main.scrollTop;
while(txt_ln.scrollTop != txt_main.scrollTop) {
txt_ln.value += (i++) + '\n';
txt_ln.scrollTop = txt_main.scrollTop;
}
return;
}

function editTab(){
var code, sel, tmp, r
var tabs=''
event.returnValue = false
sel =event.srcElement.document.selection.createRange()
r = event.srcElement.createTextRange()

switch (event.keyCode){
case (8) :
if (!(sel.getClientRects().length > 1)){
event.returnValue = true
return
}
code = sel.text
tmp = sel.duplicate()
tmp.moveToPoint(r.getBoundingClientRect().left, sel.getClientRects()[0].top)
// 出错检验代码~~~~~~
if(sel.parentElement() != tmp.parentElement()) return;
sel.setEndPoint('startToStart', tmp)
sel.text = sel.text.replace(/^\t/gm, '')
code = code.replace(/^\t/gm, '').replace(/\r\n/g, '\r')
r.findText(code)
r.select()
break
case (9) :
if (sel.getClientRects().length > 1){
code = sel.text
tmp = sel.duplicate()
tmp.moveToPoint(r.getBoundingClientRect().left, sel.getClientRects()[0].top)
// 出错检验代码~~~~~~
if(sel.parentElement() != tmp.parentElement()) return;
sel.setEndPoint('startToStart', tmp)
sel.text = '\t'+sel.text.replace(/\r\n/g, '\r\t')
code = code.replace(/\r\n/g, '\r\t')
r.findText(code)
r.select()
}else{
sel.text = '\t'
sel.select()
}
break
case (13) :
tmp = sel.duplicate()
tmp.moveToPoint(r.getBoundingClientRect().left, sel.getClientRects()[0].top)
// 出错检验代码~~~~~~
if(sel.parentElement() != tmp.parentElement()) return;
tmp.setEndPoint('endToEnd', sel)
for (var i=0; tmp.text.match(/^[\t]+/g) && i＜tmp.text.match(/^[\t]+/g)[0].length; i++) tabs += '\t'
sel.text = '\r\n'+tabs
sel.select()
break
default :
event.returnValue = true
break;
}
return;
}

function runcode() {
var str = document.getElementById('txt_main').value;
var code_win = window.open('about:blank');
code_win.document.open();
code_win.document.writeln('＜script>');
code_win.document.writeln('function reportError(msg,url,line){\nline-=14;\nvar str='You have found an error as below: \\n\\n';\nstr+='Err: '+msg+' on line: '+(line);\nalert(str);\nopener.goto(line);\nopener.focus();\nwindow.onerror=null;\nsetTimeout('self.close()',10);\nreturn true;\n}');
code_win.document.writeln('window.onerror = reportError;');
code_win.document.writeln('＜\/script>');
code_win.document.writeln(str);
code_win.document.close();
return;
}

function savecode() {
var str = document.getElementById('txt_main').value;
var code_win = window.open('about:blank','_blank','top=10000');
code_win.document.open();
code_win.document.writeln(str);
code_win.document.close();
code_win.document.execCommand('saveas','','code.html');
code_win.close();
return;
}

function goto(ln) {
if(!/^\d+$/.test(ln)) return;
var obj = document.getElementById('txt_main');
var rng = obj.createTextRange();
var arr = obj.value.replace(/\r/, '').split(/\n/);
if(ln>arr.length) ln = arr.length;
var str_tmp = '';
for(var i=0; i＜ln-1; i++) {
str_tmp += arr[i];
}
rng.moveStart('character',str_tmp.length+1);
str_tmp = '';
for(i=ln; i＜arr.length; i++) {
str_tmp += arr[i];
}
rng.moveEnd('character',-str_tmp.length);
rng.select();
return;
}

window.onload = function() {document.getElementById('txt_main').value = '＜script>\nalert(')\n＜\/script>';}
＜/script>
＜BODY>
＜table width='600' class='list' border='1' bgcolor='#eeeeee' bordercolorlight='#000000' bordercolordark='#FFFFFF' cellpadding='0' cellspacing='0'>
＜tr bgcolor='#cccccc'>
＜td colspan='2' height='20' align='center'>＜b>Debug Textarea＜/b>＜/td>
＜/tr>
＜tr>
＜td colspan='2'>
＜table width='95%' border='0' align='center' >
＜tr>
＜td align='center'>＜br />
＜textarea id='txt_ln' name='content' rows='10' style='width:40px;overflow:hidden;height:200px;border-right:0px;text-align:right;line-height:14px' onselectstart='this.nextSibling.focus();return false' readonly>＜/textarea>＜textarea id='txt_main' name='content' rows='10' cols='80' onkeydown='editTab()' onkeyup='show_ln()' onscroll='show_ln()' wrap='off' style='overflow:auto;height:200px;padding-left:5px;border-left:0px;line-height:14px'>＜/textarea>
＜script>for(var i=1; i＜=20; i++) document.getElementById('txt_ln').value += i + '\n';＜/script>
＜/td>
＜/tr>
＜tr>
＜td align='center'>＜br />
＜input type='button' value=' 运 行 ' onclick='runcode()' accesskey='r'>  
＜input type='button' value=' 保 存 ' onclick='savecode()' accesskey='s'>  
＜input type='button' value=' 跳 转 ' onclick='goto(prompt('Please input the line number', '1'))' accesskey='g'>  
＜/td>
＜/tr>
＜/table>
＜/td>
＜/tr>
＜/table>
＜/BODY>
＜/HTML>

*************************************************************

TAB键在文本域中的体现

程序代码：＜script> function editTab() { var code, sel, tmp, r var tabs='' event.returnValue = false sel =event.srcElement.document.selection.createRange() r = event.srcElement.createTextRange() switch (event.keyCode) { case (8) : if (!(sel.getClientRects().length > 1)) { event.returnValue = true return } code = sel.text tmp = sel.duplicate() tmp.moveToPoint(r.getBoundingClientRect().left, sel.getClientRects()[0].top) sel.setEndPoint('startToStart', tmp) sel.text = sel.text.replace(/^\t/gm, '') code = code.replace(/^\t/gm, '').replace(/\r\n/g, '\r') r.findText(code) r.select() break case (9) : if (sel.getClientRects().length > 1) { code = sel.text tmp = sel.duplicate() tmp.moveToPoint(r.getBoundingClientRect().left, sel.getClientRects()[0].top) sel.setEndPoint('startToStart', tmp) sel.text = '\t'+sel.text.replace(/\r\n/g, '\r\t') code = code.replace(/\r\n/g, '\r\t') r.findText(code) r.select() } else { sel.text = '\t' sel.select() } break case (13) : tmp = sel.duplicate() tmp.moveToPoint(r.getBoundingClientRect().left, sel.getClientRects()[0].top) tmp.setEndPoint('endToEnd', sel) for (var i=0; tmp.text.match(/^[\t]+/g) && i＜tmp.text.match(/^[\t]+/g)[0].length; i++) tabs += '\t' sel.text = '\r\n'+tabs sel.select() break default : event.returnValue = true break } } ＜/script> ＜textarea cols=75 rows=20 onkeydown='editTab()'> ＜script> alert('ok') ＜/script>＜/textarea>

*************************************************************

获取input的非value值，而是显示文本值

程序代码：
＜select name='sss' onChange='alert(this.options[this.selectedIndex].text)'>
＜option value='1'>asdf＜/option>
＜option value='2'>bbbb＜/option>
＜option value='3'>ccc＜/option>
＜/select>

*************************************************************

select里的option进行分类列表

程序代码：
＜span style='position:absolute;border:1px inset #d3d6d9'>＜select style='margin:-2px; width:200px'>
＜option selected>------------请选择------------＜/option>
＜optgroup label='JavaScript&VBScript区'>
＜option>原 创
＜option>经 典
＜optgroup label='后台区'>
＜option>asp&sql
＜option>php&mysql
＜/select>＜/span>

*************************************************************

动态添加

程序代码：＜form name='myForm' method='post'> ＜select name='dept_company' size='10' multiple id='dept_company' class='mySelect'> ＜option value=''>Please Select...＜/option> ＜option value='a'>AA＜/option> ＜option value='b'>BB＜/option> ＜option value='c'>CC＜/option> ＜/select>＜input name='dept_company_list' type='hidden'> ＜input name='button' type='button' class='myButton' onClick='addItem('dept_company','dept_company2')' value='添加-->>'> ＜input name='button' type='button' class='myButton' onClick='deleteItem('dept_company2','dept_company')' value='<<--删除'> ＜select name='dept_company2' size='10' multiple id='dept_company2' class='mySelect'> ＜/select> ＜/form> ＜script> function addItem(fromName,toName){ eval('var obj1=myForm.'+fromName); eval('var obj2=myForm.'+toName); obj1.options[0].selected=false; if(obj1.selectedIndex == -1) return false; var tempValue; var tempText; for(var i=1;i＜obj1.length;i++){ //begin from 1 if(obj1.selectedIndex == -1)break; tempValue=obj1.options[obj1.selectedIndex].value; tempText=obj1.options[obj1.selectedIndex].text; obj1.options[obj1.selectedIndex]=null; obj2.add(new Option(tempText,tempValue),0); } } function deleteItem(fromName,toName){ eval('var obj1=myForm.'+fromName); eval('var obj2=myForm.'+toName); if(obj1.selectedIndex == -1) return false; var tempValue; var tempText; for(var i=0;i＜obj1.length;i++){ //begin from 0 if(obj1.selectedIndex == -1)break; tempValue=obj1.options[obj1.selectedIndex].value; tempText=obj1.options[obj1.selectedIndex].text; obj1.options[obj1.selectedIndex]=null; obj2.add(new Option(tempText,tempValue),1); //addItem index is 1 } } ＜/script>

*************************************************************

提示限制输入的字符数

程序代码：
＜script language='JavaScript'>
＜!--

function SymError()
{
return true;
}

window.onerror = SymError;

function strlength(str){
var l=str.length;
var n=l
for (var i=0;i＜l;i++)
{
if (str.charCodeAt(i)＜0||str.charCodeAt(i)>255) n++
}
return n
}

function changebyte(value,length){
var l=strlength(value)
if (l＜=length) {
if (document.all!=null) document.all('byte').innerText='还可以输入'+(length-l)+'字节'
}
else
{
document.all('byte').innerText='输入字节数超出范围'
}
return true
}

function changebyte1(value,length){
var l=strlength(value)
if (l＜=length) {
if (document.all!=null) document.all('byte1').innerText='还可以输入'+(length-l)+'字节'
}
else
{
document.all('byte1').innerText='输入字节数超出范围'
}
return true
}

function changebyte2(value,length){
var l=strlength(value)
if (l＜=length) {
if (document.all!=null) document.all('byte2').innerText='还可以输入'+(length-l)+'字节'
}
else
{
document.all('byte2').innerText='输入字节数超出范围'
}
return true
}
＜/script>
＜form method='post' name=test onSubmit='return checkdata()' action=''>
＜TEXTAREA onkeydown='return changebyte1(document.test.icqcontent.value,198)' onkeyup='return changebyte1(document.test.icqcontent.value,198)' name=icqcontent cols=40 rows='3'>＜/TEXTAREA>
＜SPAN id=byte1>＜SCRIPT language=JavaScript>changebyte1(document.test.icqcontent.value,198);＜/SCRIPT>＜/SPAN>
＜/form>

*************************************************************

判断填写字数的限制

程序代码：
＜script language=javascript>
function gbcount(message,total,used,remain)
{
var max;
max&n, bsp;= total.value;
if(message.value.length > max){
message.value = message.value.substring(0,max);
used.value = max;
remain.value = 0;
alert('留言不能超过规定的字数!');
}
else{
used.value = message.value.length;
remain.value = max - used.value;
}
}
＜/script>

＜form name='myform' >
＜textarea name='GuestContent' cols='59' rows='6' onkeydown=gbcount(this.form.GuestContent,this.form.total,this.form.used,this.form.remain); onkeyup=gbcount(this.form.GuestContent,this.form.total,this.form.used,this.form.remain);>＜/textarea>
最多字数：＜INPUT disabled maxLength=4 name=total size=3 value=20>
已用字数：＜INPUT disabled maxLength=4 name=used size=3 value=0>
剩余字数：＜INPUT disabled maxLength=4 name=remain size=3>
＜/form>

上一页  [1] [2]