头像一览表
function insertsmilie(smilieface){
self.opener.xginfo.imageid.value=smilieface;
}
set fso = server.CreateObject("Scripting.FileSystemObject")
set filedrive=fso.GetFolder(server.MapPath("../images/userpic"))
dim filename
Response.Write ""
for each filename in filedrive.Files
%> next
Response.Write ""
%>