admin_utitle.asp

非常好的源码 非常好的源码 非常好的源码

<!--#include file=admin_login_check.asp-->
<%
const PageSize=15	'一页15条记录
dim lid,cid,classID
lid=TRim(Request("lid"))
cid=TRim(Request("cid"))
			set rs=server.CreateObject("adodb.recordset")
			sql="select * from uclass where cid="&cid
			rs.open sql,conn,1,1
			if not (rs.bof and rs.eof)  then
			classID=rs("classID")
			end if
		Rs.close
		set rs=nothing
IF  Request.QueryString("Action")="add" Then
	call BBSSET
elseIF  Request.QueryString("Action")="edit" Then
	call edit
elseIF  Request.QueryString("Action")="del" Then
	call del
else
	call main
end if

Function BBSSET


%>

<form name="pollform3sdx" method="post" action="admin_utitle.asp?Action=add&lid=<%=lid%>&cid=<%=cid%>">
  <p style="margin-left:15px;">
  <b>上传管理</b><br/><a href='admin_utitle.asp?cid=<%=cid%>&lid=<%=lid%>'>返回上传分类</a></p>
  <input type="hidden" name="SubmitFlag" value=yes>
  <table width="100%" border="0" align="center" cellpadding="8" cellspacing="0">

	<tr>
	<td align="center">
	<%
	If Request("SubmitFlag") <> "" Then
			Addbbsboards
			Exit Function
	Else
			DisplayBBSSet
	End If
	%>
	</td></tr>
	<tr>
	<td align="center">
	<input type=submit name=提交 value=提　交 class=fmbtn>　
	<input type=reset name=取消 value=清　除 class=fmbtn>
	</td>
	</tr>
</table>
</form>
<%

End Function



Function CheckLinkValue

	GetFormValue

End Function



Function DisplayBBSSet


%>
		
  <table width="100%" border=0 align="center" cellpadding=5 cellspacing=1  bgcolor="#FF0000"  class=TBone>

  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td class="tar">文件标题:</td>
    <td><input name="name" type="text" class=fminpt id="boardName" size="20" maxlength="50">
      <font color=gray>(文件名称，50字，必填)</font></td>
  </tr>

  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td class="tar">文件地址:</td>
    <td><input name="url" type="text" class=fminpt id="boardName" size="20" maxlength="50">
      <font color=gray>(文件地址，必填)</font></td>
  </tr>
<%if classID=3 then %>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td class="tar">文件地址2:</td>
    <td><input name="url2" type="text" class=fminpt id="boardName" size="20" maxlength="50">
      <font color=gray>(文件地址2，JAD文件地址,没有可不填)</font></td>
  </tr>
<%end if%>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td class="tar">文件大小:</td>
    <td><input name="fsize" type="text" class=fminpt id="boardName" size="20" maxlength="50">
      <font color=gray>(文件大小，50字，必填)</font></td>
  </tr>
 		       <tr bgcolor=#f7f7f7 class=TBBG9> 
  		        <td valign="top">文件说明:<br/>支持UBB</td>
  		        <td><textarea rows="15" name="title" cols="63" >----------</textarea></td>
   			     </tr>
  </table>
		<%

End Function




Function Addbbsboards
	dim flag,errmsg,name,title,url,url2,fsize
	flag=1
	errmsg="<ul><font color=red>"
	name=Request.Form("name")
	title=Request.Form("title")
	url=Request.Form("url")
	url2=Request.Form("url2")
	fsize=Request.Form("fsize")
	if name=""  then errmsg=errmsg&"<li>文件标题不能为空</li>":flag=0
	if title=""  then errmsg=errmsg&"<li>文件说明不能为空</li>":flag=0
	if url=""  then errmsg=errmsg&"<li>文件地址不能为空</li>":flag=0
	if fsize=""  then errmsg=errmsg&"<li>文件大小不能为空</li>":flag=0
		if flag<>0 then
			Dim sql,rs
			set rs=server.CreateObject("adodb.recordset")
			sql="select * from ufile order by pid asc"
			rs.open sql,conn,1,3
			if not (rs.bof and rs.eof)  then 
				rs.MoveLast
				pid=rs("pid")
			else
				pid=0
			end if

				rs.addnew()
					rs("lid")=lid
					rs("cid")=cid
					rs("name")=name
					rs("title")=title
					rs("pid")=pid+1
					rs("url")=url
					rs("url2")=url2
					rs("size")=fsize
				rs.update()
		Rs.close
		set rs=nothing
				Response.Write("成功添加名为<font color='red'>"&name&"</font>的上传！")
				Response.Write("<br/><a href='admin_utitle.asp?lid="&lid&"&cid="&cid&"'>返回上传管理</a>")
				errmsg=errmsg&"</font></ul>"
		else
			Response.Write("由于以下原因，设置没有成功，请<a href='javascript:history.back()'>返回</a>修改：<br>"&errmsg&"<br><button  onclick='javascript:history.back()'>返回修改</button>") 
		
		end if	
