save.asp

java_blog是一个非常好的blog

<!--#include file="x_conn.asp"-->
<!--#include file="md5.asp"-->
<%
action=request("action")
'-------------------- 添 加 管 理 员 -------------------- 
if action="a_add" Then
    if request.form("admin")="" then 
	   response.write "<script language=javascript>"
	   response.write "alert('管理员帐号不能为空!');"   
	   response.write "javascript:history.go(-1);"  
	   response.write "</script>"
	elseif request.form("passwd")="" then         
	   response.write "<script language=javascript>"
	   response.write "alert('管理员密码不能为空!');"           
	   response.write "javascript:history.go(-1);"                  
	   response.write "</script>"
	else
	   set rs=server.createobject("adodb.recordset")
	   sql="select * from [admin]"
	   rs.open sql,conn,1,3
	   rs.addnew
	   admin=request.form("admin")
	   passwd=md5(request.form("passwd"))
	   rs("admin")=admin
	   rs("passwd")=passwd
	   rs.update
	   rs.close
	   set rs=nothing
	   conn.close
	   set rs=nothing
	   response.redirect "a_add.asp"
    end If
end If

'-------------------- 添 加 日 志 -------------------- 
if action="n_add" Then
    if request.form("title")="" then 
	   response.write "<script language=javascript>"
	   response.write "alert('标题不能为空!');"   
	   response.write "javascript:history.go(-1);"  
	   response.write "</script>"
	elseif request.form("text")="" then         
	   response.write "<script language=javascript>"
	   response.write "alert('内容不能为空!');"           
	   response.write "javascript:history.go(-1);"                  
	   response.write "</script>"
	else
	   set rs=server.createobject("adodb.recordset")
	   sql="select user,title,text,data from news"
	   rs.open sql,conn,1,3
	   rs.addnew
	   user=request.form("user")
       title=request.form("title")
	   text=request.form("text")
	   rs("user")=user
	   rs("title")=title
	   rs("text")=text
	   rs.update
	   rs.close
	   set rs=nothing
	   conn.close
	   set rs=nothing
	   response.redirect "a_news.asp"
    end If
end If

'-------------------- 添 加 文 章 -------------------- 
if action="b_add" Then
    if request.form("title")="" then 
	   response.write "<script language=javascript>"
	   response.write "alert('标题不能为空!');"   
	   response.write "javascript:history.go(-1);"  
	   response.write "</script>"
	elseif request.form("text")="" then         
	   response.write "<script language=javascript>"
	   response.write "alert('内容不能为空!');"           
	   response.write "javascript:history.go(-1);"                  
	   response.write "</script>"
	else
	   set rs=server.createobject("adodb.recordset")
	   sql="select user,title,fenlei,text,data from wz"
	   rs.open sql,conn,1,3
	   rs.addnew
	   user=request.form("user")
	   title=request.form("title")
	   fenlei=request.form("fenlei")
	   text=request.form("text")
	   rs("user")=user
	   rs("title")=title
	   rs("fenlei")=fenlei
  	   rs("text")=text
	   rs.update
	   rs.close
	   set rs=nothing
	   conn.close
	   set rs=nothing
	   response.redirect "a_wz.asp"
    end If
end If

'-------------------- 添 加 留 言 -------------------- 
if action="g_add" Then
    if request.form("user")="" then 
	   response.write "<script language=javascript>"
	   response.write "alert('用户名不能为空!');"   
	   response.write "javascript:history.go(-1);"  
	   response.write "</script>"
	elseif request.form("content")="" then         
	   response.write "<script language=javascript>"
	   response.write "alert('内容不能为空!');"           
	   response.write "javascript:history.go(-1);"                  
	   response.write "</script>"
	else
	   set rs=server.createobject("adodb.recordset")
	   sql="select user,qq,tx,email,content,data from gbook"
	   rs.open sql,conn,1,3
	   rs.addnew
	   user=request.form("user")
	   qq=request.form("qq")
	   tx=request.form("tx")
	   email=request.form("email")
	   content=replace(request.form("content"),"script","<font color=#cccccc>提示：此用户试图提交非法参数</font>",1,-1,1)
	   rs("user")=user
	   rs("qq")=qq
	   rs("tx")=tx
	   rs("email")=email
	   rs("content")=content
	   rs.update
	   rs.close
	   set rs=nothing
	   conn.close
	   set rs=nothing
	   response.redirect "g_index.asp"
    end If
end If

'-------------------- 添 加 相 片 -------------------- 
if action="w_add" Then
    if request.form("names")="" then 
	   response.write "<script language=javascript>"
	   response.write "alert('图片名称不能为空!');"   
	   response.write "javascript:history.go(-1);"  
	   response.write "</script>"
	elseif request.form("tubiao")="" then         
	   response.write "<script language=javascript>"
	   response.write "alert('图片地址不能为空!');"           
	   response.write "javascript:history.go(-1);"                  
	   response.write "</script>"
	else
	   set rs=server.createobject("adodb.recordset")
	   sql="select * from [work]"
	   rs.open sql,conn,1,3
	   rs.addnew
	   names=request.form("names")
	   fenlei=request.form("fenlei")
	   tubiao=request.form("tubiao")
	   chakan=request.form("chakan")
	   jianjie=request.form("jianjie")
	   rs("names")=names
	   rs("fenlei")=fenlei
	   rs("tubiao")=tubiao
	   rs("chakan")=chakan
	   rs("jianjie")=jianjie
	   rs.update
	   rs.close
	   set rs=nothing
	   conn.close
	   set rs=nothing
	   response.redirect "a_works.asp"
    end If
end If

'-------------------- 添 加 链 接 -------------------- 
if action="l_add" Then
    if request.form("title")="" then 
	   response.write "<script language=javascript>"
	   response.write "alert('网站名称不能为空!');"   
	   response.write "javascript:history.go(-1);"  
	   response.write "</script>"
	elseif request.form("web")="" then         
	   response.write "<script language=javascript>"
	   response.write "alert('网站地址不能为空!');"           
	   response.write "javascript:history.go(-1);"                  
	   response.write "</script>"
	elseif request.form("logo")="" then         
	   response.write "<script language=javascript>"
	   response.write "alert('LOGO不能为空!');"           
	   response.write "javascript:history.go(-1);"                  
	   response.write "</script>"
	else
	   set rs=server.createobject("adodb.recordset")
	   sql="select *  from link"
	   rs.open sql,conn,1,3
	   rs.addnew
	   title=request.form("title")
	   web=request.form("web")
	   logo=request.form("logo")
	   jianjie=request.form("jianjie")
	   rs("title")=title
	   rs("web")=web
	   rs("logo")=logo
	   rs("jianjie")=jianjie
	   rs.update
	   rs.close
       set rs=nothing
	   conn.close
	   set rs=nothing
	   response.redirect "a_link.asp"
    end If
end If

'-------------------- 添 加 评 论 -------------------- 
if action="p_add" Then
id=request.form("id")
set rs=server.createobject("adodb.recordset")
sql="select * from [pl]"
rs.open sql,conn,1,3
	if request.form("user")="" then 
	   response.write "<script language=javascript>"
	   response.write "alert('用户名不能为空!');"   
	   response.write "javascript:history.go(-1);"  
	   response.write "</script>"
	elseif request.form("title")="" then         
	   response.write "<script language=javascript>"
	   response.write "alert('标题不能为空!');"           
	   response.write "javascript:history.go(-1);"                  
	   response.write "</script>"
	elseif request.form("text")="" then         
	   response.write "<script language=javascript>"
	   response.write "alert('评论不能为空!');"           
	   response.write "javascript:history.go(-1);"                  
	   response.write "</script>"
	else
rs.addnew
user=request.form("user")
title=request.form("title")
text=request.form("text")
rs("user")=user
rs("id")=id
rs("title")=title
rs("text")=text
rs.update
rs.close
set rs=nothing
conn.close
set rs=nothing
	   response.write "<script language=javascript>"
	   response.write "alert('评论发表成功!');"           
	   response.write "javascript:history.go(-1);"                  
	   response.write "</script>"
	end if
end If
%>