articleupdate.asp

来自「一个互联网络公司网站源码」· ASP 代码 · 共 28 行

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

		articlePic=trim(request.Form("articlePic"))
		NewsID=STN_Pub.getdateID(4)
		Title=trim(request.Form("Title"))
		articleType=trim(request.Form("articleType"))
		content=trim(request.Form("content"))
	If request.Form("submit")="添加" Then

		sql="insert into article (id,title,articleType,articlePic,content) values ('"&NewsID&"','"&title&"','"&articleType&"','"&articlePic&"','"&content&"')"
		Conn.Execute(sql)
		'response.Write(sql)
		'response.End()
		Response.Redirect("articleList.asp")
	End If
	if request.Form("submit")="修改" and request.Form("ID")<>"" then
		if articlePic="" then
		updatestr=""
		else
		updatestr=",articlePic='"&articlePic&"'"
		end if
		sql="update article set title ='"&title&"',articleType='"&articleType&"'"&updatestr&", content='"&content&"' where id='"&request.Form("ID")&"'"
		Conn.Execute(sql)
		Response.Redirect("articleList.asp")
	End If
%>