admin_add.asp

就是这样的一个源码

<!--#include file="inc/conn.asp"-->
<!--#include file="top.asp"-->
<!--#include file="chk.asp"-->
<!--#include file="inc/fun.asp"-->
<%
action=request("action")
if action<>"save" then
%>
<script language="JavaScript" src="inc/ubbcode.js"></script>
<table width=600px cellspacing=0 cellpadding=0 align=center border="0">
  <tr> 
    <td align=center><br><br>
      <b>输入文章</b><br>
      <form name="input" action="admin_add.asp?action=save" method="post">
        <table align=center width=90% height=100% border=0 cellspacing=0 cellpadding=5>
           <tr> 
            <td width=100px  valign="top">文章标题 : 
            <td> 
              <input style="border-bottom:1px dotted #666666;border-left:0px solid #666666;border-right:0px solid #999999;border-top:0px solid #999999" name=title size=40 maxlength=100>
      <tr> 
            <td width=100px valign="top">选择文章分类 : 
            <td> 
 <select name="kindid">
          <option value="" selected>请选择分类</option>
          <%
sql="select * from kind"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
while not rs.eof
%> 
          <option value="<%=rs("kindid")%>"><%=rs("kind")%></option>
          <%
rs.movenext
wend
rs.Close()
%> 
        </select>
           </tr> 
          <tr> <td colspan=2 align=center>

<a href="javascript:big()"><img src="images/ubbcode/bb_big.gif" border="0" alt="插入大标题"></a>
<a href="javascript:small()"><img src="images/ubbcode/bb_small.gif" border="0" alt="插入小标题"></a>
<a href="javascript:zs()"><img src="images/ubbcode/bb_zs.gif" border="0" alt="插入注释"></a>
<a href="javascript:sj()"><img src="images/ubbcode/bb_sj.gif" border="0" alt="文本缩进"></a>
<a href="javascript:bold()"><img src="images/ubbcode/bb_bold.gif" border="0" alt="插入粗体文本"></a>
<a href="javascript:italicize()"><img src="images/ubbcode/bb_italicize.gif" border="0" alt="插入斜体文本"></a>
<a href="javascript:underline()"><img src="images/ubbcode/bb_underline.gif" border="0" alt="插入下划线"></a>
<a href="javascript:sub()"><img src="images/ubbcode/bb_sub.gif" border="0" alt="文字下标"></a>
<a href="javascript:sup()"><img src="images/ubbcode/bb_sup.gif" border="0" alt="文字上标"></a>
<a href="javascript:center()"><img src="images/ubbcode/bb_center.gif" border="0" alt="居中对齐"></a>
<a href="javascript:right()"><img src="images/ubbcode/bb_right.gif" border="0" alt="右对齐"></a>
<iframe id="upload" border="0" vspace="0" hspace="0" marginwidth="0" marginheight="0"
  framespacing="0" frameborder="0" scrolling="no" width="280" height="22"
  src="upload.asp">
</iframe>

           <textarea name="content" cols="90" rows="16" style="border-bottom:1px dotted #666666;border-left:0px solid #666666;border-right:0px solid #999999;border-top:0px solid #999999" value="" wrap="VIRTUAL" id="content" onSelect="javascript: storeCaret(this);" onClick="javascript: storeCaret(this);" onKeyDown="javascript: ctlent();" onKeyUp="javascript: storeCaret(this);"></textarea> 

          <tr> 
            <td colspan=2 align=center> 
              <input type=submit value="提　交"  name="submit">
        </table>
        <p> 
      </form>
</table>
<%else

dim rs
dim sql
title=request("title")
kindid=request("kindid")
content=request("content")
summ=left(content,200)
if len(title)<1 then response.redirect("error.asp?word=请输入标题")
if len(content)<1 then response.redirect("error.asp?word=请输入正文")
if kindid<0 then response.redirect("error.asp?word=错误的分类！")

set rs=server.createobject("adodb.recordset")
sql="select * from article"
rs.open sql,conn,3,3
rs.addnew
rs("title")=server.htmlencode(title)
rs("kindid")=kindid
rs("times")=now()
rs("update")=now()
rs("content")=server.htmlencode(content)
rs("summ")=server.htmlencode(summ)
rs.update
rs.close
set rs=nothing

sqlr="select top 1 times,id from article order by id desc"
set rsr=server.createobject("ADODB.Recordset")
rsr.open sqlr,conn,1,1
times=rsr("times")
rid=rsr("id")

sql_last="select top 1 times,id,title from article where id<"&rid&" order by id desc"
set rs_last=server.createobject("ADODB.Recordset")
rs_last.open sql_last,conn,1,1
ctime=rs_last("times")
lid=rs_last("id")
title0=rs_last("title")
    ctime = left(ctime,7)
    ctime = replace(ctime, "-", "")
path0="/main/"&ctime&"/"&lid&".htm"

sqls="select top 1 read from style order by id desc"
set rss=server.createobject("ADODB.Recordset")
rss.open sqls,conn,1,1
read=rss("read")

ctime=now()
    content = encode(content)
    read = replace(read, "$wz_title", ""&title&"")
    read = replace(read, "$wz_times", ""&times&"")
    read = replace(read, "$wz_ctime", ""&ctime&"")
    read = replace(read, "$wz_content", ""&content&"")
    read = replace(read, "$wz_0title", ""&title0&"")
    read = replace(read, "$wz_0path", ""&path0&"")
    read = replace(read, "$wz_1title", "没有了。")
    read = replace(read, "$wz_1path", "#")
    read = replace(read, "$wz_ID", ""&rid&"")
    read = replace(read, "$wz_name", "xmsk")

dim fpath
fpath="/main/"
fpath=CreatePath(fpath)
fpath=replace(fpath, "//", "/")
fpath=replace(fpath, "/", "\")
fname=rid & ".htm"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.Createtextfile(server.mappath(fpath & fname),true)
fout.writeline read
fout.close

Private Function CreatePath(PathValue)
	Dim objFSO,Fsofolder,uploadpath
	'以年月创建上传文件夹，格式：20038
	uploadpath = year(now) & month(now)
	If Right(PathValue,1)<>"/" Then PathValue = PathValue&"/"
	On Error Resume Next
	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
		If objFSO.FolderExists(Server.MapPath(PathValue & uploadpath))=False Then
			objFSO.CreateFolder Server.MapPath(PathValue & uploadpath)
		End If
		If Err.Number = 0 Then
			CreatePath = PathValue & uploadpath & "/"
		Else
			CreatePath = PathValue
		End If
	Set objFSO = Nothing
End Function
%>
<meta http-equiv="refresh" content="0;URL=admin_index.asp">
<%end if%>