📄 download_save.asp
字号:
<!--#include file="bsconfig.asp"-->
<!--#include file="../Inc/Config.asp"-->
<!--#include file="Inc/articleCHAR.INC"-->
<!--#include file="Inc/Function.asp"-->
<%
server_vv=len(Request.ServerVariables("SERVER_NAME"))
server_v1=left(Cstr(Request.ServerVariables("HTTP_REFERER")),server_vv)
server_v2=left(Cstr("http://"&Request.ServerVariables("SERVER_NAME")),server_vv)
if server_v1<>server_v2 and server_v1<>"" and server_v2<>"" then
response.write("<script>alert('错误：禁止从站点外部提交数据!.')</script>")
response.end
end if
%>
<%
dim rs,sql,ErrMsg,FoundErr
dim DownID,BigClassName,SmallClassName
dim Title,UpDateTime,FileSize,Language,LicenceType,System,Content,Passed,Elite,PhotoUrl,DownloadUrl,DownloadUrl2
dim ObjInstalled
ObjInstalled=IsObjInstalled("Scripting.FileSystemObject")
FoundErr=false
DownID=Trim(Request.Form("DownID"))
BigClassName=trim(request.form("BigClassName"))
SmallClassName=trim(request.form("SmallClassName"))
Title=trim(request.form("Title"))
UpDateTime=trim(request.form("UpDateTime"))
FileSize=trim(request.form("FileSize"))
Language=trim(request.form("Language"))
LicenceType=trim(request.form("LicenceType"))
System=trim(request.form("System"))
Content=trim(request.form("Content"))
Passed=trim(request.form("Passed"))
Elite=trim(request.form("Elite"))
PhotoUrl=trim(request.form("PhotoUrl"))
DownloadUrl=trim(request.form("DownloadUrl"))
DownloadUrl2=trim(request.form("DownloadUrl2"))
'============
sqlBig="select * from DownBigClass where BigClassName='" & BigClassName & "'"
Set rsBig= Server.CreateObject("ADODB.Recordset")
rsBig.open sqlBig,conn,1,1
rsBig.close
sqlSmall="select * from DownSmallClass where SmallClassName='" & SmallClassName & "'and BigClassName='" & BigClassName & "'"
Set rsSmall= Server.CreateObject("ADODB.Recordset")
rsSmall.open sqlSmall,conn,1,1
rsSmall.close
'============
if BigClassName="" then
founderr=true
errmsg=errmsg+"<li>未指定下载所属大类！</li>"
end if
if Title="" then
founderr=true
errmsg="<li>下载标题不能为空！</li>"
end if
if yzcv<>zcv then
founderr=true
errmsg="<li>文件大小不能为空</li>"
end if
'if FileSize="" then
' founderr=true
' errmsg="<li>文件大小不能为空！</li>"
'end if
if DownloadUrl="" then
founderr=true
errmsg=errmsg+"<li>请输入下载连接！</li>"
end if
if Content="" then
founderr=true
errmsg=errmsg+"<li>软件简介容不能为空！</li>"
end if
'============
if founderr=false then
Title=htmlencode2(Title)
Content=htmlencode2(Content)
FileSize=replace(replace(replace(replace(replace(replace(FileSize,"'",""),"*",""),"?",""),"(",""),")",""),",","")
FileSize=FileSize & " "
if UpDateTime<>"" and IsDate(UpDateTime)=true then
UpDateTime=CDate(UpDateTime)
else
UpDateTime=now()
end if
'============
set rs=server.createobject("adodb.recordset")
if request("action")="add" then
sql="select top 1 * from Download"
rs.open sql,conn,1,3
rs.addnew
call SaveData()
' rs("Editor")=Editor
rs.update
DownID=rs("DownID")
rs.close
set rs=nothing
elseif request("action")="Modify" then
if DownID<>"" then
sql="select * from Download where DownID=" & DownID
rs.open sql,conn,1,3
if not (rs.bof and rs.eof) then
call SaveData()
rs.update
rs.close
set rs=nothing
else
founderr=true
errmsg=errmsg+"<li>找不到此下载，可能已经被其他人删除。</li>"
call WriteErrMsg()
end if
else
founderr=true
errmsg=errmsg+"<li>不能确定DownID的值</li>"
call WriteErrMsg()
end if
else
founderr=true
errmsg=errmsg+"<li>没有选定参数</li>"
call WriteErrMsg()
end if
call CloseConn()
%>
<!-- #include file="Inc/Head.asp" -->
<BR>
<table cellpadding="2" cellspacing="1" border="0" width="510" align="center" class="a2">
<tr>
<td class="a1" height="25" align="center"><strong>添加 修改 下载</strong></td>
</tr>
<tr class="a4">
<td align="center">
<table class="border" align=center width="500" border="0" cellpadding="0" cellspacing="2" bordercolor="#999999">
<tr align=center bgcolor="#999999">
<td height="25" colspan="2" class="title"><b>
<%if request("action")="add" then%>
添加
<%else%>
修改
<%end if%>
下载成功</b></td>
</tr>
<tr>
<td width="19%" height="22" bgcolor="#C0C0C0" class="tdbg"> <p align="right">下载序号：</p></td>
<td width="81%" bgcolor="#E3E3E3" class="tdbg"><%=DownID%></td>
</tr>
<tr>
<td height="22" bgcolor="#C0C0C0" class="tdbg"><div align="right">标题名称：</div></td>
<td bgcolor="#E3E3E3" class="tdbg"><%=Title%></td>
</tr>
<tr>
<td height="22" bgcolor="#C0C0C0" class="tdbg"><div align="right">整理日期：</div></td>
<td bgcolor="#E3E3E3" class="tdbg"><%=UpDateTime%></td>
</tr>
<tr>
<td height="22" bgcolor="#C0C0C0" class="tdbg"><div align="right">文件大小：</div></td>
<td bgcolor="#E3E3E3" class="tdbg"><%=FileSize%></td>
</tr>
<tr>
<td height="22" bgcolor="#C0C0C0" class="tdbg"><div align="right">软件语言：</div></td>
<td bgcolor="#E3E3E3" class="tdbg"><%=Language%></td>
</tr>
<tr>
<td height="22" bgcolor="#C0C0C0" class="tdbg"><div align="right">授权类型：</div></td>
<td bgcolor="#E3E3E3" class="tdbg"><%=LicenceType%></td>
</tr>
<tr>
<td height="22" bgcolor="#C0C0C0" class="tdbg"><div align="right">运行环境：</div></td>
<td bgcolor="#E3E3E3" class="tdbg"><%=System%></td>
</tr>
<tr>
<td height="22" bgcolor="#C0C0C0" class="tdbg"><div align="right">图片地址：</div></td>
<td bgcolor="#E3E3E3" class="tdbg"><%=PhotoUrl%></td>
</tr>
<tr>
<td height="22" bgcolor="#C0C0C0" class="tdbg"><div align="right">下载地址一</div></td>
<td bgcolor="#E3E3E3" class="tdbg"><%=DownloadUrl%></td>
</tr>
<tr>
<td height="22" bgcolor="#C0C0C0" class="tdbg"><div align="right">下载地址二</div></td>
<td bgcolor="#E3E3E3" class="tdbg">
<%
if DownloadUrl2<>"" then
response.Write DownloadUrl2
else
response.Write "-"
end if
%> </td>
</tr>
<tr>
<td height="22" bgcolor="#C0C0C0" class="tdbg"><div align="right">所属类别：</div></td>
<td bgcolor="#E3E3E3" class="tdbg">
<%
response.write BigClassName
if SmallClassName<>"" then response.write " >> " & SmallClassName
%>
</td>
</tr>
<tr>
<td height="22" colspan="2" bgcolor="#E3E3E3" class="tdbg">
<p align="center"> 【<a href="Download_edit.asp?DownID=<%=DownID%>">修改下载</a>】 【<a href="Download_Add.asp">继续添加下载</a>】 【<a href="Download.asp">下载管理</a>】 【<a href="../Chinese/DownloadShow.asp?DownID=<%=DownID%>" target="_blank">预览下载内容</a>】</p></td>
</tr>
</table>
</td>
</tr>
</table>
<BR>
<%htmlend%>
<%
else
WriteErrMsg
end if
sub SaveData()
rs("BigClassName")=BigClassName
rs("SmallClassName")=SmallClassName
rs("Title")=Title
rs("FileSize")=FileSize
rs("Language")=Language
rs("LicenceType")=LicenceType
rs("System")=System
rs("Content")=Content
if Passed="yes" then
rs("Passed")=True
else
if EnableArticleCheck="No" then
rs("Passed")=True
else
rs("Passed")=False
end if
end if
if Elite="yes" then
rs("Elite")=True
else
rs("Elite")=False
end if
rs("UpDateTime")=UpDateTime
rs("PhotoUrl")=PhotoUrl
rs("DownloadUrl")=DownloadUrl
rs("DownloadUrl2")=DownloadUrl2
end sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -