📄 mysavearticle.asp

📁 实现一定上传功能
💻 ASP
字号:
<!--#include file="articleconn.asp"-->
<% 
function changechr(str) 
    changechr=replace(replace(replace(replace(str,"<","&lt;"),">","&gt;"),chr(13),"<br>")," ","&nbsp;") 
    changechr=replace(replace(replace(replace(changechr,"[starark]","<img src="),"[b]","<b>"),"[red]","<font color=CC0000>"),"[big]","<font size=7>") 
    changechr=replace(replace(replace(replace(changechr,"[/starark]","></img>"),"[/b]","</b>"),"[/red]","</font>"),"[/big]","</font>") 
end function

function makefilename(fname)
  fname = now()
  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 & ".asp"
end function 
%> 

<%
IF not(Session("KEY")="super" or session("KEY")="check" or Session("KEY")="input") THEN
	response.redirect "mymanage.asp"
	response.end
END IF

if request.form("txttitle")="" then 
response.write "错误提示:请输入文章标题!"
response.end
end if
if request.form("txtcontent")="" then 
response.write "错误提示:请未输入文章内容!"
response.end
end if
dim title
dim content
dim sql
dim rs
dim articleid
dim classid,Nclassid
dim from

title=request.form("txttitle")
from=request.form("Nfrom")
zznews=request.form("zznews")
typeid=request.form("typeid")
about=request.form("about")


dim sql1
dim rs1
dim typename1
 sql1="select * from type where typeid="&typeid
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
typename1=rs1("type")
filepath=rs1("typename")

if request.form("checkbox1")="1" then
tjnews=1
else
tjnews=2
end if

if request.form("checkbox3")="1" then
selectpic=1
else
selectpic=0
end if


if Session("KEY")="input" then
shenghe=2
else
if request.form("checkbox2")="1" then
shenghe=2
else
shenghe=1
end if
end if

content=changechr(request.form("txtcontent"))
	set rs = server.CreateObject("ADODB.RecordSet")
       	StrSql = "select E_Memo from Example where id="+request("Example")
	set rs = conn.Execute (StrSql)
fname = makefilename(now())

dddd = year(now()) & "-" & month(now()) & "-" & day(now())
pencat=rs("E_Memo")
pencat=replace(pencat,"lx",typename1)
pencat=replace(pencat,"Date",dddd)
if from="" then
pencat=replace(pencat,"From","http://starark.126.com")
else
pencat=replace(pencat,"From",from)
end if
if zznews="" then
pencat=replace(pencat,"Fname","ark")
else
pencat=replace(pencat,"Fname",zznews)
end if
pencat=replace(pencat,"H_Title",title)
pencat=replace(pencat,"H_Memo",content)
pencat=replace(pencat,"labout",about)

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(filePath& "\" & fname))
fout.WriteLine pencat
fout.close

set rs=server.createobject("adodb.recordset")
sql="select * from article where (newsid is null)" 
rs.open sql,conn,1,3
rs.addnew
rs("title")=title
rs("path")=filepath
rs("content")=content
rs("Nfrom")=from
rs("selectpic")=selectpic
rs("typeid")=typeid
rs("typename")=typename1
rs("tjnews")=tjnews
rs("shenghe")=shenghe
rs("N_Fname")=fname
rs("zznews")=zznews
rs("about")=about
rs.update

articleid=rs("newsid")
rs1.close 
set rs1=nothing 
rs.close
set rs=nothing
conn.close
set conn=nothing
%><head>
</head>



<div align="center">
  <table border="0" cellspacing="1" width="50%" bgcolor="#000000" bordercolorlight="#11B1FF" bordercolordark="#F0F8FF" cellpadding="0">
    <tr bgcolor="#000066"> 
      <td width="100%" height="20"> 
        <p align="center"><font color="#FFFFFF"><b>添加文章成功</b></font> 
      </td>
    </tr>
    <tr>
      <td width="100%" bgcolor="#FFFFFF"> 
        <p align="left"><br>
        其文件名为：<%=fname%><br>
        文件标题为：<%response.write title%></p>
    <p align="center">是否继续添加？<br>
          <br>
    <a href="myaddarticle.asp">
    是</a>&nbsp;&nbsp; <a href="mymanage.asp">否</a><br>
    <br>
    </p>
        </td>
    </tr>
    </table></div>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -