⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 libadd.asp

📁 基于ASP开发的聊天室源码
💻 ASP
字号:
<%Response.Expires=0%>
<%
if not IsArray(Session("info")) then Response.Redirect "err1.asp?kind=01"
info=Session("info")
if InStr(Application("maninfo"),"," & info(0) & ",")<>0 then Response.Redirect "manyou.asp"
gradeinfo=Application("gradeinfo")
if gradeinfo(info(1),6)<>true then Response.Redirect "err.asp?kind=23"
%>
<html>
<head>



<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>WEB 词库</title>
<Script Language="JavaScript">
function add()
{
if(myform.word.value==""){alert("请输入具体的内容!");return false;}
}
</Script>
<style>
<!--
fieldset     { font-size: 10pt }
.but         { width: 100%; height: 18 }
legend       { font-size: 10pt }
table        { font-size: 10pt }
-->
</style>
</head>
<body bgcolor="buttonface" style="border: 3px double buttonface" link="#000000" vlink="#000000" alink="#800000">
<form method="POST" action="libaddok.asp" name="myform" onsubmit="return(add());">
<table border="0" cellpadding="2" style="border-collapse: collapse" bordercolor="#111111" width="592" id="AutoNumber1" height="282">
<tr>
<td align="center" width="588" valign="top" height="238">
<fieldset style="height:100%">
<legend>酷词词库--添加酷词</legend>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2">
    <tr>
      <td width="100%" align="center"><br>
      请在下面填写你想加入的内容<br>
      <br>
      <br>
      <input type="text" name="word" size="75" maxlength="100"><p align="left">&nbsp;&nbsp;&nbsp; 
      注意:<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 1.既可以添加普通发言,也可以添加动作。<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 2.如果是添加动作,则请在前面添加标识符 // 。<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 3.可以使用 (name) 和 (self)。待发言发出后,(name) 
      会自动被替换为对<br>
&nbsp;&nbsp;&nbsp; 方的名字,(self) 会被替换成自己的名字)</td>
    </tr>
</table>
</fieldset></td>
  </tr>
  <tr>
    <td height="21" width="588" align="center">
<input type="submit" value=" 确 定 " name="B1">
<input type="reset" value=" 重 置 " name="B2">
<input type="button" value=" 返 回 " name="B3" onclick="javascript:location.href='lib.asp'">
<input type="button" value=" 关 闭 " name="B4" onclick="javascript:window.close();"></td>
  </tr>
  <tr>
    <td height="11" width="588" align="right">
<a href="http://aspxer.com/go.aspx?action=nowchat" target="_blank"><font style="font-size: 8pt" color="#808080">NowChat 2.2 - Powered by 喳喳鸟</font></a></td>
  </tr>
  </table>
</form>
</body>
</html>

⌨️ 快捷键说明

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