好日子很快就会有了

心灵的共鸣;
眼泪哗哗的...

谢谢大侠，小妹真感动
能告诉我你得QQ吗？
我觉得你很值得交往

还没有真正投入工作作程序员,但知道程序员确实是很累的.身体第一吧!大家都多保重

嗯，为了减轻大家的负担，建议大家贴出自己的得意之作，为自己为别人减少一份压力，我先来

一个很好用的图文上传的代码，理论支持多图上传！

<%
response.expires=0

Sub BuildUploadRequest(RequestBin)
'Get the boundary 
PosBeg = 1 
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13))) 
boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg) 
boundaryPos = InstrB(1,RequestBin,boundary)
'Get all data inside the boundaries 
Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))
'Members variable of objects are put in a dictionary object 
Dim UploadControl 
Set UploadControl = CreateObject("Scripting.Dictionary") 
'Get an object name 
Pos = InstrB(BoundaryPos,RequestBin,getByteString("Content-Disposition")) 
Pos = InstrB(Pos,RequestBin,getByteString("name=")) 
PosBeg = Pos+6 
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34))) 
Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg)) 

PosFile=InstrB(BoundaryPos,RequestBin,getByteString("filename=")) 
PosBound = InstrB(PosEnd,RequestBin,boundary) 
'Test if object is of file type 
If PosFile<>0 AND (PosFile<PosBound) THEN
'Get Filename, content-type and content of file 
PosBeg = PosFile + 10 
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34))) 
FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg)) 
'Add filename to dictionary object 
UploadControl.Add "FileName", FileName 
Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:")) 
PosBeg = Pos+14 
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13))) 
'Add content-type to dictionary object 
ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg)) 

'Get content of object 
PosBeg = PosEnd+4 
PosEnd = InstrB(PosBeg,RequestBin,boundary)-2 
Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
else
'Get content of object 
Pos = InstrB(Pos,RequestBin,getByteString(chr(13))) 
PosBeg = Pos+4 
PosEnd = InstrB(PosBeg,RequestBin,boundary)-2 
Value = (MidB(RequestBin,PosBeg,PosEnd-PosBeg))
'Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
End If 
'Add content to dictionary object 
UploadControl.Add "Value" , Value

'Add dictionary object to main dictionary 
UploadRequest.Add name, UploadControl 
'Loop to next object 
BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary) 
Loop  
end Sub

'Byte string to string conversion 
Function getString(StringBin) 
getString ="" 
For intCount = 1 to LenB(StringBin) 
getString = getString & chr(AscB(MidB(StringBin,intCount,1))) 
Next 
End Function 

'String to byte string conversion 
Function getByteString(StringStr) 
For i = 1 to Len(StringStr) 
char = Mid(StringStr,i,1) 
getByteString = getByteString & chrB(AscB(char)) 
Next 
End Function 

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 If
Next
bin2str = ccc
End Function

FormSize = Request.TotalBytes
FormData = Request.BinaryRead(FormSize)
Dim UploadRequest 
Set UploadRequest = CreateObject("Scripting.Dictionary") 
BuildUploadRequest FormData

txtTitle=bin2str(UploadRequest.Item("txtTitle").Item("Value"))
txtLaiy=bin2str(UploadRequest.Item("txtLaiy").Item("Value"))
txtNeir=bin2str(UploadRequest.Item("txtNeir").Item("Value"))
txtShij=getString(UploadRequest.Item("txtShij").Item("Value"))
txtTuij=getString(UploadRequest.Item("txtTuij").Item("Value"))
picture=UploadRequest.Item("user_file").Item("Value")
picturechunk = picture & chrB(0)
'response.end
'response.BinaryWrite(picturechunk)
ON ERROR RESUME NEXT
Application.Lock
set objCnn=Server.CreateObject("ADODB.Connection")
objCnn.Open MM_sqlsvr_STRING
set rec=Server.CreateObject("ADODB.Recordset")
rec.Open "SELECT * FROM tNews",objCnn,3,3
rec.addnew 
 
rec("cBiaot")=txtTitle
rec("cLaiy")=txtLaiy
rec("cNeir")=txtNeir
rec("cShij")=txtShij
rec("cTuij")=txtTuij
if Len(picturechunk)>1 then
rec("cImg").Appendchunk picturechunk 
end if
rec.update
rec.close
set rec=nothing
set objCnn=Nothing
Application.Unlock
IF ERR.NUMBER>0 THEN RESPONSE.Write(ERR.DESCRIPTION)
RESPONSE.Redirect("newslist.asp")
%>

找找先,先收藏,呵呵

基于菜单不能显示于select之上,隐藏的方法最简单,以下是一组函数
var HideElementTemp = new Array();
//点击菜单时，调用此的函数,菜单对象
function cal_hideElementAll(obj){ 
        cal_HideElement("IMG",obj);
        cal_HideElement("SELECT",obj);
        cal_HideElement("OBJECT",obj);
        cal_HideElement("IFRAME",obj);
}
function cal_HideElement(strElementTagName,obj){
try{
    var showDivElement = obj;
    var calendarDiv = obj);
    var intDivLeft = cal_GetOffsetLeft(showDivElement);
    var intDivTop = cal_GetOffsetTop(showDivElement);//+showDivElement.offsetHeight;
    for(i=0;i<window.document.all.tags(strElementTagName).length; i++){
var objTemp = window.document.all.tags(strElementTagName)[i];
if(!objTemp||!objTemp.offsetParent||objTemp==goYearSelect||objTemp==goMonthSelect)
    continue;
var intObjLeft=cal_GetOffsetLeft(objTemp);
var intObjTop=cal_GetOffsetTop(objTemp);
if(((intObjLeft+objTemp.clientWidth)>intDivLeft)&&
   (intObjLeft<intDivLeft+calendarDiv.style.posWidth)&&
   (intObjTop+objTemp.clientHeight>intDivTop)&&
   (intObjTop<intDivTop+calendarDiv.style.posHeight)){
    var intTempIndex=HideElementTemp.length;//已经有的长度
//save elementTagName is stutas
    HideElementTemp[intTempIndex]=new Array(objTemp,objTemp.style.visibility);
    objTemp.style.visibility="hidden";
        }
    }
}catch(err){
}
}

function cal_ShowElement(){
    var i;
    for(i=0;i<HideElementTemp.length; i++){
var objTemp = HideElementTemp[i][0];
if(!objTemp||!objTemp.offsetParent)
    continue;
objTemp.style.visibility=HideElementTemp[i][1];
    }
    HideElementTemp=new Array();
}

function cal_GetOffsetLeft(src){
    var set=0;
    if(src && src.name!="divMain"){
        if (src.offsetParent){
           set+=src.offsetLeft+cal_GetOffsetLeft(src.offsetParent);
}
if(src.tagName.toUpperCase()!="BODY"){
    var x=parseInt(src.scrollLeft,10);
    if(!isNaN(x))
            set-=x;
}
    }
    return set;
}

function cal_GetOffsetTop(src){
    var set=0;
    if(src && src.name!="divMain"){
        if (src.offsetParent){
            set+=src.offsetTop+cal_GetOffsetTop(src.offsetParent);
   }
if(src.tagName.toUpperCase()!="BODY"){
    var y=parseInt(src.scrollTop,10);
    if(!isNaN(y))
set-=y;
}
    }
    return set;
}

谢谢 fason(阿信)(避非典中...) ！！！ ;)

up!!

up!!!