📄 new.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%dim tid,uid
tid=request("id")
usid=request.Cookies("user")
uid=request.Cookies("stname")
if usid<>"管理员" and usid<>"会长" then
uid=usid
end if
if tid="" or usid="" then
response.Write("来源未知！请先登陆！")
response.End()
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<base onmouseover="window.status='欢迎使用有L.Y.Z开发的学生社团管理网络平台';return true"><LINK href="all.css" rel=StyleSheet type=text/css></head>
<body>
<table><form name="form1" method="post" action="in_new.asp">
<tr> <td> 主题：</td> <td><input name="txt1" type="text" size="30" maxlength="30">
<input type="hidden" name="txt3" value="<%=tid%>">
<input type="hidden" name="txt4" value="<%=uid%>">
</td> </tr><tr>
<td valign="top">内容： </td>
<td>
<textarea name="txt2" cols="60" rows="15"></textarea></td></tr>
<tr><td></td>
<td align="center">
<input name="cmdOK" type="button" id="cmdOK" value="提交">
<input type="reset" name="Submit2" value="重置">
</td>
</tr></form></table>
</body>
</html>
<SCRIPT language=VBScript>
sub cmdOK_OnClick
if form1.txt1.value="" then
alert "提示: 请输入主题!"
form1.txt1.focus
else
if form1.txt2.value="" then
alert "提示: 请输入内容!"
form1.txt2.focus
else
call form1.submit()
end if
end if
end sub
</SCRIPT>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -