无组件图文混合上传示例

丐帮团团长

丐帮团团长

2016-01-29 17:26

无组件图文混合上传示例,无组件图文混合上传示例
  以下代码没有规范,还有些功能没完成,有那位高手能把它修改一下,封装成类则更是造福大众,或者以后有时间我会做的。有任何错误或建议请一定要给我发E-mail:sobina@21cn.com,谢谢。
  好了,少说多做,本示例在w2kServer,IIS5,SQL SERVER7中测试通过。
如有不明白的可到精华区查“图象”或“图片”关键字找到答案,或写信给我。
  示例一共有三个文件:upload.htm(上传界面)
process.asp(处理程序)
showimg.asp(显示图象)
数据库:在pubs数据库中建立一个新表名为imgtest
字段名    类型   长度
----------------------------------------------
id int (自动编号)
img iamge
imginfo nchar 50

以下是三个文件的代码:

upload.htm
---------------------------------------------------------------------
<html
<head
<titleUntitled Document</title
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"
<style type="text/css"
<!--
td { font-size: 9pt}
a { color: #000000; text-decoration: none}
a:hover { text-decoration: underline}
.tx { height: 16px; width: 30px; border-color: black black #000000; border-top-width: 0px;

border-right-width: 0px; border-bottom-width: 1px; border-left-width: 0px; font-size: 9pt;

background-color: #eeeeee; color: #0000FF}
.bt { font-size: 9pt; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px;

border-left-width: 0px; height: 16px; width: 80px; background-color: #eeeeee; cursor: hand}
.tx1 { height: 20px; width: 30px; font-size: 9pt; border: 1px solid; border-color: black black

#000000; color: #0000FF}
--
</style
</head

<body bgcolor="#FFFFFF" text="#000000"
<form name="form1" method="post" action="process.asp" enctype="multipart/form-data"
<table width="71%" border="1" cellspacing="0" cellpadding="5" align="center"

bordercolordark="#CCCCCC" bordercolorlight="#000000"
<tr bgcolor="#CCCCCC"
<td height="22" align="left" valign="middle" bgcolor="#CCCCCC" Sobina
的图文上传界面</td
</tr
<tr align="left" valign="middle" bgcolor="#eeeeee"
<td bgcolor="#eeeeee" <br
</td
</tr
<tr align="center" valign="middle"
<td align="left" id="upid" height="122"
<p图象路径:
<input type="file" name="img" style="width:400" class="tx1" value=""
</p
<p图象说明:
<input type="text" name="imginfo"
</p
</td
</tr
<tr align="center" valign="middle" bgcolor="#eeeeee"
<td bgcolor="#eeeeee" height="2"
<input type="submit" name="Submit" value="· 提交 ·" class="bt"
<input type="reset" name="Submit2" value="· 重置 ·" class="bt"
</td
</tr
</table
</form
</body
</html
------------------------------------------------------------------------
process.asp
------------------------------------------------------------------------
<!--#include file="../bin/strCnn.asp"--
<%
response.expires=0
'目的:将二进制字符转换成普通字符
Function bin2str(binstr)
Dim varlen,clow,ccc,skipflag
skipflag=0
ccc = ""
varlen=LenB(binstr)
For i=1 To varlen
If skipflag=0 Then
clow = MidB(binstr,i,1)
If AscB(clow) 127 Then
ccc =ccc & Chr(AscW(MidB(binstr,i+1,1) & clow))
skipflag=1
Else
ccc = ccc & Chr(AscB(clow))
End If
Else
skipflag=0
End I
展开更多 50%)
分享

猜你喜欢

无组件图文混合上传示例

ASP
无组件图文混合上传示例

6行代码实现无组件上传

ASP
6行代码实现无组件上传

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

无组件文件上传代码实例

ASP
无组件文件上传代码实例

中文的无组件文件上传ASP函数

ASP
中文的无组件文件上传ASP函数

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

一个老个写的无组件上传

ASP
一个老个写的无组件上传

用ADO STREAM做的无组件上传程序

ASP
用ADO STREAM做的无组件上传程序

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

用XSL.ASP编辑XML文档

用XSL.ASP编辑XML文档

明明白白文件“关联”

明明白白文件“关联”
下拉加载更多内容 ↓