📄 savearticle.asp

📁 不错的ASP整站源代码。在IIS环境下运行都没有问题

💻 ASP

字号:

<!--#include file="security.asp"-->
<!--#include file="inc/articlechar.inc"-->
<%
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("txt97.asp")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
%>
<%
if request.form("title")="" then 
response.write "错误提示:请输入文章标题!"
response.end
end if
if request.form("content")="" then 
response.write "错误提示:请输入文章内容!"
response.end
end if
%>
<%
title=htmlencode2(request.form("title"))
content=htmlencode2(request.form("content"))

sql="select * from learning" 

rs.open sql,conn,3,2
rs.addnew
rs("typeid")=Request.Form("typeid")
rs("user_id")=session("u_id")
rs("name")=rs_lar("netname")
rs("title")=title
rs("content")=content
rs("dateandtime")=now()
rs.update
rs.close
rs_lar("huoli")=rs_lar("huoli")+1
rs_lar.update
rs_lar.close
%><head>
</head>
<script language="JavaScript">
<!--

	if (confirm("发表文章成功，您还要继续发表吗？"))
	 {
		window.location = "addarticle.asp";
	 }
	 else  {
	 	window.location = "myarticle.asp?user_id=<%=session("u_id")%>";
	 }
-->
</script>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -