📄 edit.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<!--#include file="conn.asp"-->
<!--#include file="admin_xy.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>编辑结果</title>
</head>
<body><%
'====================================================================
' 请你保留这段说明，这并不会影响你的速度. 交流QQ:31424717
' 程序制作：找北
' 升级时间： 2006-2-5
' E-Mail: g362hao@gmail.com
'====================================================================
%>
<p>
<!--#include file="i.asp"-->
<!--#include file="function.asp"-->
<%
id=request("id")
title=request("title")
text=request("text")
classid=request("classid")
an=request("an")
anan=request("anan")
pic=request("pic")
if title="" or text="" or classid="" then
response.write "数据填写不完整！"
fa
end if
set rs=Server.CreateObject("ADODB.Recordset")
rsstr="select * from art where id="&id
rs.open rsstr,conn,1,3
if rs.recordcount<1 then
response.write "没有此文！"
fa
end if
if title<>"" then rs("title")=title
if text<>"" then rs("text")=text
if classid<>"" then rs("classid")=classid
if anan<>"" then rs("anan")=anan
if an<>"" then rs("an")=true
rs.update
upup(pic)
response.write "编辑成功!ID为"&rs("id")&""
rs.close
set rs=Nothing
conn.close
set conn=nothing
%>
<br/>----------<br/>
<a href="list.asp?xy=<%=xy%>">文章管理</a><br/>
<a href="index.asp?xy=<%=xy%>">管理首页</a>
</p>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -