📄 message.asp
字号:
<!--#include file="../config/sys.asp"-->
<%a=check_session()
id=cint(Request.QueryString("id"))
flog=trim(Request.QueryString("flog"))
form=trim(Request.QueryString("form"))
if form="yes" then
input_data=Trim(Request.Form("input_data"))
if flog="add" then
input_date=cstr(now())
sql="insert into USER_BLOG (u_id,input_date,input_data) values ('"&session("user_name")&"','"&input_date&"','"&input_data&"')"
conn.execute(sql)
elseif flog="edit" then
sqlpp="update USER_BLOG set input_data='"&input_data&"' where u_id='"&session("user_name")&"' and id="&id&""
conn.execute(sqlpp)
END IF
id=""
flog=""
form=""
end if
if flog="del" then
sqlPP="delete from USER_BLOG where u_id='"&session("user_name")&"' and id="&id&""
conn.execute(sqlpp)
ID=0
end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style.css" rel="stylesheet" type="text/css" />
</head>
<body>
<TABLE style="TABLE-LAYOUT: fixed" height=100% cellSpacing=0 cellPadding=0 width="99%" border=0>
<TBODY>
<TR height=3 width="100%">
<TD> <TABLE style="TABLE-LAYOUT: fixed" height=3 cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR height=1>
<TD width=1></TD>
<TD width=1></TD>
<TD width=1></TD>
<TD bgColor=#DCDCDC></TD>
<TD width=1></TD>
<TD width=1></TD>
<TD width=1></TD>
</TR>
<TR height=1>
<TD></TD>
<TD bgColor=#DCDCDC colSpan=2></TD>
<TD bgColor=#f7f8f9></TD>
<TD bgColor=#DCDCDC colSpan=2></TD>
<TD></TD>
</TR>
<TR height=1>
<TD></TD>
<TD bgColor=#DCDCDC></TD>
<TD bgColor=#f7f8f9 colSpan=3></TD>
<TD bgColor=#DCDCDC></TD>
<TD></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD> <TABLE style="TABLE-LAYOUT: fixed" height="100%" cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<TD width=1 bgColor=#DCDCDC></TD>
<TD id=oINNER bgColor=#FFFFFF>
<table border="0" width="100%" id="table1" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td height="24" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom-style: dotted; border-bottom-width: 1px" colspan="3">
<font color="#999999"><b> 个人备忘录</b></font></td>
</tr>
<tr><form method="POST" action="message.asp?flog=<%=flog%>&form=yes&id=<%=id%>" >
<%if id<="0" then
sql="Select top 1 * From USER_BLOG where u_id='"&session("user_name")&"'ORDER BY ID DESC "
else
sql="Select top 1 * From USER_BLOG where u_id='"&session("user_name")&"' and id="&id&""
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,2,1
if not rs.eof then
%>
<td width="35%" style="border-left-width: 1px; border-right-style: dotted; border-right-width: 1px; border-top-width: 1px; border-bottom-width: 1px" height="20" align="center">
<%if flog<>"add" then %>[<a href="?flog=add">增加</a>] <%end if%><%if flog<>"edit" and id<>"" then %>[<a href="?flog=edit&id=<%=id%>">修改</a>] <%end if%>
[<a href="?flog=del&id=<%=rs("id")%>">删除</a>] <%if flog="add" or flog="edit" then %>[<a href="#" onClick="submit();">保存</a>]<%end if%>
</td>
<td width="35%" style="border-left-width: 1px; border-right-style: dotted; border-right-width: 1px; border-top-width: 1px; border-bottom-width: 1px" height="20" align="right">
<INPUT class=text size=22 disabled value="<%if id="" then%><%=now()%><%else%><%=rs("input_date")%><%end if%>"></td>
<td width="30%" align="center"><b>以前备忘录</b></td>
</tr>
<tr>
<td width="70%" style="border-left-width: 1px; border-right-style: dotted; border-right-width: 1px; border-top-width: 1px; border-bottom-width: 1px" valign="top" align="center" colspan="2">
<%if flog="add" then %><textarea rows="29" name="input_data" cols="84" >请在这里输入你要写的备忘内容</textarea><%elseif flog="edit" then%><textarea rows="29" name="input_data" cols="84" ><%=rs("input_data")%></textarea><%else%><textarea rows="29" name="input_data" cols="84" disabled ><%=rs("input_data")%></textarea><%end if%>
</td>
<%else%>
<td width="35%" style="border-left-width: 1px; border-right-style: dotted; border-right-width: 1px; border-top-width: 1px; border-bottom-width: 1px" height="20" align="center">
<%if flog<>"add" then %>[<a href="?flog=add">增加</a>] <%end if%><%if flog<>"edit" and id<>"" then %>[<a href="?flog=edit&id=<%=id%>">修改</a>] <%end if%>
<%if flog="add" or flog="edit" then %>[<a href="#" onClick="submit();">保存</a>]<%end if%>
</td>
<td width="35%" style="border-left-width: 1px; border-right-style: dotted; border-right-width: 1px; border-top-width: 1px; border-bottom-width: 1px" height="20" align="right">
<INPUT class=text size=22 disabled value="<%if id="" then%><%=now()%><%else%><%end if%>"></td>
<td width="30%" align="center"><b>以前备忘录</b></td>
</tr>
<tr>
<td width="70%" style="border-left-width: 1px; border-right-style: dotted; border-right-width: 1px; border-top-width: 1px; border-bottom-width: 1px" valign="top" align="center" colspan="2">
<%if flog="add" then %><textarea rows="29" name="input_data" cols="84" >请在这里输入你要写的备忘内容</textarea><%elseif flog="edit" then%><textarea rows="29" name="input_data" cols="84" ></textarea><%else%><textarea rows="29" name="input_data" cols="84" disabled ></textarea><%end if%>
</td>
<%end if
rs.close
%>
</form>
<td width="30%">
<iframe name="bwl" marginwidth="1" marginheight="1" height="100%" width="100%" align="top" border="0" frameborder="0" src="message_old.asp">
</iframe></td>
</tr>
</table>
</TD>
<TD width=1 bgColor=#DCDCDC></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR height=3 width="100%">
<TD> <TABLE style="TABLE-LAYOUT: fixed" height=3 cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR height=1>
<TD width=1></TD>
<TD width=1 bgColor=#DCDCDC></TD>
<TD width=1 bgColor=#f7f8f9></TD>
<TD bgColor=#f7f8f9></TD>
<TD width=1 bgColor=#f7f8f9></TD>
<TD width=1 bgColor=#DCDCDC></TD>
<TD width=1></TD>
</TR>
<TR height=1>
<TD></TD>
<TD bgColor=#DCDCDC colSpan=2></TD>
<TD bgColor=#f7f8f9></TD>
<TD bgColor=#DCDCDC colSpan=2></TD>
<TD></TD>
</TR>
<TR height=1>
<TD colSpan=3></TD>
<TD bgColor=#DCDCDC></TD>
<TD colSpan=3></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -