upload_modi.asp

来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 83 行

ASP

83 行

<!--#include file="conn.asp"-->
<!--#include file="uploadrequest.asp"-->
<%
 OpenDataConn
 Dim Action,filename
  Action=Trim(Request("Action"))
  Select Case Action
   Case "modi"
    set ourRequest = new UploadRequest
     ourRequest.AllowedFilesList = "gif|png|jpg|"
     ourRequest.DeniedFilesList = ""
     ourRequest.MaxFileSize = 80*1000
     ourRequest.TotalMaxFileSize = 400*1000 '400k
     on error resume next
     ourRequest.Upload
     if err.number <> 0 then
     response.write err.description
     response.end
     end if
     on error goto 0 '关闭on error resume next
     Dim desFolder:desFolder=server.mappath("../pic")
     filename=Trim(ourRequest.Form("filename"))
     Call ourRequest.File(0).SaveAs(desFolder, filename)
	 Response.Write("<script>window.close();</script>")
   Case "del"
    Set Fso=Server.CreateObject("Scripting.FileSystemObject")
	 Fso.DeleteFile Server.MapPath("../pic/"&Trim(Request.QueryString("imgname")))
	 conn.Execute"delete from pic where imgname="&Left(Trim(Request.QueryString("imgname")),12)&""
	Set Fso=Nothing
	Response.Write"<script language=""javascript"">window.opener.document.all("""&Trim(Request("textfield"))&""").innerText=window.opener.document.all("""&Trim(Request("textfield"))&""").innerText.replace('"&Trim(Request.QueryString("imgname"))&",','');window.close();</script>"
	Response.End
  End Select

 filename=Request("filename")
 Set rs=Server.CreateObject("ADODB.Recordset")
  rs.Open"select * from pic where imgname="&filename&"",conn,1,3
  If rs.Eof Then
   Response.Write("<script language='javascript'>alert('此记录已不存在！');history.back();</script>")
   Response.End()
  End If
%>
<html>
<head>
<title>侨乡房产网！－－图片上传</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
 function check(){
  if(document.forms[0].file.value=="")
   {
    alert("请选择图片路径！");
	document.forms[0].file.focus();
	return false;
   }
   return true;
 }
</script>
</head>

<body>
<table width="334" height="38" border="0" align="center" cellpadding="0" cellspacing="0" class="t12">
  <form action="upload_modi.asp?action=modi" method="post" enctype="multipart/form-data">
    <tr> 
      <td height="25">图片路径　 
        <input type="file" name="file"> </td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td height="25" align="center"><a href="#" class="linkone" onclick="javascript:window.open('../pic/<%=Trim(rs("imgname"))&"."&Trim(rs("imgext"))%>','_blank','top=100,left=200,width=500,height=400')">查看图片</a>　　 
        <input type="submit" name="Submit" value="修改并上传" onClick="return check();"> 
        <input name="textField" type="hidden" id="textField2" value="<%=Trim(request("textField"))%>"> 
        <input name="filename" type="hidden" id="filename2" value="<%=Trim(rs("imgname"))&"."&Trim(rs("imgext"))%>"> 
        <input name="action" type="hidden" id="action2" value="<%=Trim(Request("action"))%>"> 
      </td>
    </tr>
  </form>
</table>
</body>
</html>
<%CloseDataConn%>

upload_modi.asp - 源码说明

本页面展示了「房地产管理系统 vb写的,很不错!!!!!!!!!!!」中的 upload_modi.asp 源码文件，采用 ASP 编程语言编写，共 83 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?