UC知道关于图片上传代码问题
来源：百度知道 编辑：UC知道 时间：2024/05/26 02:31:54
关于asp 图片上传代码
<%
Function GetFileName(ByVal strFile)
If strFile <> "" Then
GetFileName = mid(strFile,InStrRev(strFile, "\")+1)
Else
GetFileName = ""
End If
End function
strFileName = Request.Form("upfilename")
If strFileName<>"" Then
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1
objStream.Open
objStream.LoadFromFile strFileName
objStream.SaveToFile Server.MapPath(GetFileName(strFileName)),2
objStream.Close
response.write "OK!"
Else
%>
<form action='<%= Request.ServerVariables("URL") %>' method='post'>
<input type='file' name='upfilename'> <input name="上传" type='submit' id="上传" value="上传文件">
</form>
<%
End if
%
<%
Function GetFileName(ByVal strFile)
If strFile <> "" Then
GetFileName = mid(strFile,InStrRev(strFile, "\")+1)
Else
GetFileName = ""
End If
End function
strFileName = Request.Form("upfilename")
If strFileName<>"" Then
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1
objStream.Open
objStream.LoadFromFile strFileName
objStream.SaveToFile Server.MapPath(GetFileName(strFileName)),2
objStream.Close
response.write "OK!"
Else
%>
<form action='<%= Request.ServerVariables("URL") %>' method='post'>
<input type='file' name='upfilename'> <input name="上传" type='submit' id="上传" value="上传文件">
</form>
<%
End if
%
本人今年28岁,但阴茎只有1cm,勃起后只有2.5cm,周长也是2.5cm,怎样做爱呀?很自卑!!怎么办?担心...很多朋友看了后都不敢相信,但这是一个真真实实的故事,本人自小孩开始到现在,阴茎几乎没有变化过,只是到成年时,长了身体,下身也长了许多毛,但就是那里没有变大,我很害怕,也不敢在公共浴室里面洗澡,我是可以射的,但每次只有正常人份量的1/4,睾丸只有正常人大小的1/5左右,大概就是两颗黄豆般大小吧.其实我怀疑是我小时候的一次摔倒那里了,导致这样的后果的,现在很后悔当时贪玩...不知道现在是否有机会治好,达到正常人的水平.是否可以延长阴茎的呀?我听说网上有一种药叫maxman的,不知道这些药是否有效的呢?希望各位朋友为我出谋划策吧.谢谢.