📄 bulletin.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--===========================================================
无限设计留言本 -- WXDESIGN Guestbook V1.0 by WXDESIGN 2004.8.4
'=============================================================-->
<!--#include file="odbc.asp"-->
<!--#include file="head.asp"-->
<!--#include file="inc/css.asp"-->
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="keywords" content="wxdesign,无限设计留言本,guestbook,asp">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无限设计留言本---发布公告</title>
<body>
<%
select case request("act")
case "bulladd"
call bulladd()
case else
call bullmain()
end select
sub bullmain()
if not session("log")="true" then
errorinfo="您没有登陆或已经退出登陆。"
error(errorinfo)
exit sub
else
%>
<table width="500" border="0" cellspacing="0" cellpadding="0" style="border: 1px solid #495474; padding-left: 1; padding-right: 1; padding-top: 1; padding-bottom: 1">
<form name="form1" method="post" action="?act=bulladd">
<tr>
<th height="60" colspan="2"><img src="img/suc.gif" width="26" height="26" align="absmiddle">
发布公告</th>
</tr>
<tr>
<td width="30%" align="right" valign="middle">管理QQ：</td>
<td height="30">
<input name="qq" type="text" id="qq"></td>
</tr>
<tr>
<td width="30%" align="right" valign="middle">公告标题：</td>
<td height="30">
<input name="title" type="text" id="title"></td>
</tr>
<tr>
<td width="30%" align="right" valign="top">公告正文：</td>
<td><textarea name="content" cols="40" rows="5" id="content"></textarea>
<br>
</td>
</tr>
<tr align="center">
<td height="50" colspan="2" valign="middle">
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="清除">
</td>
</tr>
</form>
</table>
<%
end if
end sub
sub bulladd()
if not session("log")="true" then
errorinfo="您没有登陆或已经退出登陆。"
error(errorinfo)
exit sub
else
dim uid,home,email,qq,title,content,top,sex
uid="admin"
%>
<%
end sub
%>
</body>
<!--#include file="foot.asp"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -