admin_softinfo.asp
来自「超炫电台程序开发了两个版本了」· ASP 代码 · 共 584 行 · 第 1/3 页
ASP
584 行
<!-- #include file="config.asp" -->
<HTML><HEAD><TITLE>歌曲详细信息</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<link rel="stylesheet" href="admin.css" type="text/css">
</HEAD>
<SCRIPT LANGUAGE=javascript>
<!--
function Juge(myform)
{
if (myform.SoftName.value == "")
{
alert("歌曲名称不能为空！");
myform.SoftName.focus();
return (false);
}
if (myform.cateid.value == "")
{
alert("歌曲所属大类不能为空！");
myform.cateid.focus();
return (false);
}
if (myform.subcateid.value == "")
{
alert("歌曲所属小类不能为空！");
myform.subcateid.focus();
return (false);
}
if (myform.LicenceType.value == "")
{
alert("歌曲授权类型不能为空！");
myform.LicenceType.focus();
return (false);
}
if (myform.SoftFrom.value == "")
{
alert("歌曲作者网址不能为空！");
myform.SoftFrom.focus();
return (false);
}
if (myform.Language.value == "")
{
alert("歌曲语言不能为空！");
myform.Language.focus();
return (false);
}
if (myform.content.value == "")
{
alert("歌曲简介内容不能为空！");
myform.content.focus();
return (false);
}
}
function checktext(text)
{
allValid = false;
var checkOK = "0123456789";
for (i = 0; i < text.length; i++)
{
ch = text.charAt(i);
for (j = 0; j < checkOK.length; j++)
if (ch == checkOK.charAt(j))
break;
if (j == checkOK.length)
{
allValid = true;
break;
}
}
return allValid;
}
//-->
</script>
<SCRIPT language=javaScript src="inc/ubbcode.js" type=text/javascript></SCRIPT>
<BODY leftMargin=0 topmargin="2" onkeydown='if(event.keyCode==13 && event.ctrlKey)myform.submit()'>
<%
if UserName="" then
msgtitle="添加歌曲失败"
msginfo="<li>你没有登录系统。<li><a href=""User.Asp"">点此登录系统</a></li>"
call Sysmsg(msgtitle,msginfo)
else
select case request("action")
case "add"
call SaveAdd()
case "modify"
call SaveModify()
case "edit"
isEdit=True
call chkUser(isEdit)
case else
isEdit=False
' call myform(isEdit)
call chkUser(isEdit)
end select
end if
sub chkUser(isEdit)
if isEdit=True then
if not chkEditUser(UserName,trim(request("SoftID"))) then
msgtitle="修改歌曲失败"
msginfo="<li>你没有权限修改他人添加的歌曲。</li><li>如有问题请联系管理员。</li>"
call Sysmsg(msgtitle,msginfo)
elseif chkEditUser(UserName,trim(request("SoftID"))) then
call myform(isEdit)
end if
elseif isEdit=False then
if request("cateid")="" and request("subcateid")="" then
msgtitle="添加歌曲失败"
msginfo="<li>你没有选择要添加歌曲的分类。"&_
"<li><A href=""Admin_Category.asp""> 选择歌曲分类</A><br>"
call Sysmsg(msgtitle,msginfo)
elseif not chkPubUser(UserName,request("subcateid")) then
msgtitle="添加歌曲失败"
msginfo="<li>你没有在此分类中发布歌曲的权限。<li>如有问题请联系管理员</li>"
call Sysmsg(msgtitle,msginfo)
elseif chkPubUser(UserName,request("subcateid")) then
call myform(isEdit)
end if
end if
end sub
sub SaveModify()
set rs=server.createobject("adodb.recordset")
sql="select * from "&CategoryName&"_SoftInfo where SoftID="&request.form("SoftID")
rs.open sql,conn,1,3
rs("SoftName")=checkstr(request.form("SoftName"))
rs("SoftVer")=checkstr(request.form("SoftVer"))
rs("CateID")=trim(request.form("CateID"))
rs("SubCateID")=trim(request.form("SubCateID"))
rs("Content")=request.form("content")
rs("Images")=checkstr(trim(request.form("Images")))
rs("SoftViewImg")=checkstr(Trim(Request.Form("SoftViewImg")))
rs("SoftFrom")=checkstr(trim(request.form("SoftFrom")))
rs("LicenceType")=trim(request.form("LicenceType"))
rs("Language")=Trim(Request.Form("Language"))
if trim(request.form("updateTime"))="yes" then
rs("SoftTime")=date()
end if
rs.update
rs.close
set rs=nothing
msgtitle="保存修改成功"
msginfo="<li><a href=""Admin_SoftLink.asp?SoftID="&request.form("SoftID")&""">修改编辑歌曲的下载地址</a></li>"
call Sysmsg(msgtitle,msginfo)
end sub
sub SaveAdd()
set rs=server.createobject("adodb.recordset")
sql="select * from "&CategoryName&"_SoftInfo where (SoftID is null)"
rs.open sql,conn,1,3
rs.addnew
rs("SoftName")=checkstr(request.form("SoftName"))
rs("SoftVer")=checkstr(request.form("SoftVer"))
rs("CateID")=trim(request.form("CateID"))
rs("SubCateID")=trim(request.form("SubCateID"))
rs("Content")=request.form("content")
rs("Images")=checkstr(trim(request.form("Images")))
rs("SoftViewImg")=checkstr(Trim(Request.Form("SoftViewImg")))
rs("SoftFrom")=checkstr(trim(request.form("SoftFrom")))
rs("LicenceType")=trim(request.form("LicenceType"))
rs("Language")=Trim(Request.Form("Language"))
rs("DayHits")=0
rs("DayDate")=Now()
rs("WeekHits")=0
rs("WeekDate")=Now()
rs("MonthHits")=0
rs("MonthDate")=Now()
rs("AllHits")=0
rs("isShow")=1
rs("SoftTime")=date()
rs("UserName")=UserName
rs("avgGrade")=50
rs("EssayNum")=0
rs.update
pubSoftID=rs("SoftID")
rs.close
set rs=nothing
sql="update "&CategoryName&"_Cate set CateNum=CateNum+1 where CateId=" & trim(request.form("CateID"))
conn.execute sql
sql="update "&CategoryName&"_SubCate set SubCateNum=SubCateNum+1 where SubCateId=" & trim(request.form("SubCateID"))
conn.execute sql
msgtitle="添加歌曲成功"
msginfo="<li><a href=""Admin_SoftLink.Asp?SoftID="&pubSoftID&""">添加歌曲下载地址</a></li>"
call Sysmsg(msgtitle,msginfo)
end sub
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?