kh_save.asp

客户管理系统使用ASP.NET和Access

<!--#include file="islogin.asp"-->
<!--#include file="conn.asp"-->
<%
SELECT CASE REQUEST("action")
'修改开始---------------------------------------------------------------------------------
CASE "add"
MemberID=session("MemberID")
Member=session("Member")
Company=request("Company")
Cadd=request("Cadd")
Cwww=replace(request("Cwww")," ","")
Ctel=request("Ctel")
Cfax=request("Cfax")
Cname=request("Cname")
Cmob=request("Cmob")
Cqq=replace(request("Cqq")," ","")
Cali=replace(request("Cali")," ","")
Cemail=replace(request("Cemail")," ","")
Cabout=request("content")
selectTT=request("selectTT")
if Company="" or Cabout="" then
 response.Write("<script>alert('公司名称和内容不能为空！');history.go(-1)</script>")
 response.end
else
set rs=server.createobject("adodb.recordset")
sql="select * from KH where (id is null)"
rs.open sql,conn,1,3
rs.addnew
rs("MemberID")=MemberID
rs("Member")=Member
rs("Company")=Company
rs("Cadd")=Cadd
rs("Cwww")=Cwww
rs("Ctel")=Ctel
rs("Cfax")=Cfax
rs("Cname")=Cname
rs("Cqq")=Cqq
rs("Cmob")=Cmob
rs("Cali")=Cali
rs("Cemail")=Cemail
rs("Cabout")=Cabout
rs("selectTT")=selectTT
rs("Addtime")=now
rs("Uptime")=now
rs("Addip")=Request.ServerVariables("Remote_Addr")
rs.update
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
response.redirect "KHallmy.asp"
'修改结束--------------------------------------------------------------------------------


CASE "mod"
fileid=request("ID")
MemberID=session("MemberID")
Member=session("Member")
Company=request("Company")
Cadd=request("Cadd")
Cwww=replace(request("Cwww")," ","")
Ctel=request("Ctel")
Cfax=request("Cfax")
Cname=request("Cname")
Cmob=request("Cmob")
Cqq=replace(request("Cqq")," ","")
Cali=replace(request("Cali")," ","")
Cemail=replace(request("Cemail")," ","")
Cabout=request("content")
selectTT=request("selectTT")
if Company="" and Cname="" then
response.write "<script>history.go(-1)</script>"
else
set rs=server.createobject("adodb.recordset")
sql="select * from KH where id="+fileid
rs.open sql,conn,1,3
rs("Company")=Company
rs("Cadd")=Cadd
rs("Cwww")=Cwww
rs("Ctel")=Ctel
rs("Cfax")=Cfax
rs("Cname")=Cname
rs("Cqq")=Cqq
rs("Cmob")=Cmob
rs("Cali")=Cali
rs("Cemail")=Cemail
rs("Cabout")=Cabout
rs("selectTT")=selectTT
rs("Uptime")=now
rs.update
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
response.redirect "KH.asp"
'修改结束--------------------------------------------------------------------------------

END SELECT
%>