chx_newdownload.asp

功能最强大的ASP网站

<!--#include file="conn.asp"-->
<!--#include file="fso.asp"-->
<!--#include file="setting.asp"-->
<%
function   GernerateHtml(str)   
  if   str   <>   ""   then   
  str   =   Replace(str,"&","&amp;")   
  str   =   Replace(str,"<","&lt;")   
  str   =   Replace(str,">","&gt;")   
  str   =   Replace(str,"   ","&nbsp;")   
  str   =   Replace(str,"　","&nbsp;&nbsp;")   
  str   =   Replace(str,vbCrLf,"<br>") 
  GernerateHtml   =   str   
  else   
  GernerateHtml   =   ""   
  end   if   
  end   function
%>
<%
name1=trim(Request.form("name"))
ClassName=request("ClassName")
pic=trim(Request.form("pic"))
infor=trim(Request.form("infor"))
banquan=trim(Request.form("banquan"))
kaifa=trim(Request.form("kaifa"))
tag=trim(Request.form("tag"))
xiangguan=trim(Request.form("xiangguan"))
timenow=trim(Request.form("time"))
leixing=trim(Request.form("leixing"))
dengji=trim(Request.form("dengji"))
admin=trim(Request.form("admin"))
place=trim(Request.form("place"))
download="download"
set rs=server.createobject("adodb.recordset")
sql="select * from downloads where (bh is null)"
rs.open sql,conn,1,3
if classname="" then
response.Redirect("admin_wrong.asp?url=new_download.asp&reason=你可能没选择分类或者没添加分类!")
end if

if name1="" then
response.Redirect("admin_wrong.asp?url=new_download.asp&reason=你可能没填写下载信息标题!")
else
rs.addnew
rs("name")=GernerateHtml(trim(Request.form("name")))
rs("bigclassname")=classname
rs("pic")=GernerateHtml(trim(Request.form("pic")))
rs("infor")=GernerateHtml(trim(Request.form("infor")))
rs("banquan")=GernerateHtml(trim(Request.form("banquan")))
rs("kaifa")=GernerateHtml(trim(Request.form("kaifa")))
rs("tag")=GernerateHtml(trim(Request.form("tag")))
rs("xiangguan")=GernerateHtml(trim(Request.form("xiangguan")))
rs("time")=GernerateHtml(trim(Request.form("time")))
rs("leixing")=GernerateHtml(trim(Request.form("leixing")))
rs("dengji")=GernerateHtml(trim(Request.form("dengji")))
rs("admin")=GernerateHtml(trim(Request.form("admin")))
rs("place")=GernerateHtml(trim(Request.form("place")))
rs.update
rs.close
set rs=nothing
end if
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from downloads where name='"&name1&"'"
rs.open sql,conn,1,3
num=rs("bh")

set rs1=server.createobject("adodb.recordset")
sql1="select * from example where bh=2"
rs1.open sql1,conn,1,3

moban=rs1("example")
response.Write(moban)
moban=replace(moban,"E_title",name1)
moban=replace(moban,"E_infor",rs("infor"))
moban=replace(moban,"E_now",timenow)
moban=replace(moban,"E_banquan",banquan)
moban=replace(moban,"E_leixing",leixing)
moban=replace(moban,"E_kaifa",kaifa)
moban=replace(moban,"E_dengji",dengji)
moban=replace(moban,"E_admin",admin)
moban=replace(moban,"E_pic",pic)
moban=replace(moban,"E_place",place)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(Server.MapPath("downloads/"&num&".html"))
fout.WriteLine moban
fout.close

conn.close  
set conn=nothing

response.Redirect("admin_right.asp?url=new_download.asp&reason=下载发布成功,现在系统将转向重新发布下载页面!")
Response.End
%>