www.gusucode.com > 枫的记忆个人主页程序源码程序 > downcode.com\fengdejiyizh\admin\add_diary.asp
<link href="admin.css" rel="stylesheet" type="text/css"> <% if session("level")<>"1" then Response.Write("你无权访问此页面!") Response.End end if %> <!--#INCLUDE FILE="conn.asp"--> <% hidden=trim(request("hidden")) if hidden="ok" then d_type=trim(request("d_type")) title=request("title") weather=trim(request("weather")) add_time=trim(request("add_time")) content=request("content") who=trim(request("who")) set rs=server.createobject("adodb.recordset") sql="select * from diary" rs.Open sql,conn,1,3 rs.addnew rs("d_type")=d_type rs("title")=title rs("weather")=weather rs("content")=content rs("who")=who rs("add_time")=now() rs.update if err.number<>0 then Response.Write("<script language=javascript>alert('添加失败,请点击返回');history.back();</script>") Response.End else Response.Redirect "manage_diary.asp" Response.End end if end if %> <script language="JavaScript" src="inc/ubbcode.js"></script> <body bgcolor="#CDD5DE"> <br><br> <table width="75%" border="0" cellspacing="1" cellpadding="0" align="center" class="tablebody"> <tr> <td><table width="100%" border="0" cellpadding="5" cellspacing="0"> <tr> <th>签 写 日 记</a></span></th> </tr> </table></td> </tr> <tr> <td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="1" cellpadding="8"> <form name="add_diary" method="post" action="add_diary.asp"> <input type="hidden" name="hidden" value="ok"> <input type="hidden" name="who" value="<%=session("true_name")%>"> <tr bgcolor="#F3F5F8"> <td width="30%" align="right">日 记 类 型:</td> <td width="70%"><select name="d_type"> <option value="公开日记">公开日记</option> <option value="私人日记">私人日记</option> </select></td> </tr> <tr bgcolor="#F3F5F8"> <td width="30%" align="right">标 题:</td> <td width="70%"><input name="title" type="text" id="title" size="50"></td> </tr> <tr bgcolor="#F3F5F8"> <td align="right">天 气:</td> <td><input name="weather" type="text" id="weather" size="30"></td> </tr> <tr bgcolor="#F3F5F8"> <td align="right">UBB 标 签:</td> <td><!--#include file="inc/UBBBln.asp"--><%=UBBBln("content")%></td> </tr> <tr bgcolor="#F3F5F8"> <td align="right">内 容:</td> <td><textarea name="content" cols="60" rows="10"></textarea></td> </tr> <tr bgcolor="#F3F5F8"> <td height="40" colspan="2" align="center"><input type="submit" name="Submit" value="提 交"> <input type="reset" name="Submit2" value="重 置"></td> </tr> </form> </table></td> </table> </body> </html>