gg_do.asp

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

<!--#include file="islogin.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="ubb.asp"-->
<%
function makefilename(fname)
  fname = replace(fname,"-","")
  fname = replace(fname," ","") 
  fname = replace(fname,":","")
  fname = replace(fname,"PM","")
  fname = replace(fname,"AM","")
  fname = replace(fname,"上午","")
  fname = replace(fname,"下午","")
  makefilename=fname
end function 
%>
<%
SELECT CASE REQUEST("action")
'添加开始---------------------------------------------------------------------------------
CASE "add"
title=request("title")
content=request("content")
up=request("up")
picurl=request("images")
addtime=now()
hits=request("hits")
if title="" and content="" then
response.write "<script>history.go(-1)</script>"
else
set rs=server.createobject("adodb.recordset")
sql="select * from GG where (id=null)"
rs.open sql,conn,1,3
rs.addnew
rs("title")=title
rs("content")=content
rs("picurl")=picurl
rs("addtime")=addtime
rs("hits")=hits
rs("up")=up
rs.update
rs.close
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "GG.asp"
'添加结束---------------------------------------------------------------------------------

'修改开始---------------------------------------------------------------------------------
CASE "mod"
fileid=request("ID")
title=request("title")
content=request("content")
up=request("up")
picurl=request("images")
hits=request("hits")
if title="" and content="" then
response.write "<script>history.go(-1)</script>"
else
set rs=server.createobject("adodb.recordset")
sql="select * from GG where id="+fileid
rs.open sql,conn,1,3
rs("title")=title
rs("content")=content
rs("picurl")=picurl
rs("hits")=hits
rs("up")=up
rs.update
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
response.redirect "GG.asp"
'修改结束--------------------------------------------------------------------------------

'删除开始--------------------------------------------------------------------------------
CASE "del"
articleid=request("id")
page_id=request("page_id")
conn.execute("delete from GG where id="&articleid&"")
conn.close
set conn=nothing
'重定向返回
 response.Write("<script>opener.location.reload()</script>")
 response.Write("<script>javascript:window.close()</script>")
'删除结束--------------------------------------------------------------------------------

END SELECT
%>