好东东给你，可用分给偶~~

lovingkiss 2003-06-16 02:36:08
功能：自动调整多行文本框录入高度加强版；
语言：VbScript
版权：蒋玉龙 Lovingkiss
QQ：66840199

页面一：自动调整.htm
说明：DefaultHeight=80 默认高度 MaxHeight=300 最大高度
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>自动调整</title>
<style>
.textarea {behavior:url(textarea.htc);overflow-y:auto;}
</style>
</head>
<body>
<textarea Id=MyText class="textarea" DefaultHeight=80 MaxHeight=300 rows="5" cols="41"></textarea>
</body>
</html>


页面二：textarea.htc文件
<PUBLIC:COMPONENT>
<PUBLIC:ATTACH onevent="propertychange()" event="onpropertychange"/>
</PUBLIC:COMPONENT>

<script language="VbScript">
Sub propertychange()
On Error Resume Next
If Window.Event.srcElement.scrollHeight >=Clng(Window.Event.srcElement.DefaultHeight) Then
If Window.Event.srcElement.MaxHeight <> "0" Then
If Window.Event.srcElement.scrollHeight <=Clng(Window.Event.srcElement.MaxHeight) Then
Window.Event.srcElement.Style.posHeight=Window.Event.srcElement.scrollHeight+15
Else
Window.Event.srcElement.Style.posHeight =Clng(Window.Event.srcElement.MaxHeight)
End If
Else
Window.Event.srcElement.Style.posHeight=Window.Event.srcElement.scrollHeight+15
End If
Else
Window.Event.srcElement.Style.posHeight=Clng(Window.Event.srcElement.DefaultHeight)
End IF
End Sub

</script>
'—————以上为代码部分—————————————

注明：功能不是很强，但是还算实用，本人可用分数很低了，如果您觉得不错，想使用的话，希望不要赖皮，标明出处——顺便给偶转点可用分！！~如果您觉得不好，或者你愣是要白用，偶也没有法子；不用过多的批评偶~~
偶也不想白要您的可用分~~谢谢

~~~~~~~~~~~~~~只是交换而已~~~~~~~~~~~~~~

另外：还有一些技巧，可以用可用分交换~~
在先编辑完整版[无控件、Js、Vbs]：5000可用分
邮件JMail：1000可用分
拼音判断：200可用分
身份证判断：300可用分
农历日期控件：300可用分
MD5转换：300可用分

——这些网络上有~~但是从我这里呢，需要给偶点可用分~~嘿嘿~~
~~~~~~~~等偶可用分够用了，全部免费贡献给大家~~~~~~~~~~~~~
好不好不要批评阿~~
...全文
50 19 打赏 收藏 转发到动态 举报
写回复
用AI写文章
19 条回复
切换为时间正序
请发表友善的回复…
发表回复
lovingkiss 2003-06-23
  • 打赏
  • 举报
 回复
谢谢 lint(越来越懒)的更新~~
lint 2003-06-22
  • 打赏
  • 举报
 回复
再改一句
if(event.keyCode==46)
{
eval('IPInput'+((parseInt(v_input.id.substring(7))+1)%4)+'.focus()')
eval('IPInput'+((parseInt(v_input.id.substring(7))+1)%4)+'.select()')
}
lint 2003-06-22
  • 打赏
  • 举报
 回复
IP控件修改了一点：支持键入.自动到下一个输入点。
html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>IP-like Input</title>
<style>
<!--
div.IPDiv { background: #FFFFFF; width: 120; margin:0; font-family: Arial,Tahoma; font-size: 10pt; text-align: center; border-top: 2 ridge threedshadow; border-left: 2 ridge threedshadow; border-right: 2 inset threedhighlight; border-bottom: 2 inset threedhighlight }
input.IPInput { width: 24; margin:0; font-family: Arial,Tahoma; font-size: 10pt; text-align: center; border-width: 0 }
-->
</style>
</head>
<body bgcolor=threedface>
像IP地址输入栏一样的文本框
<script>
IPlikeInputStr = "";
IPlikeInputStr += '<div class="IPDiv">';
for (i=0;i<4;i++) {
IPlikeInputStr += '<input class="IPInput" id="IPInput'+i+'" type="text" size="3" maxlength="3" onkeypress="keyHandle(this)" onkeyup="checkInput()">'+((i==3) ? '' : '.');
}
IPlikeInputStr += '</div>';

document.write(IPlikeInputStr);
function keyHandle(v_input) {
if(event.keyCode==46)
{
eval('IPInput'+((parseInt(v_input.id.substring(7))+1)%4)+'.focus()')
}

if (event.keyCode<48||event.keyCode>57) {
event.returnValue = false;
}
}

function checkInput() {
if (event.srcElement.id=="IPInput0") {
if (event.srcElement.value==0&&event.srcElement.value.length==3) {
event.srcElement.value="1";
alert("请输入一个界于1和223之间的数值");
event.srcElement.select();
}
if (event.srcElement.value>223) {
event.srcElement.value="223";
alert("请输入一个界于1和223之间的数值");
event.srcElement.select();
}
}

else {
if (event.srcElement.value>255) {
event.srcElement.value="255";
alert("请输入一个界于0和255之间的数值")
event.srcElement.select();
}
}
}
</script>

</body>

</html>
黑马 2003-06-21
  • 打赏
  • 举报
 回复
收藏
xizi2002 2003-06-21
  • 打赏
  • 举报
 回复
可用分好少,只有10分,惨
lovingkiss 2003-06-20
  • 打赏
  • 举报
 回复
谢谢，呵呵，啵~~~~~~~~~
nhconch 2003-06-20
  • 打赏
  • 举报
 回复
nhconch给lovingkiss捐献了1200可用分;lovingkiss收到了：1080可用分
nhconch给meizz捐献了1200可用分;meizz收到了：1080可用分

被收税了 :(
nhconch 2003-06-20
  • 打赏
  • 举报
 回复
没想到大师也会穷呀，我来解囊...哎呀，不小心把裤带解了
lovingkiss 2003-06-20
  • 打赏
  • 举报
 回复
咋就emu一个人给偶分呢，郁闷~~
emu 2003-06-19
  • 打赏
  • 举报
 回复
哈哈你也有穷的时候。
咱们建议csdn改下制度吧，回答问题得一半分数的可用分就好了。本来就是限制倒分而已嘛，现在倒分本来就很大程度上得到遏制了。
meizz 2003-06-19
  • 打赏
  • 举报
 回复
呀, 这个办法好, 下次我再有什么好东东的时候, 我也可以这样换分了. (上次一次给了 emu 5000分, 没想到那以后不久CSDN就改革了, 可用分与专家分不同步了), 我上次发布日历3.0的那300分都是向别人化缘的, 不好意思.
tobeornottobe 2003-06-16
  • 打赏
  • 举报
 回复
^_^，我现在的这个号也不能送分了，^_^，只能吃白食了^_^
PowerHorse 2003-06-16
  • 打赏
  • 举报
 回复
俺到是想贡献你点可用分，可是俺级别不够呀，等俺攒够了就能作贡献了。
jsidiot 2003-06-16
  • 打赏
  • 举报
 回复
lovingkiss好东西就是多.嘿嘿
lovingkiss 2003-06-16
  • 打赏
  • 举报
 回复
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>IP-like Input</title>
<style>
<!--
div.IPDiv { background: #FFFFFF; width: 120; margin:0; font-family: Arial,Tahoma; font-size: 10pt; text-align: center; border-top: 2 ridge threedshadow; border-left: 2 ridge threedshadow; border-right: 2 inset threedhighlight; border-bottom: 2 inset threedhighlight }
input.IPInput { width: 24; margin:0; font-family: Arial,Tahoma; font-size: 10pt; text-align: center; border-width: 0 }
-->
</style>
</head>
<body bgcolor=threedface>
像IP地址输入栏一样的文本框
<script>
IPlikeInputStr = "";
IPlikeInputStr += '<div class="IPDiv">';
for (i=0;i<4;i++) {
IPlikeInputStr += '<input class="IPInput" name="IPInput'+i+'" type="text" size="3" maxlength="3" onkeypress="keyHandle()" onkeyup="checkInput()">'+((i==3) ? '' : '.');
}
IPlikeInputStr += '</div>';
document.write(IPlikeInputStr);

function keyHandle() {
if (event.keyCode<48||event.keyCode>57) {
event.returnValue = false;
}
}

function checkInput() {
if (event.srcElement.name=="IPInput0") {
if (event.srcElement.value==0&&event.srcElement.value.length==3) {
event.srcElement.value="1";
alert("请输入一个界于1和223之间的数值");
event.srcElement.select();
}
if (event.srcElement.value>223) {
event.srcElement.value="223";
alert("请输入一个界于1和223之间的数值");
event.srcElement.select();
}
}

else {
if (event.srcElement.value>255) {
event.srcElement.value="255";
alert("请输入一个界于0和255之间的数值")
event.srcElement.select();
}
}
}
</script>

</body>

</html>


注明：以上两个为http://www.1000script.com/script/index.asp代码，欢迎大家去看


以下为本人改动的技术：

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>打开光驱</title>
</head>
<SCRIPT language=VBScript>
<!--
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If

-->
</SCRIPT>
<body>
</body>
</html>

注明：需要客户端有MediaPlay7以上

上面几个贴子只是玩的，没有太多实用价值~~
lovingkiss 2003-06-16
  • 打赏
  • 举报
 回复
没有那么多问题，我漫天开价——你不可以就地还钱啊~~~~~

真的要用——没钱偶还能不给啊~~~~~呵呵~~~~~~~~~~~~~~~

刚刚有个朋友给了偶分——请在这里留下姓名啊，要不我不知道阿，谢谢~~~~


————————————————————————
功能一：默林的全部动作[要求：客户端安装Office，呵呵~~]
<html>
<head>
<style>button{width:100;border:outset 2;}</style>
</head>
<body bgcolor=threedface scroll=auto>
<button onclick= Merlin.Play("RestPose") >复位
<button onclick= Merlin.Stop() >停止
<button onclick= Merlin.Play("Acknowledge") >点头
<button onclick= Merlin.Play("Surprised") >惊讶
<button onclick= Merlin.Play("GestureUp") >手势
<button onclick= Merlin.Play("Pleased") >满足
<button onclick= Merlin.Play("Alert") >警告
<button onclick= Merlin.Play("Announce") >宣布
<button onclick= Merlin.Play("Blink") >眨眼
<button onclick= Merlin.Play("Confused") >困惑
<button onclick= Merlin.Play("Congratulate") >恭喜1
<button onclick= Merlin.Play("Congratulate_2") >恭喜2
<button onclick= Merlin.Play("Decline") >拒绝
<button onclick= Merlin.Play("DoMagic1") >变魔术1
<button onclick= Merlin.Play("DoMagic2") >变魔术2
<button onclick= Merlin.Play("DontRecognize") >没听清
<button onclick= Merlin.Play("Explain") >说明
<button onclick= Merlin.Play("GetAttention") >敲一下
<button onclick= Merlin.Play("GetAttentionContinued") >不停敲
<button onclick= Merlin.Play("GetAttentionReturn") >不敲了
<button onclick= Merlin.Play("Greet") >问候
<button onclick= Merlin.Play("Hearing_1") >听1
<button onclick= Merlin.Play("Hearing_2") >听2
<button onclick= Merlin.Play("Hearing_3") >听3
<button onclick= Merlin.Play("Hearing_4") >听4
<button onclick= Merlin.Play("Idle1_1") >1-1
<button onclick= Merlin.Play("Idle1_2") >1-2
<button onclick= Merlin.Play("Idle1_3") >1-3
<button onclick= Merlin.Play("Idle1_4") >1-4
<button onclick= Merlin.Play("Idle2_1") >2-1
<button onclick= Merlin.Play("Idle2_2") >2-2
<button onclick= Merlin.Play("Idle3_1") >3-1
<button onclick= Merlin.Play("Idle3_2") >3-2
<button onclick= Merlin.Play("LookDown") >俯视
<button onclick= Merlin.Play("LookDownBlink") >俯视眨眼
<button onclick= Merlin.Play("LookDownReturn") >俯视眨眼返回
<button onclick= Merlin.Play("MoveUp") >上移
<button onclick= Merlin.Play("MoveDown") >下移
<button onclick= Merlin.Play("MoveLeft") >左移
<button onclick= Merlin.Play("MoveRight") >右移
<button onclick= Merlin.Play("Process") >熬汤
<button onclick= Merlin.Play("Processing") >熬汤
<button onclick= Merlin.Play("Read") >读
<button onclick= Merlin.Play("ReadReturn") >不读了
<button onclick= Merlin.Play("Reading") >正在读
<button onclick= Merlin.Play("ReadContinued") >不停读
<button onclick= Merlin.Play("Sad") >悲哀
<button onclick= Merlin.Play("Search") >查找
<button onclick= Merlin.Play("Searching") >正在查找
<button onclick= Merlin.Play("StartListening") >听
<button onclick= Merlin.Play("StopListening") >捂耳朵
<button onclick= Merlin.Play("Suggest") >暗示
<button onclick= Merlin.Play("Uncertain") >想飞
<button onclick= Merlin.Play("Wave") >挥手
<button onclick= Merlin.Play("Write") >写东西
<button onclick= Merlin.Play("WriteContinued") >不停写
<button onclick= Merlin.Play("WriteReturn") >不写了
<button onclick= Merlin.Think("fly") >想
<button onclick= doalert('something') >说
<script>
function doalert(text) {
Merlin.Speak(text);
}
</script>

<Object ID=agent ClassID=CLSID:D45FD31B-5C6E-11D1-9EC1-00C04FD7081F></Object>
<script>
var MerlinID;
var MerlinACS;
agent.Connected=true;
MerlinLoaded=LoadLocalAgent(MerlinID,MerlinACS);
Merlin=agent.Characters.Character(MerlinID);
Merlin.Show();
function LoadLocalAgent(CharID,CharACS){
LoadReq=agent.Characters.Load(CharID,CharACS);
return(true);
}
</script>
</body>
</html>
emu 2003-06-16
  • 打赏
  • 举报
 回复
呵呵半年发了58个问题，其中还好多个是1分的放代码帖子，结帖率不算这个帖子的话是100％。还是要支持一下楼主的。我的分也不多，意思一下。

现在解答问题不得可用分的制度有点……

emu给lovingkiss捐献了1111可用分;lovingkiss收到了：999可用分
emu 2003-06-16
  • 打赏
  • 举报
 回复
5000分？你有很多问题要问吗？
tobeornottobe 2003-06-16
  • 打赏
  • 举报
 回复
大哥怎么你好像可用分一直很低的亚，^_^，先收藏
离散数学偶图
本文深入探讨了离散数学中的偶图概念，包括其定义、性质、完全偶图以及平凡图。介绍了偶图的判定条件，强调无向图存在奇数长度回路则非偶图。匹配理论中详细阐述了完全匹配、霍尔定理以及可增广道。贝尔格定理和匈牙利算法在寻找匹配中的作用也得以讨论，这些理论在图论和组合优化中有重要应用。
经典回答~~偶现bug如何处理
本文针对软件测试过程中遇到的偶现且难以重现的bug进行了经验总结。提出了在测试过程中发现此类bug后的处理方法，包括抓取log、截图、视频等，并讨论了如何与开发团队合作解决问题。
信号与系统中的“实偶对实偶，实奇对虚奇”规律详解
本文围绕信号与系统中“实偶对实偶，实奇对虚奇”规律展开。先介绍实偶、实奇信号定义及示例，还给出非实偶、非实奇的偶、奇信号例子。接着阐述傅里叶变换中该规律的体现，通过具体信号举例说明。最后说明其在信号处理和通信系统中的应用，可简化频谱分析。
序偶关系
本文介绍了序偶的概念及其与无序偶的区别，并探讨了序偶在有向图、二叉树和链表等数据结构中的应用。同时，还讨论了无序偶在无向图中的表示方法。
序偶
本文介绍了序偶的概念及其在数学中的应用，并详细探讨了笛卡尔积的定义、性质及多个集合间的笛卡尔积运算。
JavaScript

87,987

社区成员

224,683

社区内容

发帖
与我相关
我的任务
社区描述
Web 开发 JavaScript
社区管理员
  • JavaScript
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章