📄 edita.asp
字号:
<%
user=request("user")
set conn=server.createobject("ADODB.CONNECTION")
conn.open "DBQ="+server.mappath("classsky.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("classsky.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")
timu=trim(request.form("timu"))
memo=trim(request.form("message"))
rs("timu")=timu
rs("日记内容")=memo
rs("保密")=request.form("baomi")
rs.update
if session("root")=cjpass then user=""
response.redirect "adminindex.asp?user="&user&""
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>修改日记</title>
<script src="ubbcode.js"></script>
<style>
BODY { scrollbar-track-color:#eeeeee; SCROLLBAR-FACE-COLOR: #ffffff; FONT-SIZE: 9pt; SCROLLBAR-HIGHLIGHT-COLOR: #ffffff; SCROLLBAR-SHADOW-COLOR: #ffffff; SCROLLBAR-3DLIGHT-COLOR: #ffffff; SCROLLBAR-ARROW-COLOR: #ffffff; FONT-FAMILY: "Verdana"; SCROLLBAR-DARKSHADOW-COLOR: #ffffff;CURSOR: url('images/c.cur')}
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: #000000; TEXT-DECORATION: none }
A:visited {COLOR: #000000; TEXT-DECORATION: none}
A:active {COLOR: #ffffff; TEXT-DECORATION: none}
A:hover {COLOR: #000000; background-color: #E8FCD0}
td {FONT-SIZE: 9pt; FONT-FAMILY: "Verdana"; color:#3333333;letter-spacing : 1pt ;line-height :14pt;WORD-BREAK: break-all;}
</style>
</head>
<body bgcolor="#FFFFFF" topmargin="0">
<center>
<img src="images/title.gif" width="197" height="58">
<form action="edita.asp?user=<%=user%>" method="POST" name="frmAnnounce">
<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"> 题目：
<input size="10" name="timu" type=text value="<%=rs("timu")%>">
</td>
</tr>
<tr>
<td colspan=3 align="center">今天是
<select name="Year">
<option value="<%=year(now())%>"><%=year(now())%></option>
<option value="2003">2003</option>
<option value="2004" selected>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" 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>
<option value="08">随便</option>
<option value="09">开心</option>
</select>
</td>
</tr>
<tr>
<td colspan="3">
<p align="center">
<!--#include file="getubb.asp"-->
</p>
</td>
</tr>
<tr>
<td colspan="3" align="center">
<textarea name="Message" cols="50" rows="12"><%=rs("日记内容")%></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 + -