📄 edita.asp
字号:
<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 {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%}
.td{border:1px dotted #999999}
</style>
<script language="javascript">
function check(ob)
{
if (ob.Message.value=="")
{alert("日记内容不能为空！");
return false;}
}
</script>
</head>
<body bgcolor="#FFFFFF" topmargin="0">
<%
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
cjpass=rs1("password")
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")
end if
if session("root")<>pass and session("root")<>cjpass then
response.redirect "index.asp?user="&user&""
end if
ID=Request("ID")
Set Conn=Server.CreateObject("ADODB.Connection")
DBPath=Server.MapPath("pfcr1015.asp")
Conn.open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open "Select * From txt Where 用户='"&user&"' and ID=" & ID,Conn,2,3
nr=rs("日记内容")
nr=Replace( nr, "<BR>",vbCrLf)
nr=Replace( nr, " ", " " )
xq=rs("心情")
if request.form("btnadd")="确定修改" then
pic=request.form("xc")
if pic<>"00" then
pic="face/" & pic & ".gif"
rs("心情")=pic
end if
rs("日")=request.form("day")
rs("月")=request.form("month")
rs("年")=request.form("year")
rs("天气")=request.form("tq")
memo=(request.form("message"))
Memo=server.HTMLEncode(Memo)
Memo=Replace( Memo, vbCrLf, "<BR>" )
Memo=Replace( Memo, " ", " " )
rs("日记内容")=memo
rs("保密")=request.form("baomi")
rs.update
if session("root")=cjpass then user=""
response.redirect "adminindex.asp?user="&user&""
end if
%>
<center><table style="FILTER: glow(color=#333333,direction=2)" align="center">
<br>
<font face=幼圆 color=#ffffff size=2> 修 改 日 记 </font>
</table>
<form method="post" action="edita.asp?user=<%=user%>" onSubmit="return check(this)">
<input value=<%=id%> type=hidden name=id>
<br>
<br>
<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())%>" selected><%=year(now())%></option>
<option value="2003">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"<%if rs("保密")="n" then%>selected<%end if%>>公开</option>
<option value="y"<%if rs("保密")="y" then%>selected<%end if%>>保密</option>
</select>
天气:
<input size="10" name="tq" type=text value="<%=rs("天气")%>">
表情:
<select size="1" name="xc">
<option value="01">普通</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>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -