caseupdate.asp

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

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

<%

		NewsID=STN_Pub.getdateID(4)
		articlePic=trim(request.Form("articlePic"))
		Title=trim(request.Form("Title"))
		commend=trim(request.Form("commend"))
		url=trim(request.Form("url"))
		content=trim(request.Form("content"))
		orderindex=trim(request.Form("index"))
		if orderindex="" then orderindex=0
	If request.Form("submit")="添加" Then

		sql="insert into webCase (title,commend,Picurl,url,content,index) values ('"&title&"','"&commend&"','"&articlePic&"','"&url&"','"&content&"',"&orderindex&")"
		Conn.Execute(sql)
		Response.Redirect("caseList.asp")
	End If
	if request.Form("submit")="修改" and request.Form("ID")<>"" then
		if articlePic="" then
		updatestr=""
		else
		updatestr=",Picurl='"&articlePic&"'"
		end if
		sql="update webCase set title ='"&title&"',commend='"&commend&"'"&updatestr&", url='"&url&"', content='"&content&"',index="&orderindex&" where id="&request.Form("ID")
		Conn.Execute(sql)
		Response.Redirect("caseList.asp")
	End If
%>