📄 ¦vbs

📁 极品网络编程技术教程(极品网络编程技术教程.zip)
💻
字号:

<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; Charset=gb2312">
<META name="GENERATOR" content="网络程序员伴侣-Lshdic 2002">
<STYLE>
a{text-Decoration:none;}
a:hover{color:red;text-Decoration:underline}
td{font-size:12px}
</STYLE>
</HEAD>

<BODY alink='red' vlink='#6772CD' link='#6772CD' style='margin:1;'>

<table width='770' align=center cellspacing=0 cellpadding=0><tr><Td>
<!--以下为左方导航表-->
<TABLE cellspacing=0 cellpadding=0  width=135 align='left' bgcolor='#BBE2F5' rules=none frame=lhs bordercolordark=white bordercolorlight=dddddd border=1>
<TR>
<Td valign=top height=722 id=myid2><img src='image/right.gif'> <A href='newuser.asp' style='color:Red'>注册会员</a> <a href='olduser.asp' style='color:red'>会员登陆</a><p>

注册会员:1340人<br>

当前在线:<font color=red>4</font>/23人<br>
今日访问:357次<br>
总共访问:19222次
<p>&nbsp;<br>用户:<a href='ismy.asp?user=Lshdic' target='_blank'>Lshdic</a><br>
<img src='image/user25.gif' width='60' height='60' align=left>
经验:20217<br>
身份:版主<br>

<a href='exitbbs.asp?user=lshdic' style='color:green'>退出登陆</a><br>
<a href='xiougai.asp' style='color:green'>修改档案</a><p>&nbsp;<br>
┏论坛栏目┓<A href='../index.asp' style='color:red'>首页</a> <A href='index.asp' style='color:red'>论坛</a><p>

<TABLE cellspacing=0 cellpadding=2  width=100% id=instrtab><tr><Td>
1:<A href='page.asp?dex=网页版面美工设计' style='color:1210dd'>网页版面美工设计</a><p>
2:<a href='page.asp?dex=网页前台脚本编程' style='color:1210dd'>网页前台脚本编程</a><p>
3:<a href='page.asp?dex=网页后台脚本编程' style='color:1210dd'>网页后台脚本编程</a><p>
4:<a href='page.asp?dex=Xml与Net时代编程' style='color:1210dd'>Xml与Net时代编程</a><p>
5:<a href='page.asp?dex=软件开发交流论坛' style='color:1210dd'>软件开发交流论坛</a><p>
6:<a href='page.asp?dex=讨论区及其他学术' style='color:1210dd'>讨论区及其他学术</a><p align=left>┏会员特有权利┓___<p style='line-height:1.5'>

1:<a href='instr.asp' style='color:A36424;font-weight:bold'>搜索所有帖子</a><br>
2:<a href='instr2.asp?page=1&strs=lshdic&rad1=作者&dex=网页版面美工设计,网页前台脚本编程,网页后台脚本编程,网站站长经验交流,软件开发交流论坛,蓝丽论坛站务讨论' style='color:A36424;font-weight:bold'>我提出过的问题</a><br>
3:<a href='duanxiaoxi.asp?page=1' style='color:A36424;font-weight:bold'>收发短消息</a><br>

4:<a href='jinghua.asp?dex=网页前台脚本编程' style='color:A36424;font-weight:bold'>显示本版精华贴OK</a><br>

5:<a href='../wenzhang.asp' style='color:A36424;font-weight:bold' target='_blank'>技术文章库</a><br>
6:<a href='../friendabout.asp' style='color:A36424;font-weight:bold' target='_blank'>论坛会员档案库</a><p>
<a href='http://www.lshdic.com/bbs'>&copy;蓝丽论坛v<font color=red>2003.1</font></a>

</td></tr></table>
</td></TR></TABLE>
<script>
function window.onload(){
try{
myid2.height=window.document.body.scrollHeight}
catch(e){}
}
</script>
<TITLE>vbs:用inputbox做密码的确认 -- Lshdic程序员论坛</TITLE>
<!--以下为右方内容表-->

<TABLE cellspacing=0 cellpadding=3  width=635 bordercolordark='white' bordercolorlight='black' cellspacing=0 cellpadding=0  border=1 rules=none frame=rhs>
<tr><td bgcolor=#6F81BC style='color:white' colspan=2><img src='image/redfile.gif' width=13 height=13> <b>主题</b>:vbs:用inputbox做密码的确认 来自<a href='page.asp?dex=网页前台脚本编程' style='color:yellow'>网页前台脚本编程</a>,阅读12次
</td></tr><Tr bgcolor=eeeeee>
<Td width=120 align=center valign=top>&nbsp;<br>


<img src='image/user18.gif' height=90 width=90 style='filter:gray'>


<br>楼主:<a href='ismy.asp?user=风云舞' target="_blank" title='点击查看风云舞的资料'>风云舞</a><br>经验:327点<br><font color=#6772CD>豪8级:剑无悔</font><br>2002-12-13 16:01:31<br>
给作者<a href='duanxiaoxi.asp?emailto=风云舞'>发送短消息</a><br>
<script>
function openw(values){
open1=window.open('','','resizable=1,scrollbars=1,menubar=0,toolbar=0,directories=0');
open1.document.open()
open1.document.write(values);
open1.document.close()
}
</script>
</td><td valign=top name=tds1>
<div style='word-Break:break-all;overflow:auto;width:490;line-height:1.5;border:1 solid orange;padding:5;border-top:0;border-right:0' id=htmdiv1>
&lt;script language=vbs&gt;<br>str1=inputbox(&quot;输入密码&quot;,&quot;正确密码时555&quot;,123)<br>if str1&lt;&gt;&quot;&quot; and str1=555 then<br>location.href=&quot;<a href='http://www.lshdic.com' target='_blank'>http://www.lshdic.com</a>&quot;<br>else<br>msgbox &quot;密码错误或点击了取消&quot;<br>end if<br>&lt;/script&gt;
<p align=right style='color:gray'>蓝丽程序员论坛收录 http://www.lshdic.com</div><br>


<input type=button value='运行在浏览器查看' style='background-color:eeeeee;border:1 cccccc solid;width:120' onclick="openw(htmdiv1.innerText)"><input type=button value='快速编辑' style='background-color:eeeeee;border:1 cccccc solid;' onclick="try{htmdiv1.contentEditable=true}catch(e){alert('您的浏览器版本过低无法使用该功能')}"> <font color=aaaaaa>注意:运行在浏览器查看时请注意含有恶意程序</a>

<p><font color=red>- - - - - - - - - - - - - - - -</font><p><font color=gray>我也来玩玩+_+</font></td></tr>
<Tr bgcolor=eeeeee><Td align=right colspan=2>本版版主特别权利:
<a href='boos.asp?dex=网页前台脚本编程&areyou=提前&myclass=899&isdex=true'>提前</a> 
<a href='boos.asp?dex=网页前台脚本编程&areyou=修改&myclass=899&isdex=true&page=1'>修改</a> 

<a href='boos.asp?dex=网页前台脚本编程&areyou=锁定&myclass=899&isdex=true'>锁定</a> 

<a href='boos.asp?dex=网页前台脚本编程&areyou=置顶&myclass=899&isdex=true'>置顶</a> 

<a href='boos.asp?dex=网页前台脚本编程&areyou=转移&myclass=899&isdex=true'>转移</a>
<a href='javascript:if(confirm("确实要删除该贴吗?"))location="boos.asp?dex=网页前台脚本编程&areyou=删除&myclass=899&isdex=true&page=1"'>删除</a> 
</td></tr>



<Tr><Td bgcolor=dddddd colspan=2 align=right><!--分页区-->
首页 上页 下页 尾页 
</td></tr>

