有排版的页面http://hi.baidu.com/xnaer/item/5a430e5f53e8d61bdb1635ea
思路：
会员通过文件域上传图片；
将图片名改为 会员ID+.jpg；
在要显示头像图片的地方插入该图片链接。
代码：
——————————1.asp————————————
<form name="form1" method="post" action="2.asp"> 上传本地图片： <input name="file" type="file" class="input" id="file" size="30"> <p>可上传的图片格式为 .GIF, .PNG, .BMP, .JPG, .JPEG 。</p> <p>文件大小请限制在30KB以内。</p> <input name="Submit" type="submit" class="button" value="提交"> </form>
——————————2.asp————————————
<%@LANGUAGE="VBSCRIPT"%> '脚本语言为VB <!--#include file="Connections/*.asp" --> '链接数据库 <% Dim index__MMColParam index__MMColParam = "0" If (Session("MM_Username") <> "") Then index__MMColParam = Session("MM_Username") End If %> '记录集筛选为 ID = 阶段变量 MM_Username <% Dim index Dim index_cmd Dim index_numRows
Set index_cmd = Server.CreateObject ("ADODB.Command") index_cmd.ActiveConnection = MM_nculive_STRING index_cmd.CommandText = "SELECT ID FROM *.associator WHERE ID = ?" index_cmd.Prepared = true index_cmd.Parameters.Append index_cmd.CreateParameter("param1", 200, 1, 12, index__MMColParam) ' adVarChar
Set index = index_cmd.Execute index_numRows = 0 %> '绑定记录集，查询会员ID <% Dim fn %> <%fn=(index.Fields.Item("ID").Value)%> '获取会员ID <% Dim file,filename,houzui,fso file = Request.Form("file") '获取文件地址
If file="" then response.write"<script>alert('请选择要上传的文件！');window.location.href='infoupdata.asp';</script>" '如果没有获取不到文件 else houzui=LCase(mid(file,InStrRev(file, "."))) '后缀名小写化
If houzui=".gif" or houzui=".jpg" or houzui=".jpeg" or houzui=".bmp" or houzui=".png" then '限制后缀名
set fso=server.createobject("scripting.filesystemobject") set f=fso.getfile(file) '获取文件大小 If f.size<=30720 Then '比较文件大小 filename = fn & ".jpg" '修改文件名
Set objStream = Server.CreateObject("ADODB.Stream") objStream.Type = 1 objStream.Open objStream.LoadFromFile file objStream.SaveToFile Server.MapPath("headpic/" & filename),2 objStream.Close '上传文件，高亮引号内为目标文件夹
response.write"<script>alert('图片上传成功！');window.location.href='infoupdata.asp';</script>" else response.write"<script>alert('不允许上传大于30KB的图片！');window.location.href='infoupdata.asp';</script>" end If else response.write"<script>alert('不允许上传" & houzui & "格式的图片！');window.location.href='infoupdata.asp';</script>" end If end If %> <% index.Close() Set index = Nothing %> '关闭记录集
——————————————————————————
至此，头像图片的上传已经结束，接下来该显示图片了。
首先绑定记录集，以 ID = 阶段变量 MM_Username 筛选会员ID。
然后在必要的地方插入下面的代码
——————————3.asp————————————
<img src="headpic/<%=(index.Fields.Item("ID").Value)%>.jpg" width="120" height="120" onerror="this.src='默认头像地址'" />
——————————————————————————
现在，完美结束。