admin_special.asp

小游戏网站演示www.4399.io 拥有4万条游戏数据

</tr>
<tr>
	<td class=tablerow1><strong>是否转向连接：</strong></td>
	<td class=tablerow1><input type=radio name=ChangeLink value='0'<%If Rs("ChangeLink") = 0 Then Response.Write (" checked")%> onClick="ChangeSetting.style.display='none';"> 否&nbsp;&nbsp;
	<input type=radio name=ChangeLink value='1'<%If Rs("ChangeLink") = 1 Then Response.Write (" checked")%> onClick="ChangeSetting.style.display='';"> 是&nbsp;&nbsp;</td>
</tr>
<tr id=ChangeSetting<%If Rs("ChangeLink") = 0 Then Response.Write (" style=""display:none""")%>>
	<td class=tablerow2><strong>转向连接URL：</strong></td>
	<td class=tablerow2><input type=text name=SpecialUrl size=50 value='<%=Rs("SpecialUrl")%>'></td>
</tr>
<tr align=center>
	<td class=tablerow2></td>
	<td class=tablerow2><input type="button" onclick="javascript:history.go(-1)" value="返回上一页" name="B1" class=Button>&nbsp;&nbsp;
		<input type="submit" value="修改专题" name="B2" class=Button></td>
</tr>
</form>
</table>
<%
Rs.Close:Set Rs = Nothing
End Sub

Private Sub CheckSave()
	If Trim(Request.Form("SpecialName")) = "" Or Len(Request.Form("SpecialName")) => 30 Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>专题名称不能为空或者超过30个字符！</li>"
	End If
	If Trim(Request.Form("Readme")) = "" Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>专题说明不能为空！</li>"
	End If
	If Trim(Request.Form("SpecialDir")) = "" Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>专题目录不能为空！</li>"
	End If
	If Trim(Request.Form("SpecialUrl")) = "" Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>专题连接URL不能为空！</li>"
	End If
	If Not Newasp.IsValidChar(Trim(Request.Form("SpecialDir"))) Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>专题目录中含有非法字符或者中文字符！</li>"
	End If
End Sub

Private Sub SaveSpecial()
	Call CheckSave
	Dim neworders,NewSpecialID,SpecialDir
	Set Rs = Conn.Execute("select SpecialID from NC_Special where SpecialID = " & Request("SpecialID"))
	If Not (Rs.EOF And Rs.bof) Then
		ErrMsg = "<li>您不能指定和别的频道一样的序号。</li>"
		Founderr = True
		Exit Sub
	Else
		NewSpecialID = Request("SpecialID")
	End If
	SpecialDir = Replace(Replace(Trim(Request.Form("SpecialDir")), "\", ""), "/", "")
	If Founderr = True Then Exit Sub
	Set Rs = Newasp.Execute ("Select Max(orders) from NC_Special where ChannelID = " & Request("ChannelID"))
	If Not (Rs.EOF And Rs.bof) Then
		neworders = Rs(0)
	End If
	If IsNull(neworders) Then neworders = 0
	Rs.Close
	Set Rs = Server.CreateObject("ADODB.Recordset")
	SQL = "select * from NC_Special"
	Rs.Open SQL,Conn,1,3
	Rs.Addnew
		Rs("SpecialID") = NewSpecialID
		Rs("ChannelID") = Trim(Request.Form("ChannelID"))
		Rs("SpecialName") = Trim(Request.Form("SpecialName"))
		Rs("Topicformat") = Trim(Request.Form("Topicformat"))
		Rs("Readme") = Trim(Request.Form("Readme"))
		Rs("orders") = neworders + 1
		Rs("Reopen") = Trim(Request.Form("Reopen"))
		Rs("SpecialDir") = Trim(Request.Form("SpecialDir"))
		Rs("ChangeLink") = Trim(Request.Form("ChangeLink"))
		Rs("SpecialUrl") = Trim(Request.Form("SpecialUrl"))
	Rs.update
	Rs.Close:Set Rs = Nothing
	Succeed("<li>添加新的专题栏目成功</li>")
End Sub

Private Sub ModifySpecial()
	Call CheckSave
	Dim SpecialDir
	SpecialDir = Replace(Replace(Trim(Request.Form("SpecialDir")), "\", ""), "/", "")
	Set Rs = Server.CreateObject("ADODB.Recordset")
	SQL = "select * from NC_Special where SpecialID = " & Request("SpecialID")
	Rs.Open SQL,Conn,1,3
		Rs("SpecialName") = Trim(Request.Form("SpecialName"))
		Rs("Topicformat") = Trim(Request.Form("Topicformat"))
		Rs("Readme") = Trim(Request.Form("Readme"))
		'Rs("orders") = neworders + 1
		Rs("Reopen") = Trim(Request.Form("Reopen"))
		Rs("SpecialDir") = Trim(Request.Form("SpecialDir"))
		Rs("ChangeLink") = Trim(Request.Form("ChangeLink"))
		Rs("SpecialUrl") = Trim(Request.Form("SpecialUrl"))
	Rs.update
	Rs.Close:Set Rs = Nothing
	Succeed("<li>修改" & sChannelName & "的专题栏目成功</li>")
End Sub

Private Sub DelSpecial()
	Dim FolderPath
	If Trim(Request("SpecialID")) <> "" Then
		Set Rs = Newasp.Execute("Select SpecialDir From NC_Special where SpecialID = " & Request("SpecialID"))
		'FolderPath = Newasp.InstallDir & Newasp.ChannelDir & "Special/" & Rs("SpecialDir")
		'Newasp.FolderDelete(FolderPath)
		Newasp.Execute("DELETE FROM NC_Special WHERE SpecialID = " & CLng(Request("SpecialID")))
		Rs.Close:Set Rs = Nothing
		OutHintScript (sChannelName & "专题栏目删除操作成功！")
	Else
		OutHintScript ("请选择正确的系统参数！")
	End If
End Sub

Private Sub SpecialOrder()
	Dim trs
	Dim uporders
	Dim doorders
	Response.Write " <table border=""0"" cellspacing=""1"" cellpadding=""2"" class=""tableBorder"" align=center>" & vbCrLf
	Response.Write " <tr>" & vbCrLf
	Response.Write " <th colspan=2>" & sChannelName & "专题栏目重新排序修改"
	Response.Write " </th>"
	Response.Write " </tr>" & vbCrLf
	SQL = "select * from NC_Special where ChannelID = "& Request("ChannelID") &" order by orders"
	Set Rs = Newasp.Execute(SQL)
	If Rs.bof And Rs.EOF Then
		Response.Write "您还没有添加相应的专题。"
	Else
		Do While Not Rs.EOF
			Response.Write "<form action=?action=saveorder method=post><tr><td width=""50%"" class=TableRow1>" & vbCrLf
			Response.Write "<span " & Rs("Topicformat") & ">" & Rs("SpecialName") & "</span>"
			Response.Write "</td><td width=""50%"" class=TableRow2>" & vbCrLf
			Set trs = Newasp.Execute("select count(*) from NC_Special where ChannelID = "& Request("ChannelID") &" And orders<" & Rs("orders") & "")
				uporders = trs(0)
				If IsNull(uporders) Then uporders = 0

				Set trs = Newasp.Execute("select count(*) from NC_Special where ChannelID = "& Request("ChannelID") &" And orders>" & Rs("orders") & "")
				doorders = trs(0)
				If IsNull(doorders) Then doorders = 0
				If uporders > 0 Then
					Response.Write "<select name=uporders size=1><option value=0>↑</option>" & vbCrLf
					For i = 1 To uporders
						Response.Write "<option value=" & i & ">↑" & i & "</option>" & vbCrLf
					Next
					Response.Write "</select>"
				End If
				If doorders > 0 Then
					If uporders > 0 Then Response.Write "&nbsp;"
					Response.Write "<select name=doorders size=1><option value=0>↓</option>" & vbCrLf
					For i = 1 To doorders
						Response.Write "<option value=" & i & ">↓" & i & "</option>" & vbCrLf
					Next
					Response.Write "</select>" & vbCrLf
				End If
				If doorders > 0 Or uporders > 0 Then
					Response.Write "<input type=hidden name=""ChannelID"" value=""" & Rs("ChannelID") & """><input type=hidden name=""SpecialID"" value=""" & Rs("SpecialID") & """>&nbsp;<input type=submit name=Submit class=button value='修 改'>" & vbCrLf
				End If
			Response.Write "</td></tr></form>" & vbCrLf
			Rs.movenext
		Loop
	End If
	Rs.Close
	Set Rs = Nothing
	Response.Write "</table>"
End Sub

Private Sub SpecialRenewOrder()
	Dim orders
	Dim uporders
	Dim doorders
	Dim oldorders
	If Not IsNumeric(Request("ChannelID")) Then
		ErrMsg = ErrMsg & "<li>非法的系统参数！</li>"
		Founderr = True
		Exit Sub
	End If
	If Not IsNumeric(Request("SpecialID")) Then
		ErrMsg = ErrMsg & "<li>非法的系统参数！</li>"
		Founderr = True
		Exit Sub
	End If
	If Request("uporders") <> "" And Not CInt(Request("uporders")) = 0 Then
		If Not IsNumeric(Request("uporders")) Then
			ErrMsg = ErrMsg & "<li>非法的系统参数！</li>"
			Founderr = True
			Exit Sub
		ElseIf CInt(Request("uporders")) = 0 Then
			ErrMsg = ErrMsg & "<li>请选择要提升的数字！</li>"
			Founderr = True
			Exit Sub
		End If
		Set Rs = Newasp.Execute("select SpecialID,orders from NC_Special where ChannelID=" & Request("ChannelID") & " And SpecialID=" & Request("SpecialID"))
		orders = Rs(1)
		i = 0
		oldorders = 0
		Set Rs = Newasp.Execute("select SpecialID,orders from NC_Special where ChannelID=" & Request("ChannelID") & " And orders<" & orders & " order by orders desc")
		Do While Not Rs.EOF
			i = i + 1
			If CInt(Request("uporders")) >= i Then
				Newasp.Execute ("update NC_Special set orders=" & orders & "+" & oldorders & " where ChannelID=" & Request("ChannelID") & " And SpecialID=" & Rs(0))
				If CInt(Request("uporders")) = i Then uporders = Rs(1)
			End If
			orders = Rs(1)
			Rs.movenext
		Loop
		Newasp.Execute ("update NC_Special set orders=" & uporders & " where ChannelID=" & Request("ChannelID") & " And SpecialID=" & Request("SpecialID"))
		Set Rs = Nothing
	ElseIf Request("doorders") <> "" Then
		If Not IsNumeric(Request("doorders")) Then
			ErrMsg = ErrMsg & "<li>非法的参数！</li>"
			Founderr = True
			Exit Sub
		ElseIf CInt(Request("doorders")) = 0 Then
			ErrMsg = ErrMsg & "<li>请选择要下降的数字！</li>"
			Founderr = True
			Exit Sub
		End If
		Set Rs = Newasp.Execute("select SpecialID,orders from NC_Special where ChannelID=" & Request("ChannelID") & " And SpecialID=" & Request("SpecialID"))
		orders = Rs(1)
		i = 0
		oldorders = 0
		Set Rs = Newasp.Execute("select SpecialID,orders from NC_Special where ChannelID=" & Request("ChannelID") & " And orders>" & orders & " order by orders desc")
		Do While Not Rs.EOF
			i = i + 1
			If CInt(Request("doorders")) >= i Then
				Newasp.Execute ("update NC_Special set orders=" & orders & " where ChannelID=" & Request("ChannelID") & " And SpecialID=" & Rs(0))
				If CInt(Request("doorders")) = i Then doorders = Rs(1)
			End If
			orders = Rs(1)
			Rs.movenext
		Loop
		Newasp.Execute ("update NC_Special set orders=" & doorders & " where ChannelID=" & Request("ChannelID") & " And SpecialID=" & Request("SpecialID"))
		Set Rs = Nothing
	End If
	Response.redirect "admin_special.asp?action=orders&ChannelID=" & ChannelID
End Sub
%>