完美世界辰东,完结小说排行榜,盗墓笔记小说txt下载

107 查看	0 回復(fù)

主題：圖片上傳功能代碼 [收藏主題]

admin 當前在線

27 主題	42 廣播	4 粉絲

級別:管理員

用戶積分:2372 分
登錄次數(shù):23 次
注冊時間:2007/3/30
最后登錄:2024/11/9
論壇高手

admin 發(fā)表于：2024/3/11 9:45:17 | 顯示全部帖子查看該作者主題樓主

建網(wǎng)站首選KesionCMS!

数据库表设计
USE [JxtDB]
GO
/****** 对象:  Table [dbo].[表名] 脚本日期: 10/31/2006 15:17:45 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_PADDING ON
GO
CREATE TABLE [dbo].[表名](
[picid] [int] IDENTITY(1,1) NOT NULL,
[teacherid] [varchar](10) COLLATE Chinese_PRC_CI_AS NULL,
[pic] [image] NULL,
[submittime] [datetime] NOT NULL CONSTRAINT [DF_Teacher_Pic_submittime]  DEFAULT (getdate())
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]

GO
SET ANSI_PADDING OFF

<html>

<head>
<title>上传图片</title>
</head>
<body>
<form action="teainfoset_uploadaction.asp" method="post" enctype="multipart/form-data">
　　<input type="file" name="imgurl">
　　<input type="submit" name=ok value="上传图片">
</form>

</body>
</html>

'------------------后台写如程序-----------------

<%
response.buffer=true
'dim FileType
'FileType=".jpg/.gif"
dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata
' for each formName in upload.file''列出所有上传了的文件
' set file=upload.file(formName)''生成一个文件对象
' if file.FileName="" then '如果没有选择上传文件
' response.write("<script>alert('请选择上传文件!');history.go(-1);</script>")
' set file=nothing
' response.end
' end if
' if Instr(FileType,GetExtendName(file.FileName))=0 or Instr(FileType,GetExtendName(file.FileName))="" then '文件为不允许的类型
' response.write ("<script>alert('对不起，只能上传jpg与gif两种格式的照片！');history.back();</Script>")
' response.end
' end if
' set file=nothing
dim connGraph,rec
formsize=request.totalbytes '指明要从客户端读取的数据量大小，这个值小于或者等于使用方法
if formsize>1024*100 then
response.write("<SCRIPT LANGUAGE='JavaScript'>alert('对不起，不能上传容量大于100K的照片！');history.go(-1);</SCRIPT>")
response.end
end if
formdata=request.binaryread(formsize) '返回值保存着从客户端读取到数据
bncrlf=chrB(13) & chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf & bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)
set connGraph=server.CreateObject("ADODB.connection")
connGraph.ConnectionString="File Name=F:/connopen.udl"
connGraph.Open
set rec=server.createobject("ADODB.recordset")
set rec1=server.createobject("ADODB.recordset")
dim SQLstrpic
SQLstrpic=""
SQLstrpic="select * from dbo.jxt_teacher_pic where teacherid='" & userid & "'"
rec1.open SQLstrpic,connGraph,1,1
if rec1.eof then
rec.Open "SELECT * FROM dbo.jxt_teacher_pic",connGraph,1,3
rec.addnew
rec("pic").appendchunk mydata
rec("teacherid")=userid
rec.update
rec.close
else
SQLstrpic=""
SQLstrpic="delete from dbo.jxt_teacher_pic where teacherid='" & userid & "'"
rec.Open SQLstrpic,connGraph,1,3
rec.Open "SELECT * FROM dbo.jxt_teacher_pic",connGraph,1,3
rec.addnew
rec("pic").appendchunk mydata
rec("teacherid")=userid
rec.update
rec.close
end if
rec1.close()
dim picid
picid=""
SQLstrpic=""
SQLstrpic="select * from dbo.jxt_teacher_pic where teacherid='" & userid & "'"
rec1.Open SQLstrpic,connGraph,1,1
if rec1.eof then
picid=""
else
picid=rec1("picid")
end if
rec1.close()
set rec1=nothing
set rec=nothing
set connGraph=nothing
response.write("<SCRIPT LANGUAGE='JavaScript'>opener.document.form1.value="&picid&";var viewarea=opener.document.getElementById('viewpic');viewarea.innerHTML='<img src=teainfoset_viewpic.asp?picid="&picid&" width=40>';window.close();</SCRIPT>")

'function GetExtendName(FileName)'取得文件扩展名
'  dim ExtName
'  ExtName = LCase(FileName)
'  ExtName = right(ExtName,3)
'  ExtName = right(ExtName,3-Instr(ExtName,"."))
'  GetExtendName = ExtName
'end function

‘-------------------读出图片程序-------------

<%
set connGraph=server.CreateObject("ADODB.connection")
connGraph.ConnectionString="File Name=F:/connopen.udl"
connGraph.Open
set rec=server.createobject("ADODB.recordset")
strsql="select pic from dbo.jxt_teacher_pic where picid='" & request("picid") & "'"
rec.open strsql,connGraph,1,3
Response.ContentType = "image/*"
Response.BinaryWrite rec("pic")
rec.close
set rec=nothing
set connGraph=nothing
%>

SQL数据类型

数据类型
在 Microsoft? SQL Server? 中，每个列、局部变量、表达式和参数都有一个相关的数据类型，这是指定对象可持有的数据类型（整型、字符、money 等等）的特性。SQL Server 提供系统数据类型集，定义了可与 SQL Server 一起使用的所有数据类型。下面列出系统提供的数据类型集。

可以定义用户定义的数据类型，其是系统提供的数据类型的别名。有关用户定义的数据类型的更多信息，请参见 sp_addtype 和创建用户定义的数据类型。

当两个具有不同数据类型、排序规则、精度、小数位数或长度的表达式通过运算符进行组合时：

通过将数据类型的优先顺序规则应用到输入表达式的数据类型来确定所得值的数据类型。有关更多信息，请参见数据类型的优先顺序。

如果结果数据类型为 char、varchar、text、nchar、nvarchar 或 ntext，则结果值的排序规则由排序规则的优先顺序规则决定。有关更多信息，请参见排序规则的优先顺序。

结果的精度、小数位数及长度取决于输入表达式的精度、小数位数及长度。有关更多信息，请参见精度、小数位数和长度。
SQL Server 为 SQL-92 兼容性提供了数据类型同义词。有关更多信息，请参见数据类型同义词。

精确数字
整数
bigint

从 -2^63 (-9223372036854775808) 到 2^63-1 (9223372036854775807) 的整型数据（所有数字）。

int

从 -2^31 (-2,147,483,648) 到 2^31 - 1 (2,147,483,647) 的整型数据（所有数字）。

smallint

从 -2^15 (-32,768) 到 2^15 - 1 (32,767) 的整数数据。

tinyint

从 0 到 255 的整数数据。

bit
bit

1 或 0 的整数数据。

decimal 和 numeric
decimal

从 -10^38 +1 到 10^38 –1 的固定精度和小数位的数字数据。

numeric

功能上等同于 decimal。

money 和 smallmoney
money

货币数据值介于 -2^63 (-922,337,203,685,477.5808) 与 2^63 - 1 (+922,337,203,685,477.5807) 之间，精确到货币单位的千分之十。

smallmoney

货币数据值介于 -214,748.3648 与 +214,748.3647 之间，精确到货币单位的千分之十。

近似数字
float

从 -1.79E + 308 到 1.79E + 308 的浮点精度数字。

real

从 -3.40E + 38 到 3.40E + 38 的浮点精度数字。

datetime 和 smalldatetime
datetime

从 1753 年 1 月 1 日到 9999 年 12 月 31 日的日期和时间数据，精确到百分之三秒（或 3.33 毫秒）。

smalldatetime

从 1900 年 1 月 1 日到 2079 年 6 月 6 日的日期和时间数据，精确到分钟。

字符串
char

固定长度的非 Unicode 字符数据，最大长度为 8,000 个字符。

varchar

可变长度的非 Unicode 数据，最长为 8,000 个字符。

text

可变长度的非 Unicode 数据，最大长度为 2^31 - 1 (2,147,483,647) 个字符。

Unicode 字符串
nchar

固定长度的 Unicode 数据，最大长度为 4,000 个字符。

nvarchar

可变长度 Unicode 数据，其最大长度为 4,000 字符。sysname 是系统提供用户定义的数据类型，在功能上等同于 nvarchar(128)，用于引用数据库对象名。

ntext

可变长度 Unicode 数据，其最大长度为 2^30 - 1 (1,073,741,823) 个字符。

二进制字符串
binary

固定长度的二进制数据，其最大长度为 8,000 个字节。

varbinary

可变长度的二进制数据，其最大长度为 8,000 个字节。

image

可变长度的二进制数据，其最大长度为 2^31 - 1 (2,147,483,647) 个字节。

其它数据类型
cursor

游标的引用。

sql_variant

一种存储 SQL Server 支持的各种数据类型（text、ntext、timestamp 和 sql_variant 除外）值的数据类型。

table

一种特殊的数据类型，存储供以后处理的结果集。

timestamp

数据库范围的唯一数字，每次更新行时也进行更新。

uniqueidentifier

全局唯一标识符 (GUID)。

---------------------------------------------------------------------------------
控制字符    值
制表符       CHAR(9)
换行符       CHAR(10)
回车       CHAR(13)
---------------------------------------------------------------------------------

文章知识点与官方知识档案匹配，可进一步学习相关知识

分享到

支持(0) |

反對(0)

頂端

底部

＜上一主題 | 下一主題＞

首頁 1