save.asp

结合了某度和AH的个人主页 功能比较完整

<!--#include file="conn.asp"-->
<!--#include file="char.asp"-->
<%
if session("admin")<>"admin" then
Response.Redirect "../admin/index.asp"
response.end
end if
%>
<%
if request.form("txtcontent")="" then
response.write "文章内容不能为空|"
response.write "<a href='javascript:onclick=history.go(-1)'>返回</a>"
response.end
end if
if request.form("txttitle")="" then
response.write "文章标题不能为空|"
response.write "<a href='javascript:onclick=history.go(-1)'>返回</a>"
response.end
end if
title=htmlencode(request.form("txttitle"))
if request("htmlable")="yes" then
content=htmlencode2(request("txtcontent"))
else
content=ubbcode(request.form("txtcontent"))
end if
set rs=server.CreateObject("adodb.recordset")
if request("action")="add" then
call newsoft()
elseif request("action")="edit" then
call editsoft()
end if
sub newsoft()
sqlstr="select * from article"
rs.Open sqlstr,conn,1,3
rs.AddNew
rs("content")=content
rs("title")=title
writer=request.form("writer")
rs("writer")=writer
writerfrom=request.form("writefrom")
rs("writerfrom")=writerfrom
rs("hits")=1
rs.Update
Response.Write "添加成功<a href='freeadd.asp'>重新添加</a>|<a href='index.asp' target='_blank'>查看内容</a>"
end sub
sub editsoft()
sqlstr="select * from article where id="&request("id")
rs.open sqlstr,conn,1,3
rs("content")=content
rs("title")=title
writer=request.form("writer")
rs("writer")=writer
writerfrom=request.form("writefrom")
rs("writerfrom")=writerfrom
rs.Update
Response.Write "修改成功<a href='editarticle.asp'>重新添加</a>|<a href='index.asp' target='_blank'>查看内容</a>"
end sub
rs.close
set rs=nothing
conn.close
set conn=thing
%>