📄 edit_article.asp
字号:
<!--#include file=blogdata.asp-->
<!--#include file=top.asp-->
<%
if session("username")="" then
response.Redirect "index.asp"
end if
%>
<%
if not isnumeric(request("id")) then
Response.Redirect"index.asp"
response.end
end if
%>
<%
if request("id")=0 then
Response.Redirect"index.asp"
response.end
end if
%>
<%
dim sql
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from article where id="&request("id")&" order by id desc"
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("没有日志")
else
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link href="../lx.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
<tr>
<td>
<table width="600" border="0" cellpadding="0" cellspacing="1" bgcolor="#DEE7EC">
<form name="form1" method="post" action="edit_article.asp?article=edit&id=<%=request("id")%>">
<tr>
<td width="80" height="30" bgcolor="#FAFCFE"><div align="center">日志标题</div></td>
<td height="30" bgcolor="#FAFCFE">
<input name="title" type="text" class="hr" id="listname" value="<%=rs("title")%>" size="20"></td>
</tr>
<tr>
<td height="30" bgcolor="#FAFCFE"><div align="center">日志分类</div></td>
<td height="30" bgcolor="#FAFCFE">
<%dim rs1
set rs1=createobject("adodb.recordset")
rs1.open "select * from class order by id",conn,1,1
if rs1.eof and rs1.bof then
response.Write("没有记录")
else
%>
<select name="Class" size="1" class="hr" id="Classid">
<%do while not rs1.eof%>
<option value="<%=rs1("id")%>"><%=trim(rs1("class"))%></option>
<%rs1.movenext
loop
end if
rs1.close
set rs1=nothing%>
</select>
</td>
</tr>
<tr>
<td height="30" bgcolor="#FAFCFE"><div align="center">日志内容</div></td>
<td height="200" bgcolor="#FAFCFE">
<textarea name="cont" cols="50" rows="10" class="hr" id="listtext"><%=replace(trim(rs("cont")),"<br>","")%></textarea>
<br>
<br> <input name="Submit" type="submit" value="提交修改结果"></td>
</tr></form>
</table></td>
</tr>
</table>
<%end if%>
</body>
</html>
<%
if request("article")="edit" then
dim id
id=request.form("class")
set rs1=server.createobject("adodb.recordset")
rs1.open "select * from class where id="&id ,conn,1,1
rs1.close
set rs1=nothing
function changechr(str)
changechr=replace(replace(replace(replace(str,"<","<"),">",">"),chr(13),"<br>")," "," ")
changechr=replace(replace(replace(replace(changechr,"[owen]","<img src="),"[b]","<b>"),"[red]","<font color=CC0000>"),"[big]","<font size=5>")
changechr=replace(replace(replace(replace(changechr,"[/owen]","></img>"),"[/b]","</b>"),"[/red]","</font>"),"[/big]","</font>")
end function
set rs=server.createobject("adodb.recordset")
rs.open "select * from article where id="&request("id") ,conn,1,3
rs("title")=request.form("title")
rs("class")=request.form("class")
rs("cont")=changechr(request.form("cont"))
rs("time")=now()
rs.update
rs.close
set rs=nothing
response.write "<script language=javascript>location.href='article.asp?id="&request("id")&"';</script> "
response.End
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -