📄 add1.asp

📁 房地产信息管理平台

💻 ASP

字号:

<%
	set fp = Server.CreateObject("99n.FileUp")
	if fp.request("pagename")="send" then
		id=fp.request("id")
		if fp.count("Submit2")>0 and fp.count("file")>0 then
			fp.delete server.MapPath("compact_"&id)&"\"&fp.request("file")
		end if

		if fp.request("title")<>"" and fp.count("Submit")>0 then
			fp.savefile "title",server.MapPath("compact_"&id)&"\"&fp.filename("title")
		end if
	else
		id=request("id")
	end if
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.unnamed1 {  width: 220px}
-->
</style>
<link rel="stylesheet" href="../font.css">
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" scroll="no">
<table width="330" border="0" cellspacing="0" cellpadding="0" ALIGN="RIGHT"> <form method="post" action="add1.asp" name="form1" enctype="multipart/form-data"> 
<tr> <td width="230"> <input type="file" name="title"> </td><td> <input type="submit" name="Submit" value="添加"> 
<input type="hidden" name="pagename" value="send"> <input type="hidden" name="id" value="<%=id%>"> 
</td></tr> <tr> <td width="230"> <%
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set f = fso.GetFolder(server.MapPath("compact_"&id))
	Set fc=f.Files
	adds=0
%> <select name="file" class="unnamed1"><%
	for each f1 in fc%> <option value="<%=f1.name%>"><%=f1.name%></option><%
		adds=adds+1
	next%> </select> </td><td> <input type="submit" name="Submit2" value="删除"> 
<input type="hidden" name="adds" value="<%=adds%>"> </td></tr> </form></table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -