📄 savenews.asp

📁 OA最新破解2008版全新破解希望大家用着舒服
💻 ASP
字号:
<%@ 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,tjhyxxs,tjnews,tjhome,wagg,homehot,content,selectpic,from,picurl,rs,imgs
set upload=new upload_5xSoft
formPath=upload.form("filepath")
if right(formPath,1)<>"/" then formPath=formPath&"/" 
title=upload.form("title")
typeid=upload.form("typeid")
dim sql1
dim rs1
dim typename1
sql1="select * from newstype where typeid="&typeid
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
typename1=rs1("type")
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 upload=new upload_5xSoft ''建立上传对象
'--------将日期转化成文件名--------
'formPath="pic/"
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")
rs.open "select * from news",conn,3,2
rs.addnew
rs("title")=title
rs("content")=content
rs("nfrom")=from
rs("selectpic")=selectpic
rs("typeid")=typeid
rs("typename")=typename1
rs("tjnews")=tjnews
rs("tjhome")=tjhome
rs("wzgg")=wzgg
rs("homehot")=homehot
rs("picurl")=imgs
rs.update
rs.close
set rs=nothing
conn.close
set upload=nothing ''删除此对象
response.redirect("index.asp")
Htmend iCount&" 个文件上传结束!"
sub HtmEnd(Msg)
set upload=nothing
'response.write ("123")
response.write (""&imgs&"")
'response.redirect ("default.asp")
response.end
end sub
%>
</body>
</html>
⌨️ 快捷键说明

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