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 ......
<%
Call RemoveAllCache()
Sub RemoveAllCache()
Dim cachelist,i
Call InnerHtml("UpdateInfo","<b>¿ªÊ¼Ö´ÐÐÇåÀíµ±Ç°Õ¾µã»º´æ</b>£º")
Cachelist=split(GetallCache(),",")
If UBound(cachelist)>1 Then
For i=0 to UBound(cachelist)-1
DelCahe Cachelist(i)
Call InnerHtml("UpdateInf ......
̽Ë÷Èí¼þ¹¤×÷ÊÒ³¤ÆÚרҵ³Ð½ÓÖÐСÐÍÉÌÒµÈí¼þ»òÍøÕ¾£¬×îÓŻݵļ۸ñºÍ¸ßÖÊÁ¿µÄ·þÎñÆÚ´ýÄúµÄ»Ý¹Ë£¡
±¾¹¤×÷ÊÒ³Ð½Ó JSP ASP VB PB LotusNotes µÈÓïÑÔÒªÇóµÄÓ¦ÓÃϵͳ¿ª·¢ÒµÎñ
java jspʵսԴ³ÌÐò´úÂë:
......
Ò³ÃæÉúÃüÖÜÆÚ
Ò³ ÃæÉúÃüÖÜÆÚÖ´ÐÐһϵÁв½Öè£ºÒ³ÃæµÄ³õʼ»¯¡¢ÊµÀý»¯¿Ø¼þ¡¢»¹ÔºÍά»¤×´Ì¬¡¢ÔËÐÐʼþ´¦Àí³ÌÐò´úÂë¡¢³ÊÏÖ¡£ÎªÁËÔÚºÏÊʵĽ׶ÎÖ´ÐÐËùÐèµÄ´úÂ룬ËùÒÔÒª¶ÔÒ³ÃæÉúÃü ÖÜÆÚ·Ç³£ÊìϤ¡£ÔÚÒ³ÉúÃüÖÜÆÚµÄ¸÷¸ö½×¶Î£¬Ò³Ãæ»áÖð¸öÒý·¢¶¨ÒåµÄʼþ£¬Í¨¹ý¶Ô´úÂ뿪·¢£¬ÔÚÒ³ÃæµÄÉúÃüʼþÖÐÖ´ÐÐÎÒÃÇËùÐèÒªµÄ³ÌÐò
Ò³ÉúÃüÖÜÆÚ½×¶Î
1¡ ......
µÚÒ»ÖÖ·½·¨:
<%
d = date()
response.write d&" "&WeekdayName(Weekday(d))
%>
Êä³öÑùʽ:2004-5-7 ÐÇÆÚÎå
************************************************************************* ......