<Tr>
<td bgcolor=6F81BC colspan=2><font color=eeeeee>lshdic,是否为此贴评论两句？</font></td></tr><Tr bgcolor=#BBE2F5>
<td>内容区发言特技:LDML<p>Url网址自动解析允许<br>Mail超连接自动解析<br>LDML特技代码允许<p>声明:请不要发表邪教以及影响社会,青少年健康的言论及网址<p></td>
<td align=right><form method=post action='callnewfile.asp' name=pos1>
<textarea style='width:100%;height:150;background-color:eeeeee' name=filetxt></textarea><br>
LDML效果: <select onchange='pos1.filetxt.focus();if(this.selectedIndex!=0)document.selection.createRange().text="["+this.options[this.selectedIndex].style.backgroundColor+"]"+document.selection.createRange().text+"[/"+this.options[this.selectedIndex].style.backgroundColor+"]";this.selectedIndex=0' style='background-color:eeeeee'><option>文字颜色
<option style='background-color:red'>
<option style='background-color:yellow'>
<option style='background-color:blue'>
<option style='background-color:purple'>
<option style='background-color:orange'>
<option style='background-color:white'>
<option style='background-color:black'>
<option style='background-color:lime'>
<option style='background-color:gray'>
<option style='background-color:silver'>
<option style='background-color:navy'>
<option style='background-color:menu'>
<option style='background-color:maroon'>
<option style='background-color:window'>
</select><select onchange='pos1.filetxt.focus();if(this.selectedIndex!=0)document.selection.createRange().text="[bgcolor="+this.options[this.selectedIndex].style.backgroundColor+"]"+document.selection.createRange().text+"[/bgcolor]";this.selectedIndex=0' style='background-color:eeeeee'><option>文字背景
<option style='background-color:red'>
<option style='background-color:yellow'>
<option style='background-color:blue'>
<option style='background-color:purple'>
<option style='background-color:orange'>
<option style='background-color:white'>
<option style='background-color:black'>
<option style='background-color:lime'>
<option style='background-color:gray'>
<option style='background-color:silver'>
<option style='background-color:navy'>
<option style='background-color:menu'>
<option style='background-color:maroon'>
<option style='background-color:window'>
</select><select onchange='pos1.filetxt.focus();if(this.selectedIndex!=0)document.selection.createRange().text="["+this.options[this.selectedIndex].value+"]"+document.selection.createRange().text+"[/"+this.options[this.selectedIndex].value+"]";this.selectedIndex=0' style='background-color:eeeeee'><option>文字样式
<option value=b>粗体字
<option value=i>斜体字
<option value=u>下划线
<option value=s>删除线
<option value=sup>文字靠上
<option value=sub>文字靠下
<option value=big>文字偏大
<option value=small>文字偏小
<option value=h1>一号大字
<option value=h2>二号大字
<option value=h3>三号中字
<option value=h4>四号中字
<option value=h5>五号小字
<option value=h6>六号小字
<option value=center>文字居中
<option value=marquee>文字滚动
</select><select onchange='pos1.filetxt.focus();if(this.selectedIndex==1){document.selection.createRange().text="[hr]"}else if(this.selectedIndex==2){popimg=prompt("请输入要插入的图片地址(网址URL),如www.lshdic.com/1.gif\n注意:URL不可包含http://","");if(popimg!=null&&popimg.toLowerCase().indexOf("http://")==-1&&popimg.length>10&&popimg.indexOf(".")!=-1)document.selection.createRange().text="httpgif://"+popimg;else alert("以取消插入图片,原因可能您点击了取消或您的URL中包含 http:// 这个禁止字符\n\n或您的图像网址不完整.")}else if(this.selectedIndex==3){document.selection.createRange().text=".]"}this.selectedIndex=0' style='background-color:eeeeee'><option>插入物件
<option>水平线
<option>插入图片
<option>插入]符号
</select><input type=submit name='startfile' value='提交文章' style='background-color:dddddd;border-width:1' onclick="gook();if(canok==0)return false">
<input type=hidden value='网页前台脚本编程' name='nextdex'> <!--记录是何栏目-->
<input type=hidden value='899' name='nextclass'> <!--记录是何编号-->
</td></tr></table>
<Script language=vbs>
canok=0
sub gook

if len(pos1.filetxt.value)>100000 then msgbox "文章内容太大,字符以超过100000字的限制,请减少字符数量",16,"出错":pos1.filetxt.focus():pos1.filetxt.select():exit sub
if trim(pos1.filetxt.value)="" then msgbox "文章回复内容均必须填写",16,"出错":pos1.filetxt.focus():exit sub
canok=1
end sub
</script>
</BODY>
</HTML>
💿 文件大小 472 K
👤 上传用户 feitiandy001
📂 所属分类 Internet/网络编程
🏷️ 相关标签

#zip #网络编程 #技术教程
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -