📄 upfile1.asp

📁 一般的,简单的的的的的的的的饿的饿恶毒一般的,简单的的的的的的的的饿的饿恶毒一般的,简单的的的的饿的饿恶毒

💻 ASP

字号:

<html>
<head>
<title>化境上传</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-color: #F5F5F5;
}
body,td,th {
	font-size: 12px;
}
.style1 {color: #FF0000}
-->
</style></head>
<body>

<table width="100%" height="100%">
<%
dim conn,sqlstr,DBPath,connstr
DBPath = Server.MapPath("../date/picicn.mdb")
connstr = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& DBPath
Set conn = Server.CreateObject("ADODB.Connection")
conn.open Connstr
	dim sql,rs
	sql="select * from users where username='"&session("username")&"'"
	set rs=Server.CreateObject("ADODB.Recordset")
	rs.open sql,conn,1,1
	if rs("Money")>=100 then
	%>
<form name="form1" method="post" action="upfile.asp" enctype="multipart/form-data" >
<tr> 
<td><input type="hidden" name="filepath" value="/upfile/"><input name="file1" type="file" value="" size="30"><input type="submit" name="Submit" value="提交"> 
  [<span class="style1">类型：</span>JPG|GIF|ZIP|RAR][<span class="style1">大小：</span>2M]</td>
</tr></form>
<%else%>
<tr><td class="style1">您的金钱数不足100，不能上传文件，要积极发贴哦~</td>
</tr>
<%
end if
rs.close
%>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -