📄 add.asp
字号:
<%
user=request("user")
set conn=server.createobject("ADODB.CONNECTION")
conn.open "DBQ="+server.mappath("pfcr1015.asp")+";DRIVER={Microsoft Access Driver (*.mdb)};"
set rs1=server.createobject("adodb.recordset")
sql1="SELECT * from admin"
rs1.open sql1,conn,1,1
set rs2=server.createobject("adodb.recordset")
sql2="SELECT * from user where user='"&user&"'"
rs2.open sql2,conn,1,1
if not rs2.eof then
pass=rs2("pass")
url=rs2("url")
mail=rs2("mail")
sm=rs2("sm")
end if
if session("root")<>pass then
response.redirect "index.asp?user="&user&""
end if
set conn=server.createobject("adodb.connection")
conn.open "DBQ="+server.mappath("pfcr1015.asp")+";DRIVER={Microsoft Access Driver (*.mdb)};"
sql="select * from txt"
set rs=server.createobject("adodb.recordset")
rs.Open sql,conn,1,3
if request.form("btnadd")="写入日记" and request.form("message")<>"" then
rs.addnew
pic=request.form("xc")
pic="face/" & pic & ".gif"
rs("用户")=user
rs("日")=request.form("day")
rs("月")=request.form("month")
rs("年")=request.form("year")
rs("天气")=request.form("tq")
rs("心情")=pic
memo=trim(request.form("message"))
Memo=server.HTMLEncode(Memo)
Memo=Replace( Memo, vbCrLf, "<BR>" )
Memo=Replace( Memo, " ", " " )
rs("日记内容")=memo
rs("保密")=request.form("baomi")
rs("addtime")=now()
rs.update
sql2="SELECT * from user where user='"&user&"'"
Set Rs2=conn.Execute(sql2)
sql2="update user set sm="&sm&"+1 WHERE user='"&user&"'"
conn.execute(sql2)
response.redirect "adminindex.asp?user="&user&""
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>写日记</title>
<style>
BODY {BACKGROUND-ATTACHMENT: fixed; BACKGROUND-IMAGE: url('<%=logo%>'); BACKGROUND-POSITION: center; BACKGROUND-REPEAT: no-repeat;scrollbar-track-color:#ffffff; SCROLLBAR-FACE-COLOR: #ffffff; FONT-SIZE: 9pt; SCROLLBAR-HIGHLIGHT-COLOR: #ffffff; SCROLLBAR-SHADOW-COLOR: #eeeeee; SCROLLBAR-3DLIGHT-COLOR: #eeeeee; SCROLLBAR-ARROW-COLOR: #dddddd; FONT-FAMILY: "Verdana"; SCROLLBAR-DARKSHADOW-COLOR: #ffffff
}
select{font-size:8pt;font-family:verdana;background-color:#ffffff;border:1px dotted #cccccc; color:#333333;}
input{font-size:8pt;font-family:verdana;background-color:#ffffff;border-bottom:1px solid #cccccc;border-left:1px solid #cccccc; border-top:0px solid #cccccc;border-right:0px dotted #cccccc;color:#333333;}
textarea{font-size:8pt; font-family:verdana;background-color:#ffffff;border:1px dotted #cccccc;color:#333333;letter-spacing : 1pt ;line-height : 150%}
A {
COLOR: #333333; TEXT-DECORATION: none ;border-bottom:1px dotted
}
A:hover {
COLOR: #333333; background-color:#C0FFFF;
}
td {FONT-SIZE: 9pt; FONT-FAMILY: "Verdana"; color:#3333333;letter-spacing : 1pt ;line-height : 150%}
</style>
</head>
<body topmargin="0">
<center><table style="FILTER: glow(color=#333333,direction=2)" align="center">
<br>
<font face=幼圆 color=#ffffff size=2> 写 日 记 </font>
</table>
<form method="post" action="add.asp?user=<%=user%>">
<table style="border:1px dotted #999999" border="0" cellspacing="10" cellpadding="0" width="50%">
<tr>
<td align="center">
<table border="0" cellpadding="2" cellspacing="4" width="100%">
<tr>
<td colspan=3 align="center">今天是
<select name="Year">
<option value="<%=year(now())%>"><%=year(now())%></option>
<option value="2003" selected>2003</option>
<option value="2004">2004</option>
</select>
年
<select name="Month">
<option value="<%=month(now())%>"><%=month(now())%></option>
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
<option value="9">9</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
</select>
月
<select name="Day">
<option value="<%=day(now())%>"><%=day(now())%></option>
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
<option value="9">9</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
<option value="13">13</option>
<option value="14">14</option>
<option value="15">15</option>
<option value="16">16</option>
<option value="17">17</option>
<option value="18">18</option>
<option value="19">19</option>
<option value="20">20</option>
<option value="21">21</option>
<option value="22">22</option>
<option value="23">23</option>
<option value="24">24</option>
<option value="25">25</option>
<option value="26">26</option>
<option value="27">27</option>
<option value="28">28</option>
<option value="29">29</option>
<option value="30">30</option>
<option value="31">31</option>
</select>
日 </td>
</tr>
<tr>
<td colspan="3" align="center">保密：
<select name="baomi">
<option value="n" selected>公开</option>
<option value="y">保密</option>
</select>
天气:
<select size="1" name="tq">
<option value="晴" selected>晴</option>
<option value="雨">雨</option>
<option value="雪">雪</option>
<option value="多云">多云</option>
<option value="风">风</option>
<option value="冰雹">冰雹</option>
<option value="晴转多云">晴转多云</option>
<option value="多云转雪">多云转雪</option>
<option value="多云转雨">多云转雨</option>
<option value="雾">雾</option>
<option value="阴">阴</option>
</select>
表情:
<select size="1" name="xc">
<option value="01" selected>普通</option>
<option value="02">高兴</option>
<option value="03">扮酷</option>
<option value="04">困了</option>
<option value="05">遗憾</option>
<option value="06">伤心</option>
<option value="07">脸红</option>
</select>
</td>
</tr>
<tr>
<td colspan="3">
<p align="center"> <img border="0" src="images/dia-b-icon.gif" width="21" height="21" align="absmiddle"></p>
</td>
</tr>
<tr>
<td colspan="3" align="center">
<textarea name="Message" cols="50" rows="12"></textarea>
</td>
</tr>
</table>
</td>
</tr>
</table>
<p>
<input type="submit" name="btnAdd" value="写入日记">
<input type="Reset" name="btnReset" value="我要重来">
<a href="adminindex.asp?user=<%=user%>"> 不写了，我要返回</a>
</form>
</center>
<%session("root")=pass%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -