flashpost.asp
来自「小游戏网站演示www.4399.io 拥有4万条游戏数据」· ASP 代码 · 共 358 行
ASP
358 行
<!--#include file="config.asp"-->
<!--#include file="check.asp"-->
<!--#include file="../inc/ubbcode.asp"-->
<!--#include file="../inc/cls_editor.asp"-->
<!--#include file="head.inc"-->
<!--#include file="flash.asp"-->
<%
Call InnerLocation("发布动画")
If CInt(GroupSetting(35)) = 0 Then
ErrMsg = ErrMsg + "<li>对不起！您没有发布动画的权限，如需要该权限请联系管理员。</li>"
Founderr = True
End If
If CInt(Newasp.PostGrade) > CInt(Newasp.membergrade) Then
ErrMsg = ErrMsg & "<li>对不起！您没有发布动画的权限，如需要该权限请联系管理员。</li>"
FoundErr = True
End If
Dim Rs,SQL,i,flashid
Dim DefaultShowMode
flashid = Newasp.ChkNumeric(Request("flashid"))
If ChannelID = 0 Then ChannelID = 5
If ChannelID = 5 Then
DefaultShowMode = 1 '-- 默认显示模式
Else
DefaultShowMode = 2 '-- 默认显示模式
End If
Dim InstallDir_ChannelDir
InstallDir_ChannelDir = Trim(Newasp.InstallDir & Newasp.ChannelDir)
ubb.BasePath = InstallDir_ChannelDir
ubb.setUbbcode = Join(Newasp.setUserEditor,"|")
ubb.Keyword = Newasp.ContentKeyword
Dim Action:Action = LCase(Request("action"))
Select Case Trim(Action)
Case "save"
Call SaveNewFlash
Case "view"
Call ViewFlash
Case Else
Call showmain
End Select
If Founderr = True Then
Call Returnerr(ErrMsg)
End If
Sub showmain()
If Founderr = True Then Exit Sub
%>
<script language=JavaScript>
var _maxCount = '<%=CLng(GroupSetting(39))%>';
function doSubmit(){
var form1 = document.myform;
var strLen=0;
try{
strLen=GetContentLength();
}
catch(e){
strLen=form1.content.value.length;
}
if(strLen < 2){
alert("简介不能小于2个字符！");
return false;
}
if(strLen > _maxCount){
alert("简介不能超过"+_maxCount+"个字符！");
return false;
}
if (form1.title.value==""){
alert("标题不能为空！");
form1.title.focus();
return false;
}
if (form1.showurl.value==""){
alert("URL不能为空！");
form1.showurl.focus();
return false;
}
if (form1.ClassID.value==""){
alert("该一级分类已经有下属分类，请选择其下属分类！");
form1.ClassID.focus();
return false;
}
if (form1.ClassID.value=="0"){
alert("该分类是外部连接，不能添加内容！");
form1.ClassID.focus();
return false;
}
if (form1.filesize.value==""){
alert("大小还没有填写！");
form1.filesize.focus();
return false;
}
<%If CInt(GroupSetting(2)) = 1 Then%>
if (form1.codestr.value==""){
alert("请填写验证码！");
form1.codestr.focus();
return false;
}
<%End If%>
}
</script>
<div onkeydown="CtrlEnter()">
<table class="UserTableBorder" cellspacing="1" cellpadding="3" align="center" border="0">
<tr>
<th colspan="2">>>发布<%=Newasp.ModuleName%><<</th>
</tr>
<form action="flashpost.asp" method="post" onsubmit="return doSubmit()" name="myform">
<input type="Hidden" name="action" value="save"/>
<input type="hidden" name="ChannelID" value="<%=ChannelID%>"/>
<tr>
<td class="UserTableRow2" nowrap="nowrap" align="right" width="15%"><strong>所属分类</strong></td>
<td class="UserTableRow1" width="85%"><%
Dim sClassSelect
Response.Write "<select name=""ClassID"" id=""ClassID"">"
sClassSelect = Newasp.LoadSelectClass(ChannelID)
Response.Write sClassSelect
Response.Write "</select>"
%></td>
</tr>
<tr>
<td class="UserTableRow2" align="right"><strong><%=Newasp.ModuleName%>标题</strong></td>
<td class="UserTableRow1"><input size="60" name="title" type="text" /> <font color="#ff0000">*</font></td>
</tr>
<tr>
<td class="UserTableRow2" align="right"><strong>相关<%=Newasp.ModuleName%></strong></td>
<td class="UserTableRow1"><input size="60" name="Related" type="text" /></td>
</tr>
<tr>
<td class="UserTableRow2" align="right"><strong>文件大小</strong></td>
<td class="UserTableRow1"><input id="filesize" size="15" onkeyup="if(isNaN(this.value))this.value=''" name="filesize" value="0" type="text" /> <input type="radio" checked="checked" name="SizeUnit" value="KB" /> KB <input type="radio" name="SizeUnit" value="MB" /> MB <strong>推荐星级</strong><select name="star">
<option value="5">★★★★★</option>
<option value="4">★★★★</option>
<option value="3" selected="selected">★★★</option>
<option value="2">★★</option>
<option value="1">★</option>
</select></td>
</tr>
<tr>
<td class="UserTableRow2" align="right"><strong><%=Newasp.ModuleName%>作者</strong></td>
<td class="UserTableRow1"><input size="15" name="Author" type="text" /> <select onChange="Author.value=this.value;" name="font2">
<option value="" selected="selected">选择作者</option>
<option value="佚名">佚名</option>
<option value="本站原创">本站原创</option>
<option value="不详">不详</option>
<option value="未知">未知</option>
<option value="<%=MemberName%>"></option>
</select> <strong><%=Newasp.ModuleName%>来源</strong> <input name="ComeFrom" type="text" /> <select onChange="ComeFrom.value=this.value;" name="font1">
<option value="" selected="selected">选择来源</option>
<option value="本站原创">本站原创</option>
<option value="本站整理">本站整理</option>
<option value="不详">不详</option>
<option value="转载">转载</option>
</select></td>
</tr>
<tr>
<td class="usertablerow1" colspan="2"><%
'-- 编辑器设置
Dim oEditor,EditorCode
Set oEditor = New Editor_Cls
oEditor.UserMode = 1
oEditor.setEditMode = Newasp.setUserEditor(0)
oEditor.ChannelID = ChannelID
oEditor.Width = Newasp.setUserEditor(2)
oEditor.Height = Newasp.setUserEditor(3)
oEditor.BasePath = Newasp.InstallDir & Newasp.setAdminEditor(4)
oEditor.ToolbarSet = Newasp.setUserEditor(1)
oEditor.InstanceName = "content"
oEditor.Execute()
Set oEditor = Nothing
%></td>
</tr>
<tr>
<td class="UserTableRow2" align="right"><strong>预览图片</strong></td>
<td class="UserTableRow1"><input id="ImageUrl" size="60" name="miniature" type="text" /></td>
</tr>
<tr>
<td class="UserTableRow2" align="right"><strong>上传图片</strong></td>
<td class="UserTableRow1"><iframe name="frm_image2" src="upload.asp?ChannelID=<%=ChannelID%>" frameborder="0" width="100%" scrolling="no" height="22"></iframe></td>
</tr>
<tr>
<td class="UserTableRow2" align="right"><strong>显示模式</strong></td>
<td class="UserTableRow1"><%
Dim ShowModeArray
ShowModeArray = Array("不显示","FLASH","图片","Media","Real","DCR")
For i = 0 To UBound(ShowModeArray)
Response.Write "<input type=""radio"" name=""showmode"" value=""" & i & """ "
If i = DefaultShowMode Then Response.Write " checked"
Response.Write ">" & Trim(ShowModeArray(i)) & " "
If i = 6 Then Response.Write "<br>"
Next
%></td>
</tr>
<tr>
<td class="UserTableRow2" align="right"><strong><%=Newasp.ModuleName%>URL</strong></td>
<td class="UserTableRow1"><input id="filePath" size="60" name="showurl" type="text" /> <font color="#ff0000">*</font></td>
</tr>
<tr>
<td class="UserTableRow2" align="right"><strong>文件上传</strong></td>
<td class="UserTableRow1"><iframe name="frm_file2" src="upfile.asp?ChannelID=<%=ChannelID%>&type=flash" frameborder="0" width="100%" scrolling="no" height="60"></iframe></td>
</tr>
<%
If CInt(GroupSetting(2)) = 1 Then
%>
<tr>
<td class="UserTableRow2" align="right"><strong>验证码</strong></td>
<td class="UserTableRow1"><input maxlength="5" size="5" name="codestr" type="text" /> <img style="cursor: pointer" height="10" alt="验证码,看不清楚?请点击刷新验证码" onclick="this.src='../inc/getcode.asp?t='+(new Date().getTime());" src="../inc/getcode.asp" /></td>
</tr>
<%
End If
%>
<tr align="center">
<td class="UserTableRow2" colspan="4"><input class="Button" type="button" onclick="javascript:history.go(-1)" name="Submit4" value="返回上一页" /> <input class="Button" type="submit" name="Submit1" value="现在发布" /></td>
</tr>
</form>
</table>
</div>
<%
End Sub
Sub SaveNewFlash()
Dim TextContent,isAccept,AlphaTitle
If CLng(UserToday(2)) => CLng(GroupSetting(38)) And CLng(GroupSetting(38))>0 Then
FoundErr = True
ErrMsg = ErrMsg + "<li>您每天最多只能发布<font color=red><b>" & GroupSetting(38) & "</b></font>个"& Newasp.ModuleName &"，如果还要继续发布请明天再来吧！</li>"
End If
If Newasp.CheckPost=False Then
ErrMsg = ErrMsg + Postmsg
FoundErr = True
Exit Sub
End If
If CInt(GroupSetting(2)) = 1 Then
If Not Newasp.CodeIsTrue() Then
ErrMsg = ErrMsg + "<meta http-equiv=refresh content=""2;URL="&Request.ServerVariables("HTTP_REFERER")&"""><li>验证码校验失败，请返回刷新页面再试。两秒后自动返回</li>"
Founderr = True
Exit Sub
End If
Session("GetCode") = ""
End If
If Trim(Request.Form("title")) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "<li>标题不能为空！</li>"
Else
AlphaTitle = ubb.CheckSpecialChar(Request.Form("title"))
End If
If Len(Request.Form("title")) > 200 Then
FoundErr = True
ErrMsg = ErrMsg + "<li>标题不能超过200个字符！</li>"
End If
If Len(Request.Form("Related")) > 200 Then
FoundErr = True
ErrMsg = ErrMsg + "<li>相关动画不能超过200个字符！</li>"
End If
If Not IsNumeric(Request.Form("star")) Then
FoundErr = True
ErrMsg = ErrMsg + "<li>推荐星级不能为空。</li>"
End If
If Not IsNumeric(Request.Form("ClassID")) Then
FoundErr = True
ErrMsg = ErrMsg + "<li>该一级分类已经有下属分类，不能添加软件！</li>"
Exit Sub
End If
If CLng(Request.Form("ClassID")) = 0 Then
FoundErr = True
ErrMsg = ErrMsg + "<li>该分类是外部连接，不能添加软件！</li>"
End If
TextContent = ""
For i = 1 To Request.Form("content").Count
TextContent = TextContent & Request.Form("content")(i)
Next
If Trim(TextContent) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "<li>简介不能为空！</li>"
End If
If Len(TextContent) > CLng(GroupSetting(39)) And CLng(GroupSetting(39))>0 Then
ErrMsg = ErrMsg + "<li>简介不能大于" & GroupSetting(39) & "字符！</li>"
Founderr = True
End If
If Newasp.setUserEditor(0) <> 0 Then
TextContent = Newasp.HTMLEncode(TextContent)
End If
TextContent = Re_Replace(TextContent, InstallDir_ChannelDir, "[InstallDir_ChannelDir]")
If Not IsNumeric(Request.Form("filesize")) Then
Founderr = True
ErrMsg = ErrMsg + "<li>文件大小请输入整数！</li>"
End If
'isAccept = Newasp.ChkNumeric(Request.Form("isAccept"))
If Founderr = True Then Exit Sub
Call PreventRefresh '防刷新
Set Rs = Server.CreateObject("ADODB.Recordset")
SQL = "select * from NC_FlashList where (flashid is null)"
Rs.Open SQL,Conn,1,3
Rs.Addnew
Rs("ChannelID") = ChannelID
Rs("ClassID") = Newasp.ChkNumeric(Request.Form("ClassID"))
Rs("SpecialID") = 0'Newasp.ChkNumeric(Request.Form("SpecialID"))
Rs("title") = Newasp.ChkFormStr(Request.Form("title"))
Rs("ColorMode") = 0
Rs("FontMode") = 0
Rs("Introduce") = Html2Ubb(TextContent)
Rs("Related") = Newasp.ChkFormStr(Request.Form("Related"))
Rs("Describe") = ""'Newasp.ChkFormStr(Request.Form("Describe"))
If UCase(Request.Form("SizeUnit")) = "MB" Then
Rs("filesize") = CLng(Request.Form("filesize") * 1024)
Else
Rs("filesize") = CLng(Request.Form("filesize"))
End If
Rs("Author") = Newasp.ChkFormStr(Request.Form("Author"))
Rs("ComeFrom") = Newasp.ChkFormStr(Request.Form("ComeFrom"))
Rs("star") = Trim(Request.Form("star"))
Rs("miniature") = Newasp.ChkFormStr(Request.Form("miniature"))
Rs("UserGroup") = 0
Rs("PointNum") = 0
Rs("UserName") = Trim(MemberName)
Rs("addTime") = Now()
Rs("HtmlFileDate") = Trim(Newasp.HtmlRndFileName)
Rs("AllHits") = 0
Rs("DayHits") = 0
Rs("WeekHits") = 0
Rs("MonthHits") = 0
Rs("HitsTime") = Now()
Rs("grade") = 0
Rs("showmode") = Newasp.ChkNumeric(Request.Form("showmode"))
Rs("isTop") = 0
Rs("IsBest") = 0
Rs("downid") = 0'Newasp.ChkNumeric(Request.Form("downid"))
Rs("showurl") = Newasp.ChkFormStr(Request.Form("showurl"))
Rs("DownAddress") = ""'Trim(Request.Form("DownAddress"))
Rs("isUpdate") = 1
If CInt(Newasp.IsAuditing) = 1 Then
Rs("isAccept") = 0
Else
Rs("isAccept") = 1
End If
Rs("ForbidEssay") = 0
Rs("AlphaIndex") = Newasp.ReadAlpha(AlphaTitle)
Rs.update
Rs.Close
Rs.Open "SELECT TOP 1 flashid FROM NC_FlashList WHERE ChannelID=" & ChannelID & " ORDER BY flashid DESC", Conn, 1, 1
flashid = Rs("flashid")
Rs.Close:Set Rs = Nothing
If CInt(Newasp.IsAuditing) = 1 Then
Call Returnsuc("<li>恭喜您！提交成功。请等待管理员验证后正式发布。</li><li><a href=?action=view&ChannelID=" & ChannelID & "&flashid=" & flashid & ">点击此处查看信息</a></li>")
Else
AddUserPointNum MemberName, 1
Call Returnsuc("<li>恭喜您！发布" & Newasp.ModuleName & "成功。</li><li><a href=?action=view&ChannelID=" & ChannelID & "&flashid=" & flashid & ">点击此处查看信息</a></li>")
End If
End Sub
%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?