📄 ok.asp

📁 中原商贸城中原商贸城项目库企业库供求信息会员招聘企业展示

💻 ASP

字号:

<!--#include file="../common/conn.asp"-->
<%

action=request.QueryString("action")

select case action

case "add"
title=Trim(Request.Form("title"))
content=Request.Form("Content")
sql="select * from diary"
rs.open sql,conn,1,3
rs.addnew
rs("title")=title
rs("content")=content
rs.update
rs.close
okstring="<html><head><meta http-equiv=Content-Type content=text/html; charset=gb2312><title>成功添加</title><meta http-equiv=refresh content=1;URL=add.asp><link href='../users/.css' rel='stylesheet' type='text/css'></head>"
okstring=okstring+"<body><font color=#FF6600><div align=center class=>成功发布公告，1秒后自动跳转到发布公告！</div></font></body></html>"
response.Write(okstring)

case "edit"
diaryid=Trim(Request.Form("diaryid"))
title=Trim(Request.Form("title"))
content=Request.Form("content")

set rs=server.CreateObject("adodb.recordset")
sql="select * from diary where id="&diaryid
rs.open sql,conn,1,3
rs("title")=title
rs("content")=content
rs.update
rs.close
okstring="<html><head><meta http-equiv=Content-Type content=text/html; charset=gb2312><title>成功修改</title><meta http-equiv=refresh content=1;URL=index.asp><link href='../users/.css' rel='stylesheet' type='text/css'></head>"
okstring=okstring+"<body><font color=#FF6600><div align=center>成功修改公告，1秒后自动跳转到<a href=index.asp>管理首页</a>！</div></font></body></html>"
response.Write(okstring)
end select
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -