📄 actaddform.asp
字号:
<%@ LANGUAGE=VBScript.Encode codepage ="936" %>
<%Response.Buffer = True
Response.Expires = 0
Response.CacheControl = "Private"
Sub Msg (v)
Response.Write "<html><head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><meta http-equiv='pragma' content='no-cache'><style type=text/css>body{color:black;font-family:宋体;font-size:9pt;background-color:buttonface;border-bottom:medium none;border-left:medium none;border-right:medium none;border-top:medium none;padding-bottom:0px;padding-left:0px;padding-right:0px;padding-top:0px}</style></head><body leftMargin=0 topMargin=0 marginheight=0 marginwidth=0>"
Response.Write "<script Language=JavaScript>alert('" & v & "');window.close();</script></body></html>"
Response.End
End Sub
nickname=Session("hxf_u_nickname")
If Session("hxf_u_inthechat") <> "1" Then Msg "不在聊天室中，不能添加动作。"
If nickname = "" Then Msg "不在聊天室中，不能添加动作。"%>
<html>
<head>
<title><%=Application("wsaxhxf_c_chatroomname")%>--添加新动作</title>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<style type=text/css>
body{color:black;font-family:宋体;font-size:9pt;background-color:buttonface;border-bottom:medium none;border-left:medium none;border-right:medium none;border-top:medium none;padding-bottom:0px;padding-left:0px;padding-right:0px;padding-top:0px}
td{font-family:宋体;font-size:9pt;}
input{font-family:宋体;font-size:9pt;}
select{font-family:宋体;font-size:9pt;}
</style>
<script language=Javascript>
function check(){
f1v = document.send.actname.value;
f2v = document.send.range.options[document.send.range.selectedIndex].value;
f3v = document.send.act.value;
if(f1v == "" || f3v == "" || f3v == "//"){
alert("请将内容填写完整。");
return false;
}
if(f1v.length > 4){
alert("动作名称必须小于 4 个字符。");
return false;
}
if(f1v.indexOf('"') != -1 || f1v.indexOf("'") != -1){
alert("动作名称不能带有半角的引号。");
return false;
}
if(f2v == "0" && f3v.indexOf("%%") != -1){
alert("对自己的动作不能带有“%%”。");
return false;
}
if(f2v == "1" && f3v.indexOf("%%") == -1){
alert("对别人的动作必需带有“%%”。");
return false;
}
if(f3v.substring(0, 2) != "//"){
alert("动作必须以“//”打头。");
return false;
}
if(f3v.substring(0, 3) == "///"){
alert("动作必须以“//”打头。");
return false;
}
if(f3v.indexOf('"') != -1 || f3v.indexOf("'") != -1){
alert("动作内容不能带有半角的引号。");
return false;
}
if(f3v.length > 120){
alert("动作内容必须小于 120 字符。");
return false;
}
if(confirm("真的要添加这条动作吗？")){
document.send.ok.disabled = 1;
return true;
}
else{
return false;
}
}
function help(){
url = "actaddhelp.asp"
window.open(url, "", "width=360, height=360");
}
</script>
</head>
<body topmargin="8">
<form name="send" method="post" action="actadd.asp" onsubmit="return(check())">
<table border="0" align="center">
<tr>
<td>动作名称：</td>
<td>
<input type="text" name="actname" maxlength="4" size="8">
动作类型：
<select name="range">
<option value="0" selected>对自己(##)的动作</option>
<option value="1">对别人(%%)的动作</option>
</select>
</td>
</tr>
<tr>
<td>动作内容：</td>
<td>
<input type="text" name="act" maxlength="120" size="42" value="//">
</td>
</tr>
<tr align="center">
<td colspan="2">
<input type="button" name="button" value="帮助(H)" onClick="return(help())">
<input type="submit" name="ok" value="提交(S)" accesskey="s">
<input type="reset" name="reset" value="重写(R)" accesskey="r">
<input type="button" name="quit" value="关闭(Q)" accesskey="q" onclick="window.close()">
</td>
</tr>
</table>
</form>
<script Language=JavaScript>
document.send.actname.focus();
</script>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -