c_boaisc.asp

来自「Asp源码交易频道 可对商品的添加、修改、删除」· ASP 代码 · 共 53 行

ASP
53 行
字号 
<!--#include file="d_boaisc.asp" --><!--#include file="d_lj.asp" -->
<%
	set sc=new boaisc
	for each shuju in sc.file
		set wj=sc.file(shuju)
		
		mingzi=request.Cookies("mingzi")
		kzm=lcase(right(wj.filename,4))
			
			set youke=lj.execute("select youkefatie from luntan")
			if youke("youkefatie")<>0 and mingzi="" then
				response.Redirect("b_boaisc.asp?fanhui=yk")
			end if
						
			set dx=lj.execute("select shangchuan from luntan")
			if wj.filesize>(dx("shangchuan")*1000) then
				response.Redirect("b_boaisc.asp?fanhui=da")
			end if
			
			if kzm<>".rar" and kzm<>".zip" and kzm<>".jpg" and kzm<>".gif" and kzm<>"rent" then
				response.Redirect("b_boaisc.asp?fanhui=lx")
			end if

			if kzm="rent" then kzm=".torrent"

		wjm="boaisc/"&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&int(rnd)&kzm
		wj.saveas server.MapPath(wjm)
	next

	if kzm=".jpg" or kzm=".gif" then
%>
<html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language=JavaScript>
function image_success()
{
	parent.fa.neirong.value+="[img]<%=wjm%>[/img]";
	window.location="b_boaisc.asp?fanhui=cg&wjm=<%=wjm%>";
}
</script></head><body leftmargin="0" topmargin="0" onload="image_success()"></body></html>
<%
else
%>
<html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language=JavaScript>
function image_success()
{
	parent.fa.neirong.value+="[url]<%=wjm%>[/url]";
	window.location="b_boaisc.asp?fanhui=cg&wjm=<%=wjm%>";
}
</script></head><body leftmargin="0" topmargin="0" onload="image_success()"></body></html>
<%
end if
%>

c_boaisc.asp - 源码说明

本页面展示了「Asp源码交易频道 可对商品的添加、修改、删除」中的 c_boaisc.asp 源码文件，采用 ASP 编程语言编写，共 53 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?