www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > admin/admin_softsave.asp
<!--#include file="function.asp"-->
<%CheckAdmin1%>
<!--#include file="conn.asp"-->
<!--#include file="inc/char.inc"-->
<%
page=trim(request.querystring("page"))
Askpic=trim(request.querystring("Askpic"))
downurl=trim(request.form("downurl"))
LS_ID=request.form("LS_ID")
Name=trim(request.form("Name"))
size=trim(request.form("size"))
intro=trim(request.form("intro"))
pic=trim(request.form("pic"))
system=trim(request.form("system"))
home=trim(request.form("home"))
founerr=false
act=request("act")
if act<>"SetIsGood" then
if downurl="" then
errmsg="<li>下载的路径不能为空</li>"
founderr=true
end if
if name="" then
errmsg=errmsg+"<li>显示名称不能为空</li>"
founderr=true
end if
end if
if founderr=true then
call error()
else
set rs=server.createobject("adodb.recordset")
if LS_ID<>"" then
sql="select ListenServerUrl from DJServer where LServerID="&LS_ID
rs.open sql,conn,1,1
ListenServerUrl=rs("ListenServerUrl")
rs.close
end if
set rs=server.createobject("adodb.recordset")
if act="edit" and request("id")<>"" then
sql="select * from softdown where id="&request("id")
rs.open sql,conn,1,3
rs("downurl")=trim(downurl)
if LS_ID<>"" then
rs("LS_ID")=LS_ID
else
rs("LS_ID")=null
end if
rs("name")=name
rs("pic")=pic
rs("system")=system
rs("home")=home
rs("intro")=intro
rs("size")=size
rs("dateandtime")=now()
rs.update
rs.close
call Success
Response.End
elseif act="add" then
sql="select * from softdown where (id is null)"
rs.open sql,conn,1,3
rs.addnew
rs("downurl")=downurl
if LS_ID<>"" then
rs("LS_ID")=LS_ID
else
rs("LS_ID")=null
end if
rs("name")=name
rs("pic")=pic
rs("system")=system
rs("home")=home
rs("size")=size
if intro<>"" then rs("intro")=intro
rs("dateandtime")=Now()
rs.update
rs.close
call Success
Response.End
else
errmsg=errmsg+"<li>操作错误！请联系管理员</li>"
call error()
Response.End
end if
set rs=nothing
conn.close
set conn=nothing
Response.Redirect "admin_softMana.asp?id="&id
end if
sub Success
%>
<%PageName="admin_softSave"%>
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<title>后台管理</title>
<link rel="stylesheet" type="text/css" href="Admin_Style.css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table cellpadding="0" cellspacing="1" border="0" width="100%" class="border" align=center>
<tr align="center" class="tdbg">
<td width=100% align=center height=20>软件<%if act="add" then%>添加<%else%>修改<%end if%>成功</td>
</tr>
<tr class="tdbg">
<td>
<table cellpadding="0" cellspacing="1" border="0" width="100%" class="border" align=center>
<tr class="tdbg">
<td width="25%" align="right">软件：</td>
<td width="75%"><%=Name%> </td>
</tr>
<tr class="tdbg">
<td width="25%" align="right">软件大小：</td>
<td width="75%"><%=size%> </td>
</tr>
<tr class="tdbg">
<td width="25%" align="right">运行环境：</td>
<td width="75%"><%=system%> </td>
</tr>
<tr class="tdbg">
<td align="right">下载地址：</td>
<td><%=ListenServerUrl%><%=downurl%> </td>
</tr>
<tr class="tdbg">
<td width="25%" align="right">演示地址：</td>
<td width="75%"><%=home%> </td>
</tr>
<tr class="tdbg">
<td align="right">资源图片：</td>
<td><%=pic%> </td>
</tr>
<tr class="tdbg">
<td align="right" valign=top class="jnfont4">简介：</td>
<td class="jnfont4"><%=intro%> </td>
</tr>
<tr class="tdbg">
<td colspan="2" height="15" align=center><input type="button" name="button1" value="返回" onclick="javascript:history.go(-2)"> <input type="button" name="button2" value="继续<%if act="add" then%>添加<%else%>修改<%end if%>" onclick="javascript:history.go(-1)"></td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<%
conn.close
set conn=nothing
%>
<%end sub%>