?? upphoto.asp
字號:
<%Option Explicit%><%
dim rs_lar,rs
dim sql
dim i
dim conn,dbpath
'叛斷此用戶是否已經(jīng)注冊
%><!--#include file="connpic.asp"--><%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from pic"
rs.open sql,conn,3,2
%>
<html>
<Script language="javascript">
function mysubmit(theform)
{
if(theform.big.value=="")
{
alert("請點擊瀏覽按鈕，選擇您要上傳的jpg或gif文件!")
theform.big.focus;
return (false);
}
else
{
str= theform.big.value;
strs=str.toLowerCase();
lens=strs.length;
extname=strs.substring(lens-4,lens);
if(extname!=".jpg" && extname!=".gif")
{
alert("請選擇jpg或gif文件!");
return (false);
}
}
return (true);
}
</script>
<body>
<center>
<form enctype="multipart/form-data" action="addpic.asp" method=post onSubmit="return mysubmit(this)">
<table width="63%" border="1" cellpadding="0" cellspacing="0" bordercolor="#003399">
<tr>
<td width="612" height="28" bgcolor="#336699"><div align="center"><font color="#FFFFFF"><b>相片管理子系統(tǒng)</b></font></div></td>
</tr>
<tr>
<td width="612">
<p> </p>
<p align="center">相片
<input type="file" name="big" size="20">
<font color="#FF0000"> *請選擇gif或jpg文件，文件不大于60k*</font></p>
<p align="center"><input type="submit" value=" 上傳 " name="B3"> </p></td>
</tr>
</table>
</form>
</body>
</html>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -