aff.asp

这个论坛也不错．适合做毕业设计的

<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="top.asp" -->
<%
set my_conn= Server.CreateObject("ADODB.Connection")
my_Conn.Open ConnString

Function ChkString(str)
if str = "" then 
 str = "<无内容>"
Else
 str=replace(str,"'","’",1,-1,1)
end if
	 
	 ChkString = str
End Function

if Request.QueryString("admin_login")<>"yes" then

strsql="select sfadmin_subject, sfadmin_message from sfadmin"
set rs = my_conn.Execute (strsql)
%>
<table align="center"  bgcolor=<%=TableColor%> border="0" width=500 cellspacing="1" cellpadding="3" class="sft">
<tr><td bgcolor=<%=HeadColor%> align="center" class="sfh">公告:<%=rs("sfadmin_subject")%></td></tr>
<tr><td bgcolor=<%=CellColor1%>><br><%=rs("sfadmin_message")%><br></td></tr>
</table><br><center><a href="aff.asp?admin_login=yes">管理公告</a></center><br>
<%
else '管理员登录
if Request.Form("user")<>"" then
set my_conn= Server.CreateObject("ADODB.Connection")
my_Conn.Open ConnString
strsql = "select SFAdmin_Name, SFAdmin_Password from SFAdmin"
set rs = my_conn.Execute (strSQL)
if Request.Form("user")=rs("SFAdmin_Name") and Request.Form("pass")=rs("SFAdmin_password") then
strsql = "update sfadmin set sfadmin_subject = '" &trim(chkString(server.htmlencode(Request.Form("subject")))) & "', sfadmin_message = '" & trim(chkString(server.htmlencode(Request.Form("message")))) &"<br><br>*管理员" & rs("SFAdmin_Name") &"发布于" & now() &"'"
my_conn.Execute (strsql)
Response.Write "<br><br><br><center>已经更新了论坛的公告信息!</center>"
else
Response.Write "<P align=center>管理员名称或密码错误! 请正确输入!<br><br>"
Response.Write "<a href=""aff.asp"">退回</a></p>"
end if



else
%>
<form action="aff.asp?admin_login=yes&" method=post>
<input type=hidden name="topic_id" value="<%=Request.QueryString("topic_id") %>">
<table align="center"  bgcolor=<%=TableColor%> border="0" width=450 cellspacing="1" cellpadding="3" class="sft">
<tr><td bgcolor="<% =HeadColor %>" colspan=2 class="sfh" align="center">管理公告</td></tr>                
<TR><TD bgcolor="<% =CellColor1 %>" width="30%" align="right">管理员名称</td>
<TD bgcolor="<% =CellColor1 %>" width="70%"><input type=text name="user" size=20 value="<%=Request.Cookies("User")("Name")%>" class="box"></td>
<TR><TD bgcolor="<% =CellColor1 %>" align="right">管理员密码</td>
<TD bgcolor="<% =CellColor1 %>"><input type=password name="pass" size=20 value="<%=Request.Cookies("User")("Pword")%>" class="box"></td></tr>
<tr><td bgcolor=<%=CellColor1%> align="right">公告标题:</td>
<td bgcolor=<%=CellColor1%>>
<input maxLength="45" name="Subject" size="45" class="box"> </td></tr>
<tr><td bgcolor=<%=CellColor1%> vAlign="top" align="right">公告内容:</td>
<td bgcolor=<%=CellColor1%>><textarea cols="45" name="Message" rows="6" wrap="VIRTUAL" class="box"></textarea></td></tr>
<TR><TD bgcolor="<% =CellColor1 %>" colspan=2 align=center><Input type=submit value="确 定" class="btn"></td></TR>
</form></TABLE>
<%end if
end if

my_conn.Close
set my_Conn = nothing
set rs = nothing
%>
</body></html>