End Function



Function main%>
<form name="pollform3sdx" method="post" action="admin_utitle.asp?lid=<%=lid%>&cid=<%=cid%>">
  <p style="margin-left:15px;">
  <b>上传管理</b><br/><a href='admin_utitle.asp?Action=add&lid=<%=lid%>&cid=<%=cid%>'>添加文件</a>-<a href='admin_upfile.asp?lid=<%=lid%>&cid=<%=cid%>'>上传文件</a>-<a href='admin_class.asp?cid=<%=cid%>'>返回分类管理</a></p>
<input type="hidden" name="SubmitFlag" value=yes>
  <table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#FF0000" >
	<%
	If Request("SubmitFlag") <> "" Then
			Addbbs
			Exit Function
	Else
			mainBBSSet
	End If
	%>

</table>
</form>
<%

End Function


Function Addbbs
	dim flag,errmsg,id,name,classID,sql,rs
	flag=1
			set rs=server.CreateObject("adodb.recordset")
			sql="select * from ufile  WHERE lid='" & lid&"' order by pid asc"
			rs.open sql,conn,1,1
		errmsg="<ul><font color=red>"
			Page = Request("Page")
			Rs.PageSize = PageSize
			if not (rs.bof and rs.eof)  then 
				IF Not IsEmpty(Page) Then
					IF Not IsNumeric(Page) Then		'判断Page是否为数字
						Page=1
					Else
						Page=Cint(Page)		'转换成短整形Integer
					End IF
					IF Page > Rs.PageCount Then
						Rs.AbsolutePage = Rs.PageCount	'设置当前显示页等于最后一页
					ElseIF Page <= 0 Then
						Rs.AbsolutePage = 1		'设置当前页等于第一页
					Else
						Rs.AbsolutePage = Page	'如果大于零,显示当前页等于接收的页数
					End IF
				Else
					Rs.AbsolutePage = 1
				End IF
					Page = Rs.AbsolutePage

	For i=1 to Rs.PageSize
		If Rs.Eof Then
			exit For
		End If
		classID=TRim(Request.Form("classID"&i))
	if classID=""  then errmsg=errmsg&"<li>排序编号不能为空</li>":flag=0
	if not isnumeric(classID) then errmsg=errmsg&"<li>排序编号必须为数字</li>":flag=0
		Rs.MoveNext
	Next
		Rs.close
		set rs=nothing
		if flag<>0 then
			set rs=server.CreateObject("adodb.recordset")
			sql="select * from ufile  WHERE lid='" & lid&"' order by pid asc"
			rs.open sql,conn,1,3
			Page = Request("Page")
			Rs.PageSize = PageSize
			if not (rs.bof and rs.eof)  then 
			IF Not IsEmpty(Page) Then
				IF Not IsNumeric(Page) Then		'判断Page是否为数字
					Page=1
				Else
					Page=Cint(Page)		'转换成短整形Integer
				End IF
				IF Page > Rs.PageCount Then
					Rs.AbsolutePage = Rs.PageCount	'设置当前显示页等于最后一页
				ElseIF Page <= 0 Then
					Rs.AbsolutePage = 1		'设置当前页等于第一页
				Else
					Rs.AbsolutePage = Page	'如果大于零,显示当前页等于接收的页数
				End IF
			Else
				Rs.AbsolutePage = 1
			End IF
			Page = Rs.AbsolutePage

			For i=1 to Rs.PageSize
				If Rs.Eof Then
					exit For
				End If
					rs("pid")=TRim(Request.Form("classID"&i))
					rs.update()
					Rs.MoveNext
			Next
		end if
		Rs.close
		set rs=nothing

				Response.Write("成功排序文件！")
				Response.Write("<br/><a href='admin_utitle.asp?lid="&lid&"&cid="&cid&"'>返回上传管理</a>")
				errmsg=errmsg&"</font></ul>"
		end if
		else