⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 shopnews_save.asp

📁 校园二手交易系统,具有完备的后台操作以及应用功能!
💻 ASP
字号:
<!--#include file="mdb.asp"-->
<%
if request.form("temp")="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('非法操作!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
else
if request.form("name")="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('新闻名称不能为空!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
end if
if request.form("content")="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('新闻描述不能为空!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
end if

name=request.form("name")
content=request.form("content")


set rs=server.createobject("adodb.recordset")
sql="select * from new where user_id="&session("user_id")&""
rs.open sql,conn,1,3
rs.addnew
rs("user_id")=session("user_id")
rs("name")=name
rs("content")=content
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing

session("antry")="" '提交成功,清空session("antry"),以防重复提交!!
%><%end if%><!--#include file="Inc/MsgBox.asp"--><%
Call MsgBox("发布成功","GoUrl","shopnews.asp")
    response.End()
%>

⌨️ 快捷键说明

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