asp上传类2
1.html代码 formname是表单name,editname是文件域name,uppath是上传文件保存路径.
<input name="qtxx" type="text" id="qtxx" size="50" />
<input type="button" name="Submit22" value="上传图片" onClick="window.open('upload.asp?formname=from1&editname=qtxx&uppath=../UpLoadFile&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')">
2.upload.asp
<%
uppath=request("uppath")&"/"
filelx=request("filelx")
formName=request("formName")
EditName=request("EditName")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" mce_href="css.css" rel="stylesheet" type="text/css">
<mce:script language="javascript"><!--
function mysub()
{
esave.style.visibility="visible";
}
// --></mce:script>
<title>图片上传</title></head>
<body>
<form name="form1" method="post" action="upfile.asp" enctype="multipart/form-data" >
<div id="esave" style="position:absolute; top:18px; left:40px; z-index:10; visibility:hidden">
<TABLE WIDTH=340 BORDER=0 CELLSPACING=0 CELLPADDING=0>
<TR><td width=20%></td>
<TD bgcolor=#ff0000 width="60%">
<TABLE WIDTH=100% height=120 BORDER=0 CELLSPACING=1 CELLPADDING=0>
<TR>
<td bgcolor=#ffffff align=center><font color=red>正在上传文件,请稍候...</font></td>
</tr>
</table>
</td><td width=20%></td>
</tr></table></div>
<table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td align="center" background="images/admin_bg_1.gif"><b><font color="#ffffff">图片上传
<input type="hidden" name="filepath" value="<%=uppath%>">
<input type="hidden" name="filelx" value="<%=filelx%>">
相关文档:
<%
'//////////// GPS:Get Picture Size //////////////
'//////////////利用ADODB.stream获取图片尺寸//////////////
Class GPS
Dim aso
Private Sub Class_Initialize
Set aso=CreateObject("Adodb.Stream")
aso.Mode=3
aso.Type=1
aso.Open
End Sub
Private Sub Class_Terminate
set aso=nothing
En ......
注意:系统需要FSO权限、XMLHTTP权限
系统包括两个文件,其实可以合并为一个。之所以分为两个是因为部分杀毒软件会因为里边含有FSO、XMLHTTP操作而被认为是脚本木马。
调用时,需要在ASP页面的最上边包含主文件,然后在下边写下以下代码
Set MyCatch=new CatchFile
MyCatch.Overdue=60*5 &n ......
第一种方法:
<%
d = date()
response.write d&" "&WeekdayName(Weekday(d))
%>
输出样式:2004-5-7 星期五
************************************************************************* ......
连接代码1直接输入
<%
Dim my_conn, sql,rs
Set my_conn = createobject("ADODB.Connection")
my_conn.open = "DRIVER={MySQL ODBC 3.51 Driver};"_
& "SERVER=localhost;"_ '服务器名
& "DATABASE=mybase;"_ '数据库名
& "UID=root;PWD=111; OPTION=35;" '用户名和密码
Set rs = Server.Crea ......
GridView 为动态绑定 DataSet,结果 (DataSet)dt = grid1.DataSource 拿不到东西,想偷懒直接添加行不行了, 只好用最笨的办法,把GridView的东西倒成DataSet,然后在DataSet里加行,最后回绑gridview
try里面的
DataTable dtable = new DataTable("tb1");
&n ......