无组件上传图片至SQLSERVER数据库(示例)

王朝mssql·作者佚名  2006-12-16
窄屏简体版  字體: |||超大  

在无组件上传我刚试成功,所以提供代码给大家一起共享。

/* addemployee.asp */

<html>

<head>

<title>职工之家</title>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<link rel="stylesheet" href="../css/site_css.css" type="text/css">

</head>

<script language="javascript">

<!--

//选择分类

///////////////////////////////////////////////////////////////////////

function selectsort(txtSubject){

var returnValue

returnValue=window.showModalDialog("selMode.htm",null,"center:1;status:0;help:0;resized:0;dialogheight:300px;dialogwidth:206px");

if (returnValue!="" && returnValue!=null){

txtSubject.value=returnValue

}

}

///////////////////////////////////////////////////////////////////////

//合法性检查

function isOK(thisForm){

var strTemp,strValue,strLen,strExName

if(thisForm.txtTitle.value==""){

alert("提示:标题不能为空,请正确输入")

thisForm.txtTitle.focus()

return false

}

if(thisForm.txtSort.value==""){

alert("提示:请正确选择分类")

thisForm.txtSort.focus()

return false

}

/*检查图片类型*/

if(thisForm.file.value!=""){

strTemp=thisForm.file.value

strValue=strTemp.toLowerCase()

strLen=strTemp.length

strExName=strValue.substring(strLen-4,strLen)

if (strExName!=".jpg" && strExName!=".gif"){

alert("请选择jpg或者gif文件!")

return false

}

return true

}

}

//-->

</script>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="1" topmargin="1">

<form name="form1" method="post" action="transact1.asp" enctype="multipart/form-data">

<table border="0" cellspacing="0" cellpadding="0">

<tr>

<td colspan="2" bgcolor="#006699" height="15">&nbsp;</td>

</tr>

<tr>

<td class="textBlack">

<div align="right">标题:</div>

</td>

<td>

<input type="text" name="txtTitle" size="52" class="textarea">

</td>

</tr>

<tr>

<td class="textBlack">

<div align="right">分类:</div>

</td>

<td>

<input type="text" name="txtSort" size="35" class="textarea">

<input type="button" name="Submit2" class="buttonSkid" onclick="selectsort(txtSort);">

</td>

</tr>

<tr>

<td class="textBlack" valign="top">

<div align="right">正文:</div>

</td>

<td>

<textarea name="txtContent" rows="15" cols="50" class="textarea"></textarea>

</td>

</tr>

<tr>

<td height="14" class="textBlack" valign="top">

<div align="right">图片:</div>

</td>

<td height="14" class="textBlack">

<div align="left">

<input type="file" name="file" size="35" class="textarea">

</div>

</td>

</tr>

<tr>

<td height="42" class="textBlack" valign="top">&nbsp;</td>

<td height="42" class="textBlack" valign="middle">

<p>1、您上传的图片大小请控制在<font color="#FF0000"><b>500K</b></font>以内,否则不允许上传<br>

2、你上传的图片必须为<font color="#FF0000"><b>150*130象素</b></font><br>

3、上传上传图片的格式为JPG或者GIF</p>

</td>

</tr>

<tr>

<td height="39" class="textBlack">&nbsp;</td>

<td height="39" valign="middle">

<div align="center"><img src="../images/save.gif" width="85" height="19" onClick="if(isOK(form1)){form1.submit()}">

<img src="../images/close.gif" width="85" height="19" onClick="self.close();" ></div>

</td>

</tr>

</table>

</form>

</body>

</html>

*************************************************************************

/* transact1.asp*/

<!--#include file="../func/conn.inc"-->

<!--#include file="../func/fupload.inc"-->

<!--#include file ="../func/myfunctions.inc"-->

<%

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then

Dim Fields

Dim strTitle,strSort,strContent

Dim rs,sSql

Dim iMaxid

Dim strMaxid

Dim strlen

Set Fields = GetUpload()

strTitle=BinaryToString(Fields("txtTitle").value)

strSort=BinaryToString(Fields("txtSort").value)

strContent=BinaryToString(Fields("txtContent").value)

strSort=split(trim(strSort),"-")

if instr(1,lcase(Fields("file").FileName),".jpg")=0 and instr(1,lcase(Fields("file").FileName),".gif")=0 then

response.write "<script language='javascript'>alert('上传的图片必须是gif或者jpg格式的图片')</script>"

response.write "<script language='javascript'>window.location='addemployee.asp';</script>"

Response.end

end if

if Fields("file").Length>500000 then

response.write "<script language='javascript'>alert('只允许不大于500k的图片上传');</script>"

response.write "<script language='javascript'>window.location='addemployee.asp';</script>"

response.end

end if

'/*存至数据库*/

if Fields("file").FileName<>"" then

Set rs=Server.CreateObject("ADODB.Recordset")

sSql="select * from employee order by id desc"

rs.open sSql,conn,2,2

if not rs.eof then

iMaxid=Clng(rs("id"))+1

strlen=4-len(cstr(iMaxid))

strMaxid=string(strlen,"0") & cstr(iMaxid)

else

strMaxid="0001"

end if

rs.addnew

rs("id")=strMaxid

rs("title")=strTitle

rs("sort")=strSort(0)

rs("img").AppendChunk Fields("file").Value

rs("content")=quoteChg(strContent)

rs("todate")=date()

rs.update

rs.close

response.write "<script language='javascript'>alert('添加记录成功')</script>"

end if

end if

%>

**********************************************************************

/*fupload.inc*/

<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>

Dim UploadSizeLimit

'********************************** GetUpload **********************************

'.Name name of the form field (<Input Name="..." Type="File,...">)

'.ContentDisposition = Content-Disposition of the form field

'.FileName = Source file name for <input type=file>

'.ContentType = Con

[1] [2] 下一页

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航