📄 modi_download.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="setting.asp"-->
<%
dim bhx
bhx="1"
if (request("bh")<>"")then
bhx=request("bh")
end if
sql = "Select * from downloads where bh="+ bhx
Set rs = Server.CreateObject ("ADODB.Recordset")
rs.Open sql,conn,2,3
%>
<%
if request("action")="modi" then
%>
<%
function GernerateHtml(str)
if str <> "" then
str = Replace(str,"&","&")
str = Replace(str,"<","<")
str = Replace(str,">",">")
str = Replace(str," "," ")
str = Replace(str," "," ")
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 rs1=server.createobject("adodb.recordset")
sql1="select * from downloads where bh="+bhx
rs1.open sql1,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
rs1("name")=GernerateHtml(trim(Request.form("name")))
rs1("bigclassname")=classname
rs1("pic")=GernerateHtml(trim(Request.form("pic")))
rs1("infor")=GernerateHtml(trim(Request.form("infor")))
rs1("banquan")=GernerateHtml(trim(Request.form("banquan")))
rs1("kaifa")=GernerateHtml(trim(Request.form("kaifa")))
rs1("tag")=GernerateHtml(trim(Request.form("tag")))
rs1("xiangguan")=GernerateHtml(trim(Request.form("xiangguan")))
rs1("time")=GernerateHtml(trim(Request.form("time")))
rs1("leixing")=GernerateHtml(trim(Request.form("leixing")))
rs1("dengji")=GernerateHtml(trim(Request.form("dengji")))
rs1("admin")=GernerateHtml(trim(Request.form("admin")))
rs1("place")=GernerateHtml(trim(Request.form("place")))
rs1.update
rs1.close
set rs1=nothing
end if
%>
<%
set rs2=server.createobject("adodb.recordset")
sql2="select * from downloads where name='"&name1&"'"
rs2.open sql,conn,1,3
num=rs2("bh")
set rs3=server.createobject("adodb.recordset")
sql3="select * from example where bh=2"
rs3.open sql3,conn,1,3
moban=rs3("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=manage_download.asp&reason=下载修改成功")
Response.End
%>
<%end if%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>新建下载</title>
<link href="css/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
background-image: url();
}
-->
</style></head>
<body>
<div>
<div align="center">
<form name="form1" method="post" action="modi_download.asp?action=modi&bh=<%=bhx%>">
<table width="750" border="0" bgcolor="#FFFFFF" class="tb1">
<tr>
<td><div align="center" class="STYLE2">
<table width="861%" border="0">
<tr>
<td background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid"><div align="left" class="STYLE2">修改下载项目</div></td>
</tr>
</table>
<p align="left" class="littlered">下载项目保存在admin/download/..(admin为修改后文件夹)</p>
</div></td>
</tr>
<tr>
<td class="STYLE3"><table width="100%" border="0" class="STYLE3">
<tr>
<td background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid">基本调用</td>
<td class="STYLE13"><script language="javascript" src="<span class="STYLE8">修改后系统文件夹名/</span>download_js.asp?action=usual"></script></td>
</tr>
<tr>
<td background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid">高级tag调用</td>
<td class="STYLE13"><script language="javascript" src="<span class="STYLE8">修改后系统文件夹名/</span>download_js.asp?action=usual&tag..&.."></script></td>
</tr>
<tr>
<td background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid"><div align="left">分类选择</div></td>
<td><div align="left">
<%
Set rs0 = Server.CreateObject ("ADODB.Recordset")
sql0 = "select * from download_class"
rs0.open sql0,conn,1,1
if rs0.eof and rs0.bof then
response.write "请先添加栏目!!"
else
%>
<select name="classname" class="STYLE3" id="classname">
<option value="<%=trim(rs0("ClassName"))%>" selected><%=trim(rs0("ClassName"))%></option>
<%
dim selclass
selclass=rs0("ClassName")
rs0.movenext
do while not rs0.eof
%>
<option value="<%=trim(rs0("ClassName"))%>"><%=trim(rs0("ClassName"))%></option>
<%
rs0.movenext
loop
end if
rs0.close
%>
</select>
<a href="add_lanmu.asp?add=download"> 管理/添加</a>栏目</div></td>
</tr>
<tr>
<td width="32%" background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid">下载软件名称:</td>
<td width="68%"><label>
<div align="left">
<input name="name" type="text" class="STYLE3" id="name" value="<%=rs("name")%>">
* <%=sql%></div>
</label></td>
</tr>
</table></td>
</tr>
<tr>
<td class="STYLE3"><table width="100%" border="0" class="STYLE3">
<tr>
<td width="32%" background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid">下载软件图片:</td>
<td width="68%"><div align="left">
<input name="pic" type="text" class="STYLE3" id="pic" value="<%=rs("pic")%>">
(建议你使用网络图片)</div></td>
</tr>
</table></td>
</tr>
<tr>
<td class="STYLE3"><table width="100%" border="0" class="STYLE3">
<tr>
<td width="32%" >下载说明:</td>
<td><div align="left">
<label>
<textarea name="infor" cols="100" rows="8" class="STYLE3" id="infor"><%=rs("infor")%></textarea>
</label>
</div></td>
</tr>
</table></td>
</tr>
<tr>
<td class="STYLE3"><table width="100%" border="0" class="STYLE3">
<tr>
<td width="32%" background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid">版权信息:</td>
<td><div align="left">
<input name="banquan" type="text" class="STYLE3" id="banquan" value="<%=rs("banquan")%>">
</div></td>
</tr>
</table></td>
</tr>
<tr>
<td class="STYLE3"><table width="100%" border="0" class="STYLE3">
<tr>
<td width="32%" background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid">开发商:</td>
<td width="68%"><div align="left">
<input name="kaifa" type="text" class="STYLE3" id="kaifa" value="<%=rs("kaifa")%>">
</div></td>
</tr>
</table></td>
</tr>
<tr>
<td class="STYLE3"><table width="100%" border="0" class="STYLE3">
<tr>
<td width="32%" background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid">发布时间:</td>
<td><div align="left">
<input name="time" type="text" class="STYLE3" id="time" value="<%=now%>">
</div></td>
</tr>
</table></td>
</tr>
<tr>
<td class="STYLE3"><table width="100%" border="0" class="STYLE3">
<tr>
<td width="32%" background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid">发布类型:</td>
<td><div align="left">
<input name="leixing" type="text" class="STYLE3" id="leixing" value="<%=rs("leixing")%>">
</div></td>
</tr>
</table></td>
</tr>
<tr>
<td class="STYLE3"><table width="100%" border="0" class="STYLE3">
<tr>
<td width="32%" background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid">软件等级:</td>
<td><div align="left">
<label>
<select name="dengji" class="STYLE3" id="dengji">
<option value="1">普通</option>
<option value="2">优秀</option>
<option value="3">推荐</option>
</select>
</label>
</div></td>
</tr>
</table></td>
</tr>
<tr>
<td class="STYLE3"><table width="100%" border="0" class="STYLE3">
<tr>
<td background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid"><div align="left">tag</div></td>
<td><div align="left">
<input name="tag" type="text" class="STYLE3" id="tag" value="<%=rs("tag")%>">
</div></td>
</tr>
<tr>
<td background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid"><div align="left">相关标签</div></td>
<td><div align="left">
<input name="xiangguan" type="text" class="STYLE3 " id="xiangguan" value="<%=rs("xiangguan")%>">
</div></td>
</tr>
<tr>
<td width="32%" background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid">是否注册观看:</td>
<td><div align="left">
<label>
<select name="admin" class="STYLE3" id="admin">
<option value="0" selected>--</option>
<option value="1">是</option>
</select>
</label>
</div></td>
</tr>
</table></td>
</tr>
<tr>
<td class="STYLE3"><table width="100%" border="0" class="STYLE3">
<tr>
<td width="32%" background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid">下载地址:</td>
<td><div align="left">
<label>
<input name="place" type="text" class="STYLE3" id="place" value="<%=rs("place")%>" size="60">
</label>
（请填写网络地址且为绝对地址） </div></td>
</tr>
</table></td>
</tr>
<tr>
<td class="STYLE3"><p>商务版本插件说明:</p>
<p>
<label></label>
</p>
<p align="center">
<textarea name="textarea2" cols="100" rows="10" class="STYLE3" readonly> 商务版就好像是发布下载信息一样，本版本就是用数据库技术和静态html技术生成html下载文件，当然，在你准备好之前一定要制作好模版数据，将会在downloads文件夹下建立新建的html文件，方便你的网站的维护，新建，下载和连接.</textarea>
</p></td>
</tr>
<tr>
<td class="STYLE3"><div align="center">
<label>
<input name="Submit" type="submit" class="STYLE3" value="ok!">
</label>
<label>
<input name="Submit2" type="reset" class="STYLE3" value="rewrite!">
</label>
</div></td>
</tr>
<tr>
<td class="STYLE3"> </td>
</tr>
</table>
</form>
</div>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -