📄 11.asp
字号:
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<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>New Page 1</title>
<SCRIPT LANGUAGE="VBScript">
<!--
top.gg.rows="*,0%"
Sub Button1_OnClick
Dim TheForm
Set TheForm =document.fy
If trim(TheForm.speak.Value) =""then
sssss = MsgBox("你还没有说话！！！！", vbOKOnly + vbExclamation, "警告")
TheForm.speak.Focus
exit sub
end if
if trim(TheForm.ren.Value) ="" then
sss = MsgBox("你对谁说话！！！！", vbOKOnly + vbExclamation, "警告")
TheForm.ren.Focus
exit sub
end if
TheForm.action="write.asp"
TheForm.target="hid"
TheForm.Submit
TheForm.speak.Value=""
TheForm.speak.Focus
End Sub
Sub bb(r)
Set TheForm = document.fy
TheForm.ren.Value=re
TheForm.speak.Focus
end sub
Sub Button2_OnClick
window.location="ss.asp"
end sub
sub aa()
if top.gg.rows="*,0%" then
top.gg.rows="*,60%"
else
top.gg.rows="*,0%"
end if
top.hid.window.loaction="/liaotian/oo.asp"
end sub
-->
</SCRIPT>
</head>
<body bgcolor="#ffffcc" text="#006800">
<table border="0" width="102%" height="58" cellspacing="0" cellpadding="0">
<form method="post" name="fy">
<tr>
<td width="9%" height="30"><font face="楷体_GB2312"><b>对方：</b></font></td>
<td width="98%" height="30"><input name="ren" size="12" ><input type="checkbox" name="c1" "SCRIPT LANGUAGE="VBScript" : OnClick='call aa()'"><font color="#FF0000" face="楷体_GB2312">分屏</font></td>
</tr>
<tr>
<td width="9%" height="16"><font face="楷体_GB2312"><b>说话：</b></font></td>
<td width="98%" height="16"><input name="speak" size="63" maxlength="80" ><input type="button" value="发言" name="button1"> </td>
</tr>
</table></FORM>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -