ok.asp

来自「中原商贸城 中原商贸城 项目库 企业库 供求信息 会员 招聘 企业展示」· ASP 代码 · 共 38 行

ASP
38 行
字号 
<!--#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
%>

ok.asp - 源码说明

本页面展示了「中原商贸城 中原商贸城 项目库 企业库 供求信息 会员 招聘 企业展示」中的 ok.asp 源码文件，采用 ASP 编程语言编写，共 38 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与商相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?