saveedit.asp

来自「OA最新破解2008版 全新 破解 希望大家用着舒服」· ASP 代码 · 共 91 行

ASP
91 行
字号 
<%@ codepage ="936" %>
<%OPTION EXPLICIT%>
<!--#include FILE="upload.inc"-->
<!--#include file="../../conn/dbconn2.asp" -->
<%function changechr(str) 
changechr=replace(replace(replace(replace(str,"<","&lt;"),">","&gt;"),chr(13),"<br>")," ","&nbsp;") 
changechr=replace(replace(replace(replace(changechr,"[sayyes]","<img src="),"[b]","<b>"),"[red]","<font color=CC0000>"),"[big]","<font size=7>") 
changechr=replace(replace(replace(replace(changechr,"[/sayyes]","></img>"),"[/b]","</b>"),"[/red]","</font>"),"[/big]","</font>") 
end function
%>
<html>
<body>
<%
dim upload,file,formName,formPath,iCount,title,typeid,tjnews,tjhome,wzgg,homehot,content,selectpic,from,picurl,rs,imgs
dim newsid,sql
set upload=new upload_5xSoft
formPath=upload.form("filepath")
if right(formPath,1)<>"/" then formPath=formPath&"/" 
newsid=upload.form("newsid")
title=upload.form("title")
if upload.form("checkbox1")="1" then
tjnews=1
else
tjnews=0
end if
if upload.form("checkbox2")="1" then
tjhome=1
else
tjhome=0
end if
if upload.form("checkbox4")="1" then
wzgg=1
else
wzgg=0
end if
if upload.form("checkbox110")="1" then
homehot=1
else
homehot=0
end if
content=changechr(upload.form("content"))
from=upload.form("from")
if upload.form("checkbox3")="1" then
selectpic=1
else
selectpic=0
end if
iCount=0

set file=upload.file("file") ''生成一个文件对象
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
thename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&right(file.filename,4)
file.filename=thename
file.SaveAs Server.mappath(formPath&file.FileName)
imgs=File.FileName
'else
'response.write "未找到文件 &nbsp;&nbsp;<A HREF=javascript:history.back(1)>返回</A>"
'response.end
end if



set rs=server.createobject("adodb.recordset")
sql="select * from news where newsid="&cstr(newsid)
rs.open sql,conn,1,3
rs("title")=title
rs("content")=content
rs("nfrom")=from
rs("selectpic")=selectpic
rs("tjnews")=tjnews
rs("tjhome")=tjhome
rs("wzgg")=wzgg
rs("homehot")=homehot
if imgs<>"" then
rs("picurl")=imgs
end if
rs.update
rs.close 
set rs=nothing 
conn.close 
set conn=nothing 
set upload=nothing
response.redirect "index.asp"
sub HtmEnd(Msg)
set upload=nothing
response.write "<br>"&Msg&" [<a href=""javascript:history.back();"">返回</a>]</body></html>"
response.end
end sub
%>
</body>
</html>

saveedit.asp - 源码说明

本页面展示了「OA最新破解2008版 全新 破解 希望大家用着舒服」中的 saveedit.asp 源码文件，采用 ASP 编程语言编写，共 91 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与2008相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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