📄 news_publish_save.asp

📁 北京华信东方网络办公系统

💻 ASP

字号:

<%@ Language=VBScript %>
<!--#include file= "../dbase.asp"-->
<%
for i = 1 to request.Form.Count
response.Write ("request.form("""&request.Form.Key(i)&""")<br>")
'response.Write ("request.form."&request.Form.Item(i))
next
if request.form("NewsContent")<>"" then
NewsContent=xuankong(request.form("NewsContent"))
else
NewsContent=request.Form("NewsTitle")
end if
if request.form("NewsTitle")<>"" then
NewsTitle=request.Form("NewsTitle")
else
NewsTitle=left(NewsContent,20)&"..."
end if
if request.form("NewsKind")<> "" then
NewsKind=request.form("NewsKind")
end if
if request.form("Rank")<>"" then
Rank=request.form("Rank")
end if
if request.form("ShowOfferMan")<>"" then
ShowOfferMan=request.form("ShowOfferMan")
end if
if request.form("NewsPullKind")<>"" then
NewsPullKind=request.Form("NewsPullKind")
end if

sql="INSERT INTO hxdf_news_content"
sql=sql&"      (v_title, t_content, v_OfferMan, c_ShowOfferMan, n_Kind, v_rank, d_OfferDate, "
sql=sql&"      v_PullKind, v_department)"
sql=sql&" VALUES ('"&NewsTitle&"','"&NewsContent&"','"&Session("UserTrueName")&"','"&ShowOfferMan&"',"&NewsKind&",'"&Rank&"',getdate(),'"&NewsPullKind&"','"&Session("DepartmentName")&"')"
on error resume next
conn.execute sql
if err.number<>0 then
response.Write err.Description
response.End
else
response.Write ("成功！")
end if
'response.Write sql
%>
<html>
<head>
<meta name="GENERATOR" Content="Microsoft Visual Studio.NET 7.0">
</head>
<body>



</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -